From 8f2f47d8f559119213fd3dbefd428c280d7f9b01 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 16 Apr 2025 09:11:01 +0800 Subject: [PATCH] ~ --- .gitignore | 16 + 坯布码单待检(PBMDDJ.dll)/CYZZ.cfg | 42 + 坯布码单待检(PBMDDJ.dll)/CYZZ.dof | 138 + 坯布码单待检(PBMDDJ.dll)/CYZZ.res | Bin 0 -> 876 bytes 坯布码单待检(PBMDDJ.dll)/DDMD.cfg | 42 + 坯布码单待检(PBMDDJ.dll)/DDMD.dof | 138 + 坯布码单待检(PBMDDJ.dll)/DDMD.res | Bin 0 -> 876 bytes 坯布码单待检(PBMDDJ.dll)/Desktop.ini | 3 + 坯布码单待检(PBMDDJ.dll)/File.INI | 4 + 坯布码单待检(PBMDDJ.dll)/FileHelp.ini | 7 + 坯布码单待检(PBMDDJ.dll)/JCYData.INI | 7 + 坯布码单待检(PBMDDJ.dll)/JZCRS323C.INI | 7 + 坯布码单待检(PBMDDJ.dll)/JZCRS323CList.txt | 0 坯布码单待检(PBMDDJ.dll)/PBMDDJ.cfg | 42 + 坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof | 138 + 坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr | 58 + 坯布码单待检(PBMDDJ.dll)/PBMDDJ.res | Bin 0 -> 876 bytes 坯布码单待检(PBMDDJ.dll)/ProjectGroup1.bpg | 23 + 坯布码单待检(PBMDDJ.dll)/SYSTEMSET.ini | 3 + 坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.dfm | 794 + 坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.pas | 467 + 坯布码单待检(PBMDDJ.dll)/U_BGCWManage.dfm | 1240 + 坯布码单待检(PBMDDJ.dll)/U_BGCWManage.pas | 703 + 坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.dfm | 1060 + 坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.pas | 819 + 坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.dfm | 900 + 坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.pas | 565 + 坯布码单待检(PBMDDJ.dll)/U_BGFeeList.dfm | 1002 + 坯布码单待检(PBMDDJ.dll)/U_BGFeeList.pas | 742 + 坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.dfm | 504 + 坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.pas | 206 + .../U_BGJCKMXGYSInput.dfm | 1392 + .../U_BGJCKMXGYSInput.pas | 977 + 坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.dfm | 1309 + 坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.pas | 1100 + 坯布码单待检(PBMDDJ.dll)/U_BGLDChk.dfm | 1316 + 坯布码单待检(PBMDDJ.dll)/U_BGLDChk.pas | 674 + 坯布码单待检(PBMDDJ.dll)/U_BGLDManage.dfm | 1227 + 坯布码单待检(PBMDDJ.dll)/U_BGLDManage.pas | 817 + 坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.dfm | 355 + 坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.pas | 158 + 坯布码单待检(PBMDDJ.dll)/U_BGManage.dfm | 1904 ++ 坯布码单待检(PBMDDJ.dll)/U_BGManage.pas | 476 + 坯布码单待检(PBMDDJ.dll)/U_BGZLInput.dfm | 857 + 坯布码单待检(PBMDDJ.dll)/U_BGZLInput.pas | 838 + 坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.dfm | 737 + 坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.pas | 740 + 坯布码单待检(PBMDDJ.dll)/U_BHList.dfm | 671 + 坯布码单待检(PBMDDJ.dll)/U_BHList.pas | 665 + 坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.dfm | 266 + 坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.pas | 369 + 坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.dfm | 482 + 坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.pas | 596 + 坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.dfm | 254 + 坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.pas | 439 + 坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.dfm | 453 + 坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.pas | 588 + 坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.dfm | 285 + 坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.pas | 458 + 坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.dfm | 478 + 坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.pas | 591 + 坯布码单待检(PBMDDJ.dll)/U_CICXList.dfm | 853 + 坯布码单待检(PBMDDJ.dll)/U_CICXList.pas | 600 + 坯布码单待检(PBMDDJ.dll)/U_CIInPut.dfm | 456 + 坯布码单待检(PBMDDJ.dll)/U_CIInPut.pas | 477 + 坯布码单待检(PBMDDJ.dll)/U_CIList.dfm | 943 + 坯布码单待检(PBMDDJ.dll)/U_CIList.pas | 1138 + .../U_CKProductBCPInList.dfm | 539 + .../U_CKProductBCPInList.pas | 456 + 坯布码单待检(PBMDDJ.dll)/U_CPAdd.dfm | 296 + 坯布码单待检(PBMDDJ.dll)/U_CPAdd.pas | 651 + 坯布码单待检(PBMDDJ.dll)/U_CPManage.dfm | 808 + 坯布码单待检(PBMDDJ.dll)/U_CPManage.pas | 1047 + 坯布码单待检(PBMDDJ.dll)/U_CPManageCX.dfm | 610 + 坯布码单待检(PBMDDJ.dll)/U_CPManageCX.pas | 630 + 坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.dfm | 1109 + 坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.pas | 787 + 坯布码单待检(PBMDDJ.dll)/U_CPSel.dfm | 682 + 坯布码单待检(PBMDDJ.dll)/U_CPSel.pas | 578 + 坯布码单待检(PBMDDJ.dll)/U_CPType.dfm | 189 + 坯布码单待检(PBMDDJ.dll)/U_CPType.pas | 242 + 坯布码单待检(PBMDDJ.dll)/U_CPView.dfm | 745 + 坯布码单待检(PBMDDJ.dll)/U_CPView.pas | 745 + 坯布码单待检(PBMDDJ.dll)/U_CWMDList.dfm | 1294 + 坯布码单待检(PBMDDJ.dll)/U_CWMDList.pas | 1746 ++ .../U_CWMDOtherFeeList.dfm | 1530 + .../U_CWMDOtherFeeList.pas | 2212 ++ 坯布码单待检(PBMDDJ.dll)/U_CbJdLr.dfm | 840 + 坯布码单待检(PBMDDJ.dll)/U_CbJdLr.pas | 896 + .../U_ClothContractInPutHZ.dfm | 645 + .../U_ClothContractInPutHZ.pas | 878 + .../U_ClothContractInPutJY.dfm | 568 + .../U_ClothContractInPutJY.pas | 936 + .../U_ClothContractInPutSXMX.dfm | 733 + .../U_ClothContractInPutSXMX.pas | 1249 + .../U_ClothContractListHZ.dfm | 748 + .../U_ClothContractListHZ.pas | 884 + .../U_ClothContractListHZCX.dfm | 509 + .../U_ClothContractListHZCX.pas | 399 + .../U_ClothContractListJY.dfm | 617 + .../U_ClothContractListJY.pas | 694 + 坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.dfm | 391 + 坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.pas | 168 + 坯布码单待检(PBMDDJ.dll)/U_ConInPut.dfm | 713 + 坯布码单待检(PBMDDJ.dll)/U_ConInPut.pas | 959 + .../U_ContractBCInPut.dfm | 631 + .../U_ContractBCInPut.pas | 1051 + .../U_ContractCGJGChkList.dfm | 647 + .../U_ContractCGJGChkList.pas | 515 + .../U_ContractCGJGList.dfm | 667 + .../U_ContractCGJGList.pas | 629 + .../U_ContractCGJGSPList.dfm | 647 + .../U_ContractCGJGSPList.pas | 492 + .../U_ContractCGJGSXSelList.dfm | 542 + .../U_ContractCGJGSXSelList.pas | 368 + .../U_ContractChkList.dfm | 706 + .../U_ContractChkList.pas | 618 + 坯布码单待检(PBMDDJ.dll)/U_ContractList.dfm | 942 + 坯布码单待检(PBMDDJ.dll)/U_ContractList.pas | 999 + .../U_ContractSelList.dfm | 651 + .../U_ContractSelList.pas | 491 + .../U_ContractViewList.dfm | 665 + .../U_ContractViewList.pas | 538 + 坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm | 351 + 坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas | 847 + 坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm | 598 + 坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.pas | 234 + 坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.dfm | 624 + 坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.pas | 234 + 坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm | 754 + 坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas | 500 + 坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm | 316 + 坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.pas | 589 + 坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.dfm | 671 + 坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.pas | 353 + 坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm | 1058 + 坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas | 784 + 坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.dfm | 865 + 坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.pas | 354 + 坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.dfm | 725 + 坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.pas | 940 + 坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm | 17985 ++++++++++++ 坯布码单待检(PBMDDJ.dll)/U_DataLink.pas | 70 + 坯布码单待检(PBMDDJ.dll)/U_FHChkList.dfm | 645 + 坯布码单待检(PBMDDJ.dll)/U_FHChkList.pas | 648 + 坯布码单待检(PBMDDJ.dll)/U_FHInPut.dfm | 263 + 坯布码单待检(PBMDDJ.dll)/U_FHInPut.pas | 308 + 坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.dfm | 280 + 坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.pas | 313 + 坯布码单待检(PBMDDJ.dll)/U_FHList.dfm | 632 + 坯布码单待检(PBMDDJ.dll)/U_FHList.pas | 590 + 坯布码单待检(PBMDDJ.dll)/U_FHOKList.dfm | 647 + 坯布码单待检(PBMDDJ.dll)/U_FHOKList.pas | 681 + 坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.dfm | 669 + 坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.pas | 586 + 坯布码单待检(PBMDDJ.dll)/U_FileUp.dfm | 188 + 坯布码单待检(PBMDDJ.dll)/U_FileUp.pas | 357 + 坯布码单待检(PBMDDJ.dll)/U_FjList.dfm | 172 + 坯布码单待检(PBMDDJ.dll)/U_FjList.pas | 436 + 坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.dfm | 312 + 坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.pas | 401 + 坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.dfm | 305 + 坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.pas | 464 + 坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.dfm | 737 + 坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.pas | 622 + 坯布码单待检(PBMDDJ.dll)/U_GYSFPList.dfm | 795 + 坯布码单待检(PBMDDJ.dll)/U_GYSFPList.pas | 687 + 坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.dfm | 541 + 坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.pas | 271 + 坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.dfm | 302 + 坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.pas | 349 + 坯布码单待检(PBMDDJ.dll)/U_GYSList.dfm | 396 + 坯布码单待检(PBMDDJ.dll)/U_GYSList.pas | 441 + 坯布码单待检(PBMDDJ.dll)/U_GYSSelList.dfm | 304 + 坯布码单待检(PBMDDJ.dll)/U_GYSSelList.pas | 221 + 坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas | 421 + 坯布码单待检(PBMDDJ.dll)/U_HCJYView.dfm | 691 + 坯布码单待检(PBMDDJ.dll)/U_HCJYView.pas | 213 + 坯布码单待检(PBMDDJ.dll)/U_JGList.dfm | 618 + 坯布码单待检(PBMDDJ.dll)/U_JGList.pas | 220 + 坯布码单待检(PBMDDJ.dll)/U_JYDJ.dfm | 753 + 坯布码单待检(PBMDDJ.dll)/U_JYDJ.pas | 647 + 坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.dfm | 537 + 坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.pas | 529 + 坯布码单待检(PBMDDJ.dll)/U_KDInPut.dfm | 298 + 坯布码单待检(PBMDDJ.dll)/U_KDInPut.pas | 381 + 坯布码单待检(PBMDDJ.dll)/U_KDList.dfm | 657 + 坯布码单待检(PBMDDJ.dll)/U_KDList.pas | 574 + 坯布码单待检(PBMDDJ.dll)/U_KDOKList.dfm | 749 + 坯布码单待检(PBMDDJ.dll)/U_KDOKList.pas | 740 + 坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.dfm | 978 + 坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.pas | 954 + 坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.dfm | 795 + 坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.pas | 546 + 坯布码单待检(PBMDDJ.dll)/U_KKList.dfm | 793 + 坯布码单待检(PBMDDJ.dll)/U_KKList.pas | 126 + 坯布码单待检(PBMDDJ.dll)/U_KKView.dfm | 884 + 坯布码单待检(PBMDDJ.dll)/U_KKView.pas | 440 + 坯布码单待检(PBMDDJ.dll)/U_LabelAdd.dfm | 313 + 坯布码单待检(PBMDDJ.dll)/U_LabelAdd.pas | 455 + 坯布码单待检(PBMDDJ.dll)/U_LabelList.dfm | 438 + 坯布码单待检(PBMDDJ.dll)/U_LabelList.pas | 591 + 坯布码单待检(PBMDDJ.dll)/U_MDChkFL.dfm | 1622 ++ 坯布码单待检(PBMDDJ.dll)/U_MDChkFL.pas | 2330 ++ 坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.dfm | 1650 ++ 坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.pas | 2587 ++ 坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.dfm | 1588 ++ 坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.pas | 2044 ++ .../U_MDChkFLZhengYiCL.dfm | 995 + .../U_MDChkFLZhengYiCL.pas | 448 + .../U_MDChkFLZhengYiCLChk.dfm | 1002 + .../U_MDChkFLZhengYiCLChk.pas | 486 + .../U_MDChkFLZhengYiCLList.dfm | 997 + .../U_MDChkFLZhengYiCLList.pas | 464 + 坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.dfm | 1347 + 坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.pas | 1852 ++ 坯布码单待检(PBMDDJ.dll)/U_MDList.dfm | 1057 + 坯布码单待检(PBMDDJ.dll)/U_MDList.pas | 444 + 坯布码单待检(PBMDDJ.dll)/U_MDManage.dfm | 1654 ++ 坯布码单待检(PBMDDJ.dll)/U_MDManage.pas | 1549 + 坯布码单待检(PBMDDJ.dll)/U_MDManageChk.dfm | 1660 ++ 坯布码单待检(PBMDDJ.dll)/U_MDManageChk.pas | 1572 + 坯布码单待检(PBMDDJ.dll)/U_MJEdit.dfm | 418 + 坯布码单待检(PBMDDJ.dll)/U_MJEdit.pas | 686 + .../U_MJManageNewFDNew.dfm | 2670 ++ .../U_MJManageNewFDNew.pas | 2210 ++ .../U_MJManageNewFDNewCD.dfm | 2404 ++ .../U_MJManageNewFDNewCD.pas | 2347 ++ .../U_MJManageNewFDNewCDLable.dfm | 2572 ++ .../U_MJManageNewFDNewCDLable.pas | 2534 ++ .../U_MJManageNewFDNewLable.dfm | 1290 + .../U_MJManageNewFDNewLable.pas | 2029 ++ 坯布码单待检(PBMDDJ.dll)/U_MaDanManage.dfm | 1122 + 坯布码单待检(PBMDDJ.dll)/U_MaDanManage.pas | 169 + 坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.dfm | 2215 ++ 坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.pas | 2556 ++ .../U_MaDanManageSTBAK.dfm | 1693 ++ .../U_MaDanManageSTBAK.pas | 1223 + .../U_MaDanManageSTBak2.dfm | 1742 ++ .../U_MaDanManageSTBak2.pas | 1238 + 坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.dfm | 1686 ++ 坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.pas | 1796 ++ .../U_MaDanManageWWBAK.dfm | 1490 + .../U_MaDanManageWWBAK.pas | 1141 + .../U_MaDanManageWWOne.dfm | 1466 + .../U_MaDanManageWWOne.pas | 1127 + 坯布码单待检(PBMDDJ.dll)/U_MeetingAP.dfm | 1515 + 坯布码单待检(PBMDDJ.dll)/U_MeetingAP.pas | 652 + 坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.dfm | 1620 ++ 坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.pas | 1192 + 坯布码单待检(PBMDDJ.dll)/U_ModuleNote.dfm | 181 + 坯布码单待检(PBMDDJ.dll)/U_ModuleNote.pas | 220 + .../U_ModulePromptList.dfm | 342 + .../U_ModulePromptList.pas | 257 + 坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.dfm | 299 + 坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.pas | 401 + 坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.dfm | 835 + 坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.pas | 788 + .../U_NBFPInPutWGLBCOrderNo.dfm | 624 + .../U_NBFPInPutWGLBCOrderNo.pas | 775 + 坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.dfm | 738 + 坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.pas | 621 + 坯布码单待检(PBMDDJ.dll)/U_NBFPList.dfm | 806 + 坯布码单待检(PBMDDJ.dll)/U_NBFPList.pas | 660 + .../U_OldOrderNOCKList.dfm | 603 + .../U_OldOrderNOCKList.pas | 422 + .../U_OldOrderNoInPut.dfm | 324 + .../U_OldOrderNoInPut.pas | 586 + 坯布码单待检(PBMDDJ.dll)/U_OrdCostList.dfm | 1250 + 坯布码单待检(PBMDDJ.dll)/U_OrdCostList.pas | 619 + 坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.dfm | 1354 + 坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.pas | 654 + 坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.dfm | 1300 + 坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.pas | 786 + 坯布码单待检(PBMDDJ.dll)/U_OrderInPut.dfm | 2854 ++ 坯布码单待检(PBMDDJ.dll)/U_OrderInPut.pas | 3940 +++ .../U_OrderInPutAnPai.dfm | 2457 ++ .../U_OrderInPutAnPai.pas | 3249 +++ .../U_OrderInPutDYAnPai.dfm | 2371 ++ .../U_OrderInPutDYAnPai.pas | 3632 +++ .../U_OrderInPutPrice.dfm | 2311 ++ .../U_OrderInPutPrice.pas | 3048 ++ 坯布码单待检(PBMDDJ.dll)/U_OrderJDList.dfm | 1860 ++ 坯布码单待检(PBMDDJ.dll)/U_OrderJDList.pas | 1225 + 坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.dfm | 115 + 坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.pas | 69 + 坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.dfm | 495 + 坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.pas | 357 + 坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.dfm | 598 + 坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.pas | 323 + 坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.dfm | 584 + 坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.pas | 328 + .../U_OrderSunSelList.dfm | 356 + .../U_OrderSunSelList.pas | 183 + 坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.dfm | 626 + 坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.pas | 421 + 坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.dfm | 306 + 坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.pas | 533 + 坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm | 614 + 坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas | 229 + 坯布码单待检(PBMDDJ.dll)/U_PBCKList.dfm | 623 + 坯布码单待检(PBMDDJ.dll)/U_PBCKList.pas | 425 + 坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.dfm | 550 + 坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.pas | 335 + 坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.dfm | 711 + 坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.pas | 479 + 坯布码单待检(PBMDDJ.dll)/U_PKFKList.dfm | 651 + 坯布码单待检(PBMDDJ.dll)/U_PKFKList.pas | 906 + 坯布码单待检(PBMDDJ.dll)/U_PKHZList.dfm | 667 + 坯布码单待检(PBMDDJ.dll)/U_PKHZList.pas | 294 + 坯布码单待检(PBMDDJ.dll)/U_PKInPut.dfm | 659 + 坯布码单待检(PBMDDJ.dll)/U_PKInPut.pas | 748 + 坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.dfm | 283 + 坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.pas | 483 + 坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.dfm | 272 + 坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.pas | 475 + 坯布码单待检(PBMDDJ.dll)/U_PKList.dfm | 646 + 坯布码单待检(PBMDDJ.dll)/U_PKList.pas | 609 + 坯布码单待检(PBMDDJ.dll)/U_PKQTList.dfm | 680 + 坯布码单待检(PBMDDJ.dll)/U_PKQTList.pas | 612 + 坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.dfm | 534 + 坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.pas | 1946 ++ 坯布码单待检(PBMDDJ.dll)/U_PRTJYList.dfm | 1022 + 坯布码单待检(PBMDDJ.dll)/U_PRTJYList.pas | 2427 ++ 坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.dfm | 1045 + 坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.pas | 2308 ++ 坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.dfm | 916 + 坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.pas | 2230 ++ 坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.dfm | 693 + 坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.pas | 807 + .../U_PRTOrderChkList.dfm | 700 + .../U_PRTOrderChkList.pas | 690 + 坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.dfm | 746 + 坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.pas | 911 + .../U_PRTOrderPBDHViewList.dfm | 614 + .../U_PRTOrderPBDHViewList.pas | 547 + .../U_PRTOrderPriceList.dfm | 656 + .../U_PRTOrderPriceList.pas | 563 + 坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.dfm | 592 + 坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.pas | 433 + .../U_PRTOrderViewCXList.dfm | 586 + .../U_PRTOrderViewCXList.pas | 542 + .../U_PRTOrderViewList.dfm | 670 + .../U_PRTOrderViewList.pas | 883 + .../U_ProductOrderListSel.dfm | 344 + .../U_ProductOrderListSel.pas | 161 + .../U_ProductOrderNewList.dfm | 823 + .../U_ProductOrderNewList.pas | 1093 + 坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.dfm | 239 + 坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.pas | 685 + 坯布码单待检(PBMDDJ.dll)/U_SCMDList.dfm | 1026 + 坯布码单待检(PBMDDJ.dll)/U_SCMDList.pas | 442 + 坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.dfm | 528 + 坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.pas | 542 + 坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.dfm | 442 + 坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.pas | 151 + 坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm | 371 + 坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas | 990 + 坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm | 580 + 坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas | 223 + 坯布码单待检(PBMDDJ.dll)/U_SXCKList.dfm | 538 + 坯布码单待检(PBMDDJ.dll)/U_SXCKList.pas | 359 + 坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm | 682 + 坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas | 398 + 坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm | 668 + 坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas | 428 + .../U_SXCKOutListDBCK.dfm | 959 + .../U_SXCKOutListDBCK.pas | 1046 + 坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm | 338 + 坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas | 899 + 坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm | 272 + 坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas | 354 + 坯布码单待检(PBMDDJ.dll)/U_SXCRKList.dfm | 604 + 坯布码单待检(PBMDDJ.dll)/U_SXCRKList.pas | 240 + 坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.dfm | 240 + 坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.pas | 347 + 坯布码单待检(PBMDDJ.dll)/U_SXDZList.dfm | 430 + 坯布码单待检(PBMDDJ.dll)/U_SXDZList.pas | 612 + 坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.dfm | 399 + 坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.pas | 246 + 坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.dfm | 233 + 坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.pas | 329 + 坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.dfm | 710 + 坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.pas | 731 + 坯布码单待检(PBMDDJ.dll)/U_SXKCList.dfm | 398 + 坯布码单待检(PBMDDJ.dll)/U_SXKCList.pas | 188 + 坯布码单待检(PBMDDJ.dll)/U_SXMDList.dfm | 1650 ++ 坯布码单待检(PBMDDJ.dll)/U_SXMDList.pas | 2587 ++ 坯布码单待检(PBMDDJ.dll)/U_SYDept.dfm | 311 + 坯布码单待检(PBMDDJ.dll)/U_SYDept.pas | 353 + 坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.dfm | 296 + 坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.pas | 336 + 坯布码单待检(PBMDDJ.dll)/U_SYDeptView.dfm | 304 + 坯布码单待检(PBMDDJ.dll)/U_SYDeptView.pas | 344 + 坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.dfm | 1391 + 坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.pas | 562 + 坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.dfm | 724 + 坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.pas | 298 + 坯布码单待检(PBMDDJ.dll)/U_TJCKKC.dfm | 564 + 坯布码单待检(PBMDDJ.dll)/U_TJCKKC.pas | 252 + 坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.dfm | 1120 + 坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.pas | 1120 + 坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.dfm | 1106 + 坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.pas | 1119 + 坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.dfm | 540 + 坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.pas | 214 + 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.dfm | 1194 + 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.pas | 742 + 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.dfm | 1206 + 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.pas | 1070 + 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.dfm | 546 + 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.pas | 260 + 坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.dfm | 820 + 坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.pas | 517 + .../U_UserModuleNameList.dfm | 557 + .../U_UserModuleNameList.pas | 221 + 坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.dfm | 349 + 坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.pas | 660 + 坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.dfm | 547 + 坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.pas | 226 + 坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.dfm | 564 + 坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.pas | 225 + 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm | 652 + 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas | 385 + 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm | 352 + 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas | 583 + 坯布码单待检(PBMDDJ.dll)/U_WJGMDList.dfm | 617 + 坯布码单待检(PBMDDJ.dll)/U_WJGMDList.pas | 395 + 坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.dfm | 417 + 坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.pas | 537 + 坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.dfm | 887 + 坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.pas | 805 + 坯布码单待检(PBMDDJ.dll)/U_WXFPList.dfm | 516 + 坯布码单待检(PBMDDJ.dll)/U_WXFPList.pas | 457 + .../U_WorkDeptFeeBXFKList.dfm | 646 + .../U_WorkDeptFeeBXFKList.pas | 435 + .../U_WorkDeptFeeChkList.dfm | 757 + .../U_WorkDeptFeeChkList.pas | 604 + .../U_WorkDeptFeeFKHXList.dfm | 512 + .../U_WorkDeptFeeFKHXList.pas | 479 + .../U_WorkDeptFeeList.dfm | 754 + .../U_WorkDeptFeeList.pas | 509 + .../U_WorkerDeptFeeInPut.dfm | 447 + .../U_WorkerDeptFeeInPut.pas | 555 + 坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.dfm | 458 + 坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.pas | 572 + 坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.dfm | 372 + 坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.pas | 185 + 坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.dfm | 439 + 坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.pas | 292 + 坯布码单待检(PBMDDJ.dll)/U_YPCRIn.dfm | 313 + 坯布码单待检(PBMDDJ.dll)/U_YPCRIn.pas | 595 + 坯布码单待检(PBMDDJ.dll)/U_YPInList.dfm | 585 + 坯布码单待检(PBMDDJ.dll)/U_YPInList.pas | 589 + 坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.dfm | 275 + 坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.pas | 724 + 坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.dfm | 224 + 坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.pas | 465 + .../U_ZHKHInPutTabNew.dfm | 1130 + .../U_ZHKHInPutTabNew.pas | 575 + 坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.dfm | 540 + 坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.pas | 442 + 坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.dfm | 308 + 坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.pas | 359 + 坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.dfm | 287 + 坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.pas | 269 + 坯布码单待检(PBMDDJ.dll)/U_ZXBList.dfm | 680 + 坯布码单待检(PBMDDJ.dll)/U_ZXBList.pas | 556 + 坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.dfm | 218 + 坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.pas | 236 + 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.dfm | 393 + 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.pas | 401 + 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.dfm | 340 + 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.pas | 214 + 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.dfm | 361 + 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.pas | 204 + 坯布码单待检(PBMDDJ.dll)/U_ZdyInput.dfm | 17 + 坯布码单待检(PBMDDJ.dll)/U_ZdyInput.pas | 30 + 坯布码单待检(PBMDDJ.dll)/U_iniParam.pas | 65 + 坯布码单待检(PBMDDJ.dll)/U_testdll.dfm | 221 + 坯布码单待检(PBMDDJ.dll)/U_testdll.pas | 106 + 坯布码单待检(PBMDDJ.dll)/consvr.ini | 2 + 坯布码单待检(PBMDDJ.dll)/testDll.cfg | 38 + 坯布码单待检(PBMDDJ.dll)/testDll.dof | 136 + 坯布码单待检(PBMDDJ.dll)/testDll.dpr | 14 + 坯布码单待检(PBMDDJ.dll)/testDll.res | Bin 0 -> 876 bytes 坯布码单待检(PBMDDJ.dll)/testDllDJ.cfg | 38 + 坯布码单待检(PBMDDJ.dll)/testDllDJ.dof | 136 + 坯布码单待检(PBMDDJ.dll)/testDllDJ.res | Bin 0 -> 876 bytes 基础资料维护(BaseInfo.dll)/BaseInfo.cfg | 42 + 基础资料维护(BaseInfo.dll)/BaseInfo.dof | 138 + 基础资料维护(BaseInfo.dll)/BaseInfo.dpr | 57 + 基础资料维护(BaseInfo.dll)/BaseInfo.rar | Bin 0 -> 2097824 bytes 基础资料维护(BaseInfo.dll)/BaseInfo.res | Bin 0 -> 876 bytes 基础资料维护(BaseInfo.dll)/CPCK.cfg | 42 + 基础资料维护(BaseInfo.dll)/CPCK.dof | 138 + 基础资料维护(BaseInfo.dll)/CPCK.res | Bin 0 -> 876 bytes .../FieldExportSet/产品资料列表.INI | 2 + .../FieldExportSet/客户资料列表.INI | 2 + 基础资料维护(BaseInfo.dll)/JCInfoSet.cfg | 42 + 基础资料维护(BaseInfo.dll)/JCInfoSet.dof | 138 + 基础资料维护(BaseInfo.dll)/JCInfoSet.res | Bin 0 -> 876 bytes 基础资料维护(BaseInfo.dll)/ProjectGroup1.bpg | 20 + 基础资料维护(BaseInfo.dll)/ProjectGroup1.~bpg | 23 + 基础资料维护(BaseInfo.dll)/SYSTEMSET.ini | 3 + 基础资料维护(BaseInfo.dll)/U_CPKWEdit.dfm | 202 + 基础资料维护(BaseInfo.dll)/U_CPKWEdit.pas | 316 + 基础资料维护(BaseInfo.dll)/U_CPKWKCList.dfm | 189 + 基础资料维护(BaseInfo.dll)/U_CPKWKCList.pas | 114 + 基础资料维护(BaseInfo.dll)/U_CPKWList.dfm | 423 + 基础资料维护(BaseInfo.dll)/U_CPKWList.pas | 409 + .../U_ClothContractList_CG_help.dfm | 535 + .../U_ClothContractList_CG_help.pas | 576 + 基础资料维护(BaseInfo.dll)/U_DataLink.dfm | 17974 ++++++++++++ 基础资料维护(BaseInfo.dll)/U_DataLink.pas | 85 + 基础资料维护(BaseInfo.dll)/U_GetDllForm.pas | 294 + 基础资料维护(BaseInfo.dll)/U_HTListSel.dfm | 304 + 基础资料维护(BaseInfo.dll)/U_HTListSel.pas | 173 + 基础资料维护(BaseInfo.dll)/U_HZViewList.dfm | 804 + 基础资料维护(BaseInfo.dll)/U_HZViewList.pas | 319 + 基础资料维护(BaseInfo.dll)/U_KHAdd.dfm | 262 + 基础资料维护(BaseInfo.dll)/U_KHAdd.pas | 303 + 基础资料维护(BaseInfo.dll)/U_KHHelp.dfm | 17996 ++++++++++++ 基础资料维护(BaseInfo.dll)/U_KHHelp.pas | 167 + 基础资料维护(BaseInfo.dll)/U_KHInfo.dfm | 314 + 基础资料维护(BaseInfo.dll)/U_KHInfo.pas | 186 + 基础资料维护(BaseInfo.dll)/U_NengHaoInput.dfm | 240 + 基础资料维护(BaseInfo.dll)/U_NengHaoInput.pas | 254 + 基础资料维护(BaseInfo.dll)/U_NengHaoList.dfm | 359 + 基础资料维护(BaseInfo.dll)/U_NengHaoList.pas | 261 + 基础资料维护(BaseInfo.dll)/U_SYDept.dfm | 277 + 基础资料维护(BaseInfo.dll)/U_SYDept.pas | 314 + 基础资料维护(BaseInfo.dll)/U_UserHelpSel.dfm | 23820 ++++++++++++++++ 基础资料维护(BaseInfo.dll)/U_UserHelpSel.pas | 234 + 基础资料维护(BaseInfo.dll)/U_WeiXinHelp.dfm | 201 + 基础资料维护(BaseInfo.dll)/U_WeiXinHelp.pas | 148 + 基础资料维护(BaseInfo.dll)/U_ZDYHelp11.dfm | 18066 ++++++++++++ 基础资料维护(BaseInfo.dll)/U_ZDYHelp11.pas | 628 + 基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm | 280 + 基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas | 335 + .../U_ZdyAttInputCP.dfm | 396 + .../U_ZdyAttInputCP.pas | 568 + .../U_ZdyAttInputCP10.dfm | 676 + .../U_ZdyAttInputCP10.pas | 208 + .../U_ZdyAttInputCP20.dfm | 202 + .../U_ZdyAttInputCP20.pas | 304 + .../U_ZdyAttInputGYS.dfm | 237 + .../U_ZdyAttInputGYS.pas | 273 + .../U_ZdyAttInputPB.dfm | 276 + .../U_ZdyAttInputPB.pas | 441 + 基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm | 541 + 基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.pas | 472 + .../U_ZdyAttachCP10.dfm | 409 + .../U_ZdyAttachCP10.pas | 386 + .../U_ZdyAttachCP20.dfm | 406 + .../U_ZdyAttachCP20.pas | 443 + .../U_ZdyAttachCPCX.dfm | 556 + .../U_ZdyAttachCPCX.pas | 473 + 基础资料维护(BaseInfo.dll)/U_ZdyAttachGYS.dfm | 372 + 基础资料维护(BaseInfo.dll)/U_ZdyAttachGYS.pas | 223 + .../U_ZdyAttachGYSxz.dfm | 378 + .../U_ZdyAttachGYSxz.pas | 235 + 基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.dfm | 474 + 基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.pas | 425 + .../U_ZdyAttachment.dfm | 393 + .../U_ZdyAttachment.pas | 257 + 基础资料维护(BaseInfo.dll)/U_ZdyInput.dfm | 17 + 基础资料维护(BaseInfo.dll)/U_ZdyInput.pas | 30 + 基础资料维护(BaseInfo.dll)/U_testdll.dfm | 221 + 基础资料维护(BaseInfo.dll)/U_testdll.pas | 106 + 基础资料维护(BaseInfo.dll)/consvr.ini | 2 + 基础资料维护(BaseInfo.dll)/testDll.cfg | 38 + 基础资料维护(BaseInfo.dll)/testDll.dof | 136 + 基础资料维护(BaseInfo.dll)/testDll.dpr | 14 + 基础资料维护(BaseInfo.dll)/testDll.res | Bin 0 -> 876 bytes .../FieldExportSet/应付款付款统计列表.INI | 2 + 应收应付/FieldExportSet/应付款列表.INI | 2 + 应收应付/FieldExportSet/检验分析订单.INI | 2 + 应收应付/FieldExportSet/检验报告.INI | 2 + 应收应付/FieldExportSet/采购单列表.INI | 2 + 应收应付/ProjectGroup1.bpg | 23 + 应收应付/ProjectGroup1.~bpg | 23 + 应收应付/SYSTEMSET.ini | 3 + 应收应付/U_BpGdCklist.dfm | 452 + 应收应付/U_BpGdCklist.pas | 365 + 应收应付/U_DataLink.dfm | 17983 ++++++++++++ 应收应付/U_DataLink.pas | 86 + 应收应付/U_FKCR.dfm | 445 + 应收应付/U_FKCR.pas | 1163 + 应收应付/U_FKCRLZ.dfm | 406 + 应收应付/U_FKCRLZ.pas | 883 + 应收应付/U_FKCR_GD.dfm | 387 + 应收应付/U_FKCR_GD.pas | 921 + 应收应付/U_FYDJ.dfm | 407 + 应收应付/U_FYDJ.pas | 262 + 应收应付/U_FYDJInput.dfm | 314 + 应收应付/U_FYDJInput.pas | 392 + 应收应付/U_FYDJ_TJ.dfm | 258 + 应收应付/U_FYDJ_TJ.pas | 148 + 应收应付/U_GetDllForm.pas | 741 + 应收应付/U_OrderSel.dfm | 285 + 应收应付/U_OrderSel.pas | 178 + 应收应付/U_PbProductList.dfm | 605 + 应收应付/U_PbProductList.pas | 443 + 应收应付/U_ProductOrderCost.dfm | 873 + 应收应付/U_ProductOrderCost.pas | 502 + 应收应付/U_ProductOrderList.dfm | 542 + 应收应付/U_ProductOrderList.pas | 521 + 应收应付/U_ProductOrderListCX.dfm | 628 + 应收应付/U_ProductOrderListCX.pas | 780 + 应收应付/U_ProductOrderListNew.dfm | 1344 + 应收应付/U_ProductOrderListNew.pas | 1041 + 应收应付/U_ProductOrderListNewCK.dfm | 1300 + 应收应付/U_ProductOrderListNewCK.pas | 1012 + 应收应付/U_ProductOrderListNewCKMX.dfm | 938 + 应收应付/U_ProductOrderListNewCKMX.pas | 314 + 应收应付/U_ProductOrderListOLJ.dfm | 690 + 应收应付/U_ProductOrderListOLJ.pas | 509 + 应收应付/U_ProductOrderListSel.dfm | 681 + 应收应付/U_ProductOrderListSel.pas | 449 + 应收应付/U_ProductOrderNewList.dfm | 633 + 应收应付/U_ProductOrderNewList.pas | 457 + 应收应付/U_SKCR.dfm | 611 + 应收应付/U_SKCR.pas | 1314 + 应收应付/U_SKCRLZ.dfm | 408 + 应收应付/U_SKCRLZ.pas | 1034 + 应收应付/U_SKCROLJ.dfm | 397 + 应收应付/U_SKCROLJ.pas | 832 + 应收应付/U_SKCR_Gd.dfm | 388 + 应收应付/U_SKCR_Gd.pas | 858 + 应收应付/U_YFCR.dfm | 626 + 应收应付/U_YFCR.pas | 1349 + 应收应付/U_YFCRLZ.dfm | 514 + 应收应付/U_YFCRLZ.pas | 984 + 应收应付/U_YFCRLZQty.dfm | 511 + 应收应付/U_YFCRLZQty.pas | 1013 + 应收应付/U_YFCRLZView.dfm | 521 + 应收应付/U_YFCRLZView.pas | 1011 + 应收应付/U_YFCRYCL.dfm | 439 + 应收应付/U_YFCRYCL.pas | 882 + 应收应付/U_YFCR_GD.dfm | 555 + 应收应付/U_YFCR_GD.pas | 1037 + 应收应付/U_YFFKList.dfm | 330 + 应收应付/U_YFFKList.pas | 185 + 应收应付/U_YFFP.dfm | 435 + 应收应付/U_YFFP.pas | 853 + 应收应付/U_YFMXlist.dfm | 546 + 应收应付/U_YFMXlist.pas | 270 + 应收应付/U_YFZDList_MX.dfm | 304 + 应收应付/U_YFZDList_MX.pas | 210 + 应收应付/U_YF_Money_LL.dfm | 454 + 应收应付/U_YF_Money_LL.pas | 339 + 应收应付/U_YF_Money_LL_list.dfm | 287 + 应收应付/U_YF_Money_LL_list.pas | 144 + 应收应付/U_YF_Money_Sub.dfm | 318 + 应收应付/U_YF_Money_Sub.pas | 360 + 应收应付/U_YPCR.dfm | 300 + 应收应付/U_YPCR.pas | 345 + 应收应付/U_YSCR.dfm | 587 + 应收应付/U_YSCR.pas | 1315 + 应收应付/U_YSCRJZC.dfm | 506 + 应收应付/U_YSCRJZC.pas | 1178 + 应收应付/U_YSCRLZ.dfm | 492 + 应收应付/U_YSCRLZ.pas | 1172 + 应收应付/U_YSCROL.dfm | 455 + 应收应付/U_YSCROL.pas | 1087 + 应收应付/U_YSCR_Gd.dfm | 519 + 应收应付/U_YSCR_Gd.pas | 937 + 应收应付/U_YSFP.dfm | 435 + 应收应付/U_YSFP.pas | 825 + 应收应付/U_YSHZMX.dfm | 471 + 应收应付/U_YSHZMX.pas | 432 + 应收应付/U_YSHZMXDL.dfm | 455 + 应收应付/U_YSHZMXDL.pas | 429 + 应收应付/U_YSHZMXOLJ.dfm | 441 + 应收应付/U_YSHZMXOLJ.pas | 426 + 应收应付/U_YSHZMXView.dfm | 468 + 应收应付/U_YSHZMXView.pas | 522 + 应收应付/U_YSMXlist.dfm | 530 + 应收应付/U_YSMXlist.pas | 321 + 应收应付/U_YSSKList.dfm | 429 + 应收应付/U_YSSKList.pas | 224 + 应收应付/U_YSZDList_MX.dfm | 318 + 应收应付/U_YSZDList_MX.pas | 211 + 应收应付/U_ZdyAttachCP.dfm | 350 + 应收应付/U_ZdyAttachCP.pas | 202 + 应收应付/U_ZdyAttachGYS.dfm | 330 + 应收应付/U_ZdyAttachGYS.pas | 214 + 应收应付/U_ZdyAttachment.dfm | 332 + 应收应付/U_ZdyAttachment.pas | 203 + 应收应付/U_testdll.dfm | 221 + 应收应付/U_testdll.pas | 105 + 应收应付/YSYF.cfg | 38 + 应收应付/YSYF.dof | 138 + 应收应付/YSYF.dpr | 68 + 应收应付/YSYF.rar | Bin 0 -> 1715833 bytes 应收应付/YSYF.res | Bin 0 -> 876 bytes 应收应付/testDll.cfg | 38 + 应收应付/testDll.dof | 136 + 应收应付/testDll.dpr | 14 + 应收应付/testDll.res | Bin 0 -> 876 bytes 样品/DyeTwoStore.INI | 2 + 样品/JWLCK.cfg | 42 + 样品/JWLCK.dof | 138 + 样品/JWLCK.res | Bin 0 -> 876 bytes 样品/OrderManage.cfg | 42 + 样品/OrderManage.dof | 138 + 样品/OrderManage.res | Bin 0 -> 876 bytes 样品/ProjectGroup1.bpg | 23 + 样品/SYSTEMSET.ini | 5 + 样品/U_BaseIn.dfm | 362 + 样品/U_BaseIn.pas | 585 + 样品/U_BaseInList.dfm | 317 + 样品/U_BaseInList.pas | 331 + 样品/U_BaseOut.dfm | 341 + 样品/U_BaseOut.pas | 471 + 样品/U_BaseOutList.dfm | 465 + 样品/U_BaseOutList.pas | 267 + 样品/U_CPAdd.dfm | 393 + 样品/U_CPAdd.pas | 682 + 样品/U_CPAddWJE.dfm | 359 + 样品/U_CPAddWJE.pas | 677 + 样品/U_CPManage.dfm | 899 + 样品/U_CPManage.pas | 910 + 样品/U_CPManageCX.dfm | 700 + 样品/U_CPManageCX.pas | 669 + 样品/U_CPManageWJE.dfm | 858 + 样品/U_CPManageWJE.pas | 865 + 样品/U_CPType.dfm | 183 + 样品/U_CPType.pas | 239 + 样品/U_ClothContractInPut.dfm | 513 + 样品/U_ClothContractInPut.pas | 580 + 样品/U_ClothContractList.dfm | 672 + 样品/U_ClothContractList.pas | 652 + 样品/U_ClothContractPay.dfm | 587 + 样品/U_ClothContractPay.pas | 472 + 样品/U_ClothKCQty.dfm | 467 + 样品/U_ClothKCQty.pas | 157 + 样品/U_DataLink.dfm | 17982 ++++++++++++ 样品/U_DataLink.pas | 90 + 样品/U_FileUp.dfm | 188 + 样品/U_FileUp.pas | 375 + 样品/U_GetDllForm.pas | 254 + 样品/U_JWLIn.dfm | 240 + 样品/U_JWLIn.pas | 373 + 样品/U_JWLInList.dfm | 137 + 样品/U_JWLInList.pas | 257 + 样品/U_KHGetCPAdd.dfm | 450 + 样品/U_KHGetCPAdd.pas | 516 + 样品/U_KHGetCPManage.dfm | 593 + 样品/U_KHGetCPManage.pas | 585 + 样品/U_KHGetY.dfm | 293 + 样品/U_KHGetY.pas | 77 + 样品/U_OrderInPut.dfm | 653 + 样品/U_OrderInPut.pas | 602 + 样品/U_OrderSubFH.dfm | 479 + 样品/U_OrderSubFH.pas | 467 + 样品/U_OrderSubFHOK.dfm | 511 + 样品/U_OrderSubFHOK.pas | 359 + 样品/U_OrderSubKC.dfm | 402 + 样品/U_OrderSubKC.pas | 245 + 样品/U_ProductOrderList.dfm | 614 + 样品/U_ProductOrderList.pas | 527 + 样品/U_SGManage.dfm | 602 + 样品/U_SGManage.pas | 539 + 样品/U_SLT.dfm | 35 + 样品/U_SLT.pas | 88 + 样品/U_YPCR.dfm | 294 + 样品/U_YPCR.pas | 346 + 样品/U_iniParam.pas | 58 + 样品/U_testdll.dfm | 221 + 样品/U_testdll.pas | 106 + 样品/YPFile.INI | 2 + 样品/YPGL.cfg | 42 + 样品/YPGL.dof | 138 + 样品/YPGL.dpr | 61 + 样品/YPGL.rar | Bin 0 -> 1830313 bytes 样品/YPGL.res | Bin 0 -> 876 bytes 样品/consvr.ini | 2 + 样品/testDll.cfg | 38 + 样品/testDll.dof | 136 + 样品/testDll.dpr | 14 + 样品/testDll.res | Bin 0 -> 876 bytes 管理系统/AES.pas | 317 + 管理系统/ElAES.pas | 2488 ++ 管理系统/FieldExportSet/.INI | 2 + 管理系统/FieldExportSet/检验分析订单.INI | 2 + 管理系统/FieldExportSet/检验报告.INI | 2 + 管理系统/FieldExportSet/采购单列表.INI | 2 + 管理系统/File.INI | 3 + 管理系统/JCYData.INI | 7 + 管理系统/JCYData10.INI | 7 + 管理系统/OrderManage.dof | 138 + 管理系统/ProjectGroup1.bpg | 20 + 管理系统/ProjectGroup1.~bpg | 23 + 管理系统/RCInspection.cfg | 38 + 管理系统/RCInspection.dof | 141 + 管理系统/RCInspection.res | Bin 0 -> 876 bytes 管理系统/SYSTEMSET.ini | 3 + 管理系统/TradeManage.cfg | 38 + 管理系统/TradeManage.dof | 138 + 管理系统/TradeManage.dpr | 92 + 管理系统/TradeManage.res | Bin 0 -> 876 bytes 管理系统/U.dfm | 202 + 管理系统/U.pas | 48 + 管理系统/U_BanCpCkSaoM.dfm | 201 + 管理系统/U_BanCpCkSaoM.pas | 253 + 管理系统/U_BanCpHCSaoM.dfm | 212 + 管理系统/U_BanCpHCSaoM.pas | 264 + 管理系统/U_BangAdd.dfm | 255 + 管理系统/U_BangAdd.pas | 308 + 管理系统/U_BefChkHX.dfm | 292 + 管理系统/U_BefChkHX.pas | 189 + 管理系统/U_CKEJK.dfm | 403 + 管理系统/U_CKEJK.pas | 178 + 管理系统/U_CKPDlist.dfm | 535 + 管理系统/U_CKPDlist.pas | 315 + 管理系统/U_CKPHKCList.dfm | 552 + 管理系统/U_CKPHKCList.pas | 193 + 管理系统/U_CKProductBCPHCList.dfm | 392 + 管理系统/U_CKProductBCPHCList.pas | 182 + 管理系统/U_CKProductBCPInList.dfm | 814 + 管理系统/U_CKProductBCPInList.pas | 909 + 管理系统/U_CKProductBCPInList_Other.dfm | 860 + 管理系统/U_CKProductBCPInList_Other.pas | 1010 + 管理系统/U_CKProductBCPKC.dfm | 330 + 管理系统/U_CKProductBCPKC.pas | 207 + 管理系统/U_CKProductBCPKCHZList.dfm | 414 + 管理系统/U_CKProductBCPKCHZList.pas | 180 + 管理系统/U_CKProductBCPKCHZListSUM_other.dfm | 399 + 管理系统/U_CKProductBCPKCHZListSUM_other.pas | 180 + 管理系统/U_CKProductBCPKCHZList_other.dfm | 427 + 管理系统/U_CKProductBCPKCHZList_other.pas | 182 + 管理系统/U_CKProductBCPKCList.dfm | 918 + 管理系统/U_CKProductBCPKCList.pas | 1435 + 管理系统/U_CKProductBCPKCListSel.dfm | 1233 + 管理系统/U_CKProductBCPKCListSel.pas | 857 + 管理系统/U_CKProductBCPKCListSel10.dfm | 1262 + 管理系统/U_CKProductBCPKCListSel10.pas | 813 + 管理系统/U_CKProductBCPKCListSel_Other.dfm | 1210 + 管理系统/U_CKProductBCPKCListSel_Other.pas | 748 + 管理系统/U_CKProductBCPKCList_other.dfm | 799 + 管理系统/U_CKProductBCPKCList_other.pas | 899 + 管理系统/U_CKProductBCPOutList.dfm | 927 + 管理系统/U_CKProductBCPOutList.pas | 1137 + 管理系统/U_CKProductBCPOutList_other.dfm | 987 + 管理系统/U_CKProductBCPOutList_other.pas | 1109 + 管理系统/U_CKProductBCPOutth.dfm | 788 + 管理系统/U_CKProductBCPOutth.pas | 810 + 管理系统/U_CKProductCK.dfm | 1075 + 管理系统/U_CKProductCK.pas | 1172 + 管理系统/U_CKProductCK_Other.dfm | 983 + 管理系统/U_CKProductCK_Other.pas | 1094 + 管理系统/U_CKProductCPKCHZList_Yj.dfm | 488 + 管理系统/U_CKProductCPKCHZList_Yj.pas | 207 + 管理系统/U_CKSMEdit.dfm | 728 + 管理系统/U_CKSMEdit.pas | 771 + 管理系统/U_CKSMEdit_other.dfm | 628 + 管理系统/U_CKSMEdit_other.pas | 527 + 管理系统/U_CKYCLKC.dfm | 345 + 管理系统/U_CKYCLKC.pas | 241 + 管理系统/U_CPKWList.dfm | 349 + 管理系统/U_CPKWList.pas | 190 + 管理系统/U_CPKWListSel.dfm | 391 + 管理系统/U_CPKWListSel.pas | 256 + 管理系统/U_CPRK.dfm | 545 + 管理系统/U_CPRK.pas | 1139 + 管理系统/U_CPRK_Other.dfm | 504 + 管理系统/U_CPRK_Other.pas | 1034 + 管理系统/U_CP_COL_XL.dfm | 582 + 管理系统/U_CP_COL_XL.pas | 214 + 管理系统/U_CP_COL_XL_ZD.dfm | 401 + 管理系统/U_CP_COL_XL_ZD.pas | 150 + 管理系统/U_CP_CRC.dfm | 701 + 管理系统/U_CP_CRC.pas | 237 + 管理系统/U_CP_XL.dfm | 457 + 管理系统/U_CP_XL.pas | 183 + 管理系统/U_ClothContractInPut.dfm | 660 + 管理系统/U_ClothContractInPut.pas | 1156 + 管理系统/U_ClothContractInPut_CG.dfm | 577 + 管理系统/U_ClothContractInPut_CG.pas | 999 + 管理系统/U_ClothContractInPut_Tp.dfm | 641 + 管理系统/U_ClothContractInPut_Tp.pas | 1235 + 管理系统/U_ClothContractKCList.dfm | 586 + 管理系统/U_ClothContractKCList.pas | 281 + 管理系统/U_ClothContractList.dfm | 925 + 管理系统/U_ClothContractList.pas | 962 + 管理系统/U_ClothContractListDH.dfm | 631 + 管理系统/U_ClothContractListDH.pas | 1018 + 管理系统/U_ClothContractListLL.dfm | 754 + 管理系统/U_ClothContractListLL.pas | 1225 + 管理系统/U_ClothContractListWJG.dfm | 742 + 管理系统/U_ClothContractListWJG.pas | 1127 + 管理系统/U_ClothContractList_CG.dfm | 797 + 管理系统/U_ClothContractList_CG.pas | 711 + 管理系统/U_ClothContractList_CG_help.dfm | 535 + 管理系统/U_ClothContractList_CG_help.pas | 577 + 管理系统/U_ClothContractList_CP.dfm | 946 + 管理系统/U_ClothContractList_CP.pas | 961 + 管理系统/U_ClothContractList_HZ.dfm | 666 + 管理系统/U_ClothContractList_HZ.pas | 225 + 管理系统/U_ClothContractList_HZ1.dfm | 659 + 管理系统/U_ClothContractList_HZ1.pas | 224 + 管理系统/U_ClothContractList_JG.dfm | 666 + 管理系统/U_ClothContractList_JG.pas | 735 + 管理系统/U_ClothContractList_PBKC.dfm | 762 + 管理系统/U_ClothContractList_PBKC.pas | 273 + 管理系统/U_ClothContractList_SJD.dfm | 674 + 管理系统/U_ClothContractList_SJD.pas | 263 + 管理系统/U_ClothContractList_SJDCK.dfm | 678 + 管理系统/U_ClothContractList_SJDCK.pas | 245 + 管理系统/U_ClothContractList_SJDMX.dfm | 670 + 管理系统/U_ClothContractList_SJDMX.pas | 267 + 管理系统/U_ClothContractList_Sel.dfm | 852 + 管理系统/U_ClothContractList_Sel.pas | 796 + 管理系统/U_ClothContractList_TP.dfm | 855 + 管理系统/U_ClothContractList_TP.pas | 813 + 管理系统/U_ClothContractList_help.dfm | 760 + 管理系统/U_ClothContractList_help.pas | 355 + 管理系统/U_ClothHCList.dfm | 433 + 管理系统/U_ClothHCList.pas | 195 + 管理系统/U_ClothPDInfoList.dfm | 407 + 管理系统/U_ClothPDInfoList.pas | 213 + 管理系统/U_ConInPut.dfm | 785 + 管理系统/U_ConInPut.pas | 849 + 管理系统/U_ContractList.dfm | 686 + 管理系统/U_ContractList.pas | 683 + 管理系统/U_CpCkSaoMNew.dfm | 460 + 管理系统/U_CpCkSaoMNew.pas | 450 + 管理系统/U_CpCkSaoMNewSel.dfm | 661 + 管理系统/U_CpCkSaoMNewSel.pas | 878 + 管理系统/U_CpRkSaoMNew.dfm | 630 + 管理系统/U_CpRkSaoMNew.pas | 919 + 管理系统/U_CrkAccount.dfm | 569 + 管理系统/U_CrkAccount.pas | 212 + 管理系统/U_CrkAccount_other.dfm | 569 + 管理系统/U_CrkAccount_other.pas | 212 + 管理系统/U_DataLink.dfm | 18102 ++++++++++++ 管理系统/U_DataLink.pas | 103 + 管理系统/U_GetDllForm.pas | 1613 ++ 管理系统/U_GetPGJBInList.dfm | 400 + 管理系统/U_GetPGJBInList.pas | 268 + 管理系统/U_GetPGJBOneTwoInList.dfm | 412 + 管理系统/U_GetPGJBOneTwoInList.pas | 270 + 管理系统/U_HCList.dfm | 846 + 管理系统/U_HCList.pas | 465 + 管理系统/U_JBData.dfm | 265 + 管理系统/U_JBData.pas | 260 + 管理系统/U_JYOrderCDMore.dfm | 610 + 管理系统/U_JYOrderCDMore.pas | 362 + 管理系统/U_JYOrderCDOne.dfm | 862 + 管理系统/U_JYOrderCDOne.pas | 857 + 管理系统/U_JYOrderCDOne_Other.dfm | 902 + 管理系统/U_JYOrderCDOne_Other.pas | 1110 + 管理系统/U_JYResult.dfm | 527 + 管理系统/U_JYResult.pas | 480 + 管理系统/U_JiangLiaoSet.dfm | 968 + 管理系统/U_JiangLiaoSet.pas | 1182 + 管理系统/U_KCEdit.dfm | 98 + 管理系统/U_KCEdit.pas | 56 + 管理系统/U_KCRLLTZ.dfm | 717 + 管理系统/U_KCRLLTZ.pas | 686 + 管理系统/U_KCRLLTZ_other.dfm | 715 + 管理系统/U_KCRLLTZ_other.pas | 639 + 管理系统/U_KH_XS_YP_list.dfm | 698 + 管理系统/U_KH_XS_YP_list.pas | 246 + 管理系统/U_KH_XS_list.dfm | 731 + 管理系统/U_KH_XS_list.pas | 268 + 管理系统/U_LabelPrint.dfm | 122 + 管理系统/U_LabelPrint.pas | 143 + 管理系统/U_MJEdit.dfm | 393 + 管理系统/U_MJEdit.pas | 544 + 管理系统/U_MJEdit_other.dfm | 393 + 管理系统/U_MJEdit_other.pas | 491 + 管理系统/U_MJManage.dfm | 1192 + 管理系统/U_MJManage.pas | 1086 + 管理系统/U_MJManageNew.dfm | 1922 ++ 管理系统/U_MJManageNew.pas | 1621 ++ 管理系统/U_MJManageNewFD.dfm | 2054 ++ 管理系统/U_MJManageNewFD.pas | 1450 + 管理系统/U_MJManageNewFDNew.dfm | 2246 ++ 管理系统/U_MJManageNewFDNew.pas | 1962 ++ 管理系统/U_MJManageNewFDNew_other.dfm | 2145 ++ 管理系统/U_MJManageNewFDNew_other.pas | 1711 ++ 管理系统/U_ModulePromptList.dfm | 179 + 管理系统/U_ModulePromptList.pas | 213 + 管理系统/U_NoteList.dfm | 52 + 管理系统/U_NoteList.pas | 52 + 管理系统/U_NoteList1.dfm | 52 + 管理系统/U_NoteList1.pas | 52 + 管理系统/U_OrderAttachment.dfm | 666 + 管理系统/U_OrderAttachment.pas | 543 + 管理系统/U_OrderInPut.dfm | 1210 + 管理系统/U_OrderInPut.pas | 1937 ++ 管理系统/U_OrderInPutNew.dfm | 2155 ++ 管理系统/U_OrderInPutNew.pas | 2945 ++ 管理系统/U_OrderInPutXH.dfm | 1201 + 管理系统/U_OrderInPutXH.pas | 1954 ++ 管理系统/U_OrderInPutZP.dfm | 1788 ++ 管理系统/U_OrderInPutZP.pas | 1849 ++ 管理系统/U_OrderInPutZPLNew.dfm | 2224 ++ 管理系统/U_OrderInPutZPLNew.pas | 3706 +++ 管理系统/U_OrderInPutZPNew.dfm | 1711 ++ 管理系统/U_OrderInPutZPNew.pas | 1984 ++ 管理系统/U_OrderJDList.dfm | 562 + 管理系统/U_OrderJDList.pas | 446 + 管理系统/U_OrderSel.dfm | 342 + 管理系统/U_OrderSel.pas | 210 + 管理系统/U_OrderSelRK.dfm | 329 + 管理系统/U_OrderSelRK.pas | 195 + 管理系统/U_OrderStatus.dfm | 593 + 管理系统/U_OrderStatus.pas | 306 + 管理系统/U_OrderSubFH.dfm | 496 + 管理系统/U_OrderSubFH.pas | 516 + 管理系统/U_OrderSubKC.dfm | 377 + 管理系统/U_OrderSubKC.pas | 245 + 管理系统/U_PDSMEdit.dfm | 565 + 管理系统/U_PDSMEdit.pas | 546 + 管理系统/U_PbSelCK.dfm | 329 + 管理系统/U_PbSelCK.pas | 195 + 管理系统/U_PbSelRK.dfm | 358 + 管理系统/U_PbSelRK.pas | 209 + 管理系统/U_Printckmd.dfm | 103 + 管理系统/U_Printckmd.pas | 183 + 管理系统/U_ProductOrderAnPai.dfm | 1441 + 管理系统/U_ProductOrderAnPai.pas | 3396 +++ 管理系统/U_ProductOrderAnPaiGQX.dfm | 970 + 管理系统/U_ProductOrderAnPaiGQX.pas | 2138 ++ 管理系统/U_ProductOrderList.dfm | 731 + 管理系统/U_ProductOrderList.pas | 658 + 管理系统/U_ProductOrderListNew.dfm | 1344 + 管理系统/U_ProductOrderListNew.pas | 1041 + 管理系统/U_ProductOrderListNewCK.dfm | 1300 + 管理系统/U_ProductOrderListNewCK.pas | 1012 + 管理系统/U_ProductOrderListNewCKMX.dfm | 938 + 管理系统/U_ProductOrderListNewCKMX.pas | 314 + 管理系统/U_ProductOrderListSel.dfm | 331 + 管理系统/U_ProductOrderListSel.pas | 150 + 管理系统/U_ProductOrderNewList.dfm | 982 + 管理系统/U_ProductOrderNewList.pas | 1563 + 管理系统/U_ProductOrderNewListSEl.dfm | 676 + 管理系统/U_ProductOrderNewListSEl.pas | 454 + 管理系统/U_ProductOrderNewListXH.dfm | 968 + 管理系统/U_ProductOrderNewListXH.pas | 1477 + 管理系统/U_ProductOrderNewList_BH.dfm | 1301 + 管理系统/U_ProductOrderNewList_BH.pas | 1587 + 管理系统/U_ProductOrderNewList_JD.dfm | 869 + 管理系统/U_ProductOrderNewList_JD.pas | 533 + 管理系统/U_ProductOrderNewList_ZD.dfm | 992 + 管理系统/U_ProductOrderNewList_ZD.pas | 1613 ++ 管理系统/U_ProductOrderSel.dfm | 350 + 管理系统/U_ProductOrderSel.pas | 494 + 管理系统/U_ProductOrder_Ph.dfm | 1371 + 管理系统/U_ProductOrder_Ph.pas | 2882 ++ 管理系统/U_ProductOrder_Ph10.dfm | 1310 + 管理系统/U_ProductOrder_Ph10.pas | 2164 ++ 管理系统/U_ProductOrder_Ph_other.dfm | 1343 + 管理系统/U_ProductOrder_Ph_other.pas | 2290 ++ 管理系统/U_ProductionAnPai.dfm | 656 + 管理系统/U_ProductionAnPai.pas | 666 + 管理系统/U_ProductionAnPaiNew.dfm | 934 + 管理系统/U_ProductionAnPaiNew.pas | 1006 + 管理系统/U_RKSMEdit.dfm | 770 + 管理系统/U_RKSMEdit.pas | 448 + 管理系统/U_RKSMEdit_Other.dfm | 771 + 管理系统/U_RKSMEdit_Other.pas | 426 + 管理系统/U_SCGYSet.dfm | 1297 + 管理系统/U_SCGYSet.pas | 1014 + 管理系统/U_SXCKOutListDBCK.dfm | 665 + 管理系统/U_SXCKOutListDBCK.pas | 393 + 管理系统/U_SetBanZu.dfm | 221 + 管理系统/U_SetBanZu.pas | 265 + 管理系统/U_StopWorkInPut.dfm | 282 + 管理系统/U_StopWorkInPut.pas | 498 + 管理系统/U_StopWorkList.dfm | 439 + 管理系统/U_StopWorkList.pas | 291 + 管理系统/U_XsList_other.dfm | 374 + 管理系统/U_XsList_other.pas | 177 + 管理系统/U_YGList.dfm | 53 + 管理系统/U_YGList.pas | 68 + 管理系统/U_YHList_other.dfm | 374 + 管理系统/U_YHList_other.pas | 177 + 管理系统/U_ZJManage.dfm | 2093 ++ 管理系统/U_ZJManage.pas | 391 + 管理系统/U_ZJManageNew.dfm | 2690 ++ 管理系统/U_ZJManageNew.pas | 1525 + 管理系统/U_ZJManageNewFD.dfm | 2690 ++ 管理系统/U_ZJManageNewFD.pas | 1530 + 管理系统/U_ZJManageNewFDMORE.dfm | 2804 ++ 管理系统/U_ZJManageNewFDMORE.pas | 2026 ++ 管理系统/U_ZdyAttachCP.dfm | 364 + 管理系统/U_ZdyAttachCP.pas | 228 + 管理系统/U_ZdyAttachGYS.dfm | 330 + 管理系统/U_ZdyAttachGYS.pas | 213 + 管理系统/U_ZdyAttachment.dfm | 331 + 管理系统/U_ZdyAttachment.pas | 247 + 管理系统/U_iniParam.pas | 58 + 管理系统/U_kcchEdit.dfm | 178 + 管理系统/U_kcchEdit.pas | 156 + 管理系统/U_kcchEdit_other.dfm | 175 + 管理系统/U_kcchEdit_other.pas | 160 + 管理系统/U_kw.dfm | 51 + 管理系统/U_kw.pas | 64 + 管理系统/U_phYGList.dfm | 59 + 管理系统/U_phYGList.pas | 73 + 管理系统/U_testdll.dfm | 221 + 管理系统/U_testdll.pas | 106 + 管理系统/WFBOrder.cfg | 42 + 管理系统/WFBOrder.dof | 138 + 管理系统/WFBOrder.res | Bin 0 -> 876 bytes 管理系统/WFBProduction.cfg | 38 + 管理系统/WFBProduction.dof | 141 + 管理系统/WFBProduction.res | Bin 0 -> 876 bytes 管理系统/testDll.cfg | 38 + 管理系统/testDll.dof | 136 + 管理系统/testDll.dpr | 14 + 管理系统/testDll.res | Bin 0 -> 876 bytes 1117 files changed, 832705 insertions(+) create mode 100644 .gitignore create mode 100644 坯布码单待检(PBMDDJ.dll)/CYZZ.cfg create mode 100644 坯布码单待检(PBMDDJ.dll)/CYZZ.dof create mode 100644 坯布码单待检(PBMDDJ.dll)/CYZZ.res create mode 100644 坯布码单待检(PBMDDJ.dll)/DDMD.cfg create mode 100644 坯布码单待检(PBMDDJ.dll)/DDMD.dof create mode 100644 坯布码单待检(PBMDDJ.dll)/DDMD.res create mode 100644 坯布码单待检(PBMDDJ.dll)/Desktop.ini create mode 100644 坯布码单待检(PBMDDJ.dll)/File.INI create mode 100644 坯布码单待检(PBMDDJ.dll)/FileHelp.ini create mode 100644 坯布码单待检(PBMDDJ.dll)/JCYData.INI create mode 100644 坯布码单待检(PBMDDJ.dll)/JZCRS323C.INI create mode 100644 坯布码单待检(PBMDDJ.dll)/JZCRS323CList.txt create mode 100644 坯布码单待检(PBMDDJ.dll)/PBMDDJ.cfg create mode 100644 坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof create mode 100644 坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr create mode 100644 坯布码单待检(PBMDDJ.dll)/PBMDDJ.res create mode 100644 坯布码单待检(PBMDDJ.dll)/ProjectGroup1.bpg create mode 100644 坯布码单待检(PBMDDJ.dll)/SYSTEMSET.ini create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGCWManage.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGCWManage.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGFeeList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGFeeList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGLDChk.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGLDChk.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGLDManage.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGLDManage.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGManage.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGManage.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGZLInput.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGZLInput.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BHList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BHList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CICXList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CICXList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CIInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CIInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CIList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CIList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPAdd.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPAdd.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPManage.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPManage.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPManageCX.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPManageCX.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPSel.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPSel.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPType.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPType.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPView.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CPView.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CWMDList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CWMDList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CbJdLr.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_CbJdLr.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ConInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ConInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractChkList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractChkList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractViewList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ContractViewList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_DataLink.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHChkList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHChkList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHOKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHOKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FileUp.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FileUp.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FjList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_FjList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSFPList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSFPList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GYSSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_HCJYView.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_HCJYView.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_JGList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_JGList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_JYDJ.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_JYDJ.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KDInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KDInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KDList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KDList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KDOKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KDOKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KKView.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_KKView.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_LabelAdd.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_LabelAdd.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_LabelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_LabelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFL.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFL.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDManage.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDManage.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDManageChk.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MDManageChk.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MJEdit.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MJEdit.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManage.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManage.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MeetingAP.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MeetingAP.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ModuleNote.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ModuleNote.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_NBFPList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_NBFPList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrdCostList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrdCostList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderJDList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderJDList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PBCKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PBCKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKFKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKFKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKHZList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKHZList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKQTList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PKQTList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTJYList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTJYList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SCMDList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SCMDList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCRKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXCRKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXDZList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXDZList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXKCList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXKCList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXMDList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SXMDList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SYDept.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SYDept.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SYDeptView.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_SYDeptView.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKKC.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKKC.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGMDList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WJGMDList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WXFPList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WXFPList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_YPCRIn.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_YPCRIn.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_YPInList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_YPInList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZXBList.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZXBList.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZdyInput.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_ZdyInput.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_iniParam.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/U_testdll.dfm create mode 100644 坯布码单待检(PBMDDJ.dll)/U_testdll.pas create mode 100644 坯布码单待检(PBMDDJ.dll)/consvr.ini create mode 100644 坯布码单待检(PBMDDJ.dll)/testDll.cfg create mode 100644 坯布码单待检(PBMDDJ.dll)/testDll.dof create mode 100644 坯布码单待检(PBMDDJ.dll)/testDll.dpr create mode 100644 坯布码单待检(PBMDDJ.dll)/testDll.res create mode 100644 坯布码单待检(PBMDDJ.dll)/testDllDJ.cfg create mode 100644 坯布码单待检(PBMDDJ.dll)/testDllDJ.dof create mode 100644 坯布码单待检(PBMDDJ.dll)/testDllDJ.res create mode 100644 基础资料维护(BaseInfo.dll)/BaseInfo.cfg create mode 100644 基础资料维护(BaseInfo.dll)/BaseInfo.dof create mode 100644 基础资料维护(BaseInfo.dll)/BaseInfo.dpr create mode 100644 基础资料维护(BaseInfo.dll)/BaseInfo.rar create mode 100644 基础资料维护(BaseInfo.dll)/BaseInfo.res create mode 100644 基础资料维护(BaseInfo.dll)/CPCK.cfg create mode 100644 基础资料维护(BaseInfo.dll)/CPCK.dof create mode 100644 基础资料维护(BaseInfo.dll)/CPCK.res create mode 100644 基础资料维护(BaseInfo.dll)/FieldExportSet/产品资料列表.INI create mode 100644 基础资料维护(BaseInfo.dll)/FieldExportSet/客户资料列表.INI create mode 100644 基础资料维护(BaseInfo.dll)/JCInfoSet.cfg create mode 100644 基础资料维护(BaseInfo.dll)/JCInfoSet.dof create mode 100644 基础资料维护(BaseInfo.dll)/JCInfoSet.res create mode 100644 基础资料维护(BaseInfo.dll)/ProjectGroup1.bpg create mode 100644 基础资料维护(BaseInfo.dll)/ProjectGroup1.~bpg create mode 100644 基础资料维护(BaseInfo.dll)/SYSTEMSET.ini create mode 100644 基础资料维护(BaseInfo.dll)/U_CPKWEdit.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_CPKWEdit.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_CPKWKCList.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_CPKWKCList.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_CPKWList.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_CPKWList.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ClothContractList_CG_help.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ClothContractList_CG_help.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_DataLink.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_DataLink.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_GetDllForm.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_HTListSel.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_HTListSel.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_HZViewList.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_HZViewList.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_KHAdd.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_KHAdd.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_KHHelp.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_KHHelp.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_KHInfo.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_KHInfo.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_NengHaoInput.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_NengHaoInput.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_NengHaoList.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_NengHaoList.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_SYDept.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_SYDept.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_UserHelpSel.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_UserHelpSel.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_WeiXinHelp.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_WeiXinHelp.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZDYHelp11.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZDYHelp11.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP10.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP10.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP20.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP20.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInputPB.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttInputPB.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachCP20.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachCP20.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachCPCX.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachCPCX.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachGYS.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachGYS.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachGYSxz.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachGYSxz.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachment.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyAttachment.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyInput.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_ZdyInput.pas create mode 100644 基础资料维护(BaseInfo.dll)/U_testdll.dfm create mode 100644 基础资料维护(BaseInfo.dll)/U_testdll.pas create mode 100644 基础资料维护(BaseInfo.dll)/consvr.ini create mode 100644 基础资料维护(BaseInfo.dll)/testDll.cfg create mode 100644 基础资料维护(BaseInfo.dll)/testDll.dof create mode 100644 基础资料维护(BaseInfo.dll)/testDll.dpr create mode 100644 基础资料维护(BaseInfo.dll)/testDll.res create mode 100644 应收应付/FieldExportSet/应付款付款统计列表.INI create mode 100644 应收应付/FieldExportSet/应付款列表.INI create mode 100644 应收应付/FieldExportSet/检验分析订单.INI create mode 100644 应收应付/FieldExportSet/检验报告.INI create mode 100644 应收应付/FieldExportSet/采购单列表.INI create mode 100644 应收应付/ProjectGroup1.bpg create mode 100644 应收应付/ProjectGroup1.~bpg create mode 100644 应收应付/SYSTEMSET.ini create mode 100644 应收应付/U_BpGdCklist.dfm create mode 100644 应收应付/U_BpGdCklist.pas create mode 100644 应收应付/U_DataLink.dfm create mode 100644 应收应付/U_DataLink.pas create mode 100644 应收应付/U_FKCR.dfm create mode 100644 应收应付/U_FKCR.pas create mode 100644 应收应付/U_FKCRLZ.dfm create mode 100644 应收应付/U_FKCRLZ.pas create mode 100644 应收应付/U_FKCR_GD.dfm create mode 100644 应收应付/U_FKCR_GD.pas create mode 100644 应收应付/U_FYDJ.dfm create mode 100644 应收应付/U_FYDJ.pas create mode 100644 应收应付/U_FYDJInput.dfm create mode 100644 应收应付/U_FYDJInput.pas create mode 100644 应收应付/U_FYDJ_TJ.dfm create mode 100644 应收应付/U_FYDJ_TJ.pas create mode 100644 应收应付/U_GetDllForm.pas create mode 100644 应收应付/U_OrderSel.dfm create mode 100644 应收应付/U_OrderSel.pas create mode 100644 应收应付/U_PbProductList.dfm create mode 100644 应收应付/U_PbProductList.pas create mode 100644 应收应付/U_ProductOrderCost.dfm create mode 100644 应收应付/U_ProductOrderCost.pas create mode 100644 应收应付/U_ProductOrderList.dfm create mode 100644 应收应付/U_ProductOrderList.pas create mode 100644 应收应付/U_ProductOrderListCX.dfm create mode 100644 应收应付/U_ProductOrderListCX.pas create mode 100644 应收应付/U_ProductOrderListNew.dfm create mode 100644 应收应付/U_ProductOrderListNew.pas create mode 100644 应收应付/U_ProductOrderListNewCK.dfm create mode 100644 应收应付/U_ProductOrderListNewCK.pas create mode 100644 应收应付/U_ProductOrderListNewCKMX.dfm create mode 100644 应收应付/U_ProductOrderListNewCKMX.pas create mode 100644 应收应付/U_ProductOrderListOLJ.dfm create mode 100644 应收应付/U_ProductOrderListOLJ.pas create mode 100644 应收应付/U_ProductOrderListSel.dfm create mode 100644 应收应付/U_ProductOrderListSel.pas create mode 100644 应收应付/U_ProductOrderNewList.dfm create mode 100644 应收应付/U_ProductOrderNewList.pas create mode 100644 应收应付/U_SKCR.dfm create mode 100644 应收应付/U_SKCR.pas create mode 100644 应收应付/U_SKCRLZ.dfm create mode 100644 应收应付/U_SKCRLZ.pas create mode 100644 应收应付/U_SKCROLJ.dfm create mode 100644 应收应付/U_SKCROLJ.pas create mode 100644 应收应付/U_SKCR_Gd.dfm create mode 100644 应收应付/U_SKCR_Gd.pas create mode 100644 应收应付/U_YFCR.dfm create mode 100644 应收应付/U_YFCR.pas create mode 100644 应收应付/U_YFCRLZ.dfm create mode 100644 应收应付/U_YFCRLZ.pas create mode 100644 应收应付/U_YFCRLZQty.dfm create mode 100644 应收应付/U_YFCRLZQty.pas create mode 100644 应收应付/U_YFCRLZView.dfm create mode 100644 应收应付/U_YFCRLZView.pas create mode 100644 应收应付/U_YFCRYCL.dfm create mode 100644 应收应付/U_YFCRYCL.pas create mode 100644 应收应付/U_YFCR_GD.dfm create mode 100644 应收应付/U_YFCR_GD.pas create mode 100644 应收应付/U_YFFKList.dfm create mode 100644 应收应付/U_YFFKList.pas create mode 100644 应收应付/U_YFFP.dfm create mode 100644 应收应付/U_YFFP.pas create mode 100644 应收应付/U_YFMXlist.dfm create mode 100644 应收应付/U_YFMXlist.pas create mode 100644 应收应付/U_YFZDList_MX.dfm create mode 100644 应收应付/U_YFZDList_MX.pas create mode 100644 应收应付/U_YF_Money_LL.dfm create mode 100644 应收应付/U_YF_Money_LL.pas create mode 100644 应收应付/U_YF_Money_LL_list.dfm create mode 100644 应收应付/U_YF_Money_LL_list.pas create mode 100644 应收应付/U_YF_Money_Sub.dfm create mode 100644 应收应付/U_YF_Money_Sub.pas create mode 100644 应收应付/U_YPCR.dfm create mode 100644 应收应付/U_YPCR.pas create mode 100644 应收应付/U_YSCR.dfm create mode 100644 应收应付/U_YSCR.pas create mode 100644 应收应付/U_YSCRJZC.dfm create mode 100644 应收应付/U_YSCRJZC.pas create mode 100644 应收应付/U_YSCRLZ.dfm create mode 100644 应收应付/U_YSCRLZ.pas create mode 100644 应收应付/U_YSCROL.dfm create mode 100644 应收应付/U_YSCROL.pas create mode 100644 应收应付/U_YSCR_Gd.dfm create mode 100644 应收应付/U_YSCR_Gd.pas create mode 100644 应收应付/U_YSFP.dfm create mode 100644 应收应付/U_YSFP.pas create mode 100644 应收应付/U_YSHZMX.dfm create mode 100644 应收应付/U_YSHZMX.pas create mode 100644 应收应付/U_YSHZMXDL.dfm create mode 100644 应收应付/U_YSHZMXDL.pas create mode 100644 应收应付/U_YSHZMXOLJ.dfm create mode 100644 应收应付/U_YSHZMXOLJ.pas create mode 100644 应收应付/U_YSHZMXView.dfm create mode 100644 应收应付/U_YSHZMXView.pas create mode 100644 应收应付/U_YSMXlist.dfm create mode 100644 应收应付/U_YSMXlist.pas create mode 100644 应收应付/U_YSSKList.dfm create mode 100644 应收应付/U_YSSKList.pas create mode 100644 应收应付/U_YSZDList_MX.dfm create mode 100644 应收应付/U_YSZDList_MX.pas create mode 100644 应收应付/U_ZdyAttachCP.dfm create mode 100644 应收应付/U_ZdyAttachCP.pas create mode 100644 应收应付/U_ZdyAttachGYS.dfm create mode 100644 应收应付/U_ZdyAttachGYS.pas create mode 100644 应收应付/U_ZdyAttachment.dfm create mode 100644 应收应付/U_ZdyAttachment.pas create mode 100644 应收应付/U_testdll.dfm create mode 100644 应收应付/U_testdll.pas create mode 100644 应收应付/YSYF.cfg create mode 100644 应收应付/YSYF.dof create mode 100644 应收应付/YSYF.dpr create mode 100644 应收应付/YSYF.rar create mode 100644 应收应付/YSYF.res create mode 100644 应收应付/testDll.cfg create mode 100644 应收应付/testDll.dof create mode 100644 应收应付/testDll.dpr create mode 100644 应收应付/testDll.res create mode 100644 样品/DyeTwoStore.INI create mode 100644 样品/JWLCK.cfg create mode 100644 样品/JWLCK.dof create mode 100644 样品/JWLCK.res create mode 100644 样品/OrderManage.cfg create mode 100644 样品/OrderManage.dof create mode 100644 样品/OrderManage.res create mode 100644 样品/ProjectGroup1.bpg create mode 100644 样品/SYSTEMSET.ini create mode 100644 样品/U_BaseIn.dfm create mode 100644 样品/U_BaseIn.pas create mode 100644 样品/U_BaseInList.dfm create mode 100644 样品/U_BaseInList.pas create mode 100644 样品/U_BaseOut.dfm create mode 100644 样品/U_BaseOut.pas create mode 100644 样品/U_BaseOutList.dfm create mode 100644 样品/U_BaseOutList.pas create mode 100644 样品/U_CPAdd.dfm create mode 100644 样品/U_CPAdd.pas create mode 100644 样品/U_CPAddWJE.dfm create mode 100644 样品/U_CPAddWJE.pas create mode 100644 样品/U_CPManage.dfm create mode 100644 样品/U_CPManage.pas create mode 100644 样品/U_CPManageCX.dfm create mode 100644 样品/U_CPManageCX.pas create mode 100644 样品/U_CPManageWJE.dfm create mode 100644 样品/U_CPManageWJE.pas create mode 100644 样品/U_CPType.dfm create mode 100644 样品/U_CPType.pas create mode 100644 样品/U_ClothContractInPut.dfm create mode 100644 样品/U_ClothContractInPut.pas create mode 100644 样品/U_ClothContractList.dfm create mode 100644 样品/U_ClothContractList.pas create mode 100644 样品/U_ClothContractPay.dfm create mode 100644 样品/U_ClothContractPay.pas create mode 100644 样品/U_ClothKCQty.dfm create mode 100644 样品/U_ClothKCQty.pas create mode 100644 样品/U_DataLink.dfm create mode 100644 样品/U_DataLink.pas create mode 100644 样品/U_FileUp.dfm create mode 100644 样品/U_FileUp.pas create mode 100644 样品/U_GetDllForm.pas create mode 100644 样品/U_JWLIn.dfm create mode 100644 样品/U_JWLIn.pas create mode 100644 样品/U_JWLInList.dfm create mode 100644 样品/U_JWLInList.pas create mode 100644 样品/U_KHGetCPAdd.dfm create mode 100644 样品/U_KHGetCPAdd.pas create mode 100644 样品/U_KHGetCPManage.dfm create mode 100644 样品/U_KHGetCPManage.pas create mode 100644 样品/U_KHGetY.dfm create mode 100644 样品/U_KHGetY.pas create mode 100644 样品/U_OrderInPut.dfm create mode 100644 样品/U_OrderInPut.pas create mode 100644 样品/U_OrderSubFH.dfm create mode 100644 样品/U_OrderSubFH.pas create mode 100644 样品/U_OrderSubFHOK.dfm create mode 100644 样品/U_OrderSubFHOK.pas create mode 100644 样品/U_OrderSubKC.dfm create mode 100644 样品/U_OrderSubKC.pas create mode 100644 样品/U_ProductOrderList.dfm create mode 100644 样品/U_ProductOrderList.pas create mode 100644 样品/U_SGManage.dfm create mode 100644 样品/U_SGManage.pas create mode 100644 样品/U_SLT.dfm create mode 100644 样品/U_SLT.pas create mode 100644 样品/U_YPCR.dfm create mode 100644 样品/U_YPCR.pas create mode 100644 样品/U_iniParam.pas create mode 100644 样品/U_testdll.dfm create mode 100644 样品/U_testdll.pas create mode 100644 样品/YPFile.INI create mode 100644 样品/YPGL.cfg create mode 100644 样品/YPGL.dof create mode 100644 样品/YPGL.dpr create mode 100644 样品/YPGL.rar create mode 100644 样品/YPGL.res create mode 100644 样品/consvr.ini create mode 100644 样品/testDll.cfg create mode 100644 样品/testDll.dof create mode 100644 样品/testDll.dpr create mode 100644 样品/testDll.res create mode 100644 管理系统/AES.pas create mode 100644 管理系统/ElAES.pas create mode 100644 管理系统/FieldExportSet/.INI create mode 100644 管理系统/FieldExportSet/检验分析订单.INI create mode 100644 管理系统/FieldExportSet/检验报告.INI create mode 100644 管理系统/FieldExportSet/采购单列表.INI create mode 100644 管理系统/File.INI create mode 100644 管理系统/JCYData.INI create mode 100644 管理系统/JCYData10.INI create mode 100644 管理系统/OrderManage.dof create mode 100644 管理系统/ProjectGroup1.bpg create mode 100644 管理系统/ProjectGroup1.~bpg create mode 100644 管理系统/RCInspection.cfg create mode 100644 管理系统/RCInspection.dof create mode 100644 管理系统/RCInspection.res create mode 100644 管理系统/SYSTEMSET.ini create mode 100644 管理系统/TradeManage.cfg create mode 100644 管理系统/TradeManage.dof create mode 100644 管理系统/TradeManage.dpr create mode 100644 管理系统/TradeManage.res create mode 100644 管理系统/U.dfm create mode 100644 管理系统/U.pas create mode 100644 管理系统/U_BanCpCkSaoM.dfm create mode 100644 管理系统/U_BanCpCkSaoM.pas create mode 100644 管理系统/U_BanCpHCSaoM.dfm create mode 100644 管理系统/U_BanCpHCSaoM.pas create mode 100644 管理系统/U_BangAdd.dfm create mode 100644 管理系统/U_BangAdd.pas create mode 100644 管理系统/U_BefChkHX.dfm create mode 100644 管理系统/U_BefChkHX.pas create mode 100644 管理系统/U_CKEJK.dfm create mode 100644 管理系统/U_CKEJK.pas create mode 100644 管理系统/U_CKPDlist.dfm create mode 100644 管理系统/U_CKPDlist.pas create mode 100644 管理系统/U_CKPHKCList.dfm create mode 100644 管理系统/U_CKPHKCList.pas create mode 100644 管理系统/U_CKProductBCPHCList.dfm create mode 100644 管理系统/U_CKProductBCPHCList.pas create mode 100644 管理系统/U_CKProductBCPInList.dfm create mode 100644 管理系统/U_CKProductBCPInList.pas create mode 100644 管理系统/U_CKProductBCPInList_Other.dfm create mode 100644 管理系统/U_CKProductBCPInList_Other.pas create mode 100644 管理系统/U_CKProductBCPKC.dfm create mode 100644 管理系统/U_CKProductBCPKC.pas create mode 100644 管理系统/U_CKProductBCPKCHZList.dfm create mode 100644 管理系统/U_CKProductBCPKCHZList.pas create mode 100644 管理系统/U_CKProductBCPKCHZListSUM_other.dfm create mode 100644 管理系统/U_CKProductBCPKCHZListSUM_other.pas create mode 100644 管理系统/U_CKProductBCPKCHZList_other.dfm create mode 100644 管理系统/U_CKProductBCPKCHZList_other.pas create mode 100644 管理系统/U_CKProductBCPKCList.dfm create mode 100644 管理系统/U_CKProductBCPKCList.pas create mode 100644 管理系统/U_CKProductBCPKCListSel.dfm create mode 100644 管理系统/U_CKProductBCPKCListSel.pas create mode 100644 管理系统/U_CKProductBCPKCListSel10.dfm create mode 100644 管理系统/U_CKProductBCPKCListSel10.pas create mode 100644 管理系统/U_CKProductBCPKCListSel_Other.dfm create mode 100644 管理系统/U_CKProductBCPKCListSel_Other.pas create mode 100644 管理系统/U_CKProductBCPKCList_other.dfm create mode 100644 管理系统/U_CKProductBCPKCList_other.pas create mode 100644 管理系统/U_CKProductBCPOutList.dfm create mode 100644 管理系统/U_CKProductBCPOutList.pas create mode 100644 管理系统/U_CKProductBCPOutList_other.dfm create mode 100644 管理系统/U_CKProductBCPOutList_other.pas create mode 100644 管理系统/U_CKProductBCPOutth.dfm create mode 100644 管理系统/U_CKProductBCPOutth.pas create mode 100644 管理系统/U_CKProductCK.dfm create mode 100644 管理系统/U_CKProductCK.pas create mode 100644 管理系统/U_CKProductCK_Other.dfm create mode 100644 管理系统/U_CKProductCK_Other.pas create mode 100644 管理系统/U_CKProductCPKCHZList_Yj.dfm create mode 100644 管理系统/U_CKProductCPKCHZList_Yj.pas create mode 100644 管理系统/U_CKSMEdit.dfm create mode 100644 管理系统/U_CKSMEdit.pas create mode 100644 管理系统/U_CKSMEdit_other.dfm create mode 100644 管理系统/U_CKSMEdit_other.pas create mode 100644 管理系统/U_CKYCLKC.dfm create mode 100644 管理系统/U_CKYCLKC.pas create mode 100644 管理系统/U_CPKWList.dfm create mode 100644 管理系统/U_CPKWList.pas create mode 100644 管理系统/U_CPKWListSel.dfm create mode 100644 管理系统/U_CPKWListSel.pas create mode 100644 管理系统/U_CPRK.dfm create mode 100644 管理系统/U_CPRK.pas create mode 100644 管理系统/U_CPRK_Other.dfm create mode 100644 管理系统/U_CPRK_Other.pas create mode 100644 管理系统/U_CP_COL_XL.dfm create mode 100644 管理系统/U_CP_COL_XL.pas create mode 100644 管理系统/U_CP_COL_XL_ZD.dfm create mode 100644 管理系统/U_CP_COL_XL_ZD.pas create mode 100644 管理系统/U_CP_CRC.dfm create mode 100644 管理系统/U_CP_CRC.pas create mode 100644 管理系统/U_CP_XL.dfm create mode 100644 管理系统/U_CP_XL.pas create mode 100644 管理系统/U_ClothContractInPut.dfm create mode 100644 管理系统/U_ClothContractInPut.pas create mode 100644 管理系统/U_ClothContractInPut_CG.dfm create mode 100644 管理系统/U_ClothContractInPut_CG.pas create mode 100644 管理系统/U_ClothContractInPut_Tp.dfm create mode 100644 管理系统/U_ClothContractInPut_Tp.pas create mode 100644 管理系统/U_ClothContractKCList.dfm create mode 100644 管理系统/U_ClothContractKCList.pas create mode 100644 管理系统/U_ClothContractList.dfm create mode 100644 管理系统/U_ClothContractList.pas create mode 100644 管理系统/U_ClothContractListDH.dfm create mode 100644 管理系统/U_ClothContractListDH.pas create mode 100644 管理系统/U_ClothContractListLL.dfm create mode 100644 管理系统/U_ClothContractListLL.pas create mode 100644 管理系统/U_ClothContractListWJG.dfm create mode 100644 管理系统/U_ClothContractListWJG.pas create mode 100644 管理系统/U_ClothContractList_CG.dfm create mode 100644 管理系统/U_ClothContractList_CG.pas create mode 100644 管理系统/U_ClothContractList_CG_help.dfm create mode 100644 管理系统/U_ClothContractList_CG_help.pas create mode 100644 管理系统/U_ClothContractList_CP.dfm create mode 100644 管理系统/U_ClothContractList_CP.pas create mode 100644 管理系统/U_ClothContractList_HZ.dfm create mode 100644 管理系统/U_ClothContractList_HZ.pas create mode 100644 管理系统/U_ClothContractList_HZ1.dfm create mode 100644 管理系统/U_ClothContractList_HZ1.pas create mode 100644 管理系统/U_ClothContractList_JG.dfm create mode 100644 管理系统/U_ClothContractList_JG.pas create mode 100644 管理系统/U_ClothContractList_PBKC.dfm create mode 100644 管理系统/U_ClothContractList_PBKC.pas create mode 100644 管理系统/U_ClothContractList_SJD.dfm create mode 100644 管理系统/U_ClothContractList_SJD.pas create mode 100644 管理系统/U_ClothContractList_SJDCK.dfm create mode 100644 管理系统/U_ClothContractList_SJDCK.pas create mode 100644 管理系统/U_ClothContractList_SJDMX.dfm create mode 100644 管理系统/U_ClothContractList_SJDMX.pas create mode 100644 管理系统/U_ClothContractList_Sel.dfm create mode 100644 管理系统/U_ClothContractList_Sel.pas create mode 100644 管理系统/U_ClothContractList_TP.dfm create mode 100644 管理系统/U_ClothContractList_TP.pas create mode 100644 管理系统/U_ClothContractList_help.dfm create mode 100644 管理系统/U_ClothContractList_help.pas create mode 100644 管理系统/U_ClothHCList.dfm create mode 100644 管理系统/U_ClothHCList.pas create mode 100644 管理系统/U_ClothPDInfoList.dfm create mode 100644 管理系统/U_ClothPDInfoList.pas create mode 100644 管理系统/U_ConInPut.dfm create mode 100644 管理系统/U_ConInPut.pas create mode 100644 管理系统/U_ContractList.dfm create mode 100644 管理系统/U_ContractList.pas create mode 100644 管理系统/U_CpCkSaoMNew.dfm create mode 100644 管理系统/U_CpCkSaoMNew.pas create mode 100644 管理系统/U_CpCkSaoMNewSel.dfm create mode 100644 管理系统/U_CpCkSaoMNewSel.pas create mode 100644 管理系统/U_CpRkSaoMNew.dfm create mode 100644 管理系统/U_CpRkSaoMNew.pas create mode 100644 管理系统/U_CrkAccount.dfm create mode 100644 管理系统/U_CrkAccount.pas create mode 100644 管理系统/U_CrkAccount_other.dfm create mode 100644 管理系统/U_CrkAccount_other.pas create mode 100644 管理系统/U_DataLink.dfm create mode 100644 管理系统/U_DataLink.pas create mode 100644 管理系统/U_GetDllForm.pas create mode 100644 管理系统/U_GetPGJBInList.dfm create mode 100644 管理系统/U_GetPGJBInList.pas create mode 100644 管理系统/U_GetPGJBOneTwoInList.dfm create mode 100644 管理系统/U_GetPGJBOneTwoInList.pas create mode 100644 管理系统/U_HCList.dfm create mode 100644 管理系统/U_HCList.pas create mode 100644 管理系统/U_JBData.dfm create mode 100644 管理系统/U_JBData.pas create mode 100644 管理系统/U_JYOrderCDMore.dfm create mode 100644 管理系统/U_JYOrderCDMore.pas create mode 100644 管理系统/U_JYOrderCDOne.dfm create mode 100644 管理系统/U_JYOrderCDOne.pas create mode 100644 管理系统/U_JYOrderCDOne_Other.dfm create mode 100644 管理系统/U_JYOrderCDOne_Other.pas create mode 100644 管理系统/U_JYResult.dfm create mode 100644 管理系统/U_JYResult.pas create mode 100644 管理系统/U_JiangLiaoSet.dfm create mode 100644 管理系统/U_JiangLiaoSet.pas create mode 100644 管理系统/U_KCEdit.dfm create mode 100644 管理系统/U_KCEdit.pas create mode 100644 管理系统/U_KCRLLTZ.dfm create mode 100644 管理系统/U_KCRLLTZ.pas create mode 100644 管理系统/U_KCRLLTZ_other.dfm create mode 100644 管理系统/U_KCRLLTZ_other.pas create mode 100644 管理系统/U_KH_XS_YP_list.dfm create mode 100644 管理系统/U_KH_XS_YP_list.pas create mode 100644 管理系统/U_KH_XS_list.dfm create mode 100644 管理系统/U_KH_XS_list.pas create mode 100644 管理系统/U_LabelPrint.dfm create mode 100644 管理系统/U_LabelPrint.pas create mode 100644 管理系统/U_MJEdit.dfm create mode 100644 管理系统/U_MJEdit.pas create mode 100644 管理系统/U_MJEdit_other.dfm create mode 100644 管理系统/U_MJEdit_other.pas create mode 100644 管理系统/U_MJManage.dfm create mode 100644 管理系统/U_MJManage.pas create mode 100644 管理系统/U_MJManageNew.dfm create mode 100644 管理系统/U_MJManageNew.pas create mode 100644 管理系统/U_MJManageNewFD.dfm create mode 100644 管理系统/U_MJManageNewFD.pas create mode 100644 管理系统/U_MJManageNewFDNew.dfm create mode 100644 管理系统/U_MJManageNewFDNew.pas create mode 100644 管理系统/U_MJManageNewFDNew_other.dfm create mode 100644 管理系统/U_MJManageNewFDNew_other.pas create mode 100644 管理系统/U_ModulePromptList.dfm create mode 100644 管理系统/U_ModulePromptList.pas create mode 100644 管理系统/U_NoteList.dfm create mode 100644 管理系统/U_NoteList.pas create mode 100644 管理系统/U_NoteList1.dfm create mode 100644 管理系统/U_NoteList1.pas create mode 100644 管理系统/U_OrderAttachment.dfm create mode 100644 管理系统/U_OrderAttachment.pas create mode 100644 管理系统/U_OrderInPut.dfm create mode 100644 管理系统/U_OrderInPut.pas create mode 100644 管理系统/U_OrderInPutNew.dfm create mode 100644 管理系统/U_OrderInPutNew.pas create mode 100644 管理系统/U_OrderInPutXH.dfm create mode 100644 管理系统/U_OrderInPutXH.pas create mode 100644 管理系统/U_OrderInPutZP.dfm create mode 100644 管理系统/U_OrderInPutZP.pas create mode 100644 管理系统/U_OrderInPutZPLNew.dfm create mode 100644 管理系统/U_OrderInPutZPLNew.pas create mode 100644 管理系统/U_OrderInPutZPNew.dfm create mode 100644 管理系统/U_OrderInPutZPNew.pas create mode 100644 管理系统/U_OrderJDList.dfm create mode 100644 管理系统/U_OrderJDList.pas create mode 100644 管理系统/U_OrderSel.dfm create mode 100644 管理系统/U_OrderSel.pas create mode 100644 管理系统/U_OrderSelRK.dfm create mode 100644 管理系统/U_OrderSelRK.pas create mode 100644 管理系统/U_OrderStatus.dfm create mode 100644 管理系统/U_OrderStatus.pas create mode 100644 管理系统/U_OrderSubFH.dfm create mode 100644 管理系统/U_OrderSubFH.pas create mode 100644 管理系统/U_OrderSubKC.dfm create mode 100644 管理系统/U_OrderSubKC.pas create mode 100644 管理系统/U_PDSMEdit.dfm create mode 100644 管理系统/U_PDSMEdit.pas create mode 100644 管理系统/U_PbSelCK.dfm create mode 100644 管理系统/U_PbSelCK.pas create mode 100644 管理系统/U_PbSelRK.dfm create mode 100644 管理系统/U_PbSelRK.pas create mode 100644 管理系统/U_Printckmd.dfm create mode 100644 管理系统/U_Printckmd.pas create mode 100644 管理系统/U_ProductOrderAnPai.dfm create mode 100644 管理系统/U_ProductOrderAnPai.pas create mode 100644 管理系统/U_ProductOrderAnPaiGQX.dfm create mode 100644 管理系统/U_ProductOrderAnPaiGQX.pas create mode 100644 管理系统/U_ProductOrderList.dfm create mode 100644 管理系统/U_ProductOrderList.pas create mode 100644 管理系统/U_ProductOrderListNew.dfm create mode 100644 管理系统/U_ProductOrderListNew.pas create mode 100644 管理系统/U_ProductOrderListNewCK.dfm create mode 100644 管理系统/U_ProductOrderListNewCK.pas create mode 100644 管理系统/U_ProductOrderListNewCKMX.dfm create mode 100644 管理系统/U_ProductOrderListNewCKMX.pas create mode 100644 管理系统/U_ProductOrderListSel.dfm create mode 100644 管理系统/U_ProductOrderListSel.pas create mode 100644 管理系统/U_ProductOrderNewList.dfm create mode 100644 管理系统/U_ProductOrderNewList.pas create mode 100644 管理系统/U_ProductOrderNewListSEl.dfm create mode 100644 管理系统/U_ProductOrderNewListSEl.pas create mode 100644 管理系统/U_ProductOrderNewListXH.dfm create mode 100644 管理系统/U_ProductOrderNewListXH.pas create mode 100644 管理系统/U_ProductOrderNewList_BH.dfm create mode 100644 管理系统/U_ProductOrderNewList_BH.pas create mode 100644 管理系统/U_ProductOrderNewList_JD.dfm create mode 100644 管理系统/U_ProductOrderNewList_JD.pas create mode 100644 管理系统/U_ProductOrderNewList_ZD.dfm create mode 100644 管理系统/U_ProductOrderNewList_ZD.pas create mode 100644 管理系统/U_ProductOrderSel.dfm create mode 100644 管理系统/U_ProductOrderSel.pas create mode 100644 管理系统/U_ProductOrder_Ph.dfm create mode 100644 管理系统/U_ProductOrder_Ph.pas create mode 100644 管理系统/U_ProductOrder_Ph10.dfm create mode 100644 管理系统/U_ProductOrder_Ph10.pas create mode 100644 管理系统/U_ProductOrder_Ph_other.dfm create mode 100644 管理系统/U_ProductOrder_Ph_other.pas create mode 100644 管理系统/U_ProductionAnPai.dfm create mode 100644 管理系统/U_ProductionAnPai.pas create mode 100644 管理系统/U_ProductionAnPaiNew.dfm create mode 100644 管理系统/U_ProductionAnPaiNew.pas create mode 100644 管理系统/U_RKSMEdit.dfm create mode 100644 管理系统/U_RKSMEdit.pas create mode 100644 管理系统/U_RKSMEdit_Other.dfm create mode 100644 管理系统/U_RKSMEdit_Other.pas create mode 100644 管理系统/U_SCGYSet.dfm create mode 100644 管理系统/U_SCGYSet.pas create mode 100644 管理系统/U_SXCKOutListDBCK.dfm create mode 100644 管理系统/U_SXCKOutListDBCK.pas create mode 100644 管理系统/U_SetBanZu.dfm create mode 100644 管理系统/U_SetBanZu.pas create mode 100644 管理系统/U_StopWorkInPut.dfm create mode 100644 管理系统/U_StopWorkInPut.pas create mode 100644 管理系统/U_StopWorkList.dfm create mode 100644 管理系统/U_StopWorkList.pas create mode 100644 管理系统/U_XsList_other.dfm create mode 100644 管理系统/U_XsList_other.pas create mode 100644 管理系统/U_YGList.dfm create mode 100644 管理系统/U_YGList.pas create mode 100644 管理系统/U_YHList_other.dfm create mode 100644 管理系统/U_YHList_other.pas create mode 100644 管理系统/U_ZJManage.dfm create mode 100644 管理系统/U_ZJManage.pas create mode 100644 管理系统/U_ZJManageNew.dfm create mode 100644 管理系统/U_ZJManageNew.pas create mode 100644 管理系统/U_ZJManageNewFD.dfm create mode 100644 管理系统/U_ZJManageNewFD.pas create mode 100644 管理系统/U_ZJManageNewFDMORE.dfm create mode 100644 管理系统/U_ZJManageNewFDMORE.pas create mode 100644 管理系统/U_ZdyAttachCP.dfm create mode 100644 管理系统/U_ZdyAttachCP.pas create mode 100644 管理系统/U_ZdyAttachGYS.dfm create mode 100644 管理系统/U_ZdyAttachGYS.pas create mode 100644 管理系统/U_ZdyAttachment.dfm create mode 100644 管理系统/U_ZdyAttachment.pas create mode 100644 管理系统/U_iniParam.pas create mode 100644 管理系统/U_kcchEdit.dfm create mode 100644 管理系统/U_kcchEdit.pas create mode 100644 管理系统/U_kcchEdit_other.dfm create mode 100644 管理系统/U_kcchEdit_other.pas create mode 100644 管理系统/U_kw.dfm create mode 100644 管理系统/U_kw.pas create mode 100644 管理系统/U_phYGList.dfm create mode 100644 管理系统/U_phYGList.pas create mode 100644 管理系统/U_testdll.dfm create mode 100644 管理系统/U_testdll.pas create mode 100644 管理系统/WFBOrder.cfg create mode 100644 管理系统/WFBOrder.dof create mode 100644 管理系统/WFBOrder.res create mode 100644 管理系统/WFBProduction.cfg create mode 100644 管理系统/WFBProduction.dof create mode 100644 管理系统/WFBProduction.res create mode 100644 管理系统/testDll.cfg create mode 100644 管理系统/testDll.dof create mode 100644 管理系统/testDll.dpr create mode 100644 管理系统/testDll.res diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..cbd176d --- /dev/null +++ b/.gitignore @@ -0,0 +1,16 @@ +**/layout +**/report +**/实施文件 +**/image +**/doc +**/wav +**/__history +**/__recovery +*.dll +*.exe +*.ddp +*.dcu +*.~pas +*.~dfm +*.~ddp +*.~dpr \ No newline at end of file diff --git a/坯布码单待检(PBMDDJ.dll)/CYZZ.cfg b/坯布码单待检(PBMDDJ.dll)/CYZZ.cfg new file mode 100644 index 0000000..7876259 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/CYZZ.cfg @@ -0,0 +1,42 @@ +-$A8 +-$B- +-$C+ +-$D+ +-$E- +-$F- +-$G+ +-$H+ +-$I+ +-$J- +-$K- +-$L+ +-$M- +-$N+ +-$O+ +-$P+ +-$Q- +-$R- +-$S- +-$T- +-$U- +-$V+ +-$W- +-$X+ +-$YD +-$Z1 +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-M +-$M16384,1048576 +-K$00400000 +-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-U"D:\ͨERP" +-O"D:\ͨERP" +-I"D:\ͨERP" +-R"D:\ͨERP" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/坯布码单待检(PBMDDJ.dll)/CYZZ.dof b/坯布码单待检(PBMDDJ.dll)/CYZZ.dof new file mode 100644 index 0000000..baf79b8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/CYZZ.dof @@ -0,0 +1,138 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=0 +R=0 +S=0 +T=0 +U=0 +V=1 +W=0 +X=1 +Y=1 +Z=1 +ShowHints=1 +ShowWarnings=1 +UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=1 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir= +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath=D:\ͨERP +Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=D:\selfware_83398\selfware\ֿ\Ŀ\self\֯(CYZZ.dll)\testDll.exe +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=0 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=0 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=2052 +CodePage=936 +[Version Info Keys] +CompanyName= +FileDescription= +FileVersion=1.0.0.0 +InternalName= +LegalCopyright= +LegalTrademarks= +OriginalFilename= +ProductName= +ProductVersion=1.0.0.0 +Comments= +[Excluded Packages] +c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package diff --git a/坯布码单待检(PBMDDJ.dll)/CYZZ.res b/坯布码单待检(PBMDDJ.dll)/CYZZ.res new file mode 100644 index 0000000000000000000000000000000000000000..2d6f24c3d9a870364649288b1c0306b551768325 GIT binary patch literal 876 zcmaJ=Jx{|h5Pc?9%tTwkz(g}L7BMg|6oiDt01W(ruz1OWgw!H+AXAn~{FzE^Brlox z9gK_}J0Q&SIVr99IQ9AN-MzD~Rtx|M;amX24SU~e>Jc?cYMoANyAd5SNQg5+p~aQP zp5HA8_(Prt$CV+GqpB(v{1D!`;JAjld@@+K+i61a|MTdsd{~!%b1ms_KJEh}cpe(` z6jA?@e29>sU}iiwp;b>~TL@2U!O)h%Yr)7`8+a;b=@mD^tI-VbODr7!U{0?gh%d@~e3Ro)^HNMvvU1UHt)HYrq~&L`&fQ16Y1SeYiaObZ>3v kZ4W@7aBc_JIL8%khzs1(H@5yR{A*B1l9s#*|B4j80N@tIJOBUy literal 0 HcmV?d00001 diff --git a/坯布码单待检(PBMDDJ.dll)/DDMD.cfg b/坯布码单待检(PBMDDJ.dll)/DDMD.cfg new file mode 100644 index 0000000..7876259 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/DDMD.cfg @@ -0,0 +1,42 @@ +-$A8 +-$B- +-$C+ +-$D+ +-$E- +-$F- +-$G+ +-$H+ +-$I+ +-$J- +-$K- +-$L+ +-$M- +-$N+ +-$O+ +-$P+ +-$Q- +-$R- +-$S- +-$T- +-$U- +-$V+ +-$W- +-$X+ +-$YD +-$Z1 +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-M +-$M16384,1048576 +-K$00400000 +-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-U"D:\ͨERP" +-O"D:\ͨERP" +-I"D:\ͨERP" +-R"D:\ͨERP" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/坯布码单待检(PBMDDJ.dll)/DDMD.dof b/坯布码单待检(PBMDDJ.dll)/DDMD.dof new file mode 100644 index 0000000..ffe9f30 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/DDMD.dof @@ -0,0 +1,138 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=0 +R=0 +S=0 +T=0 +U=0 +V=1 +W=0 +X=1 +Y=1 +Z=1 +ShowHints=1 +ShowWarnings=1 +UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=1 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir= +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath=D:\ͨERP +Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=D:\selfware_83398\selfware\ֿ\Ŀ\self\뵥(DDMD.dll)\testDll.exe +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=0 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=0 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=2052 +CodePage=936 +[Version Info Keys] +CompanyName= +FileDescription= +FileVersion=1.0.0.0 +InternalName= +LegalCopyright= +LegalTrademarks= +OriginalFilename= +ProductName= +ProductVersion=1.0.0.0 +Comments= +[Excluded Packages] +c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package diff --git a/坯布码单待检(PBMDDJ.dll)/DDMD.res b/坯布码单待检(PBMDDJ.dll)/DDMD.res new file mode 100644 index 0000000000000000000000000000000000000000..2d6f24c3d9a870364649288b1c0306b551768325 GIT binary patch literal 876 zcmaJ=Jx{|h5Pc?9%tTwkz(g}L7BMg|6oiDt01W(ruz1OWgw!H+AXAn~{FzE^Brlox z9gK_}J0Q&SIVr99IQ9AN-MzD~Rtx|M;amX24SU~e>Jc?cYMoANyAd5SNQg5+p~aQP zp5HA8_(Prt$CV+GqpB(v{1D!`;JAjld@@+K+i61a|MTdsd{~!%b1ms_KJEh}cpe(` z6jA?@e29>sU}iiwp;b>~TL@2U!O)h%Yr)7`8+a;b=@mD^tI-VbODr7!U{0?gh%d@~e3Ro)^HNMvvU1UHt)HYrq~&L`&fQ16Y1SeYiaObZ>3v kZ4W@7aBc_JIL8%khzs1(H@5yR{A*B1l9s#*|B4j80N@tIJOBUy literal 0 HcmV?d00001 diff --git a/坯布码单待检(PBMDDJ.dll)/Desktop.ini b/坯布码单待检(PBMDDJ.dll)/Desktop.ini new file mode 100644 index 0000000..7e19762 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/Desktop.ini @@ -0,0 +1,3 @@ +[.ShellClassInfo] +IconFile=C:\Program Files (x86)\360\360WangPan\new_desktop_win7.ico +IconIndex=0 diff --git a/坯布码单待检(PBMDDJ.dll)/File.INI b/坯布码单待检(PBMDDJ.dll)/File.INI new file mode 100644 index 0000000..e990552 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/File.INI @@ -0,0 +1,4 @@ +[] +̨־=99 +ƷDLLļ=CYZZ.dll +ƷDLLú=11 \ No newline at end of file diff --git a/坯布码单待检(PBMDDJ.dll)/FileHelp.ini b/坯布码单待检(PBMDDJ.dll)/FileHelp.ini new file mode 100644 index 0000000..495119d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/FileHelp.ini @@ -0,0 +1,7 @@ +[FILEPATH] +FileClass=YP,AA,BB,HT +YP=D:\YP +AA=D:\AA +BB=D:\BB +HT=D:\HT +OTHER=D:\OTHER diff --git a/坯布码单待检(PBMDDJ.dll)/JCYData.INI b/坯布码单待检(PBMDDJ.dll)/JCYData.INI new file mode 100644 index 0000000..2eaff97 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/JCYData.INI @@ -0,0 +1,7 @@ +[ϵͳ] +ں=com1 +=9600 +Уλ=0 +λ=8 +ֹͣλ=0 +Ƶ=100 diff --git a/坯布码单待检(PBMDDJ.dll)/JZCRS323C.INI b/坯布码单待检(PBMDDJ.dll)/JZCRS323C.INI new file mode 100644 index 0000000..0eb8ccd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/JZCRS323C.INI @@ -0,0 +1,7 @@ +[ϵͳ] +ں=com2 +=1200 +Уλ=0 +λ=8 +ֹͣλ=0 +Ƶ=100 diff --git a/坯布码单待检(PBMDDJ.dll)/JZCRS323CList.txt b/坯布码单待检(PBMDDJ.dll)/JZCRS323CList.txt new file mode 100644 index 0000000..e69de29 diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.cfg b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.cfg new file mode 100644 index 0000000..7876259 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.cfg @@ -0,0 +1,42 @@ +-$A8 +-$B- +-$C+ +-$D+ +-$E- +-$F- +-$G+ +-$H+ +-$I+ +-$J- +-$K- +-$L+ +-$M- +-$N+ +-$O+ +-$P+ +-$Q- +-$R- +-$S- +-$T- +-$U- +-$V+ +-$W- +-$X+ +-$YD +-$Z1 +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-M +-$M16384,1048576 +-K$00400000 +-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-U"D:\ͨERP" +-O"D:\ͨERP" +-I"D:\ͨERP" +-R"D:\ͨERP" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof new file mode 100644 index 0000000..7f7f94c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof @@ -0,0 +1,138 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=0 +R=0 +S=0 +T=0 +U=0 +V=1 +W=0 +X=1 +Y=1 +Z=1 +ShowHints=1 +ShowWarnings=1 +UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=1 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir= +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath=D:\ͨERP +Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=D:\Ŀ\Ŀ\\뵥(PBMDDJ.dll)\testDll.exe +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=0 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=0 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=2052 +CodePage=936 +[Version Info Keys] +CompanyName= +FileDescription= +FileVersion=1.0.0.0 +InternalName= +LegalCopyright= +LegalTrademarks= +OriginalFilename= +ProductName= +ProductVersion=1.0.0.0 +Comments= +[Excluded Packages] +c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr new file mode 100644 index 0000000..b2ac362 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr @@ -0,0 +1,58 @@ +library PBMDDJ; + +uses + SysUtils, + classes, + forms, + WinTypes, + WinProcs, + U_GetDllForm in 'U_GetDllForm.pas', + U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, + U_DataLink in 'U_DataLink.pas' {DataLink_PBMDDJ: TDataModule}, + U_GYSList in 'U_GYSList.pas' {frmGYSList}, + U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, + U_iniParam in 'U_iniParam.pas', + U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp}, + U_GYSSelList in 'U_GYSSelList.pas' {frmGYSSelList}, + U_JGList in 'U_JGList.pas' {frmJGList}, + U_DJBRK_Edit in 'U_DJBRK_Edit.pas' {frmDJBRK_Edit}, + U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS}, + U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel}, + U_DJBCKOutPut in 'U_DJBCKOutPut.pas' {frmDJBCKOutPut}, + U_PBCKKCList in 'U_PBCKKCList.pas' {frmPBCKKCList}, + U_DJBCKOutList in 'U_DJBCKOutList.pas' {frmDJBCKOutList}, + U_WJGCKKCList in 'U_WJGCKKCList.pas' {frmWJGCKKCList}, + U_DJBCKKCList in 'U_DJBCKKCList.pas' {frmDJBCKKCList}, + U_ZdyAttachCP in 'U_ZdyAttachCP.pas' {frmZdyAttachCP}, + U_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment}, + U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas', + U_SelExportField in '..\..\..\ThreeFun\Form\U_SelExportField.pas' {frmSelExportField}, + U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, + U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, + U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}; + +{$R *.res} + +procedure DllEnterPoint(dwReason: DWORD);far;stdcall; +begin + DLLProc := @DLLEnterPoint; + DllEnterPoint(DLL_PROCESS_ATTACH); +end; + +procedure DLLUnloadProc(Reason: Integer); register; +begin + { if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then + Application:=NewDllApp; } +end; +exports + GetDllForm; +begin + try + NewDllApp:=Application; + DLLProc := @DLLUnloadProc; + except + + end; +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.res b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.res new file mode 100644 index 0000000000000000000000000000000000000000..2d6f24c3d9a870364649288b1c0306b551768325 GIT binary patch literal 876 zcmaJ=Jx{|h5Pc?9%tTwkz(g}L7BMg|6oiDt01W(ruz1OWgw!H+AXAn~{FzE^Brlox z9gK_}J0Q&SIVr99IQ9AN-MzD~Rtx|M;amX24SU~e>Jc?cYMoANyAd5SNQg5+p~aQP zp5HA8_(Prt$CV+GqpB(v{1D!`;JAjld@@+K+i61a|MTdsd{~!%b1ms_KJEh}cpe(` z6jA?@e29>sU}iiwp;b>~TL@2U!O)h%Yr)7`8+a;b=@mD^tI-VbODr7!U{0?gh%d@~e3Ro)^HNMvvU1UHt)HYrq~&L`&fQ16Y1SeYiaObZ>3v kZ4W@7aBc_JIL8%khzs1(H@5yR{A*B1l9s#*|B4j80N@tIJOBUy literal 0 HcmV?d00001 diff --git a/坯布码单待检(PBMDDJ.dll)/ProjectGroup1.bpg b/坯布码单待检(PBMDDJ.dll)/ProjectGroup1.bpg new file mode 100644 index 0000000..7c050f6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/ProjectGroup1.bpg @@ -0,0 +1,23 @@ +#------------------------------------------------------------------------------ +VERSION = BWS.01 +#------------------------------------------------------------------------------ +!ifndef ROOT +ROOT = $(MAKEDIR)\.. +!endif +#------------------------------------------------------------------------------ +MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** +DCC = $(ROOT)\bin\dcc32.exe $** +BRCC = $(ROOT)\bin\brcc32.exe $** +#------------------------------------------------------------------------------ +PROJECTS = testDll.exe ProductPrice.dll +#------------------------------------------------------------------------------ +default: $(PROJECTS) +#------------------------------------------------------------------------------ + +testDll.exe: testDll.dpr + $(DCC) + +ProductPrice.dll: ProductPrice.dpr + $(DCC) + + diff --git a/坯布码单待检(PBMDDJ.dll)/SYSTEMSET.ini b/坯布码单待检(PBMDDJ.dll)/SYSTEMSET.ini new file mode 100644 index 0000000..3faae6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/SYSTEMSET.ini @@ -0,0 +1,3 @@ +[SERVER] +ַ=172.168.1.246 +=֯ \ No newline at end of file diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.dfm new file mode 100644 index 0000000..28b702e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.dfm @@ -0,0 +1,794 @@ +object frmBGCWEndManage: TfrmBGCWEndManage + Left = 17 + Top = 0 + Width = 1274 + Height = 717 + Caption = #25253#20851#31649#29702'('#36130#21153')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1258 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBEdit: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 22 + OnClick = TBEditClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton1Click + end + object TBPrint: TToolButton + Left = 209 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1258 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 262 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 164 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object BCOrderNo: TEdit + Tag = 2 + Left = 303 + Top = 7 + Width = 130 + Height = 20 + TabOrder = 2 + OnChange = BCOrderNoChange + end + end + object Panel6: TPanel + Left = 0 + Top = 390 + Width = 1258 + Height = 288 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid12: TcxGrid + Left = 2 + Top = 2 + Width = 654 + Height = 284 + Align = alLeft + TabOrder = 0 + object Tv12: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource12 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn10 + end + item + Kind = skSum + Position = spFooter + Column = v12Column2 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object vJCKMXColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v12Column1: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v12Column2: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v12Column3: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'PSSHQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 53 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 105 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv12 + end + end + object cxGrid6: TcxGrid + Left = 656 + Top = 2 + Width = 600 + Height = 284 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv19: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource19 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 138 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv19Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object Tv19Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v6Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NQNote' + HeaderAlignmentHorz = taCenter + Width = 93 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv19 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 67 + Width = 1258 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #24050#30830#35748 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1258 + ClientRectTop = 23 + end + object cxGrid3: TcxGrid + Left = 0 + Top = 88 + Width = 593 + Height = 302 + Align = alClient + TabOrder = 4 + object Tv11: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv11FocusedRecordChanged + DataController.DataSource = DataSource11 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 100 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v11Column1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v11Column2: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v11Column3: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v11Column4: TcxGridDBColumn + Caption = #30830#35748#20154 + DataBinding.FieldName = 'OKPerson' + HeaderAlignmentHorz = taCenter + Width = 52 + end + object v11Column5: TcxGridDBColumn + Caption = #30830#35748#26102#38388 + DataBinding.FieldName = 'OKTime' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v11Column6: TcxGridDBColumn + Caption = #24050#30830#35748 + DataBinding.FieldName = 'OKFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv11 + end + end + object cxGrid1: TcxGrid + Left = 601 + Top = 88 + Width = 657 + Height = 302 + Align = alRight + TabOrder = 5 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 98 + end + object v1Column1: TcxGridDBColumn + Caption = #25209#27425 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #27425#25968 + DataBinding.FieldName = 'EditCount' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #25253#20851#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLenStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #28023#36816#36153'$' + DataBinding.FieldName = 'HaiYunFee' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column13: TcxGridDBColumn + Caption = #20445#36153'$' + DataBinding.FieldName = 'BaoFee' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column3: TcxGridDBColumn + Caption = #36816#25269#22269 + DataBinding.FieldName = 'YunDiG' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column8: TcxGridDBColumn + Caption = #20986#21475#21475#23736 + DataBinding.FieldName = 'ChuKouKA' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column9: TcxGridDBColumn + Caption = #36135#28304#22320 + DataBinding.FieldName = 'HuoYuanPlace' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column14: TcxGridDBColumn + Caption = #25104#20132#26041#24335 + DataBinding.FieldName = 'ChengJiaoType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 64 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 593 + Top = 88 + Width = 8 + Height = 302 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid1 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 791 + Top = 4 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 820 + Top = 7 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 984 + Top = 2 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 65535 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1165 + Top = 522 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 1195 + Top = 518 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1224 + Top = 519 + end + object DataSource11: TDataSource + DataSet = ClientDataSet11 + Left = 562 + Top = 38 + end + object ClientDataSet11: TClientDataSet + Aggregates = <> + Params = <> + Left = 593 + Top = 37 + end + object DataSource12: TDataSource + DataSet = ClientDataSet12 + Left = 628 + Top = 39 + end + object ClientDataSet12: TClientDataSet + Aggregates = <> + Params = <> + Left = 661 + Top = 37 + end + object cxGridPopupMenu11: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 792 + Top = 39 + end + object cxGridPopupMenu12: TcxGridPopupMenu + Grid = cxGrid12 + PopupMenus = <> + Left = 830 + Top = 37 + end + object DataSource19: TDataSource + DataSet = ClientDataSet19 + Left = 693 + Top = 38 + end + object ClientDataSet19: TClientDataSet + Aggregates = <> + Params = <> + Left = 727 + Top = 37 + end + object cxGridPopupMenu19: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 762 + Top = 38 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 365 + Top = 240 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB19 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 424 + Top = 200 + ReportData = {} + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 472 + Top = 212 + end + object RMDB19: TRMDBDataSet + Visible = True + DataSet = ClientDataSet19 + Left = 493 + Top = 249 + end + object RMDB12: TRMDBDataSet + Visible = True + DataSet = ClientDataSet12 + Left = 446 + Top = 249 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 1065 + Top = 230 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1095 + Top = 226 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1124 + Top = 227 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.pas b/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.pas new file mode 100644 index 0000000..6908db6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.pas @@ -0,0 +1,467 @@ +unit U_BGCWEndManage; //22 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC, + BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxButtonEdit, + cxDropDownEdit, cxCheckBox, cxSplitter, RM_Dataset, RM_Common, RM_Class, + RM_e_Xls, RM_System, RM_GridReport; + +type + TfrmBGCWEndManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBEdit: TToolButton; + TBPrint: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + BCOrderNo: TEdit; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryPrint: TADOQuery; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + DataSource11: TDataSource; + ClientDataSet11: TClientDataSet; + DataSource12: TDataSource; + ClientDataSet12: TClientDataSet; + cxGridPopupMenu11: TcxGridPopupMenu; + cxGridPopupMenu12: TcxGridPopupMenu; + DataSource19: TDataSource; + ClientDataSet19: TClientDataSet; + cxGridPopupMenu19: TcxGridPopupMenu; + Panel6: TPanel; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + cxGrid12: TcxGrid; + Tv12: TcxGridDBTableView; + vJCKMXColumn1: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + v12Column1: TcxGridDBColumn; + v12Column2: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxGrid6: TcxGrid; + Tv19: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + Tv19Column1: TcxGridDBColumn; + Tv19Column2: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column4: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v12Column3: TcxGridDBColumn; + cxGrid3: TcxGrid; + Tv11: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + v11Column1: TcxGridDBColumn; + v11Column2: TcxGridDBColumn; + v11Column3: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + CDS_Print: TClientDataSet; + RM1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + RMDB19: TRMDBDataSet; + RMDB12: TRMDBDataSet; + v11Column4: TcxGridDBColumn; + v11Column5: TcxGridDBColumn; + v11Column6: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton3Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure Tv11FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure BCOrderNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitGrid(); + procedure InitGridMD(); + public + { Public declarations } + end; + +var + frmBGCWEndManage: TfrmBGCWEndManage; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, + U_BGZLInput,U_BGJCKMXInput,U_BGJCKMXGYSInput; + +{$R *.dfm} + +procedure TfrmBGCWEndManage.FormDestroy(Sender: TObject); +begin + frmBGCWEndManage:=nil; +end; + +procedure TfrmBGCWEndManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGCWEndManage.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڱϸ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBGCWEndManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1s',Tv11,'ع'); + WriteCxGrid('Tv2s',Tv12,'ع'); + WriteCxGrid('Tv19s',Tv19,'ع'); + WriteCxGrid('Tv111s',Tv1,'ع'); + Close; +end; + +procedure TfrmBGCWEndManage.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.DateTime-30; + InitGrid(); + ReadCxGrid('Tv1s',Tv11,'ع'); + ReadCxGrid('Tv2s',Tv12,'ع'); + ReadCxGrid('Tv19s',Tv19,'ع'); + ReadCxGrid('Tv111s',Tv1,'ع'); + +end; + +procedure TfrmBGCWEndManage.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,OrderNo=A.BCOrderNo, '); + sql.Add(' LDFiller=(select Top 1 Filler from JYOrder_BG BG where BG.BGID=A.BGID),'); + sql.Add(' LDFillTime=(select Top 1 FillTime from JYOrder_BG BG where BG.BGID=A.BGID),'); + sql.Add(' HaiYunFee=(select Top 1 HaiYunFee from JYOrder_BG BG where BG.BGID=A.BGID),'); + sql.Add(' BaoFee=(select Top 1 BaoFee from JYOrder_BG BG where BG.BGID=A.BGID),'); + sql.Add(' ChengJiaoType=(select Top 1 ChengJiaoType from JYOrder_BG BG where BG.BGID=A.BGID),'); + sql.Add(' FValid=(select Top 1 Valid from JYOrder_BG BG where BG.BGID=A.BGID)'); + sql.Add(' from JYOrder_BG_CK A where 1=1 ');// where Valid=''Y'' + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + sql.Add(' and OKFlag=0'); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + sql.Add(' and OKFlag=1'); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet11); + SInitCDSData20(ADOQueryMain,ClientDataSet11); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBGCWEndManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWEndManage.TBEditClick(Sender: TObject); +begin + if cxTabControl1.TabIndex=2 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + sql.Add(' and OKFlag=1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ȷϲٴˣ','ʾ',0); + Exit; + end; + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString); + FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString); + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; +end; + +procedure TfrmBGCWEndManage.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWEndManage.InitGridMD(); +var + fsj:string; +begin + +end; +procedure TfrmBGCWEndManage.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmBGCWEndManage.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWEndManage.Tv11FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + //if ClientDataSet11.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryCmd,ClientDataSet12); + SInitCDSData20(ADOQueryCmd,ClientDataSet12); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryCmd,ClientDataSet19); + SInitCDSData20(ADOQueryCmd,ClientDataSet19); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where BGID='''+Trim(ClientDataSet11.fieldbyname('BGID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryCmd,ClientDataSet1); + SInitCDSData20(ADOQueryCmd,ClientDataSet1); +end; + +procedure TfrmBGCWEndManage.BCOrderNoChange(Sender: TObject); +begin + + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet11); + SInitCDSData20(ADOQueryMain,ClientDataSet11); +end; + +procedure TfrmBGCWEndManage.ToolButton1Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if ClientDataSet11.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + sql.Add(' and OKFlag=1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ȷϲܳˣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set ChkStatus='''',ChkTime=Null,Chker=Null '); + sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + ClientDataSet11.Delete; +end; + +procedure TfrmBGCWEndManage.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + FMoney,FMQty,FKgQty,FBCID,FPrice,FMPrice,FKgPrice,FHZPrice:String; +begin + FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString); + FMoney:=Tv12.DataController.Summary.FooterSummaryTexts[0]; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + if StrToFloat(FMQty)>0 then + begin + FMPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty)))+'/M'; + end; + if StrToFloat(FKgQty)>0 then + begin + FKgPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty)))+'/Kg'; + end; + if Trim(FMPrice)='' then + begin + FHZPrice:=FKgPrice; + end else + begin + FHZPrice:=FMPrice; + if Trim(FKgPrice)<>'' then + begin + FHZPrice:=FHZPrice+#13+FKgPrice; + end; + end; + if Trim(ClientDataSet12.fieldbyname('BFUnit').AsString)='M' then + begin + if Trim(FMQty)<>'' then + begin + if StrToFloat(FMQty)>0 then + begin + FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty))); + end; + end; + end else + begin + if Trim(FKgQty)<>'' then + begin + if StrToFloat(FKgQty)>0 then + begin + FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty))); + end; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ڱϸ.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['BCOrderNo']:=ClientDataSet11.fieldbyname('BCOrderNo').Value; + RMVariables['BGDate']:=ClientDataSet11.fieldbyname('BGDate').Value; + RMVariables['CBMoney']:=Tv12.DataController.Summary.FooterSummaryValues[0]; + RMVariables['FMQty']:=FMQty; + RMVariables['FKgQty']:=FKgQty; + RMVariables['FPrice']:=FPrice; + RMVariables['FMPrice']:=FMPrice; + RMVariables['FKgPrice']:=FKgPrice; + RMVariables['FHZPrice']:=FHZPrice; + RMVariables['HaiYunFee']:=ClientDataSet1.fieldbyname('HaiYunFee').Value; + RMVariables['ComTaiTou']:=ClientDataSet1.fieldbyname('ComTaiTou').Value; + RMVariables['BaoFee']:=ClientDataSet1.fieldbyname('BaoFee').Value; + RMVariables['YunDiG']:=ClientDataSet1.fieldbyname('YunDiG').Value; + RMVariables['ChuKouKA']:=ClientDataSet1.fieldbyname('ChuKouKA').Value; + RMVariables['HuoYuanPlace']:=ClientDataSet1.fieldbyname('HuoYuanPlace').Value; + RMVariables['ChengJiaoType']:=ClientDataSet1.fieldbyname('ChengJiaoType').Value; + RMVariables['LDY']:=ClientDataSet1.fieldbyname('Filler').Value; + + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ڱϸ.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.dfm new file mode 100644 index 0000000..f396fb6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.dfm @@ -0,0 +1,1240 @@ +object frmBGCWManage: TfrmBGCWManage + Left = 62 + Top = 26 + Width = 1180 + Height = 675 + Caption = #25253#20851#31649#29702'('#36130#21153')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1164 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBView: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton2Click + end + object TBPrint: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1164 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 262 + Top = 11 + Width = 65 + Height = 12 + Caption = #35746#21333#35782#21035#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 164 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object BCOrderNo: TEdit + Tag = 2 + Left = 328 + Top = 7 + Width = 126 + Height = 20 + TabOrder = 2 + OnChange = BCOrderNoChange + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 67 + Width = 1164 + Height = 569 + ActivePage = cxTabSheet2 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 9 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 569 + ClientRectRight = 1164 + ClientRectTop = 19 + object cxTabSheet1: TcxTabSheet + Caption = #24453#30331#35760 + ImageIndex = 0 + object Panel2: TPanel + Left = 626 + Top = 0 + Width = 538 + Height = 550 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxGrid2: TcxGrid + Left = 2 + Top = 126 + Width = 534 + Height = 258 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 176 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid5: TcxGrid + Left = 2 + Top = 2 + Width = 534 + Height = 124 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object TVBGName: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSBGName + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 178 + end + object v1Column1: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TVBGName + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 384 + Width = 534 + Height = 164 + Align = alBottom + TabOrder = 2 + object TvFee: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_Fee + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn15 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn13: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'MHdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 81 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 54 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 59 + end + object TvFeeColumn2: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'QTChker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object TvFeeColumn1: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'QTChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TvFeeColumn3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'QTChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 111 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TvFee + end + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 626 + Height = 550 + Align = alLeft + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 624 + Height = 548 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column11 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 98 + end + object v1Column2: TcxGridDBColumn + Caption = #27425#25968 + DataBinding.FieldName = 'EditCount' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #25253#20851#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLenStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column10: TcxGridDBColumn + Caption = #28023#36816#36153'$' + DataBinding.FieldName = 'HaiYunFee' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column11: TcxGridDBColumn + Caption = #20445#36153'$' + DataBinding.FieldName = 'BaoFee' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #25104#20132#26041#24335 + DataBinding.FieldName = 'ChengJiaoType' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column9: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn44: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn45: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24050#30331#35760 + ImageIndex = 1 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 1164 + Height = 550 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 1160 + Height = 266 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxTabControl1: TcxTabControl + Left = 2 + Top = 2 + Width = 1156 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 0 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1156 + ClientRectTop = 23 + end + object cxGrid3: TcxGrid + Left = 2 + Top = 23 + Width = 1156 + Height = 241 + Align = alClient + TabOrder = 1 + object Tv11: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv11FocusedRecordChanged + DataController.DataSource = DataSource11 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 117 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v11Column1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v11Column2: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v11Column3: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 71 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv11 + end + end + end + object Panel6: TPanel + Left = 2 + Top = 268 + Width = 1160 + Height = 280 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid12: TcxGrid + Left = 2 + Top = 2 + Width = 688 + Height = 276 + Align = alLeft + TabOrder = 0 + object Tv12: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource12 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object vJCKMXColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v12Column1: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v12Column2: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 53 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 105 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv12 + end + end + object cxGrid19: TcxGrid + Left = 690 + Top = 2 + Width = 468 + Height = 276 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv19: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource19 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn43: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 204 + end + object Tv19Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object Tv19Column2: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQKgQty' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 55 + end + end + object cxGridLevel10: TcxGridLevel + GridView = Tv19 + end + end + end + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 739 + Top = 331 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 710 + Top = 331 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 678 + Top = 334 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 791 + Top = 4 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 820 + Top = 7 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 984 + Top = 2 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 65535 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1165 + Top = 522 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 1195 + Top = 518 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1224 + Top = 519 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 707 + Top = 524 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 678 + Top = 525 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 649 + Top = 529 + end + object CDS_BGName: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 193 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 1031 + Top = 166 + end + object DSBGName: TDataSource + DataSet = CDS_BGName + Left = 812 + Top = 226 + end + object DataSource11: TDataSource + DataSet = ClientDataSet11 + Left = 562 + Top = 38 + end + object ClientDataSet11: TClientDataSet + Aggregates = <> + Params = <> + Left = 593 + Top = 37 + end + object DataSource12: TDataSource + DataSet = ClientDataSet12 + Left = 628 + Top = 39 + end + object ClientDataSet12: TClientDataSet + Aggregates = <> + Params = <> + Left = 661 + Top = 37 + end + object DataSource15: TDataSource + DataSet = ClientDataSet15 + Left = 697 + Top = 38 + end + object ClientDataSet15: TClientDataSet + Aggregates = <> + Params = <> + Left = 730 + Top = 40 + end + object DataSource16: TDataSource + DataSet = ClientDataSet16 + Left = 765 + Top = 39 + end + object ClientDataSet16: TClientDataSet + Aggregates = <> + Params = <> + Left = 796 + Top = 40 + end + object DataSource17: TDataSource + DataSet = ClientDataSet17 + Left = 833 + Top = 38 + end + object ClientDataSet17: TClientDataSet + Aggregates = <> + Params = <> + Left = 867 + Top = 38 + end + object DataSource18: TDataSource + DataSet = ClientDataSet18 + Left = 904 + Top = 39 + end + object ClientDataSet18: TClientDataSet + Aggregates = <> + Params = <> + Left = 939 + Top = 38 + end + object cxGridPopupMenu11: TcxGridPopupMenu + PopupMenus = <> + Left = 970 + Top = 36 + end + object cxGridPopupMenu12: TcxGridPopupMenu + PopupMenus = <> + Left = 1001 + Top = 38 + end + object cxGridPopupMenu15: TcxGridPopupMenu + PopupMenus = <> + Left = 1032 + Top = 36 + end + object cxGridPopupMenu16: TcxGridPopupMenu + PopupMenus = <> + Left = 1062 + Top = 37 + end + object cxGridPopupMenu17: TcxGridPopupMenu + PopupMenus = <> + Left = 1097 + Top = 36 + end + object cxGridPopupMenu18: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + Top = 36 + end + object DataSource19: TDataSource + DataSet = ClientDataSet19 + Left = 1160 + Top = 35 + end + object ClientDataSet19: TClientDataSet + Aggregates = <> + Params = <> + Left = 1195 + Top = 34 + end + object cxGridPopupMenu19: TcxGridPopupMenu + Grid = cxGrid19 + PopupMenus = <> + Left = 1226 + Top = 32 + end + object DS_Fee: TDataSource + DataSet = CDS_Fee + Left = 769 + Top = 529 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 800 + Top = 529 + end + object CDS_Fee: TClientDataSet + Aggregates = <> + Params = <> + Left = 831 + Top = 531 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB19 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 424 + Top = 200 + ReportData = {} + end + object RMDB12: TRMDBDataSet + Visible = True + DataSet = ClientDataSet12 + Left = 446 + Top = 249 + end + object RMDB19: TRMDBDataSet + Visible = True + DataSet = ClientDataSet19 + Left = 493 + Top = 249 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 472 + Top = 212 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.pas b/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.pas new file mode 100644 index 0000000..f14b7da --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGCWManage.pas @@ -0,0 +1,703 @@ +unit U_BGCWManage; //22 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC, + BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxButtonEdit, + cxDropDownEdit, cxCheckBox, cxSplitter, cxTextEdit, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport; + +type + TfrmBGCWManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBView: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + BCOrderNo: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + Order_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryPrint: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + Panel2: TPanel; + Panel7: TPanel; + Panel3: TPanel; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Panel4: TPanel; + CDS_BGName: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + DSBGName: TDataSource; + DataSource11: TDataSource; + ClientDataSet11: TClientDataSet; + DataSource12: TDataSource; + ClientDataSet12: TClientDataSet; + DataSource15: TDataSource; + ClientDataSet15: TClientDataSet; + DataSource16: TDataSource; + ClientDataSet16: TClientDataSet; + DataSource17: TDataSource; + ClientDataSet17: TClientDataSet; + DataSource18: TDataSource; + ClientDataSet18: TClientDataSet; + cxGridPopupMenu11: TcxGridPopupMenu; + cxGridPopupMenu12: TcxGridPopupMenu; + cxGridPopupMenu15: TcxGridPopupMenu; + cxGridPopupMenu16: TcxGridPopupMenu; + cxGridPopupMenu17: TcxGridPopupMenu; + cxGridPopupMenu18: TcxGridPopupMenu; + Panel6: TPanel; + cxGrid12: TcxGrid; + Tv12: TcxGridDBTableView; + vJCKMXColumn1: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxGrid19: TcxGrid; + Tv19: TcxGridDBTableView; + cxGridDBColumn43: TcxGridDBColumn; + Tv19Column1: TcxGridDBColumn; + Tv19Column2: TcxGridDBColumn; + cxGridLevel10: TcxGridLevel; + DataSource19: TDataSource; + ClientDataSet19: TClientDataSet; + cxGridPopupMenu19: TcxGridPopupMenu; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridDBColumn44: TcxGridDBColumn; + cxGridDBColumn45: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid5: TcxGrid; + TVBGName: TcxGridDBTableView; + cxGridDBColumn17: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxTabControl1: TcxTabControl; + cxGrid3: TcxGrid; + Tv11: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v11Column1: TcxGridDBColumn; + v11Column2: TcxGridDBColumn; + v11Column3: TcxGridDBColumn; + cxGrid4: TcxGrid; + TvFee: TcxGridDBTableView; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + TvFeeColumn2: TcxGridDBColumn; + TvFeeColumn1: TcxGridDBColumn; + TvFeeColumn3: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + DS_Fee: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + CDS_Fee: TClientDataSet; + v12Column1: TcxGridDBColumn; + v12Column2: TcxGridDBColumn; + RM1: TRMGridReport; + RMDB12: TRMDBDataSet; + RMDB19: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton3Click(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxPageControl2Change(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TV16CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure BCOrderNoChange(Sender: TObject); + procedure Tv11FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure TBPrintClick(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitGrid(); + procedure InitGridMD(); + public + { Public declarations } + end; + +var + frmBGCWManage: TfrmBGCWManage; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, + U_BGZLInput,U_BGJCKMXInput,U_BGJCKMXGYSInput; + +{$R *.dfm} + +procedure TfrmBGCWManage.FormDestroy(Sender: TObject); +begin + frmBGCWManage:=nil; +end; + +procedure TfrmBGCWManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGCWManage.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڱϸ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBGCWManage.TBAddClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + if Order_Main.IsEmpty then Exit; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + if ClientDataSet11.IsEmpty then Exit; + end; + try + frmBGJCKMXGYSInput:=TfrmBGJCKMXGYSInput.Create(Application); + with frmBGJCKMXGYSInput do + begin + if Self.cxPageControl1.ActivePageIndex=0 then + begin + FBGID:=Trim(Order_Main.fieldbyname('BGID').AsString); + FBCID:=''; + end else + if Self.cxPageControl1.ActivePageIndex=1 then + begin + FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString); + FBCID:=''; + end; + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXGYSInput.Free; + end; +end; + +procedure TfrmBGCWManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ع'); + WriteCxGrid('Tv2',Tv2,'ع'); + + Close; +end; + +procedure TfrmBGCWManage.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.DateTime-30; + cxPageControl1.ActivePageIndex:=0; + InitGrid(); + ReadCxGrid('Tv1',Tv1,'ع'); + ReadCxGrid('Tv2',Tv2,'ع'); + +end; + +procedure TfrmBGCWManage.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + if cxPageControl1.ActivePageIndex=0 then + begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG A'); + sql.Add(' where isnull(ChkStatus,'''')=''ͨ'' '); + sql.Add(' and isnull(Valid,'''')=''Y'' '); + // ShowMessage(sql.Text); + sql.Add(' and not exists(select * from JYOrder_BG_KPFee B where B.BGID=A.BGID )'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + end else + begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,OrderNo=A.BCOrderNo from JYOrder_BG_CK A where 1=1'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet11); + SInitCDSData20(ADOQueryMain,ClientDataSet11); + end; + + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBGCWManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWManage.TBEditClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if ClientDataSet11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(DName)<>Trim(ClientDataSet11.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + try + frmBGJCKMXGYSInput:=TfrmBGJCKMXGYSInput.Create(Application); + with frmBGJCKMXGYSInput do + begin + FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString); + FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString); + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXGYSInput.Free; + end; +end; + +procedure TfrmBGCWManage.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + FMainId:String; +begin + + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGCWManage.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWManage.InitGridMD(); +var + fsj:string; +begin + +end; +procedure TfrmBGCWManage.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set ChkStatus='''',SSTime=getdate() '); + sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + ClientDataSet11.Delete; +end; + +procedure TfrmBGCWManage.TBDelClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + + if ClientDataSet11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_CK where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + sql.Add('delete JYOrder_BG_KPFee where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + sql.Add('delete JYOrder_BG_CKName_Qty where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + ClientDataSet11.Delete; +end; + +procedure TfrmBGCWManage.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK '); + sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set ChkStatus='''',SSTime=Null '); + sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + ClientDataSet11.Delete; +end; + +procedure TfrmBGCWManage.TBViewClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if ClientDataSet11.IsEmpty then Exit; + + try + frmBGJCKMXGYSInput:=TfrmBGJCKMXGYSInput.Create(Application); + with frmBGJCKMXGYSInput do + begin + FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString); + FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString); + FOrderNo:=''; + TBSave.Visible:=False; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXGYSInput.Free; + end; +end; + +procedure TfrmBGCWManage.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmBGCWManage.cxPageControl2Change(Sender: TObject); +begin + InitGridMD(); +end; + +procedure TfrmBGCWManage.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGCWManage.TV16CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + InitGridMD(); +end; + +procedure TfrmBGCWManage.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FMainId:String; +begin + if cxPageControl1.ActivePageIndex<>0 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_BGName); + SInitCDSData20(ADOQueryTemp,CDS_BGName); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Fee); + SInitCDSData20(ADOQueryTemp,CDS_Fee); + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(FMainId); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGCWManage.BCOrderNoChange(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet11); + SInitCDSData20(ADOQueryMain,ClientDataSet11); +end; + +procedure TfrmBGCWManage.Tv11FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + //if ClientDataSet11.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryCmd,ClientDataSet12); + SInitCDSData20(ADOQueryCmd,ClientDataSet12); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryCmd,ClientDataSet19); + SInitCDSData20(ADOQueryCmd,ClientDataSet19); +end; + +procedure TfrmBGCWManage.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + FMoney,FMQty,FKgQty,FBCID,FPrice:String; +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if ClientDataSet11.IsEmpty then Exit; + FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString); + FMoney:=Tv12.DataController.Summary.FooterSummaryTexts[0]; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + if Trim(ClientDataSet12.fieldbyname('BFUnit').AsString)='M' then + begin + if Trim(FMQty)<>'' then + begin + if StrToFloat(FMQty)>0 then + begin + FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty))); + end; + end; + end else + begin + if Trim(FKgQty)<>'' then + begin + if StrToFloat(FKgQty)>0 then + begin + FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty))); + end; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(ClientDataSet11.fieldbyname('BGID').AsString)+''''); + Open; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ڱϸFee.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['BCOrderNo']:=ClientDataSet11.fieldbyname('BCOrderNo').Value; + RMVariables['BGDate']:=ClientDataSet11.fieldbyname('BGDate').Value; + RMVariables['CBMoney']:=Tv12.DataController.Summary.FooterSummaryValues[0]; + RMVariables['FMQty']:=FMQty; + RMVariables['FKgQty']:=FKgQty; + RMVariables['FPrice']:=FPrice; + RMVariables['ComTaiTou']:=ADOQueryTemp.fieldbyname('ComTaiTou').Value; + {RMVariables['HaiYunFee']:=ADOQueryTemp.fieldbyname('HaiYunFee').Value; + RMVariables['BaoFee']:=ADOQueryTemp.fieldbyname('BaoFee').Value; + RMVariables['YunDiG']:=ADOQueryTemp.fieldbyname('YunDiG').Value; + RMVariables['ChuKouKA']:=ADOQueryTemp.fieldbyname('ChuKouKA').Value; + RMVariables['HuoYuanPlace']:=ADOQueryTemp.fieldbyname('HuoYuanPlace').Value; + RMVariables['ChengJiaoType']:=ADOQueryTemp.fieldbyname('ChengJiaoType').Value; } + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ڱϸ.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.dfm new file mode 100644 index 0000000..f718a3e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.dfm @@ -0,0 +1,1060 @@ +object frmBGFeeChkList: TfrmBGFeeChkList + Left = 61 + Top = 128 + Width = 1259 + Height = 600 + Caption = #25253#20851#35013#31665#20449#24687#26356#26032 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1243 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBEdit: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20184#27454#26356#26032 + ImageIndex = 37 + OnClick = TBEditClick + end + object Panel3: TPanel + Left = 213 + Top = 0 + Width = 164 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object SFKDate: TDateTimePicker + Left = 4 + Top = 5 + Width = 100 + Height = 20 + Date = 41883.464530335640000000 + Time = 41883.464530335640000000 + TabOrder = 0 + end + object Button1: TButton + Left = 105 + Top = 4 + Width = 57 + Height = 21 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button1Click + end + end + object ToolButton2: TToolButton + Left = 377 + Top = 0 + Caption = #36864#21333'('#26680')'#26085#26399 + ImageIndex = 22 + OnClick = ToolButton2Click + end + object Panel4: TPanel + Left = 484 + Top = 0 + Width = 165 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object TuiDanChkDate: TDateTimePicker + Left = 4 + Top = 5 + Width = 98 + Height = 20 + Date = 41883.464530335640000000 + Time = 41883.464530335640000000 + TabOrder = 0 + end + object Button2: TButton + Left = 105 + Top = 4 + Width = 57 + Height = 21 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button2Click + end + end + object ToolButton1: TToolButton + Left = 649 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 712 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 775 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 838 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 120 + Width = 1243 + Height = 219 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_CYZZ.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column17: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 52 + end + object v1ConNo: TcxGridDBColumn + Caption = #25552#21333#36816#21495 + DataBinding.FieldName = 'BMNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 86 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNoHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 134 + end + object V1SFKDate: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'SFKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 97 + end + object V1TuiDanChkDate: TcxGridDBColumn + Caption = #36864#21333'('#26680')'#26085#26399 + DataBinding.FieldName = 'TuiDanChkDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 96 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #20986#21475#21475#23736 + DataBinding.FieldName = 'FromPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #30446#30340#28207 + DataBinding.FieldName = 'ToPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column11: TcxGridDBColumn + Caption = #31665#22411 + DataBinding.FieldName = 'XiangType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column5: TcxGridDBColumn + Caption = #35013#31665#26085#26399 + DataBinding.FieldName = 'ZhuangXiangDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #33337#26399 + DataBinding.FieldName = 'ChuanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #33337#21517#33322#27425 + DataBinding.FieldName = 'ChuanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column8: TcxGridDBColumn + Caption = #33337#20844#21496 + DataBinding.FieldName = 'ChuanGS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39044#24405#21333#26085#26399 + DataBinding.FieldName = 'YuLuDanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column7: TcxGridDBColumn + Caption = #25552#21333#21495 + DataBinding.FieldName = 'TiDanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'HDName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 65 + end + object v1Column15: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 58 + end + object v1Column16: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 67 + end + object v1Column12: TcxGridDBColumn + Caption = #25552#21333#31867#22411 + DataBinding.FieldName = 'TiDanType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #25552#21333#26085#26399 + DataBinding.FieldName = 'TiDanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #39044#36864#21333#26085#26399 + DataBinding.FieldName = 'YuTuiDanDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #20132#36864#21333#26680#26085#26399 + DataBinding.FieldName = 'JiaoTuiDanDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 79 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1243 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label4: TLabel + Left = 405 + Top = 13 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 226 + Top = 13 + Width = 52 + Height = 12 + Caption = #25552#21333#36816#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 406 + Top = 41 + Width = 39 + Height = 12 + Caption = #33337#20844#21496 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 226 + Top = 41 + Width = 52 + Height = 12 + Caption = #33337#21517#33322#27425 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 576 + Top = 13 + Width = 54 + Height = 12 + Caption = #36135' '#20195 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 577 + Top = 41 + Width = 52 + Height = 12 + Caption = #36153#29992#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 125 + Top = 9 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 125 + Top = 37 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoHZ: TEdit + Tag = 2 + Left = 447 + Top = 9 + Width = 104 + Height = 20 + TabOrder = 2 + OnChange = OrderNoHZChange + OnKeyPress = OrderNoHZKeyPress + end + object BMNo: TEdit + Tag = 2 + Left = 279 + Top = 9 + Width = 107 + Height = 20 + TabOrder = 3 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object ChuanGS: TEdit + Tag = 2 + Left = 447 + Top = 37 + Width = 103 + Height = 20 + TabOrder = 4 + OnChange = OrderNoHZChange + end + object ChuanNo: TEdit + Tag = 2 + Left = 280 + Top = 37 + Width = 107 + Height = 20 + TabOrder = 5 + OnChange = OrderNoHZChange + end + object HDName: TEdit + Tag = 2 + Left = 629 + Top = 9 + Width = 107 + Height = 20 + TabOrder = 6 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object FeeName: TEdit + Tag = 2 + Left = 630 + Top = 37 + Width = 107 + Height = 20 + TabOrder = 7 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object ComboBox1: TComboBox + Left = 12 + Top = 9 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 8 + Text = #25353#30331#35760#26085#26399 + Items.Strings = ( + #25353#30331#35760#26085#26399 + #25353#35013#31665#26085#26399 + #25353#33337#26399 + #25353#39044#24405#21333#26085#26399 + #25353#25552#21333#26085#26399 + #25353#39044#36864#21333#26085#26399 + #25353#20132#36864#21333#26680#26085#26399 + #25353#36864#21333'('#26680')'#26085#26399 + #25353#20184#27454#26085#26399) + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1243 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#20184#27454 + #24050#20184#27454 + #24453#36864#21333#26680#26597 + #24050#36864#21333#26680#26597 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1243 + ClientRectTop = 23 + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 339 + Width = 1243 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object Panel2: TPanel + Left = 0 + Top = 347 + Width = 1243 + Height = 214 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 743 + Height = 210 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn6 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn5 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 95 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'BGCF' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 45 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #35013#31665#27611#37325 + DataBinding.FieldName = 'MZQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25253#20851#37329#39069 + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #31665#21495 + DataBinding.FieldName = 'XiangNo' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #23553#21495 + DataBinding.FieldName = 'FengNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #35013#31665#31859#25968 + DataBinding.FieldName = 'MiQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #35013#31665#30721#25968 + DataBinding.FieldName = 'MaQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + Width = 54 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter2: TcxSplitter + Left = 745 + Top = 2 + Width = 8 + Height = 210 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxGrid2 + end + object cxGrid3: TcxGrid + Left = 753 + Top = 2 + Width = 488 + Height = 210 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn19 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn17 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn15 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BHDate' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'HDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 114 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'HDLXPerson' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'HDLXFS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 60 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25910#27454#38134#34892 + DataBinding.FieldName = 'HDBankName' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #25910#27454#36134#21495 + DataBinding.FieldName = 'HDBankNo' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'HDNote' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 248 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 416 + Top = 271 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 449 + Top = 273 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 392 + Top = 200 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 239 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 484 + Top = 437 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 517 + Top = 439 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 774 + Top = 438 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 807 + Top = 440 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 582 + Top = 450 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 880 + Top = 441 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.pas new file mode 100644 index 0000000..855dbdf --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.pas @@ -0,0 +1,819 @@ +unit U_BGFeeChkList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxPC, cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmBGFeeChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBEdit: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + V1SFKDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label4: TLabel; + Label9: TLabel; + Label10: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoHZ: TEdit; + BMNo: TEdit; + ChuanGS: TEdit; + V1TuiDanChkDate: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + Label2: TLabel; + ChuanNo: TEdit; + Label3: TLabel; + HDName: TEdit; + Label5: TLabel; + FeeName: TEdit; + ComboBox1: TComboBox; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter2: TcxSplitter; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton2: TToolButton; + Panel3: TPanel; + Panel4: TPanel; + SFKDate: TDateTimePicker; + TuiDanChkDate: TDateTimePicker; + Button1: TButton; + Button2: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure OrderNoHZChange(Sender: TObject); + procedure BMNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure OrderNoHZKeyPress(Sender: TObject; var Key: Char); + procedure TBEditClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmBGFeeChkList: TfrmBGFeeChkList; + +implementation +uses + U_DataLink,U_BGFeeInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmBGFeeChkList.FormDestroy(Sender: TObject); +begin + frmBGFeeChkList:=nil; +end; + +procedure TfrmBGFeeChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGFeeChkList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmBGFeeChkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('طб1',Tv1,'ط'); + WriteCxGrid('طб2',Tv2,'ط'); + WriteCxGrid('طб3',Tv3,'ط'); +end; + +procedure TfrmBGFeeChkList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + if cxTabControl1.TabIndex=0 then + begin + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' inner join BGFee_HuoDai B on A.BMID=B.BMID'); + sql.Add(' where 1=1'); + sql.Add(' and isnull(B.SFKDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' inner join BGFee_HuoDai B on A.BMID=B.BMID'); + sql.Add(' where 1=1'); + sql.Add(' and isnull(B.SFKDate,'''')<>'''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + sql.Add(' where 1=1'); + sql.Add(' and isnull(TuiDanChkDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + sql.Add(' where 1=1'); + sql.Add(' and isnull(TuiDanChkDate,'''')<>'''''); + end else + begin + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + sql.Add(' where 1=1'); + end; + + if (cxTabControl1.TabIndex=1) or (cxTabControl1.TabIndex=3) or (cxTabControl1.TabIndex=4) then + begin + if Trim(ComboBox1.Text)='Ǽ' then + begin + SQL.Add('and A.FillTIme>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.FillTIme<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='װ' then + begin + SQL.Add('and A.ZhuangXiangDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.ZhuangXiangDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='' then + begin + SQL.Add('and A.ChuanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.ChuanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='Ԥ¼' then + begin + SQL.Add('and A.YuLuDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.YuLuDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='ᵥ' then + begin + SQL.Add('and A.TiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.TiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='Ԥ˵' then + begin + SQL.Add('and A.YuTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.YuTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='˵' then + begin + SQL.Add('and A.JiaoTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.JiaoTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='˵()' then + begin + SQL.Add('and A.TuiDanChkDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.TuiDanChkDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='' then + begin + SQL.Add('and B.SFKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and B.SFKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end; + end; + SQL.Add(' and isnull(A.SChkTime,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmBGFeeChkList.InitForm(); +begin + ReadCxGrid('طб1',Tv1,'ط'); + ReadCxGrid('طб2',Tv2,'ط'); + ReadCxGrid('طб3',Tv3,'ط'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + SFKDate.DateTime:=EndDate.DateTime; + TuiDanChkDate.DateTime:=EndDate.DateTime; + InitGrid(); +end; + +procedure TfrmBGFeeChkList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmBGFeeChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BGFee_Main where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BGFee_Sub where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmBGFeeChkList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmBGFeeChkList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice,COL=''COL:'' '); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + // + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select TolConMoney=Sum(PRTOrderQty*PRTPrice)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + EngMoney:=num2cengnum(ADOQueryTemp.fieldbyname('TolConMoney').AsString); + EngMoney:=UpperCase(EngMoney); + if FileExists(fPrintFile) then + begin + RMVariables['EngMoney']:=EngMoney; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmBGFeeChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGFeeChkList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmBGFeeChkList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmBGFeeChkList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmBGFeeChkList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application); + with frmBGFeeInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('BMId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGFeeInPut.Free; + end; +end; + +procedure TfrmBGFeeChkList.OrderNoHZChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmBGFeeChkList.BMNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(BMNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + SQL.Add('where 1=1'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; } + sql.Add(' and BMNO like '''+'%'+Trim(BMNO.Text)+'%'+''''); + SQL.Add(' and isnull(A.SChkTime,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(B.SFKDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(B.SFKDate,'''')<>'''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(TuiDanChkDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(TuiDanChkDate,'''')<>'''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmBGFeeChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGFeeChkList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Sub where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_HuoDai where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmBGFeeChkList.OrderNoHZKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNoHZ.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + SQL.Add('where 1=1'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; } + sql.Add(' and dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'') like '''+'%'+Trim(OrderNoHZ.Text)+'%'+''''); + SQL.Add(' and isnull(A.SChkTime,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(B.SFKDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(B.SFKDate,'''')<>'''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(TuiDanChkDate,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(TuiDanChkDate,'''')<>'''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmBGFeeChkList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_HuoDai where BHID='''+Trim(Order_Main.fieldbyname('BHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('SFKDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SFKDate.Date)); + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('¸쳣!','ʾ',0); + end; +end; + +procedure TfrmBGFeeChkList.Button1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_HuoDai where BHID='''+Trim(Order_Main.fieldbyname('BHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('SFKDate').Value:=NUll; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmBGFeeChkList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Main where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('TuiDanChkDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',TuiDanChkDate.Date)); + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('¸쳣!','ʾ',0); + end; +end; + +procedure TfrmBGFeeChkList.Button2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>3 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Main where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('TuiDanChkDate').Value:=NUll; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('¸쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.dfm new file mode 100644 index 0000000..42a3776 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.dfm @@ -0,0 +1,900 @@ +object frmBGFeeInPut: TfrmBGFeeInPut + Left = 138 + Top = 45 + Width = 1222 + Height = 656 + Align = alClient + Caption = #25253#20851#35013#31665#20449#24687#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1214 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox11: TScrollBox + Left = 0 + Top = 29 + Width = 1214 + Height = 268 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object ScrollBox1: TScrollBox + Left = 0 + Top = 0 + Width = 537 + Height = 266 + Align = alLeft + TabOrder = 0 + object Label7: TLabel + Left = 17 + Top = 240 + Width = 66 + Height = 12 + Caption = #25552' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 288 + Top = 98 + Width = 67 + Height = 12 + Caption = #25552' '#21333#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 17 + Top = 212 + Width = 65 + Height = 12 + Caption = #25552#21333#36816#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 288 + Top = 70 + Width = 66 + Height = 12 + Caption = #39044' '#24405' '#21333#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 17 + Top = 13 + Width = 65 + Height = 12 + Caption = #20986#21475#21475#23736#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 17 + Top = 70 + Width = 66 + Height = 12 + Caption = #30446' '#30340' '#28207#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 288 + Top = 13 + Width = 65 + Height = 12 + Caption = #35013#31665#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 288 + Top = 41 + Width = 67 + Height = 12 + Caption = #33337' '#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 17 + Top = 183 + Width = 66 + Height = 12 + Caption = #33337' '#20844' '#21496#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 17 + Top = 155 + Width = 65 + Height = 12 + Caption = #33337#21517#33322#27425#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 17 + Top = 98 + Width = 67 + Height = 12 + Caption = #31665' '#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 288 + Top = 180 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 17 + Top = 41 + Width = 66 + Height = 12 + Caption = #36816' '#25269' '#22269#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 17 + Top = 126 + Width = 65 + Height = 12 + Caption = #25104#20132#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 287 + Top = 126 + Width = 66 + Height = 12 + Caption = #39044' '#36864' '#21333#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 288 + Top = 155 + Width = 65 + Height = 12 + Caption = #20132#36864#21333#26680#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object TiDanDate: TDateTimePicker + Tag = 2 + Left = 425 + Top = 94 + Width = 99 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object TiDanNo: TEdit + Tag = 2 + Left = 78 + Top = 237 + Width = 180 + Height = 18 + CharCase = ecUpperCase + TabOrder = 1 + end + object BMNo: TEdit + Tag = 2 + Left = 78 + Top = 209 + Width = 180 + Height = 18 + CharCase = ecUpperCase + TabOrder = 2 + end + object YuLuDanDate: TDateTimePicker + Tag = 2 + Left = 348 + Top = 66 + Width = 176 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 3 + end + object FromPlace: TBtnEditC + Tag = 2 + Left = 78 + Top = 9 + Width = 180 + Height = 20 + Hint = 'FromPlace/'#20986#21475#21475#23736 + TabOrder = 4 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ToPlace: TBtnEditC + Tag = 2 + Left = 78 + Top = 66 + Width = 180 + Height = 20 + Hint = 'ToPlace/'#30446#30340#28207 + TabOrder = 5 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ZhuangXiangDate: TDateTimePicker + Tag = 2 + Left = 348 + Top = 9 + Width = 176 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 6 + end + object ChuanDate: TDateTimePicker + Tag = 2 + Left = 348 + Top = 37 + Width = 176 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 7 + end + object ChuanGS: TBtnEditC + Tag = 2 + Left = 78 + Top = 179 + Width = 180 + Height = 20 + Hint = 'ChuanGS/'#33337#20844#21496 + TabOrder = 8 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ChuanNo: TEdit + Tag = 2 + Left = 78 + Top = 152 + Width = 180 + Height = 18 + TabOrder = 9 + end + object XiangType: TBtnEditC + Tag = 2 + Left = 78 + Top = 94 + Width = 180 + Height = 20 + Hint = 'XiangType/'#31665#22411 + TabOrder = 10 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object YunDiG: TBtnEditC + Tag = 2 + Left = 78 + Top = 37 + Width = 180 + Height = 20 + Hint = 'YunDiG/'#36816#25269#22269 + TabOrder = 11 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ChengJiaoType: TBtnEditC + Tag = 2 + Left = 78 + Top = 122 + Width = 180 + Height = 20 + Hint = 'ChengJiaoType/'#25104#20132#26041#24335 + TabOrder = 12 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object YuTuiDanDate: TDateTimePicker + Tag = 2 + Left = 348 + Top = 122 + Width = 176 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 13 + end + object JiaoTuiDanDate: TDateTimePicker + Tag = 2 + Left = 348 + Top = 151 + Width = 176 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 14 + end + object TiDanType: TComboBox + Tag = 2 + Left = 348 + Top = 94 + Width = 77 + Height = 20 + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 15 + Text = #30005#25918 + Items.Strings = ( + #30005#25918 + #23492#27491#26412) + end + object Note: TRichEdit + Tag = 2 + Left = 287 + Top = 194 + Width = 240 + Height = 62 + ScrollBars = ssVertical + TabOrder = 16 + end + end + object Panel1: TPanel + Left = 537 + Top = 0 + Width = 675 + Height = 266 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object ToolBar3: TToolBar + Left = 2 + Top = 2 + Width = 671 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 33 + Width = 671 + Height = 231 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn5 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn3 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BHDate' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'HDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 114 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'HDLXPerson' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'HDLXFS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25910#27454#38134#34892 + DataBinding.FieldName = 'HDBankName' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25910#27454#36134#21495 + DataBinding.FieldName = 'HDBankNo' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'HDNote' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 297 + Width = 1214 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 326 + Width = 1214 + Height = 299 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column4: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 126 + end + object v1Column6: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 130 + end + object v1Column7: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'BGCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #35013#31665#20928#37325'Kg' + DataBinding.FieldName = 'JZQty' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #35013#31665#27611#37325'Kg' + DataBinding.FieldName = 'MZQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 89 + end + object v1Column2: TcxGridDBColumn + Caption = #25253#20851#37329#39069'$' + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #31665#21495 + DataBinding.FieldName = 'XiangNo' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column1: TcxGridDBColumn + Caption = #23553#21495 + DataBinding.FieldName = 'FengNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column9: TcxGridDBColumn + Caption = #35013#31665#31859#25968 + DataBinding.FieldName = 'MiQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column10: TcxGridDBColumn + Caption = #35013#31665#30721#25968 + DataBinding.FieldName = 'MaQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + Width = 78 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 342 + Top = 10 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 308 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 203 + Top = 355 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 174 + Top = 353 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 276 + Top = 6 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 868 + Top = 132 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 837 + Top = 130 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 806 + Top = 130 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 145 + Top = 355 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.pas new file mode 100644 index 0000000..f5a52a5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.pas @@ -0,0 +1,565 @@ +unit U_BGFeeInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmBGFeeInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox11: TScrollBox; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + v1PRTPrice: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + v1PRTOrderQty: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ScrollBox1: TScrollBox; + TiDanDate: TDateTimePicker; + Label7: TLabel; + TiDanNo: TEdit; + Label3: TLabel; + Label10: TLabel; + Label1: TLabel; + Label2: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label8: TLabel; + Label9: TLabel; + Label12: TLabel; + Label15: TLabel; + BMNo: TEdit; + YuLuDanDate: TDateTimePicker; + FromPlace: TBtnEditC; + ToPlace: TBtnEditC; + ZhuangXiangDate: TDateTimePicker; + ChuanDate: TDateTimePicker; + ChuanGS: TBtnEditC; + ChuanNo: TEdit; + XiangType: TBtnEditC; + Label16: TLabel; + YunDiG: TBtnEditC; + Label17: TLabel; + ChengJiaoType: TBtnEditC; + Label11: TLabel; + YuTuiDanDate: TDateTimePicker; + Label19: TLabel; + JiaoTuiDanDate: TDateTimePicker; + TiDanType: TComboBox; + Note: TRichEdit; + Panel1: TPanel; + ToolBar3: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column1: TcxGridDBColumn; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure FromPlaceBtnUpClick(Sender: TObject); + procedure v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetBtnCText(Sender: TObject); + { Private declarations } + public + PState,CopyInt:Integer; + FMainId,FFMainId:String; + FXS:Integer; + { Public declarations } + end; + +var + frmBGFeeInPut: TfrmBGFeeInPut; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_BGLDManage; + +{$R *.dfm} + +procedure TfrmBGFeeInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ط¼',Tv1,'ط'); +end; + +procedure TfrmBGFeeInPut.InitData(); +begin + ZhuangXiangDate.Date:=SGetServerDate(ADOTemp); + ChuanDate.Date:=ZhuangXiangDate.Date; + YuLuDanDate.Date:=ZhuangXiangDate.Date; + TiDanDate.Date:=ZhuangXiangDate.Date; + YuTuiDanDate.Date:=ZhuangXiangDate.Date; + JiaoTuiDanDate.Date:=ZhuangXiangDate.Date; + ZhuangXiangDate.Checked:=False; + ChuanDate.Checked:=False; + YuLuDanDate.Checked:=False; + TiDanDate.Checked:=False; + YuTuiDanDate.Checked:=False; + JiaoTuiDanDate.Checked:=False; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from BGFee_Sub '); + if PState=1 then + begin + sql.Add('where BMId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' where 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Main where BMId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_HuoDai where BMID='''+Trim(FMainId)+''''); + open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); +end; + +procedure TfrmBGFeeInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmBGFeeInPut.FormShow(Sender: TObject); +begin + readCxGrid('ط¼',Tv1,'ط'); + InitData(); +end; + +function TfrmBGFeeInPut.SaveData():Boolean; +var + maxno,maxsubno,maxsubnoBH:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'BM','BGFee_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from BGFee_Main where BMId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('BMId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'BGFee_Main',ScrollBox1,2); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + // FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Main where BMNo='''+Trim(BMNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ᵥ˺ظ!','ʾ',0); + Exit; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate BGFee_Main Set Filler='''+Trim(DName)+''''); + sql.Add(' where BMId='''+Trim(maxno)+''''); + ExecSQL; + end; + + ///ӱ + + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('BSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'BS','BGFee_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('BSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from BGFee_Sub where BMID='''+Trim(maxno)+''''); + sql.Add(' and BSId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('BSId').AsString)='' then + Append + else + Edit; + FieldByName('BMID').Value:=Trim(maxno); + FieldByName('BSId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'BGFee_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('BSId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + //ӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('BHId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubnoBH,'BH','BGFee_HuoDai',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubnoBH:=Trim(ClientDataSet2.fieldbyname('BHId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from BGFee_HuoDai where BHID='''+Trim(maxsubnoBH)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet2.fieldbyname('BHID').AsString)='' then + Append + else + Edit; + FieldByName('BMID').Value:=Trim(maxno); + FieldByName('BHID').Value:=Trim(maxsubnoBH); + RTSetSaveDataCDS(ADOCmd,Tv2,ClientDataSet2,'BGFee_HuoDai',0); + Post; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('BHID').Value:=Trim(maxsubnoBH); + //Order_Sub.Post; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + + + +procedure TfrmBGFeeInPut.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(BMNo.Text)='' then + begin + Application.MessageBox('ᵥ˺ŲΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmBGFeeInPut.ToolButton1Click(Sender: TObject); +begin + CopyAddRow(Tv1,Order_Sub); +end; + +procedure TfrmBGFeeInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('BSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete BGFee_Sub where BSId='''+Trim(Order_Sub.fieldbyname('BSId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmBGFeeInPut.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmBGFeeInPut.FromPlaceBtnUpClick(Sender: TObject); +begin + GetBtnCText(Sender); +end; +procedure TfrmBGFeeInPut.GetBtnCText(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TBtnEditC(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TBtnEditC(Sender).Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGFeeInPut.v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmBGLDManage:=TfrmBGLDManage.Create(Application); + with frmBGLDManage do + begin + FSel:='99'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('OrderNo').Value:=Trim(frmBGLDManage.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('BGName').Value:=Trim(frmBGLDManage.CDS_19.fieldbyname('BGName').AsString); + FieldByName('HSCode').Value:=Trim(frmBGLDManage.CDS_BGName.fieldbyname('HSCode').AsString); + FieldByName('PS').Value:=frmBGLDManage.CDS_BGName.fieldbyname('CangKuPS').Value; + FieldByName('JZQty').Value:=frmBGLDManage.CDS_19.fieldbyname('NQkgQty').Value; + FieldByName('MiQty').Value:=frmBGLDManage.CDS_19.fieldbyname('NQMQty').Value; + FieldByName('BGMoney').Value:=frmBGLDManage.CDS_19.fieldbyname('BGMoney').Value; + //Post; + end; + end; + end; + finally + frmBGLDManage.Free; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Sub.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + with Order_Sub do + begin + Edit; + FieldByName('BGCF').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + //Post; + end; +end; + +procedure TfrmBGFeeInPut.ToolButton3Click(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + + Post; + end; +end; + +procedure TfrmBGFeeInPut.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='HDName'; + flagname:=''; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:='ϵ'; + V1ZdyStr2.Caption:='ϵʽ'; + V1ZdyStr3.Caption:='տ'; + V1ZdyStr4.Caption:='տ˺'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self .ClientDataSet2 do + begin + Edit; + FieldByName('HDName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('HDLXPerson').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr1').AsString); + FieldByName('HDLXFS').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr2').AsString); + FieldByName('HDBankName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr3').AsString); + FieldByName('HDBankNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr4').AsString); + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGFeeInPut.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='HDFeeName'; + flagname:=''; + if ShowModal=1 then + begin + with Self .ClientDataSet2 do + begin + Edit; + FieldByName('FeeName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.dfm new file mode 100644 index 0000000..08e5ba0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.dfm @@ -0,0 +1,1002 @@ +object frmBGFeeList: TfrmBGFeeList + Left = 197 + Top = 42 + Width = 1094 + Height = 600 + Caption = #25253#20851#35013#31665#20449#24687 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1078 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 654 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 120 + Width = 1078 + Height = 219 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_CYZZ.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1ConNo: TcxGridDBColumn + Caption = #25552#21333#36816#21495 + DataBinding.FieldName = 'BMNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 86 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNoHZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 134 + end + object v1OrdDate: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'SFKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #36864#21333'('#26680')'#26085#26399 + DataBinding.FieldName = 'TuiDanChkDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #20986#21475#21475#23736 + DataBinding.FieldName = 'FromPlace' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #30446#30340#28207 + DataBinding.FieldName = 'ToPlace' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column11: TcxGridDBColumn + Caption = #31665#22411 + DataBinding.FieldName = 'XiangType' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column5: TcxGridDBColumn + Caption = #35013#31665#26085#26399 + DataBinding.FieldName = 'ZhuangXiangDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #33337#26399 + DataBinding.FieldName = 'ChuanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #33337#21517#33322#27425 + DataBinding.FieldName = 'ChuanNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column8: TcxGridDBColumn + Caption = #33337#20844#21496 + DataBinding.FieldName = 'ChuanGS' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39044#24405#21333#26085#26399 + DataBinding.FieldName = 'YuLuDanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column7: TcxGridDBColumn + Caption = #25552#21333#21495 + DataBinding.FieldName = 'TiDanNo' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'HDName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 65 + end + object v1Column15: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 58 + end + object v1Column16: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 67 + end + object v1Column12: TcxGridDBColumn + Caption = #25552#21333#31867#22411 + DataBinding.FieldName = 'TiDanType' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #25552#21333#26085#26399 + DataBinding.FieldName = 'TiDanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #39044#36864#21333#26085#26399 + DataBinding.FieldName = 'YuTuiDanDate' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #20132#36864#21333#26680#26085#26399 + DataBinding.FieldName = 'JiaoTuiDanDate' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 79 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1078 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label4: TLabel + Left = 405 + Top = 13 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 226 + Top = 13 + Width = 52 + Height = 12 + Caption = #25552#21333#36816#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 406 + Top = 41 + Width = 39 + Height = 12 + Caption = #33337#20844#21496 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 226 + Top = 41 + Width = 52 + Height = 12 + Caption = #33337#21517#33322#27425 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 576 + Top = 13 + Width = 54 + Height = 12 + Caption = #36135' '#20195 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 577 + Top = 41 + Width = 52 + Height = 12 + Caption = #36153#29992#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 125 + Top = 9 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 125 + Top = 37 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoHZ: TEdit + Tag = 2 + Left = 447 + Top = 9 + Width = 104 + Height = 20 + TabOrder = 2 + OnChange = OrderNoHZChange + OnKeyPress = OrderNoHZKeyPress + end + object BMNo: TEdit + Tag = 2 + Left = 279 + Top = 9 + Width = 107 + Height = 20 + TabOrder = 3 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object ChuanGS: TEdit + Tag = 2 + Left = 447 + Top = 37 + Width = 103 + Height = 20 + TabOrder = 4 + OnChange = OrderNoHZChange + end + object ChuanNo: TEdit + Tag = 2 + Left = 280 + Top = 37 + Width = 107 + Height = 20 + TabOrder = 5 + OnChange = OrderNoHZChange + end + object HDName: TEdit + Tag = 2 + Left = 629 + Top = 9 + Width = 107 + Height = 20 + TabOrder = 6 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object FeeName: TEdit + Tag = 2 + Left = 630 + Top = 37 + Width = 107 + Height = 20 + TabOrder = 7 + OnChange = OrderNoHZChange + OnKeyPress = BMNoKeyPress + end + object ComboBox1: TComboBox + Left = 12 + Top = 9 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 8 + Text = #25353#30331#35760#26085#26399 + Items.Strings = ( + #25353#30331#35760#26085#26399 + #25353#35013#31665#26085#26399 + #25353#33337#26399 + #25353#39044#24405#21333#26085#26399 + #25353#25552#21333#26085#26399 + #25353#39044#36864#21333#26085#26399 + #25353#20132#36864#21333#26680#26085#26399 + #25353#36864#21333'('#26680')'#26085#26399 + #25353#20184#27454#26085#26399) + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1078 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24050#20184#27454 + #24050#36864#21333#26680#26597 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1078 + ClientRectTop = 23 + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 339 + Width = 1078 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object Panel2: TPanel + Left = 0 + Top = 347 + Width = 1078 + Height = 214 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 743 + Height = 210 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn6 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn5 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 95 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'BGCF' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 45 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #35013#31665#27611#37325 + DataBinding.FieldName = 'MZQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25253#20851#37329#39069 + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #31665#21495 + DataBinding.FieldName = 'XiangNo' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #23553#21495 + DataBinding.FieldName = 'FengNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #35013#31665#31859#25968 + DataBinding.FieldName = 'MiQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #35013#31665#30721#25968 + DataBinding.FieldName = 'MaQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + Width = 54 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter2: TcxSplitter + Left = 745 + Top = 2 + Width = 8 + Height = 210 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxGrid2 + end + object cxGrid3: TcxGrid + Left = 753 + Top = 2 + Width = 323 + Height = 210 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn19 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn17 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn15 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column1: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BHDate' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #36135#20195#21517#31216 + DataBinding.FieldName = 'HDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 114 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'HDLXPerson' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'HDLXFS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 60 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25910#27454#38134#34892 + DataBinding.FieldName = 'HDBankName' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #25910#27454#36134#21495 + DataBinding.FieldName = 'HDBankNo' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'HDNote' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 248 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 416 + Top = 271 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 449 + Top = 273 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 392 + Top = 200 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 239 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 484 + Top = 437 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 517 + Top = 439 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 774 + Top = 438 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 807 + Top = 440 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 582 + Top = 450 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 880 + Top = 441 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.pas b/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.pas new file mode 100644 index 0000000..3f2b699 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGFeeList.pas @@ -0,0 +1,742 @@ +unit U_BGFeeList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxPC, cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmBGFeeList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + v1OrdDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label4: TLabel; + Label9: TLabel; + Label10: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNoHZ: TEdit; + BMNo: TEdit; + ChuanGS: TEdit; + v1Column2: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + Label2: TLabel; + ChuanNo: TEdit; + Label3: TLabel; + HDName: TEdit; + Label5: TLabel; + FeeName: TEdit; + ComboBox1: TComboBox; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter2: TcxSplitter; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure OrderNoHZChange(Sender: TObject); + procedure BMNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure OrderNoHZKeyPress(Sender: TObject; var Key: Char); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmBGFeeList: TfrmBGFeeList; + +implementation +uses + U_DataLink,U_BGFeeInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmBGFeeList.FormDestroy(Sender: TObject); +begin + frmBGFeeList:=nil; +end; + +procedure TfrmBGFeeList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGFeeList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmBGFeeList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('طб1',Tv1,'ط'); + WriteCxGrid('طб2',Tv2,'ط'); + WriteCxGrid('طб3',Tv3,'ط'); +end; + +procedure TfrmBGFeeList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + if Trim(ComboBox1.Text)='Ǽ' then + begin + SQL.Add('where A.FillTIme>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.FillTIme<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='װ' then + begin + SQL.Add('where A.ZhuangXiangDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.ZhuangXiangDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='' then + begin + SQL.Add('where A.ChuanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.ChuanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='Ԥ¼' then + begin + SQL.Add('where A.YuLuDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.YuLuDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='ᵥ' then + begin + SQL.Add('where A.TiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.TiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='Ԥ˵' then + begin + SQL.Add('where A.YuTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.YuTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='˵' then + begin + SQL.Add('where A.JiaoTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.JiaoTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='˵()' then + begin + SQL.Add('where A.TuiDanChkDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.TuiDanChkDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + if Trim(ComboBox1.Text)='' then + begin + SQL.Add('where B.SFKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and B.SFKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end; + {if Trim(ComboBox1.Text)='' then + begin + SQL.Add('where A.FKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.FKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end; } + + if Trim(DParameters1)<>'Ȩ' then + begin + //sql.Add('and A.Filler='''+Trim(DName)+''''); + sql.Add(' and A.Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(B.SFKDate,'''')='''' and isnull(TuiDanChkDate,'''')='''')'); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(B.SFKDate,'''')<>'''')'); + end else + if cxTabControl1.TabIndex=3 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(TuiDanChkDate,'''')<>'''')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmBGFeeList.InitForm(); +begin + ReadCxGrid('طб1',Tv1,'ط'); + ReadCxGrid('طб2',Tv2,'ط'); + ReadCxGrid('طб3',Tv3,'ط'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmBGFeeList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmBGFeeList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + try + frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application); + with frmBGFeeInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('BMId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGFeeInPut.Free; + end; +end; + +procedure TfrmBGFeeList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Main where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('ChkStatus').AsString)<>'' then + begin + Application.MessageBox('Ѳݣɾ!','ʾ',0); + Exit; + end; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmBGFeeList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BGFee_Main where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BGFee_Sub where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmBGFeeList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmBGFeeList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice,COL=''COL:'' '); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + // + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select TolConMoney=Sum(PRTOrderQty*PRTPrice)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + EngMoney:=num2cengnum(ADOQueryTemp.fieldbyname('TolConMoney').AsString); + EngMoney:=UpperCase(EngMoney); + if FileExists(fPrintFile) then + begin + RMVariables['EngMoney']:=EngMoney; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmBGFeeList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGFeeList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application); + with frmBGFeeInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGFeeInPut.Free; + end; +end; + +procedure TfrmBGFeeList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmBGFeeList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmBGFeeList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmBGFeeList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application); + with frmBGFeeInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('BMId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGFeeInPut.Free; + end; +end; + +procedure TfrmBGFeeList.OrderNoHZChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmBGFeeList.BMNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(BMNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + SQL.Add('where 1=1'); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; + sql.Add(' and BMNO like '''+'%'+Trim(BMNO.Text)+'%'+''''); + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(SFKDate,'''')<>'''' or isnull(TuiDanChkDate,'''')<>'''')'); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(SFKDate,'''')<>'''')'); + end else + if cxTabControl1.TabIndex=3 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(TuiDanChkDate,'''')<>'''')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmBGFeeList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGFeeList.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate BGFee_Main Set SChkStatus='''',SChkTime=getdate(),SChker='''+Trim(DName)+''''); + sql.Add(' where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGFeeList.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate BGFee_Main Set SChkStatus=Null,SChkTime=Null,SChker=Null'); + sql.Add(' where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGFeeList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_Sub where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BGFee_HuoDai where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmBGFeeList.OrderNoHZKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNoHZ.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')'); + sql.Add(' from BGFee_Main A '); + sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID'); + SQL.Add('where 1=1'); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; + sql.Add(' and dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'') like '''+'%'+Trim(OrderNoHZ.Text)+'%'+''''); + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(SFKDate,'''')<>'''' or isnull(TuiDanChkDate,'''')<>'''')'); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(SFKDate,'''')<>'''')'); + end else + if cxTabControl1.TabIndex=3 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + sql.Add(' and (isnull(TuiDanChkDate,'''')<>'''')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.dfm new file mode 100644 index 0000000..d44bb64 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.dfm @@ -0,0 +1,504 @@ +object frmBGHZSelList: TfrmBGHZSelList + Left = 83 + Top = 28 + Width = 1175 + Height = 697 + Align = alClient + Caption = #25253#20851#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1159 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1159 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label9: TLabel + Left = 57 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 98 + Top = 11 + Width = 183 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 360 + Width = 1159 + Height = 298 + Align = alBottom + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn15 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn16 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 63 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 55 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 52 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 55 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #24050#21040#21457#31080#37329#39069 + DataBinding.FieldName = 'FPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 352 + Width = 1159 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid1 + end + object cxGrid6: TcxGrid + Left = 0 + Top = 73 + Width = 1159 + Height = 279 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PopupMenu1 + TabOrder = 4 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column1 + end + item + Kind = skSum + Column = Tv6Column1 + end + item + Kind = skSum + Column = v6Column3 + end + item + Kind = skSum + Column = v6Column8 + end + item + Kind = skSum + Column = v6Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v6Column6: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v6Column5: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v6Column7: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v6BCOrderNo: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 138 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv6Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v6Column10: TcxGridDBColumn + Caption = #24320#31080#21333#20301 + DataBinding.FieldName = 'FPDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v6Column11: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v6Column8: TcxGridDBColumn + Caption = #24050#24320#20869#37096#21457#31080#25968#37327 + DataBinding.FieldName = 'FPQty' + Options.Editing = False + Width = 116 + end + object v6Column9: TcxGridDBColumn + Caption = #24050#24320#20869#37096#21457#31080#37329#39069 + DataBinding.FieldName = 'FPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 115 + end + object Tv6Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v6Column12: TcxGridDBColumn + Caption = #24050#24320#22806#38144#21457#31080#25968#37327 + DataBinding.FieldName = 'WXFPQty' + Options.Editing = False + Width = 112 + end + object v6Column13: TcxGridDBColumn + Caption = #24050#24320#22806#38144#21457#31080#37329#39069'$' + DataBinding.FieldName = 'WXFPMoney' + Options.Editing = False + Width = 116 + end + object v6Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NQNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv6 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 376 + Top = 326 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 326 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 312 + Top = 326 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 326 + end + object PopupMenu1: TPopupMenu + Left = 264 + Top = 232 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + end + object DataSource2: TDataSource + DataSet = CDS_HZ + Left = 328 + Top = 230 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 360 + Top = 230 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 392 + Top = 230 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.pas new file mode 100644 index 0000000..824462a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.pas @@ -0,0 +1,206 @@ +unit U_BGHZSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxPC, cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmBGHZSelList = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Panel1: TPanel; + Label9: TLabel; + OrderNo: TEdit; + ToolButton2: TToolButton; + N1: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_HZ: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column1: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6BCOrderNo: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + Tv6Column1: TcxGridDBColumn; + Tv6Column2: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column4: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + v6Column5: TcxGridDBColumn; + v6Column6: TcxGridDBColumn; + v6Column7: TcxGridDBColumn; + v6Column8: TcxGridDBColumn; + v6Column9: TcxGridDBColumn; + v6Column10: TcxGridDBColumn; + v6Column11: TcxGridDBColumn; + v6Column12: TcxGridDBColumn; + v6Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmBGHZSelList: TfrmBGHZSelList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmBGHZSelList.FormDestroy(Sender: TObject); +begin + frmBGHZSelList:=nil; +end; + +procedure TfrmBGHZSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGHZSelList.FormCreate(Sender: TObject); +begin + //cxgrid1.Align:=alClient; +end; + +procedure TfrmBGHZSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ػбѡ',Tv1,'Ʊ'); + WriteCxGrid('ػбѡ1',Tv6,'Ʊ'); +end; +procedure TfrmBGHZSelList.InitForm(); +begin + ReadCxGrid('ػбѡ',Tv1,'Ʊ'); + ReadCxGrid('ػбѡ1',Tv6,'Ʊ'); +end; +procedure TfrmBGHZSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmBGHZSelList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus,C.BCOrderNo '); + sql.Add(' ,FPMoney=isnull((select Sum(Money) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,FPQty=isnull((select Sum(Qty) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(',FPDanWei=(select Top 1 GHDanWei from FP_GYSNB AA where AA.NQID=A.NQID)'); + sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=B.OrderNo)'); + sql.Add(' ,WXFPMoney=isnull((select Sum(Money) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,WXFPQty=isnull((select Sum(Qty) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' from JYOrder_BG_CKName_Qty A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where B.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmBGHZSelList.ToolButton2Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if CDS_HZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +procedure TfrmBGHZSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmBGHZSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmBGHZSelList.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus, '); + sql.Add(' FPMoney=(select Sum(Money) from FP_GYSNB AA where AA.BFID=A.BFID)'); + sql.Add(' from JYOrder_BG_KPFee A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where A.BCID='''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.dfm new file mode 100644 index 0000000..11093f5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.dfm @@ -0,0 +1,1392 @@ +object frmBGJCKMXGYSInput: TfrmBGJCKMXGYSInput + Left = 77 + Top = 16 + Width = 1265 + Height = 690 + Align = alClient + Caption = #36135#29289#36827#20986#21475#25253#20851#26126#32454#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1249 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 604 + Height = 622 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 600 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 277 + Top = 15 + Width = 39 + Height = 12 + Caption = #26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 21 + Top = 15 + Width = 78 + Height = 12 + Caption = #35746#21333#35782#21035#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BGDate: TDateTimePicker + Tag = 2 + Left = 314 + Top = 11 + Width = 105 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object BCOrderNo: TEdit + Tag = 2 + Left = 95 + Top = 11 + Width = 165 + Height = 20 + CharCase = ecUpperCase + TabOrder = 1 + end + end + object Panel3: TPanel + Left = 2 + Top = 44 + Width = 600 + Height = 576 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 596 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25439#32791#35745#31639 + ImageIndex = 134 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton6Click + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 35 + Width = 596 + Height = 359 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn3 + end + item + Kind = skSum + Position = spFooter + Column = v2Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column5: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object v2Column6: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 47 + end + object v2Column3: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 49 + end + object v2Column4: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 52 + end + object v2Column7: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'PSSHQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 65 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ToolBar3: TToolBar + Left = 2 + Top = 394 + Width = 596 + Height = 33 + Align = alBottom + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Visible = False + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + end + object cxGrid6: TcxGrid + Left = 2 + Top = 427 + Width = 596 + Height = 147 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column1 + end + item + Kind = skSum + Column = Tv6Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 193 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQKgQty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 69 + end + object Tv6Column1: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 69 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv6 + end + end + end + end + object Panel4: TPanel + Left = 612 + Top = 29 + Width = 637 + Height = 622 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 633 + Height = 128 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label14: TLabel + Left = 143 + Top = 13 + Width = 65 + Height = 12 + Caption = #25253#20851#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 437 + Top = 14 + Width = 39 + Height = 12 + Caption = #27425#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 2 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 362 + Top = 14 + Width = 39 + Height = 12 + Caption = #31859#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 281 + Top = 40 + Width = 65 + Height = 12 + Caption = #25104#20132#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 4 + Top = 40 + Width = 52 + Height = 12 + Caption = #28023#36816#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 163 + Top = 40 + Width = 39 + Height = 12 + Caption = #20445#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 139 + Top = 40 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 262 + Top = 40 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ComTaiTou: TEdit + Tag = 2 + Left = 209 + Top = 10 + Width = 153 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object EditCount: TEdit + Tag = 2 + Left = 471 + Top = 10 + Width = 24 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 48 + Top = 11 + Width = 93 + Height = 20 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 2 + end + object MLenStr: TEdit + Tag = 2 + Left = 395 + Top = 10 + Width = 41 + Height = 20 + ReadOnly = True + TabOrder = 3 + end + object cxGrid5: TcxGrid + Left = 3 + Top = 60 + Width = 565 + Height = 64 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + object TVBGName: TcxGridDBTableView + OnDblClick = TVBGNameDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_BGName + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 174 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 37 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TVBGName + end + end + object ChengJiaoType: TBtnEditA + Tag = 2 + Left = 339 + Top = 36 + Width = 159 + Height = 20 + ReadOnly = True + TabOrder = 5 + end + object HaiYunFee: TEdit + Tag = 2 + Left = 49 + Top = 36 + Width = 86 + Height = 20 + TabOrder = 6 + end + object BaoFee: TEdit + Tag = 2 + Left = 195 + Top = 36 + Width = 66 + Height = 20 + TabOrder = 7 + end + end + object Panel6: TPanel + Left = 2 + Top = 130 + Width = 633 + Height = 490 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 2 + Top = 345 + Width = 629 + Height = 143 + Align = alBottom + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = v3Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column8: TcxGridDBColumn + Caption = #32467#31639#21333#20215 + DataBinding.FieldName = 'JSPrice' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel7: TPanel + Left = 2 + Top = 2 + Width = 629 + Height = 343 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 625 + Height = 223 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + OnDblClick = Tv7DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv7FocusedRecordChanged + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 106 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 157 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv7 + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 225 + Width = 625 + Height = 116 + Align = alBottom + TabOrder = 1 + object TvFee: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_Fee + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn22 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn19: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'MHdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 81 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 54 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 59 + end + object TvFeeColumn2: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'QTChker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object TvFeeColumn1: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'QTChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TvFeeColumn3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'QTChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 111 + end + end + object cxGridLevel5: TcxGridLevel + GridView = TvFee + end + end + end + end + end + object cxSplitter1: TcxSplitter + Left = 604 + Top = 29 + Width = 8 + Height = 622 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = Panel4 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 8 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 830 + Top = 265 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 864 + Top = 265 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 896 + Top = 264 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 397 + Top = 385 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 433 + Top = 387 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 533 + Top = 345 + end + object CDS_BGName: TClientDataSet + Aggregates = <> + Params = <> + Left = 872 + Top = 97 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 899 + Top = 98 + end + object DS_BGName: TDataSource + DataSet = CDS_BGName + Left = 840 + Top = 101 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 857 + Top = 458 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 891 + Top = 458 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 923 + Top = 457 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 956 + Top = 459 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 546 + Top = 502 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 529 + Top = 509 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 563 + Top = 510 + end + object DS_Fee: TDataSource + DataSet = CDS_Fee + Left = 945 + Top = 425 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 976 + Top = 425 + end + object CDS_Fee: TClientDataSet + Aggregates = <> + Params = <> + Left = 1007 + Top = 427 + end + object ClientDataSetJS: TClientDataSet + Aggregates = <> + Params = <> + Left = 443 + Top = 287 + end + object ClientDataSetJS1: TClientDataSet + Aggregates = <> + Params = <> + Left = 490 + Top = 287 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.pas b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.pas new file mode 100644 index 0000000..c37674f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.pas @@ -0,0 +1,977 @@ +unit U_BGJCKMXGYSInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit, + cxCheckBox, cxCalendar, cxDropDownEdit, cxPC, cxTextEdit, cxSplitter; + +type + TfrmBGJCKMXGYSInput = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Panel2: TPanel; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQuery1: TADOQuery; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + Panel3: TPanel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel4: TPanel; + Panel5: TPanel; + Label14: TLabel; + Panel6: TPanel; + ComTaiTou: TEdit; + Label2: TLabel; + BGDate: TDateTimePicker; + v2Column1: TcxGridDBColumn; + Label4: TLabel; + EditCount: TEdit; + CDS_BGName: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + DS_BGName: TDataSource; + Label1: TLabel; + OrderNo: TEdit; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource3: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + ToolBar3: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + Tv6Column1: TcxGridDBColumn; + Label8: TLabel; + BCOrderNo: TEdit; + v2Column2: TcxGridDBColumn; + ClientDataSet6: TClientDataSet; + cxGridPopupMenu6: TcxGridPopupMenu; + DataSource6: TDataSource; + Label12: TLabel; + MLenStr: TEdit; + cxGrid5: TcxGrid; + TVBGName: TcxGridDBTableView; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel7: TPanel; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid4: TcxGrid; + TvFee: TcxGridDBTableView; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + TvFeeColumn2: TcxGridDBColumn; + TvFeeColumn1: TcxGridDBColumn; + TvFeeColumn3: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + DS_Fee: TDataSource; + cxGridPopupMenu4: TcxGridPopupMenu; + CDS_Fee: TClientDataSet; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + ToolButton5: TToolButton; + ClientDataSetJS: TClientDataSet; + v6Column1: TcxGridDBColumn; + ClientDataSetJS1: TClientDataSet; + ToolButton6: TToolButton; + Label3: TLabel; + ChengJiaoType: TBtnEditA; + Label5: TLabel; + HaiYunFee: TEdit; + Label6: TLabel; + BaoFee: TEdit; + Label7: TLabel; + Label9: TLabel; + procedure FormDestroy(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure Tv7FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxPageControl1Change(Sender: TObject); + procedure Tv7DblClick(Sender: TObject); + procedure TVBGNameDblClick(Sender: TObject); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn4PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + function SaveData():Boolean; + procedure InitGridMD(); + public + { Public declarations } + FOrderNo,FBGID,FBCID:String; + end; + +var + frmBGJCKMXGYSInput: TfrmBGJCKMXGYSInput; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList; + +{$R *.dfm} + +procedure TfrmBGJCKMXGYSInput.FormDestroy(Sender: TObject); +begin + frmBGJCKMXGYSInput:=nil; +end; + +procedure TfrmBGJCKMXGYSInput.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('tv2',Tv2,'ϸ'); + WriteCxGrid('tv6',Tv6,'ϸ'); + Close; +end; + +procedure TfrmBGJCKMXGYSInput.FormShow(Sender: TObject); +begin + ReadCxGrid('tv2',Tv2,'ϸ'); + ReadCxGrid('tv6',Tv6,'ϸ'); + BGDate.DateTime:=SGetServerDate(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel5,2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG_CK where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel2,2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Fee); + SInitCDSData20(ADOQueryTemp,CDS_Fee); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_BGName); + SInitCDSData20(ADOQueryTemp,CDS_BGName); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); + BCOrderNo.SetFocus; +end; + +procedure TfrmBGJCKMXGYSInput.Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString); + FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString); + FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value; + FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value; + Post; + end; +end; + +procedure TfrmBGJCKMXGYSInput.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmBGJCKMXGYSInput.ToolButton1Click(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + if Trim(MLenStr.Text)<>'' then + begin + FieldByName('MLen').Value:=StrToFloat(MLenStr.Text); + end; + Post; + end; +end; + +procedure TfrmBGJCKMXGYSInput.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('BFID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_KPFee where BFID='''+Trim(ClientDataSet2.fieldbyname('BFID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet2.Delete; +end; +function TfrmBGJCKMXGYSInput.SaveData():Boolean; +var + maxno,maxsubno,maxNQNo:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + /// + if Trim(FBCID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'BC','JYOrder_BG_CK',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FBCID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_BG_CK where BCId='''+Trim(FBCID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FBCID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('BGID').Value:=Trim(FBGID); + FieldByName('BCID').Value:=Trim(maxno); + RTSetsavedata(ADOQueryCmd,'JYOrder_BG_CK',Panel2,2); + Post; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK where BCorderno='''+Trim(BCOrderNo.Text)+''''); + sql.Add(' and Valid=''Y'' '); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʶظ!','ʾ',0); + Exit; + end; + + ///濪Ʊӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('BFId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'BF','JYOrder_BG_KPFee',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet2.fieldbyname('BFId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BFId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('BFId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(FBGID); + FieldByName('BCId').Value:=Trim(maxno); + FieldByName('BFId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_BG_KPFee',0); + FieldByName('FactoryNo').Value:=ClientDataSet2.fieldbyname('FactoryNo').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + Post; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('BFId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///汨Ϣӱ + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet6.fieldbyname('NQId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxNQNo,'NQId','JYOrder_BG_CKName_Qty',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxNQNo:=Trim(ClientDataSet6.fieldbyname('NQId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where NQId='''+Trim(maxNQNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('NQId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(FBGID); + FieldByName('BCId').Value:=Trim(maxno); + FieldByName('NQId').Value:=Trim(maxNQNo); + RTSetSaveDataCDS(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_BG_CKName_Qty',0); + Post; + end; + ClientDataSet6.Edit; + ClientDataSet6.FieldByName('NQId').Value:=Trim(maxNQNo); + //Order_Sub.Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmBGJCKMXGYSInput.TBSaveClick(Sender: TObject); +var + FReal:Double;//a39978874 +begin + ToolBar1.SetFocus; + if Trim(BCOrderNo.Text)='' then + begin + Application.MessageBox('ʶŲΪգ','ʾ',0); + Exit; + end; + + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFPrice',Null,[])=True then + begin + Application.MessageBox('õ۲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFUnit',Null,[])=True then + begin + Application.MessageBox('õλΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFMoney',Null,[])=True then + begin + Application.MessageBox('ýΪ!','ʾ',0); + Exit; + end; + if ClientDataSet6.IsEmpty then + begin + Application.MessageBox('ƷϢΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + + +end; + +procedure TfrmBGJCKMXGYSInput.Tv7FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitGridMD(); +end; +procedure TfrmBGJCKMXGYSInput.InitGridMD(); +var + fsj:string; +begin + try + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD_BGMX :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(JMM.CKName,'''')='''' '; + fsj:=fsj+' and JMM.PSName='''+Trim(ClientDataSet7.fieldbyname('PSName').AsString)+''''; + fsj:=fsj+' and JMM.FactoryName='''+Trim(ClientDataSet7.fieldbyname('FactoryName').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + finally + ADOQueryTemp.EnableControls; + end; +end; + +procedure TfrmBGJCKMXGYSInput.cxPageControl1Change(Sender: TObject); +begin + InitGridMD(); +end; + +procedure TfrmBGJCKMXGYSInput.Tv7DblClick(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('FactoryNo').Value; + FieldByName('PSName').Value:=ClientDataSet7.fieldbyname('PSName').Value; + if Trim(ClientDataSet7.fieldbyname('BQUnit').AsString)<>'M' then + begin + FieldByName('BFQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value; + if Trim(MLenStr.Text)<>'' then + begin + FieldByName('BFMQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value*strtofloat(MLenStr.Text); + end; + end else + begin + FieldByName('BFMQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value; + end; + FieldByName('BFUnit').Value:='M'; + if Trim(MLenStr.Text)<>'' then + begin + FieldByName('MLen').Value:=StrToFloat(MLenStr.Text); + end; + Post; + end; +end; + +procedure TfrmBGJCKMXGYSInput.TVBGNameDblClick(Sender: TObject); +begin + with ClientDataSet6 do + begin + Append; + FieldByName('BGName').Value:=CDS_BGName.fieldbyname('BGName').Value; + Post; + end; +end; + +procedure TfrmBGJCKMXGYSInput.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BFName'; + flagname:='ط'; + if ShowModal=1 then + begin + with Self.ClientDataSet2 do + begin + Edit; + FieldByName('BFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXGYSInput.cxGridDBColumn4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty,FMQty,FMoney,FMLen:string; +begin + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Trim(ClientDataSet2.fieldbyname('BFQty').AsString); + if Trim(FQty)='' then + begin + FQty:='0'; + end; + FMLen:=Trim(ClientDataSet2.fieldbyname('MLen').AsString); + if Trim(FMLen)='' then + begin + FMLen:='0'; + end; + if (Trim(FName)='MLen') or (Trim(FName)='BFQty') then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('BFMQty').Value:=StrToFloat(FQty)*StrToFloat(FMLen); + Post; + end; + end; + FPrice:=Trim(ClientDataSet2.fieldbyname('BFPrice').AsString); + FQty:=Trim(ClientDataSet2.fieldbyname('BFQty').AsString); + FMQty:=Trim(ClientDataSet2.fieldbyname('BFMQty').AsString); + FMoney:=Trim(ClientDataSet2.fieldbyname('BFMoney').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FMQty)='' then + begin + FMQty:='0'; + end; + if Trim(FMoney)='' then + begin + FMoney:='0'; + end; + with ClientDataSet2 do + begin + Edit; + if Trim(FName)='BFPrice' then + begin + if Trim(ClientDataSet2.fieldbyname('BFUnit').AsString)='M' then + begin + FieldByName('BFMoney').Value:=StrToFloat(FPrice)*StrToFloat(FMQty); + end else + begin + FieldByName('BFMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + end; + end else + begin + if Trim(ClientDataSet2.fieldbyname('BFUnit').AsString)='M' then + begin + if Trim(FMQty)<>'0' then + FieldByName('BFPrice').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FMQty) + else + FieldByName('BFPrice').Value:=0; + end else + begin + if Trim(FQty)<>'0' then + FieldByName('BFPrice').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FQty) + else + FieldByName('BFPrice').Value:=0; + end; + end; + Post; + end; +end; + +procedure TfrmBGJCKMXGYSInput.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.fieldbyname('NQID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_CKName_Qty where NQID='''+Trim(ClientDataSet6.fieldbyname('NQID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmBGJCKMXGYSInput.v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmBGJCKMXGYSInput.ToolButton5Click(Sender: TObject); +var + Fqty1,Fqty2:string; + Qty1,Qty2:Double; + i:Integer; +begin + if ClientDataSet2.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSetJS); + SInitCDSData20(ADOQueryTemp,ClientDataSetJS); + SCreateCDS20(ADOQueryTemp,ClientDataSetJS1); + SInitCDSData20(ADOQueryTemp,ClientDataSetJS1); + ClientDataSet2.DisableControls; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with ClientDataSetJS do + begin + Append; + Post; + end; + with ClientDataSetJS1 do + begin + Append; + Post; + end; + for i:=0 to Tv2.ColumnCount-1 do + begin + with ClientDataSetJS do + begin + Edit; + FieldByName(Tv2.Columns[i].DataBinding.FieldName).Value:=ClientDataSet2.fieldbyname(Tv2.Columns[i].DataBinding.FieldName).Value; + Post; + end; + with ClientDataSetJS1 do + begin + Edit; + FieldByName(Tv2.Columns[i].DataBinding.FieldName).Value:=ClientDataSet2.fieldbyname(Tv2.Columns[i].DataBinding.FieldName).Value; + Post; + end; + end; + Next; + end; + end; + ClientDataSet2.EnableControls; + ClientDataSet2.DisableControls; + + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.FieldByName('PSXH').AsString)<>'' then + begin + if Trim(ClientDataSet2.FieldByName('PSXH').AsString)<>'1' then + begin + Qty1:=0; + Qty2:=0; + with ClientDataSetJS do + begin + First; + while not Eof do + begin + if ClientDataSetJS.FieldByName('PSXH').AsInteger=ClientDataSet2.FieldByName('PSXH').AsInteger-1 then + begin + if Trim(ClientDataSetJS.fieldbyname('BFUnit').AsString)='M' then + Qty1:=Qty1+ ClientDataSetJS.FieldByName('BFMQty').AsFloat + else + Qty1:=Qty1+ ClientDataSetJS.FieldByName('BFQty').AsFloat; + end; + Next; + end; + end; + with ClientDataSetJS1 do + begin + First; + while not Eof do + begin + if ClientDataSetJS1.FieldByName('PSXH').AsInteger=ClientDataSet2.FieldByName('PSXH').AsInteger then + begin + if Trim(ClientDataSetJS1.fieldbyname('BFUnit').AsString)='M' then + Qty2:=Qty2+ ClientDataSetJS1.FieldByName('BFMQty').AsFloat + else + Qty2:=Qty2+ ClientDataSetJS1.FieldByName('BFQty').AsFloat; + end; + Next; + end; + end; + Edit; + FieldByName('PSSHQty').Value:=Qty1-Qty2; + Post; + end; + end; + Next; + end; + end; + ClientDataSet2.EnableControls; +end; + +procedure TfrmBGJCKMXGYSInput.ToolButton6Click(Sender: TObject); +begin + if Trim(EditCount.Text)='1' then Exit; + if Application.MessageBox('ȷҪִиƲִд˲,֮ǰݽ!','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='); + sql.Add('(select BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' and Valid=''Y'' )'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='); + sql.Add('(select Top 1 BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' order by BCID desc )'); + Open; + end; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ClientDataSet2 do + begin + First; + while not eof do + begin + Edit; + FieldByName('BFID').Value:=''; + FieldByName('BCID').Value:=''; + FieldByName('BGID').Value:=''; + Post; + next; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='); + sql.Add('(select BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' and Valid=''Y'' )'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='); + sql.Add('(select Top 1 BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' order by BCID desc )'); + Open; + end; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); + with ClientDataSet6 do + begin + First; + while not eof do + begin + Edit; + FieldByName('NQID').Value:=''; + FieldByName('BCID').Value:=''; + FieldByName('BGID').Value:=''; + Post; + next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG_CK Set Valid=''N'' where BCID='); + sql.Add('(select BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' and Valid=''Y'' )'); + ExecSQL; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.dfm new file mode 100644 index 0000000..28505ae --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.dfm @@ -0,0 +1,1309 @@ +object frmBGJCKMXInput: TfrmBGJCKMXInput + Left = 7 + Top = 52 + Width = 1248 + Height = 675 + Align = alClient + Caption = #36135#29289#36827#20986#21475#25253#20851#26126#32454#23457#26680 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1232 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton1Click + end + object TBSave: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 10 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 657 + Height = 607 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel77: TPanel + Left = 2 + Top = 2 + Width = 653 + Height = 220 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel5: TPanel + Left = 2 + Top = 37 + Width = 649 + Height = 181 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label14: TLabel + Left = 215 + Top = 13 + Width = 65 + Height = 12 + Caption = #25253#20851#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 560 + Top = 13 + Width = 39 + Height = 12 + Caption = #27425#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 26 + Top = 13 + Width = 52 + Height = 12 + Caption = #35746#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 449 + Top = 13 + Width = 60 + Height = 12 + Caption = #31859' '#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 449 + Top = 36 + Width = 65 + Height = 12 + Caption = #25104#20132#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 26 + Top = 36 + Width = 52 + Height = 12 + Caption = #28023#36816#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 215 + Top = 36 + Width = 60 + Height = 12 + Caption = #20445' '#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 189 + Top = 36 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 422 + Top = 36 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 26 + Top = 60 + Width = 52 + Height = 12 + Caption = #36135#28304#22320#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 215 + Top = 60 + Width = 65 + Height = 12 + Caption = #20986#21475#21475#23736#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 449 + Top = 60 + Width = 66 + Height = 12 + Caption = #36816' '#25269' '#22269#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object cxGrid5: TcxGrid + Left = 27 + Top = 81 + Width = 592 + Height = 96 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object TVBGName: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_BGName + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn30 + end + item + Kind = skSum + Column = v1Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 37 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TVBGName + end + end + object EditCount: TEdit + Tag = 2 + Left = 594 + Top = 9 + Width = 24 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 77 + Top = 9 + Width = 123 + Height = 20 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 2 + end + object MLenStr: TEdit + Tag = 2 + Left = 507 + Top = 9 + Width = 41 + Height = 20 + TabOrder = 3 + end + object ChengJiaoType: TBtnEditA + Tag = 2 + Left = 507 + Top = 32 + Width = 113 + Height = 20 + ReadOnly = True + TabOrder = 4 + OnBtnClick = ChengJiaoTypeBtnClick + end + object HaiYunFee: TEdit + Tag = 2 + Left = 77 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 5 + end + object BaoFee: TEdit + Tag = 2 + Left = 279 + Top = 32 + Width = 140 + Height = 20 + TabOrder = 6 + end + object HuoYuanPlace: TBtnEditA + Tag = 2 + Left = 77 + Top = 56 + Width = 123 + Height = 20 + ReadOnly = True + TabOrder = 7 + OnBtnClick = HuoYuanPlaceBtnClick + end + object ChuKouKA: TBtnEditA + Tag = 2 + Left = 279 + Top = 56 + Width = 153 + Height = 20 + ReadOnly = True + TabOrder = 8 + OnBtnClick = ChuKouKABtnClick + end + object YunDiG: TBtnEditA + Tag = 2 + Left = 507 + Top = 56 + Width = 113 + Height = 20 + ReadOnly = True + TabOrder = 9 + OnBtnClick = YunDiGBtnClick + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 279 + Top = 8 + Width = 153 + Height = 20 + ReadOnly = True + TabOrder = 10 + OnBtnClick = ComTaiTouBtnClick + end + end + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 649 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label2: TLabel + Left = 215 + Top = 11 + Width = 39 + Height = 12 + Caption = #26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 26 + Top = 11 + Width = 78 + Height = 12 + Caption = #35746#21333#35782#21035#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 346 + Top = 11 + Width = 52 + Height = 12 + Caption = #20844#26020#20215#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 461 + Top = 11 + Width = 39 + Height = 12 + Caption = #31859#20215#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BGDate: TDateTimePicker + Tag = 2 + Left = 249 + Top = 7 + Width = 97 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + Enabled = False + TabOrder = 0 + end + object BCOrderNo: TEdit + Tag = 2 + Left = 98 + Top = 7 + Width = 115 + Height = 20 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 1 + end + object Edit1: TEdit + Left = 394 + Top = 7 + Width = 56 + Height = 20 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 2 + end + object Edit2: TEdit + Left = 495 + Top = 7 + Width = 56 + Height = 20 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 3 + end + object CheckBox1: TCheckBox + Left = 570 + Top = 10 + Width = 49 + Height = 17 + Caption = #20840#37096 + TabOrder = 4 + OnClick = CheckBox1Click + end + end + end + object Panel3: TPanel + Left = 2 + Top = 222 + Width = 653 + Height = 383 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid6: TcxGrid + Left = 2 + Top = 257 + Width = 649 + Height = 124 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column1 + end + item + Kind = skSum + Column = Tv6Column1 + end + item + Kind = skSum + Column = v6Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v6BCOrderNo: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 138 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv6Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object Tv6Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + Properties.OnEditValueChanged = v6Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v6Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v6Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v6Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NQNote' + HeaderAlignmentHorz = taCenter + Width = 93 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv6 + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 649 + Height = 255 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn3 + end + item + Kind = skSum + Position = spFooter + Column = v2Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2BCOrderNo: TcxGridDBColumn + Tag = 55 + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column5: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object v2Column6: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 47 + end + object v2Column3: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 49 + end + object v2Column4: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Width = 52 + end + object v2Column7: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'PSSHQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 65 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object Panel4: TPanel + Left = 657 + Top = 29 + Width = 575 + Height = 607 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel6: TPanel + Left = 2 + Top = 2 + Width = 571 + Height = 603 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 567 + Height = 318 + Align = alTop + TabOrder = 0 + object Tv7: TcxGridDBTableView + OnDblClick = Tv7DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv7FocusedRecordChanged + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 106 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 157 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv7 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 320 + Width = 567 + Height = 281 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = v3Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column8: TcxGridDBColumn + Caption = #32467#31639#21333#20215 + DataBinding.FieldName = 'JSPrice' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 8 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 826 + Top = 241 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 856 + Top = 240 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 887 + Top = 242 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 433 + Top = 384 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 463 + Top = 387 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 495 + Top = 390 + end + object CDS_BGName: TClientDataSet + Aggregates = <> + Params = <> + Left = 1005 + Top = 134 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 981 + Top = 136 + end + object DS_BGName: TDataSource + DataSet = CDS_BGName + Left = 1040 + Top = 140 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 857 + Top = 458 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 891 + Top = 458 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 923 + Top = 457 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 956 + Top = 459 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 263 + Top = 478 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 293 + Top = 481 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 325 + Top = 484 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.pas b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.pas new file mode 100644 index 0000000..f69dbd0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGJCKMXInput.pas @@ -0,0 +1,1100 @@ +unit U_BGJCKMXInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit, + cxCheckBox, cxCalendar, cxDropDownEdit, cxPC, cxTextEdit; + +type + TfrmBGJCKMXInput = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Panel77: TPanel; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQuery1: TADOQuery; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + Panel3: TPanel; + Panel4: TPanel; + Panel6: TPanel; + cxGrid3: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + CDS_BGName: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + DS_BGName: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource3: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + Tv6Column1: TcxGridDBColumn; + Tv6Column2: TcxGridDBColumn; + ClientDataSet6: TClientDataSet; + cxGridPopupMenu6: TcxGridPopupMenu; + DataSource6: TDataSource; + v6Column1: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column4: TcxGridDBColumn; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2BCOrderNo: TcxGridDBColumn; + v6BCOrderNo: TcxGridDBColumn; + Panel5: TPanel; + Label14: TLabel; + Label4: TLabel; + Label1: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label13: TLabel; + Label15: TLabel; + Label16: TLabel; + cxGrid5: TcxGrid; + TVBGName: TcxGridDBTableView; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + EditCount: TEdit; + OrderNo: TEdit; + MLenStr: TEdit; + ChengJiaoType: TBtnEditA; + HaiYunFee: TEdit; + BaoFee: TEdit; + HuoYuanPlace: TBtnEditA; + ChuKouKA: TBtnEditA; + YunDiG: TBtnEditA; + Panel2: TPanel; + Label2: TLabel; + Label8: TLabel; + Label3: TLabel; + Label5: TLabel; + BGDate: TDateTimePicker; + BCOrderNo: TEdit; + Edit1: TEdit; + Edit2: TEdit; + CheckBox1: TCheckBox; + cxGrid1: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ToolButton1: TToolButton; + ComTaiTou: TBtnEditA; + procedure FormDestroy(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure TBSaveClick(Sender: TObject); + procedure Tv7FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxPageControl1Change(Sender: TObject); + procedure Tv7DblClick(Sender: TObject); + procedure TVBGNameDblClick(Sender: TObject); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn4PropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure HuoYuanPlaceBtnClick(Sender: TObject); + procedure ChuKouKABtnClick(Sender: TObject); + procedure YunDiGBtnClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure ChengJiaoTypeBtnClick(Sender: TObject); + private + { Private declarations } + FInt:String; + function SaveData():Boolean; + procedure InitGridMD(); + public + { Public declarations } + FOrderNo,FBGID,FBCID:String; + end; + +var + frmBGJCKMXInput: TfrmBGJCKMXInput; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList; + +{$R *.dfm} + +procedure TfrmBGJCKMXInput.FormDestroy(Sender: TObject); +begin + frmBGJCKMXInput:=nil; +end; + +procedure TfrmBGJCKMXInput.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('tv2',tv2,'ϸ'); + WriteCxGrid('tv6',tv6,'ϸ'); + Close; +end; + +procedure TfrmBGJCKMXInput.FormShow(Sender: TObject); +var + FMoney,FMQty,FKgQty:String; +begin + + BGDate.DateTime:=SGetServerDate(ADOQueryTemp); + ReadCxGrid('tv2',tv2,'ϸ'); + ReadCxGrid('tv6',tv6,'ϸ'); + v2BCOrderNo.Visible:=False; + v2BCOrderNo.Hidden:=True; + v6BCOrderNo.Visible:=False; + v6BCOrderNo.Hidden:=True; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel5,2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG_CK where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel2,2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_BGName); + SInitCDSData20(ADOQueryTemp,CDS_BGName); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); + BCOrderNo.SetFocus; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMoney),0) BFMoney from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + open; + end; + FMoney:=Trim(ADOQueryTemp.fieldbyname('BFMoney').AsString); + if Trim(FMoney)='' then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + if Trim(FKgQty)<>'' then + begin + if StrToFloat(FKgQty)>0 then + begin + Edit1.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty))); + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + if Trim(FMQty)<>'' then + begin + if StrToFloat(FMQty)>0 then + begin + Edit2.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty))); + end; + end; +end; + +procedure TfrmBGJCKMXInput.Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString); + FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString); + FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value; + FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value; + Post; + end; +end; + +procedure TfrmBGJCKMXInput.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +function TfrmBGJCKMXInput.SaveData():Boolean; +var + maxno,maxsubno,maxNQNo:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYorder_BG',Panel5,2); + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + post; + end; + //SCSHDataNew(ADOQueryTemp,Panel5,2); + /// + if Trim(FBCID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'BC','JYOrder_BG_CK',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FBCID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_BG_CK where BCId='''+Trim(FBCID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FBCID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('BGID').Value:=Trim(FBGID); + FieldByName('BCID').Value:=Trim(maxno); + // RTSetsavedata(ADOQueryCmd,'JYOrder_BG_CK',Panel2,2); + //FieldByName('BGNote').Value:=Trim(BGNote.Text); + if Trim(FInt)<>'99' then + begin + FieldByName('Chker').Value:=Trim(DName); + FieldByName('Chktime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ChkStatus').Value:='ͨ'; + end; + + Post; + end; + + ///汨Ϣӱ + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet6.fieldbyname('NQId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxNQNo,'NQId','JYOrder_BG_CKName_Qty',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxNQNo:=Trim(ClientDataSet6.fieldbyname('NQId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where NQId='''+Trim(maxNQNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('NQId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(FBGID); + {if CheckBox1.Checked=False then + begin + FieldByName('BCId').Value:=Trim(maxno); + end;} + FieldByName('NQId').Value:=Trim(maxNQNo); + RTSetSaveDataCDS(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_BG_CKName_Qty',0); + Post; + end; + ClientDataSet6.Edit; + ClientDataSet6.FieldByName('NQId').Value:=Trim(maxNQNo); + //Order_Sub.Post; + Next; + end; + end; + if CheckBox1.Checked then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set Chker='''+Trim(DName)+''',ChkStatus=''ͨ'' '); + sql.Add(',ChkTime=Getdate()'); + sql.Add(' where BGID='''+Trim(FBGID)+''''); + sql.Add(' and isnull(SSTIme,'''')<>'''' '); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmBGJCKMXInput.TBSaveClick(Sender: TObject); +var + FReal:Double;//a39978874 +begin + ToolBar1.SetFocus; + FInt:=''; + if Trim(BCOrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFPrice',Null,[])=True then + begin + Application.MessageBox('õ۲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFUnit',Null,[])=True then + begin + Application.MessageBox('õλΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFMoney',Null,[])=True then + begin + Application.MessageBox('ýΪ!','ʾ',0); + Exit; + end; + if ClientDataSet6.IsEmpty then + begin + Application.MessageBox('ƷϢΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + //ModalResult:=1; + end; + + +end; + +procedure TfrmBGJCKMXInput.Tv7FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + InitGridMD(); +end; +procedure TfrmBGJCKMXInput.InitGridMD(); +var + fsj:string; +begin + try + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD_BGMX :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(JMM.CKName,'''')='''' '; + fsj:=fsj+' and JMM.PSName='''+Trim(ClientDataSet7.fieldbyname('PSName').AsString)+''''; + fsj:=fsj+' and JMM.FactoryName='''+Trim(ClientDataSet7.fieldbyname('FactoryName').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + finally + ADOQueryTemp.EnableControls; + end; +end; + +procedure TfrmBGJCKMXInput.cxPageControl1Change(Sender: TObject); +begin + InitGridMD(); +end; + +procedure TfrmBGJCKMXInput.Tv7DblClick(Sender: TObject); +begin + {with ClientDataSet2 do + begin + Append; + FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('FactoryNo').Value; + FieldByName('BFQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value; + FieldByName('BFUnit').Value:=ClientDataSet7.fieldbyname('BQUnit').Value; + Post; + end; } +end; + +procedure TfrmBGJCKMXInput.TVBGNameDblClick(Sender: TObject); +begin + with ClientDataSet6 do + begin + Append; + FieldByName('BGName').Value:=CDS_BGName.fieldbyname('BGName').Value; + Post; + end; +end; + +procedure TfrmBGJCKMXInput.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BFName'; + flagname:='ط'; + if ShowModal=1 then + begin + with Self.ClientDataSet2 do + begin + Edit; + FieldByName('BFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXInput.cxGridDBColumn4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty:string; +begin + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FPrice:=Trim(ClientDataSet2.fieldbyname('BFPrice').AsString); + FQty:=Trim(ClientDataSet2.fieldbyname('BFQty').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + with ClientDataSet2 do + begin + Edit; + FieldByName('BFMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + Post; + end; +end; + +procedure TfrmBGJCKMXInput.v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmBGJCKMXInput.v6Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty,FMQty,FMoney,FMLen:string; +begin + FName:=Trim(Tv6.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet6 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Trim(ClientDataSet6.fieldbyname('NQkgQty').AsString); + if Trim(FQty)='' then + begin + FQty:='0'; + end; + FMQty:=Trim(ClientDataSet6.fieldbyname('NQMQty').AsString); + if Trim(FMQty)='' then + begin + FMQty:='0'; + end; + FPrice:=Trim(ClientDataSet6.fieldbyname('BGPrice').AsString); + FMoney:=Trim(ClientDataSet6.fieldbyname('BGMoney').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FMQty)='' then + begin + FMQty:='0'; + end; + if Trim(FMoney)='' then + begin + FMoney:='0'; + end; + with ClientDataSet6 do + begin + Edit; + if Trim(FName)='BGPrice' then + begin + if Trim(ClientDataSet6.fieldbyname('NQUnit').AsString)='M' then + begin + FieldByName('BGMoney').Value:=StrToFloat(FPrice)*StrToFloat(FMQty); + end else + begin + FieldByName('BGMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + end; + end else + begin + if Trim(ClientDataSet6.fieldbyname('NQUnit').AsString)='M' then + begin + if Trim(FMQty)<>'0' then + FieldByName('BGPrice').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FMQty) + else + FieldByName('BGPrice').Value:=0; + end else + begin + if Trim(FQty)<>'0' then + FieldByName('BGPrice').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FQty) + else + FieldByName('BGPrice').Value:=0; + end; + end; + Post; + end; +end; + +procedure TfrmBGJCKMXInput.CheckBox1Click(Sender: TObject); +var + FMoney,FMQty,FKgQty:String; +begin + if CheckBox1.Checked=False then + begin + v2BCOrderNo.Visible:=False; + v2BCOrderNo.Hidden:=True; + v6BCOrderNo.Visible:=False; + v6BCOrderNo.Hidden:=True; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(FBCID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); + BCOrderNo.SetFocus; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMoney),0) BFMoney from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + open; + end; + FMoney:=Trim(ADOQueryTemp.fieldbyname('BFMoney').AsString); + if Trim(FMoney)='' then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + if Trim(FKgQty)<>'' then + begin + if StrToFloat(FKgQty)>0 then + begin + Edit1.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty))); + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + if Trim(FMQty)<>'' then + begin + if StrToFloat(FMQty)>0 then + begin + Edit2.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty))); + end; + end; + end else + begin + v2BCOrderNo.Visible:=True; + v2BCOrderNo.Hidden:=False; + v6BCOrderNo.Visible:=True; + v6BCOrderNo.Hidden:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.BCOrderNo '); + sql.Add(' from JYOrder_BG_KPFee A'); + sql.Add(' inner join JYOrder_BG_CK B on A.BCID=B.BCID'); + sql.Add(' where B.BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.BCOrderNo '); + sql.Add(' from JYOrder_BG_CKName_Qty A'); + sql.Add(' inner join JYOrder_BG_CK B on A.BCID=B.BCID'); + sql.Add(' where B.BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); + BCOrderNo.SetFocus; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMoney),0) BFMoney from JYOrder_BG_KPFee where BGID='''+Trim(FBGID)+''''); + open; + end; + FMoney:=Trim(ADOQueryTemp.fieldbyname('BFMoney').AsString); + if Trim(FMoney)='' then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BGID='''+Trim(FBGID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BGID='''+Trim(FBGID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + if Trim(FKgQty)<>'' then + begin + if StrToFloat(FKgQty)>0 then + begin + Edit1.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty))); + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BGID='''+Trim(FBGID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BGID='''+Trim(FBGID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + if Trim(FMQty)<>'' then + begin + if StrToFloat(FMQty)>0 then + begin + Edit2.Text:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty))); + end; + end; + end; + + +end; + +procedure TfrmBGJCKMXInput.HuoYuanPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='HuoYuanPlace'; + flagname:='Դ'; + if ShowModal=1 then + begin + //if Application.MessageBox('ȷҪĻԴ','ʾ',32+4)<>IDYES then Exit; + begin + HuoYuanPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + {with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set HuoYuanPlace='''+Trim(HuoYuanPlace.Text)+''',EditTime=Getdate(),Editer='''+Trim(DName)+''''); + sql.Add(' where BGID='''+Trim(FBGID)+''''); + ExecSQL; + end;} + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXInput.ChuKouKABtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChuKouKA'; + flagname:='ڿڰ'; + if ShowModal=1 then + begin + //if Application.MessageBox('ȷҪĻԴ','ʾ',32+4)<>IDYES then Exit; + begin + ChuKouKA.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + { with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set ChuKouKA='''+Trim(ChuKouKA.Text)+''',EditTime=Getdate(),Editer='''+Trim(DName)+''''); + sql.Add(' where BGID='''+Trim(FBGID)+''''); + ExecSQL; + end;} + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXInput.YunDiGBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YunDiG'; + flagname:='˵ֹ'; + if ShowModal=1 then + begin + //if Application.MessageBox('ȷҪĻԴ','ʾ',32+4)<>IDYES then Exit; + begin + YunDiG.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + {with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set YunDiG='''+Trim(YunDiG.Text)+''',EditTime=Getdate(),Editer='''+Trim(DName)+''''); + sql.Add(' where BGID='''+Trim(FBGID)+''''); + ExecSQL; + end; } + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXInput.ToolButton1Click(Sender: TObject); +begin + ToolBar1.SetFocus; + FInt:='99'; + if Trim(BCOrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFPrice',Null,[])=True then + begin + Application.MessageBox('õ۲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFUnit',Null,[])=True then + begin + Application.MessageBox('õλΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BFMoney',Null,[])=True then + begin + Application.MessageBox('ýΪ!','ʾ',0); + Exit; + end; + if ClientDataSet6.IsEmpty then + begin + Application.MessageBox('ƷϢΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + //ModalResult:=1; + end; +end; + +procedure TfrmBGJCKMXInput.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGJCKMXInput.ChengJiaoTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChengJiaoType'; + flagname:='ɽʽ'; + if ShowModal=1 then + begin + ChengJiaoType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.dfm new file mode 100644 index 0000000..77ebf6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.dfm @@ -0,0 +1,1316 @@ +object frmBGLDChk: TfrmBGLDChk + Left = 12 + Top = 34 + Width = 1271 + Height = 675 + Caption = #25253#20851#36164#26009#21333#23457#26680 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1263 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBView: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23457#26680#19981#36890#36807 + ImageIndex = 32 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 375 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton3: TToolButton + Left = 462 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 549 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1263 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 262 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 164 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 303 + Top = 7 + Width = 128 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 67 + Width = 1263 + Height = 577 + ActivePage = cxTabSheet1 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 9 + TabOrder = 2 + ClientRectBottom = 577 + ClientRectRight = 1263 + ClientRectTop = 19 + object cxTabSheet1: TcxTabSheet + Caption = #25253#20851#36164#26009#21333 + ImageIndex = 0 + object Panel2: TPanel + Left = 631 + Top = 21 + Width = 632 + Height = 537 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxPageControl2: TcxPageControl + Left = 2 + Top = 2 + Width = 628 + Height = 533 + ActivePage = cxTabSheet4 + Align = alClient + Style = 8 + TabOrder = 0 + ClientRectBottom = 533 + ClientRectRight = 628 + ClientRectTop = 23 + object cxTabSheet2: TcxTabSheet + Caption = #25253#20851#26126#32454#20449#24687 + ImageIndex = 0 + object cxGrid11: TcxGrid + Left = 0 + Top = 0 + Width = 628 + Height = 279 + Align = alClient + TabOrder = 0 + object Tv11: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv11CellClick + DataController.DataSource = DS_11 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Bands = < + item + Caption = #22522#26412#20449#24687 + Width = 203 + end + item + Caption = #20986#21475 + Width = 138 + end + item + Caption = #25253#20851 + Width = 286 + end + item + Width = 62 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ChuKouPS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 30 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn3: TcxGridDBBandedColumn + Caption = #20844#26020 + DataBinding.FieldName = 'ChuKouKgQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 39 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn4: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'ChuKouMiQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 41 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn5: TcxGridDBBandedColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn6: TcxGridDBBandedColumn + Caption = #21367#25968 + DataBinding.FieldName = 'BGPS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 60 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Caption = #27611#37325 + DataBinding.FieldName = 'BGKgMZ' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 65 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 64 + Position.BandIndex = 2 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn10: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BGPrice' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 51 + Position.BandIndex = 2 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn11: TcxGridDBBandedColumn + Caption = #20928#37325 + DataBinding.FieldName = 'BGKgJZ' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 69 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn12: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BGMiQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 58 + Position.BandIndex = 2 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BGNote' + Options.Moving = False + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGridLevel7: TcxGridLevel + GridView = Tv11 + end + end + object cxGrid19: TcxGrid + Left = 0 + Top = 279 + Width = 628 + Height = 231 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv19: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_19 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn43: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 203 + end + object Tv19Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'NQQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object Tv19Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 50 + end + end + object cxGridLevel10: TcxGridLevel + GridView = Tv19 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #30721#21333#20449#24687 + ImageIndex = 1 + object cxGrid7: TcxGrid + Left = 0 + Top = 0 + Width = 628 + Height = 510 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #20854#23427#36153#29992 + ImageIndex = 2 + object cxGrid4: TcxGrid + Left = 0 + Top = 21 + Width = 628 + Height = 489 + Align = alClient + TabOrder = 0 + object TvFee: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_Fee + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn17 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object vFeeColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 36 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'MHdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 81 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 54 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 59 + end + object TvFeeColumn2: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'QTChker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object TvFeeColumn1: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'QTChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TvFeeColumn3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'QTChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 111 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TvFee + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 0 + Width = 628 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 628 + ClientRectTop = 23 + end + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 0 + Width = 1263 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1263 + ClientRectTop = 23 + end + object Panel4: TPanel + Left = 0 + Top = 21 + Width = 631 + Height = 537 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 629 + Height = 160 + Align = alTop + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 98 + end + object v1Column2: TcxGridDBColumn + Caption = #27425#25968 + DataBinding.FieldName = 'EditCount' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #25253#20851#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLenStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #28023#36816#36153'$' + DataBinding.FieldName = 'HaiYunFee' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #20445#36153'$' + DataBinding.FieldName = 'BaoFee' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column14: TcxGridDBColumn + Caption = #25104#20132#26041#24335 + DataBinding.FieldName = 'ChengJiaoType' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column9: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 58 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid5: TcxGrid + Left = 1 + Top = 161 + Width = 629 + Height = 108 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object TVBGName: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSBGName + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 178 + end + object v1Column1: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TVBGName + end + end + object Panel3: TPanel + Left = 1 + Top = 269 + Width = 629 + Height = 267 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 303 + Top = 2 + Width = 324 + Height = 263 + Align = alRight + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object TVPrice: TcxGridDBTableView + OnDblClick = TVPriceDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn11: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21512#21516#21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #23545#36134#21333#20215 + DataBinding.FieldName = 'JSPrice' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 58 + end + object VPriceColumn1: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object VPriceColumn2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TVPrice + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 293 + Height = 263 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn4 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 64 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 295 + Top = 2 + Width = 8 + Height = 263 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid3 + end + end + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 363 + Top = 189 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 193 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 430 + Top = 196 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 791 + Top = 4 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 820 + Top = 7 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 984 + Top = 2 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 65535 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1101 + Top = 227 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 1160 + Top = 227 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1132 + Top = 226 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 238 + Top = 473 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 263 + Top = 471 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 306 + Top = 488 + end + object CDS_11: TClientDataSet + Aggregates = <> + Params = <> + Left = 1067 + Top = 396 + end + object cxGridPopupMenu11: TcxGridPopupMenu + PopupMenus = <> + Left = 1067 + Top = 424 + end + object DS_11: TDataSource + DataSet = CDS_11 + Left = 1068 + Top = 452 + end + object CDS_19: TClientDataSet + Aggregates = <> + Params = <> + Left = 1109 + Top = 522 + end + object cxGridPopupMenu19: TcxGridPopupMenu + PopupMenus = <> + Left = 1171 + Top = 522 + end + object DS_19: TDataSource + DataSet = CDS_19 + Left = 1140 + Top = 521 + end + object CDS_BGName: TClientDataSet + Aggregates = <> + Params = <> + Left = 390 + Top = 315 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 369 + Top = 312 + end + object DSBGName: TDataSource + DataSet = CDS_BGName + Left = 326 + Top = 303 + end + object CDS_Price: TClientDataSet + Aggregates = <> + Params = <> + Left = 434 + Top = 471 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 469 + Top = 474 + end + object DataSource3: TDataSource + DataSet = CDS_Price + Left = 499 + Top = 474 + end + object DS_Fee: TDataSource + DataSet = CDS_Fee + Left = 917 + Top = 468 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 916 + Top = 440 + end + object CDS_Fee: TClientDataSet + Aggregates = <> + Params = <> + Left = 916 + Top = 412 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.pas b/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.pas new file mode 100644 index 0000000..55e787b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGLDChk.pas @@ -0,0 +1,674 @@ +unit U_BGLDChk; //22 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC, + BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxDropDownEdit, + cxButtonEdit, cxTextEdit, cxCheckBox, cxSplitter; + +type + TfrmBGLDChk = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBView: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + Order_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryPrint: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + Panel2: TPanel; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + CDS_11: TClientDataSet; + cxGridPopupMenu11: TcxGridPopupMenu; + DS_11: TDataSource; + CDS_19: TClientDataSet; + cxGridPopupMenu19: TcxGridPopupMenu; + DS_19: TDataSource; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Panel4: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + CDS_BGName: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + DSBGName: TDataSource; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid5: TcxGrid; + TVBGName: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxPageControl2: TcxPageControl; + cxTabSheet2: TcxTabSheet; + cxGrid11: TcxGrid; + Tv11: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridDBBandedColumn3: TcxGridDBBandedColumn; + cxGridDBBandedColumn4: TcxGridDBBandedColumn; + cxGridDBBandedColumn5: TcxGridDBBandedColumn; + cxGridDBBandedColumn6: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + cxGridDBBandedColumn10: TcxGridDBBandedColumn; + cxGridDBBandedColumn11: TcxGridDBBandedColumn; + cxGridDBBandedColumn12: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridLevel7: TcxGridLevel; + cxGrid19: TcxGrid; + Tv19: TcxGridDBTableView; + cxGridDBColumn43: TcxGridDBColumn; + Tv19Column1: TcxGridDBColumn; + Tv19Column2: TcxGridDBColumn; + cxGridLevel10: TcxGridLevel; + cxTabSheet3: TcxTabSheet; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + v7Column2: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ToolButton4: TToolButton; + Panel3: TPanel; + cxGrid3: TcxGrid; + TVPrice: TcxGridDBTableView; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + CDS_Price: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource3: TDataSource; + cxTabSheet4: TcxTabSheet; + cxGrid4: TcxGrid; + TvFee: TcxGridDBTableView; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + TvFeeColumn1: TcxGridDBColumn; + TvFeeColumn2: TcxGridDBColumn; + TvFeeColumn3: TcxGridDBColumn; + vFeeColumn1: TcxGridDBColumn; + DS_Fee: TDataSource; + cxGridPopupMenu4: TcxGridPopupMenu; + CDS_Fee: TClientDataSet; + cxTabControl2: TcxTabControl; + VPriceColumn1: TcxGridDBColumn; + VPriceColumn2: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton3Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv11CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton4Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TVPriceDblClick(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmBGLDChk: TfrmBGLDChk; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, + U_BGZLInput,U_BGJCKMXInput,U_CWMDOtherFeeList; + +{$R *.dfm} + +procedure TfrmBGLDChk.FormDestroy(Sender: TObject); +begin + frmBGLDChk:=nil; +end; + +procedure TfrmBGLDChk.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGLDChk.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ϵ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBGLDChk.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ع'); + WriteCxGrid('Tv2',Tv2,'ع'); + + Close; +end; + +procedure TfrmBGLDChk.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.DateTime-30; + cxPageControl1.ActivePageIndex:=0; + cxTabControl1.TabIndex:=0; + InitGrid(); + ReadCxGrid('Tv1',Tv1,'ع'); + ReadCxGrid('Tv2',Tv2,'ع'); + cxPageControl2.ActivePageIndex:=1; +end; + +procedure TfrmBGLDChk.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where isnull(ChkStatus,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBGLDChk.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGLDChk.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + FMainId:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_BGName); + SInitCDSData20(ADOQueryTemp,CDS_BGName); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(FMainId); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_Fee where Mainid='''+Trim(FMainId)+''''); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(BGID,'''')='''' '); + end else + begin + sql.Add(' and isnull(BGID,'''')='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Fee); + SInitCDSData20(ADOQueryTemp,CDS_Fee);} + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ A where ORDMainId='''+Trim(FMainId)+''''); + sql.Add(' and exists(select * from KH_Zdy B where B.ZdyName=A.ItemName and B.Type=''YFName'' and isnull(Note,'''')='''' )'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(BGID,'''')='''' '); + end else + begin + sql.Add(' and isnull(BGID,'''')='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Fee); + SInitCDSData20(ADOQueryTemp,CDS_Fee); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_11); + SInitCDSData20(ADOQueryTemp,CDS_11); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_19); + SInitCDSData20(ADOQueryTemp,CDS_19); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGLDChk.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGLDChk.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set ChkStatus=''ͨ'',ChkTime=getdate(),Chker='''+Trim(DName)+''''); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + if cxPageControl2.ActivePageIndex=2 then + begin + if cxTabControl2.TabIndex=0 then + begin + with CDS_Fee do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set QTChkStatus=''ͨ'',QTChkTime=getdate(),QTChker='''+Trim(DName)+''''); + sql.Add(',BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + SQL.Add(' where MHID='''+Trim(CDS_Fee.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('QTChkStatus').Value:='ͨ'; + FieldByName('QTChkTime').Value:=Now; + FieldByName('QTChker').Value:=Trim(DName); + Post; + CDS_Fee.Delete; + end; + end; + end; + end; + + Order_Main.Delete; +end; + +procedure TfrmBGLDChk.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set ChkStatus=''˲ͨ'',ChkTime=getdate(),Chker='''+Trim(DName)+''''); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGLDChk.TBViewClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; + end; +end; + +procedure TfrmBGLDChk.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmBGLDChk.Tv11CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_19); + SInitCDSData20(ADOQueryTemp,CDS_19); +end; + +procedure TfrmBGLDChk.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_11.IsEmpty=False then + begin + Application.MessageBox('Ѳݣܳ!','ʾ',0); + Exit; + end; + if Trim(Order_Main.fieldbyname('Valid').AsString)='N' then + begin + Application.MessageBox('ݲܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set ChkStatus='''',ChkTime=Null,Chker=Null '); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + if cxPageControl2.ActivePageIndex=2 then + begin + if cxTabControl2.TabIndex=1 then + begin + with CDS_Fee do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set QTChkStatus='''',QTChkTime=NUll,QTChker='''' '); + sql.Add(',BGID='''' '); + SQL.Add(' where MHID='''+Trim(CDS_Fee.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + CDS_Fee.Delete; + end; + end; + end; + end; + Order_Main.Delete; +end; + +procedure TfrmBGLDChk.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmBGLDChk.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBGLDChk.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + try + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + //fsj:=' and isnull(JMM.CKName,'''')='''' '; + fsj:=fsj+' and JMM.PSName='''+Trim(ClientDataSet2.fieldbyname('PSName').AsString)+''''; + fsj:=fsj+' and JMM.FactoryName='''+Trim(ClientDataSet2.fieldbyname('FactoryName').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Price); + SInitCDSData20(ADOQueryTemp,CDS_Price); + finally + ADOQueryTemp.EnableControls; + end; +end; + +procedure TfrmBGLDChk.TVPriceDblClick(Sender: TObject); +begin + try + frmCWMDOtherFeeList:=TfrmCWMDOtherFeeList.Create(Application); + with frmCWMDOtherFeeList do + begin + orderNo.Text:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + PSName.Text:=Trim(Self.ClientDataSet2.fieldbyname('PSName').AsString); + MDFactoryName.Text:=Trim(Self.ClientDataSet2.fieldbyname('FactoryName').AsString); + FFPInt:=9; + if ShowModal=1 then + begin + + end; + end; + finally + frmCWMDOtherFeeList.Free; + end; +end; + +procedure TfrmBGLDChk.cxTabControl2Change(Sender: TObject); +var + FMainId:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ A where ORDMainId='''+Trim(FMainId)+''''); + sql.Add(' and exists(select * from KH_Zdy B where B.ZdyName=A.ItemName and B.Type=''YFName'' and isnull(Note,'''')='''' )'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(BGID,'''')='''' '); + end else + begin + sql.Add(' and isnull(BGID,'''')='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Fee); + SInitCDSData20(ADOQueryTemp,CDS_Fee); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.dfm new file mode 100644 index 0000000..4914caa --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.dfm @@ -0,0 +1,1227 @@ +object frmBGLDManage: TfrmBGLDManage + Left = 36 + Top = 82 + Width = 1271 + Height = 675 + Caption = #25253#20851#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1255 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton4: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 28 + OnClick = ToolButton4Click + end + object TBView: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #30830#35748 + ImageIndex = 75 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 654 + Top = 0 + Caption = #30830#35748#25764#38144 + ImageIndex = 52 + OnClick = ToolButton6Click + end + object TBPrint: TToolButton + Left = 737 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object ToolButton3: TToolButton + Left = 800 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 887 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1255 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 262 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 164 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 303 + Top = 7 + Width = 139 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object CheckBox1: TCheckBox + Left = 478 + Top = 9 + Width = 140 + Height = 17 + Caption = #26174#31034#23457#26680#19981#36890#36807#25968#25454 + TabOrder = 3 + OnClick = CheckBox1Click + end + object CheckBox2: TCheckBox + Left = 650 + Top = 9 + Width = 110 + Height = 17 + Caption = #26174#31034#26080#25928#25968#25454 + TabOrder = 4 + OnClick = CheckBox2Click + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 67 + Width = 1255 + Height = 569 + ActivePage = cxTabSheet1 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 9 + TabOrder = 2 + ClientRectBottom = 569 + ClientRectRight = 1255 + ClientRectTop = 19 + object cxTabSheet1: TcxTabSheet + Caption = #25253#20851#36164#26009#21333 + ImageIndex = 0 + object Panel2: TPanel + Left = 623 + Top = 21 + Width = 632 + Height = 529 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxPageControl2: TcxPageControl + Left = 2 + Top = 2 + Width = 628 + Height = 525 + ActivePage = cxTabSheet2 + Align = alClient + Style = 8 + TabOrder = 0 + ClientRectBottom = 525 + ClientRectRight = 628 + ClientRectTop = 23 + object cxTabSheet2: TcxTabSheet + Caption = #36130#21153#21453#39304#20449#24687 + ImageIndex = 0 + object cxGrid6: TcxGrid + Left = 0 + Top = 368 + Width = 628 + Height = 134 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv19: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv19CellDblClick + DataController.DataSource = DS_19 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 138 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv19Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object Tv19Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v6Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NQNote' + HeaderAlignmentHorz = taCenter + Width = 93 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv19 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 628 + Height = 136 + Align = alTop + PopupMenu = PopupMenu2 + TabOrder = 1 + object Tv11: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv11CellClick + DataController.DataSource = DS_11 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn12: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 92 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v11Column1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v11Column2: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v11Column3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30830#35748#20154 + DataBinding.FieldName = 'OKPerson' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #30830#35748#26102#38388 + DataBinding.FieldName = 'OKTime' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #24050#30830#35748 + DataBinding.FieldName = 'OKFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 59 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv11 + end + end + object cxGrid12: TcxGrid + Left = 0 + Top = 136 + Width = 654 + Height = 232 + Align = alLeft + TabOrder = 2 + object Tv12: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource12 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn15 + end + item + Kind = skSum + Position = spFooter + Column = v12Column2 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object vJCKMXColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v12Column1: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v12Column2: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v12Column3: TcxGridDBColumn + Caption = #25439#32791 + DataBinding.FieldName = 'PSSHQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 105 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv12 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #30721#21333#20449#24687 + ImageIndex = 1 + object cxGrid7: TcxGrid + Left = 0 + Top = 0 + Width = 628 + Height = 502 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 0 + Width = 1255 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24453#30830#35748 + #24050#30830#35748 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1255 + ClientRectTop = 23 + end + object Panel4: TPanel + Left = 0 + Top = 21 + Width = 623 + Height = 529 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 621 + Height = 200 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 98 + end + object v1Column1: TcxGridDBColumn + Caption = #25209#27425 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #27425#25968 + DataBinding.FieldName = 'EditCount' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #25253#20851#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLenStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #28023#36816#36153'$' + DataBinding.FieldName = 'HaiYunFee' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column13: TcxGridDBColumn + Caption = #20445#36153'$' + DataBinding.FieldName = 'BaoFee' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column14: TcxGridDBColumn + Caption = #25104#20132#26041#24335 + DataBinding.FieldName = 'ChengJiaoType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column9: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column10: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel8: TPanel + Left = 1 + Top = 309 + Width = 621 + Height = 219 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 617 + Height = 215 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 176 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxGrid5: TcxGrid + Left = 1 + Top = 201 + Width = 621 + Height = 108 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + object TVBGName: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSBGName + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 178 + end + object v1Column1ty: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TVBGName + end + end + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 637 + Top = 309 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 668 + Top = 309 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 697 + Top = 309 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1083 + Top = 5 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1023 + Top = 7 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 984 + Top = 2 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 65535 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1101 + Top = 227 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 1160 + Top = 227 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1132 + Top = 226 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 393 + Top = 525 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 424 + Top = 525 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 457 + Top = 528 + end + object CDS_11: TClientDataSet + Aggregates = <> + Params = <> + Left = 1067 + Top = 396 + end + object cxGridPopupMenu11: TcxGridPopupMenu + PopupMenus = <> + Left = 1067 + Top = 424 + end + object DS_11: TDataSource + DataSet = CDS_11 + Left = 1068 + Top = 452 + end + object CDS_19: TClientDataSet + Aggregates = <> + Params = <> + Left = 1109 + Top = 522 + end + object cxGridPopupMenu19: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 1171 + Top = 522 + end + object DS_19: TDataSource + DataSet = CDS_19 + Left = 1140 + Top = 521 + end + object CDS_BGName: TClientDataSet + Aggregates = <> + Params = <> + Left = 630 + Top = 524 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 659 + Top = 526 + end + object DSBGName: TDataSource + DataSet = CDS_BGName + Left = 688 + Top = 526 + end + object PopupMenu1: TPopupMenu + Left = 799 + Top = 422 + object N1: TMenuItem + Caption = #23548#20986 + OnClick = N1Click + end + end + object PopupMenu2: TPopupMenu + Left = 773 + Top = 180 + object MenuItem1: TMenuItem + Caption = #25171#21360 + OnClick = MenuItem1Click + end + end + object ClientDataSet12: TClientDataSet + Aggregates = <> + Params = <> + Left = 1166 + Top = 385 + end + object DataSource12: TDataSource + DataSet = ClientDataSet12 + Left = 1133 + Top = 387 + end + object cxGridPopupMenu12: TcxGridPopupMenu + Grid = cxGrid12 + PopupMenus = <> + Left = 1204 + Top = 386 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB19 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 804 + Top = 181 + ReportData = {} + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 843 + Top = 181 + end + object RMDB12: TRMDBDataSet + Visible = True + DataSet = ClientDataSet12 + Left = 875 + Top = 179 + end + object RMDB19: TRMDBDataSet + Visible = True + DataSet = CDS_19 + Left = 908 + Top = 180 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.pas b/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.pas new file mode 100644 index 0000000..d34ca21 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGLDManage.pas @@ -0,0 +1,817 @@ +unit U_BGLDManage; //22 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC, + BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxDropDownEdit, + cxCheckBox, Menus, RM_Dataset, RM_Common, RM_Class, RM_e_Xls, RM_System, + RM_GridReport; + +type + TfrmBGLDManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBView: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + Order_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryPrint: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + Panel2: TPanel; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + CDS_11: TClientDataSet; + cxGridPopupMenu11: TcxGridPopupMenu; + DS_11: TDataSource; + CDS_19: TClientDataSet; + cxGridPopupMenu19: TcxGridPopupMenu; + DS_19: TDataSource; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton4: TToolButton; + Panel4: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + CDS_BGName: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + DSBGName: TDataSource; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Panel8: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid5: TcxGrid; + TVBGName: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + v1Column1ty: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxPageControl2: TcxPageControl; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + v7Column2: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid6: TcxGrid; + Tv19: TcxGridDBTableView; + cxGridDBColumn11: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + Tv19Column1: TcxGridDBColumn; + Tv19Column2: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column4: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + ToolButton5: TToolButton; + cxGrid3: TcxGrid; + Tv11: TcxGridDBTableView; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + v11Column1: TcxGridDBColumn; + v11Column2: TcxGridDBColumn; + v11Column3: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ToolButton6: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + cxGrid12: TcxGrid; + Tv12: TcxGridDBTableView; + vJCKMXColumn1: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + v12Column1: TcxGridDBColumn; + v12Column2: TcxGridDBColumn; + v12Column3: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + ClientDataSet12: TClientDataSet; + DataSource12: TDataSource; + cxGridPopupMenu12: TcxGridPopupMenu; + RM1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + RMDB12: TRMDBDataSet; + RMDB19: TRMDBDataSet; + CheckBox1: TCheckBox; + CheckBox2: TCheckBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton3Click(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv11CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv19CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitGrid(); + public + FSel:String; + { Public declarations } + end; + +var + frmBGLDManage: TfrmBGLDManage; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, + U_BGZLInput,U_BGJCKMXInput; + +{$R *.dfm} + +procedure TfrmBGLDManage.FormDestroy(Sender: TObject); +begin + frmBGLDManage:=nil; +end; + +procedure TfrmBGLDManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGLDManage.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='˵'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBGLDManage.TBAddClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=''; + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end; +end; + +procedure TfrmBGLDManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ع'); + WriteCxGrid('Tv2',Tv2,'ع'); + + Close; +end; + +procedure TfrmBGLDManage.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.DateTime-30; + cxPageControl1.ActivePageIndex:=0; + ReadCxGrid('Tv1',Tv1,'ع'); + ReadCxGrid('Tv2',Tv2,'ع'); + if Trim(FSel)='99' then + begin + cxTabControl1.TabIndex:=3; + frmBGLDManage.Align:=alClient; + end else + begin + cxTabControl1.TabIndex:=0; + end; + InitGrid(); + cxPageControl2.ActivePageIndex:=0; +end; + +procedure TfrmBGLDManage.InitGrid(); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG A where 1=1'); + if Trim(canshu1)<>'Ȩ' then + begin + //sql.Add(' and Filler='''+Trim(DName)+''''); + fsj:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + SQL.Add(fsj); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + SQL.Add(' and not exists(select * from JYOrder_BG_CK B where B.BGID=A.BGID and isnull(B.ChkStatus,'''')=''ͨ'' )'); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + SQL.Add(' and exists(select * from JYOrder_BG_CK B where B.BGID=A.BGID and isnull(B.ChkStatus,'''')=''ͨ'' and B.OKFlag=0 )'); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + SQL.Add(' and not exists(select * from JYOrder_BG_CK B where B.BGID=A.BGID and isnull(B.ChkStatus,'''')=''ͨ'' and B.OKFlag=0 )'); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if CheckBox1.Checked=False then + begin + sql.Add('and isnull(ChkStatus,'''')<>''˲ͨ'' '); + end; + if CheckBox2.Checked=False then + begin + + sql.Add('and isnull(Valid,'''')<>''N'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBGLDManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGLDManage.TBEditClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; + end; +end; + +procedure TfrmBGLDManage.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + FMainId:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_BGName); + SInitCDSData20(ADOQueryTemp,CDS_BGName); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(FMainId); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CK where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_11); + SInitCDSData20(ADOQueryTemp,CDS_11); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_19); + SInitCDSData20(ADOQueryTemp,CDS_19); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet12); + SInitCDSData20(ADOQueryTemp,ClientDataSet12); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGLDManage.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGLDManage.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set ChkStatus='''',SSTime=getdate() '); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGLDManage.TBDelClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>0 then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + sql.Add('delete JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + sql.Add('delete JYOrder_BG where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGLDManage.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + {if CDS_11.IsEmpty=False then + begin + Application.MessageBox('ѵǼݣܳ!','ʾ',0); + Exit; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG '); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣܳ!','ʾ',0); + Exit; + end; + if Trim(Order_Main.fieldbyname('Valid').AsString)='N' then + begin + Application.MessageBox('ݲܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set ChkStatus='''',SSTime=Null '); + sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmBGLDManage.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex>2 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + sql.Add(' and isnull(BatchNo,'''')='''+Trim(Order_Main.fieldbyname('BatchNo').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('˶δݣִиƲ!','ʾ',0); + Exit; + end; + if Application.MessageBox(Pchar('ȷҪִд˲ִд˲'+#13+'֮ǰ¼ݽ!'),'ʾ',32+4)<>IDYES then Exit; + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FCopyInt:=1; + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; +end; + +procedure TfrmBGLDManage.TBViewClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; + end; +end; + +procedure TfrmBGLDManage.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmBGLDManage.Tv11CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_19); + SInitCDSData20(ADOQueryTemp,CDS_19); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet12); + SInitCDSData20(ADOQueryTemp,ClientDataSet12); +end; + +procedure TfrmBGLDManage.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmBGLDManage.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBGLDManage.ToolButton5Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if CDS_11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>2 then Exit; + if cxPageControl2.ActivePageIndex<>0 then exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set OKFlag=1,OKTime=getdate(),OKPerson='''+Trim(DName)+''''); + sql.Add(' where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + with CDS_11 do + begin + Edit; + FieldByName('OKFlag').Value:=True; + FieldByName('OKTime').Value:=Now; + FieldByName('OKPerson').Value:=Trim(DName); + Post; + end; +end; + +procedure TfrmBGLDManage.ToolButton6Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if CDS_11.IsEmpty then Exit; + if cxTabControl1.TabIndex<>3 then Exit; + if cxPageControl2.ActivePageIndex<>0 then exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG_CK Set OKFlag=0,OKTime=NUll,OKPerson=Null'); + sql.Add(' where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+''''); + ExecSQL; + end; + with CDS_11 do + begin + Edit; + FieldByName('OKFlag').Value:=False; + FieldByName('OKTime').Value:=Null; + FieldByName('OKPerson').Value:=''; + Post; + end; +end; + +procedure TfrmBGLDManage.N1Click(Sender: TObject); +begin + if CDS_19.IsEmpty then Exit; + TcxGridToExcel('Ϣ',cxGrid6); +end; + +procedure TfrmBGLDManage.MenuItem1Click(Sender: TObject); +var + fPrintFile:string; + FMoney,FMQty,FKgQty,FBCID,FPrice:String; +begin + FBCID:=Trim(CDS_11.fieldbyname('BCID').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''''); + sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')'); + open; + end; + FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString); + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ڱϸLD.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['BCOrderNo']:=CDS_11.fieldbyname('BCOrderNo').Value; + RMVariables['BGDate']:=CDS_11.fieldbyname('BGDate').Value; + RMVariables['FMQty']:=FMQty; + RMVariables['FKgQty']:=FKgQty; + RMVariables['FPrice']:=FPrice; + RMVariables['HaiYunFee']:=Order_Main.fieldbyname('HaiYunFee').Value; + RMVariables['BaoFee']:=Order_Main.fieldbyname('BaoFee').Value; + RMVariables['YunDiG']:=Order_Main.fieldbyname('YunDiG').Value; + RMVariables['ChuKouKA']:=Order_Main.fieldbyname('ChuKouKA').Value; + RMVariables['HuoYuanPlace']:=Order_Main.fieldbyname('HuoYuanPlace').Value; + RMVariables['ChengJiaoType']:=Order_Main.fieldbyname('ChengJiaoType').Value; + RMVariables['ComTaiTou']:=Order_Main.fieldbyname('ComTaiTou').Value; + + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ڱϸLD.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +procedure TfrmBGLDManage.Tv19CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_19.IsEmpty then Exit; + if Trim(FSel)='99' then + begin + CDS_BGName.Locate('BGName',Trim(CDS_19.fieldbyname('BGName').AsString),[]); + ModalResult:=1; + end; +end; + +procedure TfrmBGLDManage.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGLDManage.CheckBox2Click(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.dfm new file mode 100644 index 0000000..3a4df0e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.dfm @@ -0,0 +1,355 @@ +object frmBGMXSelList: TfrmBGMXSelList + Left = 68 + Top = 11 + Width = 1175 + Height = 697 + Align = alClient + Caption = #25253#20851#26126#32454#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1159 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1159 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label9: TLabel + Left = 57 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 98 + Top = 11 + Width = 183 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 73 + Width = 1159 + Height = 585 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn3 + end + item + Kind = skSum + Position = spFooter + Column = v2Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v2Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'BFQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 63 + end + object v2Column3: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 55 + end + object v2Column4: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BFMQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Options.Editing = False + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'BFUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 55 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column4: TcxGridDBColumn + Caption = #24050#21040#21457#31080#37329#39069 + DataBinding.FieldName = 'FPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 376 + Top = 326 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 326 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 312 + Top = 326 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 326 + end + object PopupMenu1: TPopupMenu + Left = 264 + Top = 232 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + end + object DataSource2: TDataSource + DataSet = CDS_HZ + Left = 328 + Top = 230 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 360 + Top = 230 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 392 + Top = 230 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.pas new file mode 100644 index 0000000..e765a2b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.pas @@ -0,0 +1,158 @@ +unit U_BGMXSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxPC, cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmBGMXSelList = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Panel1: TPanel; + Label9: TLabel; + OrderNo: TEdit; + ToolButton2: TToolButton; + N1: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + DataSource2: TDataSource; + CDS_HZ: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + v2Column5: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + private + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmBGMXSelList: TfrmBGMXSelList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmBGMXSelList.FormDestroy(Sender: TObject); +begin + frmBGMXSelList:=nil; +end; + +procedure TfrmBGMXSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGMXSelList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmBGMXSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ϸбѡ1',Tv1,'Ʊ'); +end; +procedure TfrmBGMXSelList.InitForm(); +begin + ReadCxGrid('ϸбѡ1',Tv1,'Ʊ'); +end; +procedure TfrmBGMXSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmBGMXSelList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus, '); + sql.Add(' FPMoney=(select Sum(Money) from FP_GYSNB AA where AA.BFID=A.BFID)'); + sql.Add(' from JYOrder_BG_KPFee A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where B.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmBGMXSelList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +procedure TfrmBGMXSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmBGMXSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGManage.dfm new file mode 100644 index 0000000..f642da9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGManage.dfm @@ -0,0 +1,1904 @@ +object frmBGManage: TfrmBGManage + Left = 46 + Top = 33 + Width = 1271 + Height = 698 + Caption = #25253#20851#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1255 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBView: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + end + object TBPrint: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + end + object ToolButton3: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1255 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 262 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 397 + Top = 11 + Width = 52 + Height = 12 + Caption = #20013#25991#21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 164 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 303 + Top = 7 + Width = 77 + Height = 20 + TabOrder = 2 + end + object MPRTCodeHZ: TEdit + Tag = 2 + Left = 450 + Top = 7 + Width = 76 + Height = 20 + TabOrder = 3 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 67 + Width = 1255 + Height = 28 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #24050#25253#20851) + OnChange = cxTabControl1Change + ClientRectBottom = 28 + ClientRectRight = 1255 + ClientRectTop = 25 + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 95 + Width = 1255 + Height = 564 + ActivePage = cxTabSheet1 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 9 + TabOrder = 3 + ClientRectBottom = 564 + ClientRectRight = 1255 + ClientRectTop = 19 + object cxTabSheet1: TcxTabSheet + Caption = #25253#20851#36164#26009#21333 + ImageIndex = 0 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 782 + Height = 545 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 98 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #25253#20851#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 103 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 200 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLenStr' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column1: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 782 + Top = 0 + Width = 473 + Height = 545 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 284 + Width = 469 + Height = 259 + Align = alBottom + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 176 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 469 + Height = 282 + Align = alClient + TabOrder = 1 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn31 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 64 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 147 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 98 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 102 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 42 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #36135#29289#36827#20986#21475#25253#20851#26126#32454#34920 + ImageIndex = 1 + object Panel6: TPanel + Left = 728 + Top = 0 + Width = 527 + Height = 545 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 523 + Height = 253 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label20: TLabel + Left = 21 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 21 + Top = 42 + Width = 65 + Height = 12 + Caption = #20013#25991#21697#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 279 + Top = 98 + Width = 65 + Height = 12 + Caption = #20179#24211#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 21 + Top = 123 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 21 + Top = 69 + Width = 67 + Height = 12 + Caption = #31859' '#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 21 + Top = 98 + Width = 65 + Height = 12 + Caption = #20179#24211#20214#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 279 + Top = 15 + Width = 65 + Height = 12 + Caption = #25253#20851#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 279 + Top = 69 + Width = 65 + Height = 12 + Caption = #25968#37327#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo10: TEdit + Tag = 9 + Left = 87 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + end + object Note: TMemo + Tag = 2 + Left = 87 + Top = 123 + Width = 426 + Height = 116 + TabOrder = 1 + end + object BGName10: TEdit + Tag = 9 + Left = 87 + Top = 37 + Width = 426 + Height = 20 + TabOrder = 2 + end + object CangKuQty: TEdit + Tag = 2 + Left = 341 + Top = 94 + Width = 173 + Height = 20 + TabOrder = 3 + end + object MLenStr: TEdit + Tag = 2 + Left = 87 + Top = 64 + Width = 171 + Height = 20 + TabOrder = 4 + end + object CangKuPS: TEdit + Tag = 2 + Left = 87 + Top = 94 + Width = 170 + Height = 20 + TabOrder = 5 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 341 + Top = 10 + Width = 171 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object QtyUnit: TEdit + Tag = 2 + Left = 341 + Top = 64 + Width = 171 + Height = 20 + TabOrder = 7 + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 255 + Width = 523 + Height = 288 + Align = alClient + TabOrder = 1 + object TvZLD: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_ZLD + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 72 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 66 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 64 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 157 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TvZLD + end + end + end + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 728 + Height = 545 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 724 + Height = 266 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 720 + Height = 262 + Align = alClient + TabOrder = 0 + object TvJCK: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = TvJCKFocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Bands = < + item + Caption = #22522#26412#20449#24687 + Width = 367 + end + item + Caption = #20986#21475 + Width = 192 + end + item + Caption = #25253#20851 + Width = 367 + end + item + Width = 142 + end> + object vJCKColumn1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object vJCKColumn2: TcxGridDBBandedColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object vJCKColumn3: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ChuKouPS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 60 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object vJCKColumn4: TcxGridDBBandedColumn + Caption = #20844#26020 + DataBinding.FieldName = 'ChuKouKgQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 65 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object vJCKColumn5: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'ChuKouMiQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 67 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object vJCKColumn6: TcxGridDBBandedColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object vJCKColumn7: TcxGridDBBandedColumn + Caption = #21367#25968 + DataBinding.FieldName = 'BGPS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 60 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object vJCKColumn8: TcxGridDBBandedColumn + Caption = #27611#37325 + DataBinding.FieldName = 'BGKgMZ' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 65 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object vJCKColumn9: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BGMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 64 + Position.BandIndex = 2 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object vJCKColumn10: TcxGridDBBandedColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object vJCKColumn11: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BGPrice' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 51 + Position.BandIndex = 2 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object vJCKColumn12: TcxGridDBBandedColumn + Caption = #20928#37325 + DataBinding.FieldName = 'BGKgJZ' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 69 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object vJCKColumn13: TcxGridDBBandedColumn + Caption = #31859#25968 + DataBinding.FieldName = 'BGMiQty' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 58 + Position.BandIndex = 2 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object vJCKColumn14: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BGNote' + Options.Moving = False + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TvJCK + end + end + end + object cxGrid6: TcxGrid + Left = 2 + Top = 268 + Width = 724 + Height = 275 + Align = alClient + TabOrder = 1 + object TvJCKMX: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_JCKMX + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BFQty' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'BFPrice' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BFUnit' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v2Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'BFMoney' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BFNote' + HeaderAlignmentHorz = taCenter + Width = 157 + end + end + object cxGridLevel6: TcxGridLevel + GridView = TvJCKMX + end + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #37319#36141#21512#21516 + ImageIndex = 2 + object Label28: TLabel + Left = 39 + Top = 23 + Width = 67 + Height = 12 + Caption = #20379' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 381 + Top = 23 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label31: TLabel + Left = 381 + Top = 43 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 39 + Top = 47 + Width = 67 + Height = 12 + Caption = #38656' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 37 + Top = 227 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 37 + Top = 255 + Width = 65 + Height = 12 + Caption = #20215#26684#26465#27454#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 37 + Top = 287 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BtnEditA1: TBtnEditA + Tag = 2 + Left = 106 + Top = 18 + Width = 247 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object Edit15: TEdit + Tag = 2 + Left = 447 + Top = 19 + Width = 112 + Height = 20 + CharCase = ecUpperCase + TabOrder = 1 + end + object DateTimePicker1: TDateTimePicker + Tag = 2 + Left = 447 + Top = 39 + Width = 113 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object BtnEditA2: TBtnEditA + Tag = 2 + Left = 106 + Top = 42 + Width = 247 + Height = 20 + ReadOnly = True + TabOrder = 3 + end + object cxGrid5: TcxGrid + Left = 40 + Top = 72 + Width = 521 + Height = 137 + TabOrder = 4 + object cxGridDBTableView3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn20 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBTableView3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn17: TcxGridDBColumn + Caption = #26631#35760#19982#21787#22836 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #33521#25991#21697#21517 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 66 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 64 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #21333#20215'(USD)' + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 66 + end + object cxGridDBTableView3Column1: TcxGridDBColumn + Caption = #24635#20215'(USD)' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 88 + end + end + object cxGridLevel4: TcxGridLevel + GridView = cxGridDBTableView3 + end + end + object DateTimePicker2: TDateTimePicker + Tag = 2 + Left = 103 + Top = 223 + Width = 113 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 5 + end + object BtnEditA3: TBtnEditA + Tag = 2 + Left = 103 + Top = 250 + Width = 458 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object BtnEditA4: TBtnEditA + Tag = 2 + Left = 103 + Top = 282 + Width = 458 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + end + object cxTabSheet4: TcxTabSheet + Caption = #30003#25253#35201#32032 + ImageIndex = 3 + object Label35: TLabel + Left = 85 + Top = 39 + Width = 65 + Height = 12 + Caption = #21830#21697#32534#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 85 + Top = 78 + Width = 60 + Height = 12 + Caption = #21697' '#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label38: TLabel + Left = 85 + Top = 116 + Width = 65 + Height = 12 + Caption = #32455#36896#26041#27861#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 85 + Top = 155 + Width = 65 + Height = 12 + Caption = #26579#25972#26041#27861#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label39: TLabel + Left = 85 + Top = 193 + Width = 65 + Height = 12 + Caption = #25104#20221#21547#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label40: TLabel + Left = 85 + Top = 232 + Width = 39 + Height = 12 + Caption = #24133#23485#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label41: TLabel + Left = 85 + Top = 270 + Width = 39 + Height = 12 + Caption = #21697#29260#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label42: TLabel + Left = 85 + Top = 309 + Width = 65 + Height = 12 + Caption = #29983#20135#21378#21830#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit16: TEdit + Tag = 2 + Left = 151 + Top = 35 + Width = 178 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + end + object Edit17: TEdit + Tag = 2 + Left = 151 + Top = 74 + Width = 178 + Height = 20 + CharCase = ecUpperCase + TabOrder = 1 + end + object BtnEditA5: TBtnEditA + Tag = 2 + Left = 151 + Top = 112 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 2 + end + object BtnEditA6: TBtnEditA + Tag = 2 + Left = 151 + Top = 151 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 3 + end + object BtnEditA7: TBtnEditA + Tag = 2 + Left = 151 + Top = 189 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 4 + end + object BtnEditA9: TBtnEditA + Tag = 2 + Left = 151 + Top = 266 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 5 + end + object BtnEditA10: TBtnEditA + Tag = 2 + Left = 151 + Top = 305 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object Edit18: TEdit + Tag = 2 + Left = 151 + Top = 228 + Width = 178 + Height = 20 + CharCase = ecUpperCase + TabOrder = 7 + end + end + object cxTabSheet5: TcxTabSheet + Caption = #20986#21475#36135#29289#25253#20851#21333 + ImageIndex = 4 + object Label43: TLabel + Left = 30 + Top = 25 + Width = 65 + Height = 12 + Caption = #36816#36755#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label44: TLabel + Left = 294 + Top = 25 + Width = 65 + Height = 12 + Caption = #21457#36135#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label45: TLabel + Left = 566 + Top = 25 + Width = 65 + Height = 12 + Caption = #36152#26131#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label46: TLabel + Left = 30 + Top = 73 + Width = 65 + Height = 12 + Caption = #32467#27719#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label47: TLabel + Left = 294 + Top = 73 + Width = 66 + Height = 12 + Caption = #36816' '#25269' '#22269#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label48: TLabel + Left = 566 + Top = 73 + Width = 66 + Height = 12 + Caption = #25351' '#36816' '#28207#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label49: TLabel + Left = 30 + Top = 113 + Width = 66 + Height = 12 + Caption = #36135' '#28304' '#22320#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label50: TLabel + Left = 294 + Top = 113 + Width = 65 + Height = 12 + Caption = #25104#20132#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label51: TLabel + Left = 566 + Top = 113 + Width = 66 + Height = 12 + Caption = #21327' '#35758' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BtnEditA8: TBtnEditA + Tag = 2 + Left = 96 + Top = 21 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object BtnEditA11: TBtnEditA + Tag = 2 + Left = 360 + Top = 21 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 1 + end + object BtnEditA12: TBtnEditA + Tag = 2 + Left = 632 + Top = 21 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 2 + end + object BtnEditA13: TBtnEditA + Tag = 2 + Left = 96 + Top = 69 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 3 + end + object BtnEditA14: TBtnEditA + Tag = 2 + Left = 360 + Top = 69 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 4 + end + object BtnEditA15: TBtnEditA + Tag = 2 + Left = 632 + Top = 69 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 5 + end + object BtnEditA16: TBtnEditA + Tag = 2 + Left = 96 + Top = 109 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object BtnEditA17: TBtnEditA + Tag = 2 + Left = 360 + Top = 109 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + object BtnEditA18: TBtnEditA + Tag = 2 + Left = 632 + Top = 109 + Width = 175 + Height = 20 + ReadOnly = True + TabOrder = 8 + end + end + object cxTabSheet6: TcxTabSheet + Caption = 'COMMERCIAL INVOICE' + ImageIndex = 5 + end + object cxTabSheet7: TcxTabSheet + Caption = 'PACKING LIST' + ImageIndex = 6 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 244 + Top = 65 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 206 + Top = 63 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 172 + Top = 66 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 8 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 917 + Top = 263 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 955 + Top = 262 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 992 + Top = 268 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 938 + Top = 499 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 976 + Top = 498 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 1013 + Top = 504 + end + object CDS_JCKMX: TClientDataSet + Aggregates = <> + Params = <> + Left = 410 + Top = 584 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 448 + Top = 583 + end + object DS_JCKMX: TDataSource + DataSet = CDS_JCKMX + Left = 485 + Top = 589 + end + object CDS_ZLD: TClientDataSet + Aggregates = <> + Params = <> + Left = 949 + Top = 567 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 987 + Top = 566 + end + object DS_ZLD: TDataSource + DataSet = CDS_ZLD + Left = 1024 + Top = 572 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGManage.pas b/坯布码单待检(PBMDDJ.dll)/U_BGManage.pas new file mode 100644 index 0000000..847debb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGManage.pas @@ -0,0 +1,476 @@ +unit U_BGManage; //22 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC, + BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView; + +type + TfrmBGManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBView: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label8: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + MPRTCodeHZ: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + Order_Main: TClientDataSet; + DataSource1: TDataSource; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryPrint: TADOQuery; + cxTabControl1: TcxTabControl; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + cxTabSheet5: TcxTabSheet; + cxTabSheet6: TcxTabSheet; + cxTabSheet7: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel6: TPanel; + Panel5: TPanel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + Label23: TLabel; + Label24: TLabel; + Label25: TLabel; + Label26: TLabel; + Label27: TLabel; + OrderNo10: TEdit; + Note: TMemo; + BGName10: TEdit; + CangKuQty: TEdit; + MLenStr: TEdit; + CangKuPS: TEdit; + ComTaiTou: TBtnEditA; + QtyUnit: TEdit; + Panel7: TPanel; + Panel3: TPanel; + cxGrid4: TcxGrid; + TvZLD: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Label28: TLabel; + BtnEditA1: TBtnEditA; + Label30: TLabel; + Label31: TLabel; + Edit15: TEdit; + DateTimePicker1: TDateTimePicker; + Label29: TLabel; + BtnEditA2: TBtnEditA; + cxGrid5: TcxGrid; + cxGridDBTableView3: TcxGridDBTableView; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGridDBTableView3Column1: TcxGridDBColumn; + Label32: TLabel; + DateTimePicker2: TDateTimePicker; + Label33: TLabel; + BtnEditA3: TBtnEditA; + Label34: TLabel; + BtnEditA4: TBtnEditA; + Label35: TLabel; + Edit16: TEdit; + Label36: TLabel; + Edit17: TEdit; + Label38: TLabel; + BtnEditA5: TBtnEditA; + Label37: TLabel; + BtnEditA6: TBtnEditA; + Label39: TLabel; + BtnEditA7: TBtnEditA; + Label40: TLabel; + Label41: TLabel; + BtnEditA9: TBtnEditA; + Label42: TLabel; + BtnEditA10: TBtnEditA; + Edit18: TEdit; + Label43: TLabel; + BtnEditA8: TBtnEditA; + Label44: TLabel; + BtnEditA11: TBtnEditA; + Label45: TLabel; + BtnEditA12: TBtnEditA; + Label46: TLabel; + BtnEditA13: TBtnEditA; + Label47: TLabel; + BtnEditA14: TBtnEditA; + Label48: TLabel; + BtnEditA15: TBtnEditA; + Label49: TLabel; + BtnEditA16: TBtnEditA; + Label50: TLabel; + BtnEditA17: TBtnEditA; + Label51: TLabel; + BtnEditA18: TBtnEditA; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + cxGrid3: TcxGrid; + cxGridLevel2: TcxGridLevel; + TvJCK: TcxGridDBBandedTableView; + vJCKColumn1: TcxGridDBBandedColumn; + vJCKColumn2: TcxGridDBBandedColumn; + vJCKColumn3: TcxGridDBBandedColumn; + vJCKColumn4: TcxGridDBBandedColumn; + vJCKColumn5: TcxGridDBBandedColumn; + vJCKColumn6: TcxGridDBBandedColumn; + vJCKColumn7: TcxGridDBBandedColumn; + vJCKColumn8: TcxGridDBBandedColumn; + vJCKColumn9: TcxGridDBBandedColumn; + vJCKColumn10: TcxGridDBBandedColumn; + vJCKColumn11: TcxGridDBBandedColumn; + vJCKColumn12: TcxGridDBBandedColumn; + vJCKColumn13: TcxGridDBBandedColumn; + vJCKColumn14: TcxGridDBBandedColumn; + cxGrid6: TcxGrid; + TvJCKMX: TcxGridDBTableView; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + CDS_JCKMX: TClientDataSet; + cxGridPopupMenu6: TcxGridPopupMenu; + DS_JCKMX: TDataSource; + CDS_ZLD: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + DS_ZLD: TDataSource; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ToolButton3Click(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure TvJCKFocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmBGManage: TfrmBGManage; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, + U_BGZLInput,U_BGJCKMXInput; + +{$R *.dfm} + +procedure TfrmBGManage.FormDestroy(Sender: TObject); +begin + frmBGManage:=nil; +end; + +procedure TfrmBGManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBGManage.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='˵'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBGManage.TBAddClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=''; + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=''; + FOrderNo:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; + end; +end; + +procedure TfrmBGManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ع'); + WriteCxGrid('Tv2',Tv2,'ع'); + WriteCxGrid('Tv7',Tv7,'ع'); + Close; +end; + +procedure TfrmBGManage.FormShow(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.DateTime-30; + cxPageControl1.ActivePageIndex:=0; + cxTabControl1.TabIndex:=0; + InitGrid(); + ReadCxGrid('Tv1',Tv1,'ع'); + ReadCxGrid('Tv2',Tv2,'ع'); + ReadCxGrid('Tv7',Tv7,'ع'); +end; + +procedure TfrmBGManage.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where 1=1'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>''ͨ'' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBGManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGManage.TBEditClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=0 then + begin + try + frmBGZLInput:=TfrmBGZLInput.Create(Application); + with frmBGZLInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGZLInput.Free; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + try + frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application); + with frmBGJCKMXInput do + begin + FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmBGJCKMXInput.Free; + end; + end; +end; + +procedure TfrmBGManage.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); +end; + +procedure TfrmBGManage.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBGManage.TvJCKFocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JCKMX); + SInitCDSData20(ADOQueryTemp,CDS_JCKMX); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_KPFee where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JCKMX); + SInitCDSData20(ADOQueryTemp,CDS_JCKMX); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + open; + end; + SCreateCDS20(ADOQueryTemp,CDS_ZLD); + SInitCDSData20(ADOQueryTemp,CDS_ZLD); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel5,2); + OrderNo10.Text:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + BGName10.Text:=Trim(ADOQueryTemp.fieldbyname('BGName').AsString); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.dfm new file mode 100644 index 0000000..cb71365 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.dfm @@ -0,0 +1,857 @@ +object frmBGZLInput: TfrmBGZLInput + Left = 116 + Top = 99 + Width = 1181 + Height = 609 + Align = alClient + Caption = #25253#20851#36164#26009#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 593 + Height = 541 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 589 + Height = 249 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 585 + Height = 89 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 10 + Top = 15 + Width = 52 + Height = 12 + Caption = #35746#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 507 + Top = 15 + Width = 39 + Height = 12 + Caption = #31859#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 287 + Top = 15 + Width = 65 + Height = 12 + Caption = #25253#20851#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 187 + Top = 15 + Width = 39 + Height = 12 + Caption = #25209#27425#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 287 + Top = 40 + Width = 65 + Height = 12 + Caption = #25104#20132#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 10 + Top = 40 + Width = 52 + Height = 12 + Caption = #28023#36816#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 169 + Top = 40 + Width = 39 + Height = 12 + Caption = #20445#36153#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 145 + Top = 40 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 268 + Top = 40 + Width = 7 + Height = 12 + Caption = '$' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 10 + Top = 63 + Width = 52 + Height = 12 + Caption = #36135#28304#22320#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 198 + Top = 63 + Width = 65 + Height = 12 + Caption = #20986#21475#21475#23736#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 396 + Top = 63 + Width = 52 + Height = 12 + Caption = #36816#25269#22269#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 55 + Top = 11 + Width = 129 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object MLenStr: TEdit + Tag = 2 + Left = 541 + Top = 11 + Width = 42 + Height = 20 + TabOrder = 1 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 345 + Top = 11 + Width = 159 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = ComTaiTouBtnClick + end + object BatchNo: TEdit + Tag = 2 + Left = 219 + Top = 11 + Width = 66 + Height = 20 + TabOrder = 3 + end + object ChengJiaoType: TBtnEditA + Tag = 2 + Left = 345 + Top = 36 + Width = 159 + Height = 20 + ReadOnly = True + TabOrder = 4 + OnBtnClick = ChengJiaoTypeBtnClick + end + object HaiYunFee: TEdit + Tag = 2 + Left = 55 + Top = 36 + Width = 86 + Height = 20 + TabOrder = 5 + end + object BaoFee: TEdit + Tag = 2 + Left = 201 + Top = 36 + Width = 66 + Height = 20 + TabOrder = 6 + end + object HuoYuanPlace: TBtnEditA + Tag = 2 + Left = 55 + Top = 59 + Width = 130 + Height = 20 + ReadOnly = True + TabOrder = 7 + OnBtnClick = HuoYuanPlaceBtnClick + end + object ChuKouKA: TBtnEditA + Tag = 2 + Left = 257 + Top = 59 + Width = 130 + Height = 20 + ReadOnly = True + TabOrder = 8 + OnBtnClick = ChuKouKABtnClick + end + object YunDiG: TBtnEditA + Tag = 2 + Left = 442 + Top = 59 + Width = 141 + Height = 20 + ReadOnly = True + TabOrder = 9 + OnBtnClick = YunDiGBtnClick + end + end + object ToolBar3: TToolBar + Left = 2 + Top = 91 + Width = 585 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 124 + Width = 585 + Height = 123 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 178 + end + object v1Column1: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + DataBinding.FieldName = 'CangKuPS' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + DataBinding.FieldName = 'CangKuQty' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 43 + end + object v1Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BNNOte' + HeaderAlignmentHorz = taCenter + Width = 156 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid6: TcxGrid + Left = 57 + Top = 35 + Width = 345 + Height = 116 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object Panel3: TPanel + Left = 2 + Top = 251 + Width = 589 + Height = 288 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 585 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 35 + Width = 585 + Height = 251 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 106 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 49 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 176 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object Panel4: TPanel + Left = 593 + Top = 29 + Width = 572 + Height = 541 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 568 + Height = 537 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + OnDblClick = Tv7DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 8 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 632 + Top = 435 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 700 + Top = 442 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 781 + Top = 439 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 433 + Top = 384 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 473 + Top = 388 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 509 + Top = 384 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 213 + Top = 4 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 243 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 932 + Top = 136 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 975 + Top = 139 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 768 + Top = 171 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.pas b/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.pas new file mode 100644 index 0000000..4159792 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.pas @@ -0,0 +1,838 @@ +unit U_BGZLInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit, + cxDropDownEdit; + +type + TfrmBGZLInput = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Panel2: TPanel; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQuery1: TADOQuery; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + DS_OrderNo: TDataSource; + CDS_OrderNo: TClientDataSet; + Panel3: TPanel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel4: TPanel; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + v7Column2: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Panel5: TPanel; + Label1: TLabel; + Label7: TLabel; + Label18: TLabel; + OrderNo: TEdit; + MLenStr: TEdit; + ComTaiTou: TBtnEditA; + ToolBar3: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + Label2: TLabel; + BatchNo: TEdit; + Label3: TLabel; + ChengJiaoType: TBtnEditA; + Label4: TLabel; + HaiYunFee: TEdit; + Label5: TLabel; + BaoFee: TEdit; + Label6: TLabel; + Label8: TLabel; + Label9: TLabel; + HuoYuanPlace: TBtnEditA; + Label10: TLabel; + ChuKouKA: TBtnEditA; + Label11: TLabel; + YunDiG: TBtnEditA; + procedure FormDestroy(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv7DblClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ChengJiaoTypeBtnClick(Sender: TObject); + procedure HuoYuanPlaceBtnClick(Sender: TObject); + procedure ChuKouKABtnClick(Sender: TObject); + procedure YunDiGBtnClick(Sender: TObject); + private + { Private declarations } + function SaveData():Boolean; + public + { Public declarations } + FOrderNo,FBGID,FMainId:String; + FCopyInt:Integer; + end; + +var + frmBGZLInput: TfrmBGZLInput; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList; + +{$R *.dfm} + +procedure TfrmBGZLInput.FormDestroy(Sender: TObject); +begin + frmBGZLInput:=nil; +end; + +procedure TfrmBGZLInput.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmBGZLInput.FormShow(Sender: TObject); +var + fsj:string; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel5,2); + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter_BG :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(FMainId); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(FMainId)+''''+ + ' order by PSXH'; + SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,''); + if FCopyInt=1 then + begin + OrderNo.ReadOnly:=True; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + Edit; + FieldByName('BNID').Value:=''; + Post; + Next; + end; + end; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + Edit; + FieldByName('BQID').Value:=''; + Post; + Next; + end; + end; + FBGID:=''; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGZLInput.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + + end; +end; + +procedure TfrmBGZLInput.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmBGZLInput.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + OrderNo.Text:=Trim(CDS_OrderNo.fieldbyname('OrderNo').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set QtyFlag=1'); + sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add(' and Isnull(CKName,'''')='''' '); + sql.Add('Update JYOrder_Main_MD Set QtyFlag=-1'); + sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add(' and Isnull(CKName,'''')<>'''' '); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter_BG :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(CDS_OrderNo.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''+ + ' order by PSXH'; + SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,''); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7);} + cxGrid6.Visible:=false; +end; + +procedure TfrmBGZLInput.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInput.Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString); + FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString); + FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value; + FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value; + Post; + end; +end; + +procedure TfrmBGZLInput.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmBGZLInput.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('BQID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_Qty where BQID='''+Trim(ClientDataSet2.fieldbyname('BQID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet2.Delete; +end; +function TfrmBGZLInput.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno,maxBgNo:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if FCopyInt=1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set Valid=''N'' '); + sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+''''); + ExecSQL; + end; + end; + + /// + if Trim(FBGID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'BG','JYOrder_BG',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FBGID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_BG where BGId='''+Trim(FBGID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FBGID)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('BGId').Value:=Trim(maxno); + RTSetsavedata(ADOQueryCmd,'JYOrder_Main',Panel5,2); + if Trim(FBGID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + //FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where orderno='''+Trim(OrderNo.Text)+''''); + if Trim(BatchNo.Text)<>'' then + begin + SQL.Add(' and isnull(BatchNo,'''')='''+Trim(BatchNo.Text)+''''); + end; + sql.Add(' and Valid=''Y'' '); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set EditCount='); + sql.Add('(select Count(*) from JYOrder_BG where OrderNo='''+Trim(OrderNo.Text)+''')'); + sql.Add(' where BGID='''+Trim(maxno)+''''); + SQL.Add(' Update JYOrder_BG Set Valid=''N'' '); + sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+''''); + if Trim(BatchNo.Text)<>'' then + begin + SQL.Add(' and isnull(BatchNo,'''')='''+Trim(BatchNo.Text)+''''); + end; + sql.Add(' and BGID<>'''+Trim(maxno)+''''); + ExecSQL; + end; + end; + + ///ӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'BQ','JYOrder_BG_Qty',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet2.fieldbyname('BQId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_Qty where BQId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(maxno); + FieldByName('BQId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_BG_Qty',0); + Post; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('BQId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///汨 + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxBgNo,'BN','JYOrder_BG_Name',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxBgNo:=Trim(ClientDataSet1.fieldbyname('BNId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_Name where BNId='''+Trim(maxBgNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(maxno); + FieldByName('BNId').Value:=Trim(maxBgNo); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_BG_Name',0); + Post; + end; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('BNId').Value:=Trim(maxBgNo); + //Order_Sub.Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + FBGID:=Trim(maxno); + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmBGZLInput.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('˶Ų!','ʾ',0); + Exit; + end; + if Trim(ComTaiTou.Text)='' then + begin + Application.MessageBox('صλΪգ','ʾ',0); + Exit; + end; + if ClientDataSet1.IsEmpty then + begin + Application.MessageBox('ƷϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('BGName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if Trim(MLenStr.Text)<>'' then + begin + if TryStrToFloat(MLenStr.Text,FReal)=False then + begin + Application.MessageBox('׳ַǷ!','ʾ',0); + Exit; + end; + end; + if Trim(HaiYunFee.Text)<>'' then + begin + if TryStrToFloat(HaiYunFee.Text,FReal)=False then + begin + Application.MessageBox('˷ַǷ!','ʾ',0); + Exit; + end; + end; + if Trim(BaoFee.Text)<>'' then + begin + if TryStrToFloat(BaoFee.Text,FReal)=False then + begin + Application.MessageBox('ַǷ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQPS',Null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('FactoryName',Null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQUnit',Null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('PSName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + + +end; + +procedure TfrmBGZLInput.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BGName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Append; + FieldByName('BGName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + Post; + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInput.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if Trim(ClientDataSet1.fieldbyname('BNID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_Name where BNID='''+Trim(ClientDataSet1.fieldbyname('BNID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmBGZLInput.Tv7DblClick(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=ClientDataSet7.fieldbyname('PSName').Value; + FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('GYSName').Value; + FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('GYSCode').Value; + FieldByName('BQUnit').Value:=ClientDataSet7.fieldbyname('QtyUnit').Value; + Post; + end; +end; + +procedure TfrmBGZLInput.ToolButton1Click(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + Post; + end; +end; + +procedure TfrmBGZLInput.ChengJiaoTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChengJiaoType'; + flagname:='ɽʽ'; + if ShowModal=1 then + begin + ChengJiaoType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInput.HuoYuanPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='HuoYuanPlace'; + flagname:='Դ'; + if ShowModal=1 then + begin + HuoYuanPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInput.ChuKouKABtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChuKouKA'; + flagname:='ڿڰ'; + if ShowModal=1 then + begin + ChuKouKA.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInput.YunDiGBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YunDiG'; + flagname:='˵ֹ'; + if ShowModal=1 then + begin + YunDiG.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.dfm new file mode 100644 index 0000000..89587c6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.dfm @@ -0,0 +1,737 @@ +object frmBGZLInputNew: TfrmBGZLInputNew + Left = 44 + Top = 87 + Width = 1181 + Height = 575 + Align = alClient + Caption = #25253#20851#36164#26009#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1173 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 593 + Height = 515 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 589 + Height = 254 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 21 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 279 + Top = 86 + Width = 65 + Height = 12 + Caption = #20179#24211#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 21 + Top = 119 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 21 + Top = 51 + Width = 67 + Height = 12 + Caption = #31859' '#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 21 + Top = 86 + Width = 65 + Height = 12 + Caption = #20179#24211#20214#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 279 + Top = 15 + Width = 65 + Height = 12 + Caption = #25253#20851#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 279 + Top = 51 + Width = 65 + Height = 12 + Caption = #25968#37327#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 87 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object Note: TMemo + Tag = 2 + Left = 87 + Top = 119 + Width = 426 + Height = 125 + TabOrder = 1 + end + object CangKuQty: TEdit + Tag = 2 + Left = 341 + Top = 82 + Width = 173 + Height = 20 + TabOrder = 2 + end + object MLenStr: TEdit + Tag = 2 + Left = 87 + Top = 46 + Width = 171 + Height = 20 + TabOrder = 3 + end + object CangKuPS: TEdit + Tag = 2 + Left = 87 + Top = 82 + Width = 170 + Height = 20 + TabOrder = 4 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 341 + Top = 10 + Width = 171 + Height = 20 + ReadOnly = True + TabOrder = 5 + OnBtnClick = ComTaiTouBtnClick + end + object QtyUnit: TEdit + Tag = 2 + Left = 341 + Top = 46 + Width = 171 + Height = 20 + TabOrder = 6 + end + object cxGrid6: TcxGrid + Left = 87 + Top = 31 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object Panel3: TPanel + Left = 2 + Top = 256 + Width = 589 + Height = 257 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 585 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 35 + Width = 585 + Height = 220 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 106 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'BQPS' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BQQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BQNote' + HeaderAlignmentHorz = taCenter + Width = 157 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object Panel4: TPanel + Left = 593 + Top = 29 + Width = 580 + Height = 515 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 2 + Top = 35 + Width = 576 + Height = 108 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Width = 190 + end + object v1Column1: TcxGridDBColumn + Caption = 'HS'#32534#30721 + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #20179#24211#20214#25968 + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #20179#24211#25968#37327 + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column4: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + HeaderAlignmentHorz = taCenter + Width = 76 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar3: TToolBar + Left = 2 + Top = 2 + Width = 576 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + end + object cxGrid7: TcxGrid + Left = 2 + Top = 143 + Width = 576 + Height = 370 + Align = alClient + TabOrder = 2 + object Tv7: TcxGridDBTableView + OnDblClick = Tv7DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FontBlue + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 8 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 8 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 632 + Top = 435 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 700 + Top = 442 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 781 + Top = 439 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 433 + Top = 384 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 473 + Top = 388 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 509 + Top = 384 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 163 + Top = 104 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 206 + Top = 107 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 932 + Top = 136 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 975 + Top = 139 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 768 + Top = 171 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.pas b/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.pas new file mode 100644 index 0000000..714f29f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.pas @@ -0,0 +1,740 @@ +unit U_BGZLInputNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit, + cxDropDownEdit; + +type + TfrmBGZLInputNew = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Panel2: TPanel; + Label1: TLabel; + Label6: TLabel; + Label4: TLabel; + Label7: TLabel; + Label9: TLabel; + Label18: TLabel; + OrderNo: TEdit; + Note: TMemo; + CangKuQty: TEdit; + MLenStr: TEdit; + CangKuPS: TEdit; + ComTaiTou: TBtnEditA; + Label3: TLabel; + QtyUnit: TEdit; + ADOQueryTemp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQuery1: TADOQuery; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + DS_OrderNo: TDataSource; + CDS_OrderNo: TClientDataSet; + Panel3: TPanel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel4: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ToolBar3: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + v7Column2: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv7DblClick(Sender: TObject); + private + { Private declarations } + function SaveData():Boolean; + public + { Public declarations } + FOrderNo,FBGID,FMainId:String; + FCopyInt:Integer; + end; + +var + frmBGZLInputNew: TfrmBGZLInputNew; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList; + +{$R *.dfm} + +procedure TfrmBGZLInputNew.FormDestroy(Sender: TObject); +begin + frmBGZLInput:=nil; +end; + +procedure TfrmBGZLInputNew.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmBGZLInputNew.FormShow(Sender: TObject); +var + fsj:string; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel2,2); + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter_BG :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(FMainId); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(FMainId)+''''+ + ' order by PSXH'; + SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,''); + if FCopyInt=1 then + begin + OrderNo.ReadOnly:=True; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + Edit; + FieldByName('BNID').Value:=''; + Post; + Next; + end; + end; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + Edit; + FieldByName('BQID').Value:=''; + Post; + Next; + end; + end; + FBGID:=''; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); } +end; + +procedure TfrmBGZLInputNew.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + + end; +end; + +procedure TfrmBGZLInputNew.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmBGZLInputNew.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + OrderNo.Text:=Trim(CDS_OrderNo.fieldbyname('OrderNo').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set QtyFlag=1'); + sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add(' and Isnull(CKName,'''')='''' '); + sql.Add('Update JYOrder_Main_MD Set QtyFlag=-1'); + sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add(' and Isnull(CKName,'''')<>'''' '); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter_BG :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(CDS_OrderNo.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7); + fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''+ + ' order by PSXH'; + SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,''); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit'); + sql.Add(' from JYOrder_Process A '); + sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId'); + sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+''''); + sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet7); + SInitCDSData20(ADOQueryTemp,ClientDataSet7);} + cxGrid6.Visible:=false; +end; + +procedure TfrmBGZLInputNew.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInputNew.Tv7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString); + FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString); + FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value; + FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value; + Post; + end; +end; + +procedure TfrmBGZLInputNew.cxGridDBColumn2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet2 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmBGZLInputNew.ToolButton1Click(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('BQUnit').Value:=Trim(QtyUnit.Text); + Post; + end; +end; + +procedure TfrmBGZLInputNew.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('BQID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_Qty where BQID='''+Trim(ClientDataSet2.fieldbyname('BQID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet2.Delete; +end; +function TfrmBGZLInputNew.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno,maxBgNo:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if FCopyInt=1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_BG Set Valid=''N'' '); + sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+''''); + ExecSQL; + end; + end; + + /// + if Trim(FBGID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'BG','JYOrder_BG',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FBGID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_BG where BGId='''+Trim(FBGID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FBGID)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('BGId').Value:=Trim(maxno); + RTSetsavedata(ADOQueryCmd,'JYOrder_Main',Panel2,2); + if Trim(FBGID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_BG where orderno='''+Trim(OrderNo.Text)+''''); + sql.Add(' and Valid=''Y'' '); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set EditCount='); + sql.Add('(select Count(*) from JYOrder_BG where OrderNo='''+Trim(OrderNo.Text)+''')'); + sql.Add(' where BGID='''+Trim(maxno)+''''); + SQL.Add(' Update JYOrder_BG Set Valid=''N'' '); + sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+''''); + sql.Add(' and BGID<>'''+Trim(maxno)+''''); + ExecSQL; + end; + end; + + ///ӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'BQ','JYOrder_BG_Qty',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet2.fieldbyname('BQId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_Qty where BQId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(maxno); + FieldByName('BQId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_BG_Qty',0); + Post; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('BQId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///汨 + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxBgNo,'BN','JYOrder_BG_Name',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxBgNo:=Trim(ClientDataSet1.fieldbyname('BNId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_BG_Name where BNId='''+Trim(maxBgNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then + Append + else + Edit; + FieldByName('BGId').Value:=Trim(maxno); + FieldByName('BNId').Value:=Trim(maxBgNo); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_BG_Name',0); + Post; + end; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('BNId').Value:=Trim(maxBgNo); + //Order_Sub.Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + FBGID:=Trim(maxno); + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmBGZLInputNew.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('˶Ų!','ʾ',0); + Exit; + end; + if Trim(ComTaiTou.Text)='' then + begin + Application.MessageBox('ƷΪգ','ʾ',0); + Exit; + end; + if Trim(QtyUnit.Text)='' then + begin + Application.MessageBox('λΪգ','ʾ',0); + Exit; + end; + if Trim(CangKuPS.Text)<>'' then + begin + if TryStrToFloat(CangKuPS.Text,FReal)=False then + begin + Application.MessageBox('ֿǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('ֿΪ!','ʾ',0); + Exit; + end; + if Trim(CangKuQty.Text)<>'' then + begin + if TryStrToFloat(CangKuQty.Text,FReal)=False then + begin + Application.MessageBox('ֿǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('ֿΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQPS',Null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('FactoryName',Null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('BQUnit',Null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('PSName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + + +end; + +procedure TfrmBGZLInputNew.ToolButton3Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BGName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Append; + FieldByName('BGName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + Post; + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBGZLInputNew.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if Trim(ClientDataSet1.fieldbyname('BNID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_BG_Name where BNID='''+Trim(ClientDataSet1.fieldbyname('BNID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmBGZLInputNew.Tv7DblClick(Sender: TObject); +begin + with ClientDataSet2 do + begin + Append; + FieldByName('PSName').Value:=ClientDataSet7.fieldbyname('PSName').Value; + FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('GYSName').Value; + FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('GYSCode').Value; + FieldByName('BQUnit').Value:=ClientDataSet7.fieldbyname('QtyUnit').Value; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BHList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BHList.dfm new file mode 100644 index 0000000..ebf8f95 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BHList.dfm @@ -0,0 +1,671 @@ +object frmBHList: TfrmBHList + Left = 28 + Top = 106 + Width = 1382 + Height = 547 + Caption = #22791#36135#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22791#36135 + ImageIndex = 29 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22791#36135#25764#38144 + ImageIndex = 52 + OnClick = TBEditClick + end + object TBExport: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 576 + Top = 18 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 728 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 850 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object PRTCode: TEdit + Tag = 2 + Left = 630 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 755 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 878 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1366 + Height = 408 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + Column = v1Column22 + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 93 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column21: TcxGridDBColumn + Tag = 999 + Caption = #22791#36135#26085#26399 + DataBinding.FieldName = 'BHDate' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column22: TcxGridDBColumn + Caption = #22791#36135#21305#25968 + DataBinding.FieldName = 'BHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#36135#25968#37327 + DataBinding.FieldName = 'BHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column17: TcxGridDBColumn + Caption = #22791#36135#22791#27880 + DataBinding.FieldName = 'BHNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column19: TcxGridDBColumn + Caption = #22791#36135#20154 + DataBinding.FieldName = 'BHPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#25209#20934#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #25209#20934#26102#38388 + DataBinding.FieldName = 'ChkTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'FHPerson' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1366 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#22791#36135 + #24050#22791#36135 + #24050#25209#20934#21457#36135 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BHList.pas b/坯布码单待检(PBMDDJ.dll)/U_BHList.pas new file mode 100644 index 0000000..e61f50a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BHList.pas @@ -0,0 +1,665 @@ +unit U_BHList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox; + + +type + TfrmBHList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + PRTCode: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + ADOQueryPrint: TADOQuery; + v1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmBHList: TfrmBHList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmBHList.FormDestroy(Sender: TObject); +begin + frmBHList:=nil; +end; + +procedure TfrmBHList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBHList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('',Tv1,''); +end; + +procedure TfrmBHList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(C.MPRTCode,'''')+isnull(C.MPRTGY,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; } + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(BHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(BHStatus,'''')<>'''' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmBHList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('',Tv1,''); + //InitGrid(); +end; + +procedure TfrmBHList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmBHList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmBHList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmBHList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBHList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmBHList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBHList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmBHList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmBHList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(D.PRTCOde)+isnull(D.PRTGY) '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; } + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(BHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(BHStatus,'''')<>'''' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmBHList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmBHList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBHList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmBHList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmBHList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmBHList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmBHList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmBHList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmBHList.TBAddClick(Sender: TObject); +var + FBHDate:String; +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;BHQty',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + FBHDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('BHPerson').Value:=Trim(DName); + if Trim(Order_Main.fieldbyname('BHDate').AsString)='' then + FieldByName('BHDate').Value:=FBHDate + else + FieldByName('BHDate').Value:=Trim(Order_Main.fieldbyname('BHDate').AsString); + FieldByName('BHPS').Value:=Order_Main.fieldbyname('BHPS').Value; + FieldByName('BHQty').Value:=Order_Main.fieldbyname('BHQty').Value; + FieldByName('BHNote').Value:=Order_Main.fieldbyname('BHNote').Value; + FieldByName('BHStatus').Value:='ѱ'; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmBHList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Application.MessageBox('˲ܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('BHPerson').Value:=Null; + FieldByName('BHDate').Value:=Null; + FieldByName('BHPS').Value:=Null; + FieldByName('BHQty').Value:=Null; + FieldByName('BHNote').Value:=Null; + FieldByName('BHStatus').Value:=Null; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.dfm new file mode 100644 index 0000000..a96b297 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.dfm @@ -0,0 +1,266 @@ +object frmBPCGDZInPut: TfrmBPCGDZInPut + Left = 224 + Top = 101 + Width = 1293 + Height = 502 + Align = alClient + Caption = #24067#21305#37319#36141#23545#36134#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1277 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'DZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22383#24067 + #25104#21697) + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 132 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1277 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.pas new file mode 100644 index 0000000..0f5b3a9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.pas @@ -0,0 +1,369 @@ +unit U_BPCGDZInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmBPCGDZInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmBPCGDZInPut: TfrmBPCGDZInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList; + +{$R *.dfm} + +procedure TfrmBPCGDZInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPCGDZInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmBPCGDZInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FDZID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'PC','JYOrder_Main_MD_DuiZhang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ߶˱ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang'); + sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + Open; + end; + FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString); + if Trim(FDZID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('DZID').Value:=Trim(Maxno); + // FieldByName('DZType').Value:='ɴ'; + FieldByName('Status').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2); + Post; + end; + Edit; + FieldByName('DZID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmBPCGDZInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥɹ¼',Tv1,''); + Close; +end; + +procedure TfrmBPCGDZInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥɹ¼',Tv1,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where DZID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmBPCGDZInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + sql.Add(' and isnull(Status,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmBPCGDZInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('DZDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('DZType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('MPRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Price',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmBPCGDZInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmBPCGDZInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if Trim(CDS_Sub.fieldbyname('DZType').AsString)='' then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + if Trim(CDS_Sub.fieldbyname('DZType').AsString)='' then + begin + flag:='PBName'; + flagname:=''; + end else + begin + flag:='CPPBName'; + flagname:='Ʒ'; + end; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBPCGDZInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName(FName).Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + FPrice:=CDS_Sub.fieldbyname('Price').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with CDS_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + //Post; + end; +end; + +procedure TfrmBPCGDZInPut.v1Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with CDS_Sub do + begin + edit; + FieldByName('DZType').Value:=Trim(mvalue); + FieldByName('MPRTCodeName').Value:=Null; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.dfm new file mode 100644 index 0000000..3dd46cd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.dfm @@ -0,0 +1,482 @@ +object frmBPCGDZList: TfrmBPCGDZList + Left = 171 + Top = 128 + Width = 1130 + Height = 511 + Caption = #24067#21305#37319#36141#23545#36134#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1114 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 77 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1114 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 593 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 734 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 441 + Top = 12 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label6: TLabel + Left = 286 + Top = 12 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 620 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 771 + Top = 9 + Width = 129 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object DZType: TComboBox + Tag = 1 + Left = 467 + Top = 8 + Width = 105 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = FactoryNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + object OrderNo: TEdit + Tag = 2 + Left = 324 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 92 + Width = 1114 + Height = 380 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column9 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column6: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column8: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1114 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1114 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 920 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 888 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 184 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 888 + Top = 224 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.pas b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.pas new file mode 100644 index 0000000..bd8335f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.pas @@ -0,0 +1,596 @@ +unit U_BPCGDZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmBPCGDZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + FactoryName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + DZType: TComboBox; + Label5: TLabel; + Label6: TLabel; + OrderNo: TEdit; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + procedure InitGrid(); + function YFHZData(FDZID:string):Boolean; + function DelYFHZData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmBPCGDZList: TfrmBPCGDZList; + +implementation +uses + U_DataLink,U_RTFun,U_BPCGDZInPut; + +{$R *.dfm} + +procedure TfrmBPCGDZList.FormDestroy(Sender: TObject); +begin + frmBPCGDZList:=nil; +end; + +procedure TfrmBPCGDZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPCGDZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-15; +end; + +procedure TfrmBPCGDZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where isnull(DZType,'''')in('''',''Ʒ'')'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + begin + sql.Add(' and isnull(Status,'''')=''Ѷ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + end; + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(MPRTCodeName.Text)<>'' then + begin + SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+''''); + end; + if Trim(DZType.Text)<>'' then + begin + SQL.Add(' and isnull(A.DZType,'''')='''+Trim(DZType.Text)+''''); + end; + if Trim(OrderNo.Text)<>'' then + begin + SQL.Add(' and isnull(A.OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBPCGDZList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmBPCGDZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmBPCGDZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥɹб',Tv1,''); + Close; +end; + +procedure TfrmBPCGDZList.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥɹб',Tv1,''); + //InitGrid(); +end; + +procedure TfrmBPCGDZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ƥɹб',cxGrid1); +end; + +procedure TfrmBPCGDZList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmBPCGDZList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmBPCGDZList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmBPCGDZList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmBPCGDZList.ToolButton1Click(Sender: TObject); +begin + try + frmBPCGDZInPut:=TfrmBPCGDZInPut.Create(Application); + with frmBPCGDZInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPCGDZInPut.Free; + end; +end; + +procedure TfrmBPCGDZList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmBPCGDZInPut:=TfrmBPCGDZInPut.Create(Application); + with frmBPCGDZInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPCGDZInPut.Free; + end; +end; + +procedure TfrmBPCGDZList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBPCGDZList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBPCGDZList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִж˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Trim(DName); + FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Status').Value:='Ѷ'; + Post; + end; + YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString)); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmBPCGDZList.YFHZData(FDZID:string):Boolean; +var + CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''''); + Open; + end; + CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString); + CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'PC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡɴӦʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(MaxNo); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + + //FieldByName('PSName').Value:='ɴ'; + FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',YFName=(select DZType from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',QtyUnit=(select QtyUnit from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(' where YFID='''+Trim(MaxNo)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+''''); + sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmBPCGDZList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where '); + sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where CRID='+CRID); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + + Result:=True; +end; +procedure TfrmBPCGDZList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Null; + FieldByName('DuiZhangTime').Value:=Null; + FieldByName('Status').Value:=''; + Post; + end; + DelYFHZData(); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.dfm new file mode 100644 index 0000000..c066034 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.dfm @@ -0,0 +1,254 @@ +object frmBPJGDZInPut: TfrmBPJGDZInPut + Left = 66 + Top = 92 + Width = 1215 + Height = 502 + Align = alClient + Caption = #24067#21305#21152#24037#23545#36134#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1199 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 132 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1199 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.pas new file mode 100644 index 0000000..57deaae --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.pas @@ -0,0 +1,439 @@ +unit U_BPJGDZInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmBPJGDZInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure v1(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1QtyToFZQtyXSPropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmBPJGDZInPut: TfrmBPJGDZInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList; + +{$R *.dfm} + +procedure TfrmBPJGDZInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPJGDZInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmBPJGDZInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FDZID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'BJ','JYOrder_Main_MD_DuiZhang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ߶˱ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang'); + sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + Open; + end; + FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString); + if Trim(FDZID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('DZID').Value:=Trim(Maxno); + FieldByName('DZType').Value:='ƥӹ'; + FieldByName('Status').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2); + Post; + end; + Edit; + FieldByName('DZID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmBPJGDZInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥӹ¼',Tv1,''); + Close; +end; + +procedure TfrmBPJGDZInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥӹ¼',Tv1,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where DZID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmBPJGDZInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + sql.Add(' and isnull(Status,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmBPJGDZInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('DZDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('MPRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Price',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmBPJGDZInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmBPJGDZInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BPJGName'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBPJGDZInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName(FName).Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + FPrice:=CDS_Sub.fieldbyname('Price').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with CDS_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + //Post; + end; + if Trim(FName)='Qty' then + begin + { if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value; + end; + end; } + end; +end; + +procedure TfrmBPJGDZInPut.v1( + Sender: TObject); +var + mvalue:String; +begin + { mvalue:=TcxComboBox(Sender).EditingText; + with CDS_Sub do + begin + edit; + FieldByName('FZQtyUnit').Value:=Trim(mvalue); + end; + if Trim(mvalue)='' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('QtyToFZQtyXS').Value:=Null; + FieldByName('FZQty').Value:=Null; + end; + end; } +end; + +procedure TfrmBPJGDZInPut.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + FName:string; +begin + {FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FName)='QtyToFZQtyXS' then + begin + if Trim(CDS_Sub.fieldbyname('QtyUnit').AsString)='' then + begin + v1QtyToFZQtyXS.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then + begin + v1QtyToFZQtyXS.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + v1QtyToFZQtyXS.Options.Editing:=True; + end; + if Trim(FName)='FZQty' then + begin + if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then + begin + v1FZQty.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + v1FZQty.Options.Editing:=True; + end; } +end; + +procedure TfrmBPJGDZInPut.v1QtyToFZQtyXSPropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty:String; +begin + {mvalue:=TcxTextEdit(Sender).EditingText; + //if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName('QtyToFZQtyXS').Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value; + end; + end else + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=Null; + end; + end; } +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.dfm new file mode 100644 index 0000000..127c8b3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.dfm @@ -0,0 +1,453 @@ +object frmBPJGDZList: TfrmBPJGDZList + Left = 171 + Top = 128 + Width = 1130 + Height = 511 + Caption = #24067#21305#21152#24037#23545#36134#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1114 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 77 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1114 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 438 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 579 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label6: TLabel + Left = 286 + Top = 12 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 465 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 616 + Top = 9 + Width = 129 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 324 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 92 + Width = 1114 + Height = 380 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column9 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column8: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1114 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1114 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 920 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 888 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 184 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 888 + Top = 224 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.pas b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.pas new file mode 100644 index 0000000..98d23e9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.pas @@ -0,0 +1,588 @@ +unit U_BPJGDZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmBPJGDZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + FactoryName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Label6: TLabel; + OrderNo: TEdit; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + procedure InitGrid(); + function YFHZData(FDZID:string):Boolean; + function DelYFHZData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmBPJGDZList: TfrmBPJGDZList; + +implementation +uses + U_DataLink,U_RTFun,U_BPJGDZInPut; + +{$R *.dfm} + +procedure TfrmBPJGDZList.FormDestroy(Sender: TObject); +begin + frmBPJGDZList:=nil; +end; + +procedure TfrmBPJGDZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPJGDZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-15; +end; + +procedure TfrmBPJGDZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where isnull(DZType,'''')=''ƥӹ'' and isnull(ZSType,'''')='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + begin + sql.Add(' and isnull(Status,'''')=''Ѷ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + end; + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(MPRTCodeName.Text)<>'' then + begin + SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+''''); + end; + if Trim(OrderNo.Text)<>'' then + begin + SQL.Add(' and isnull(A.OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBPJGDZList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmBPJGDZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmBPJGDZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥӹб',Tv1,''); + Close; +end; + +procedure TfrmBPJGDZList.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥӹб',Tv1,''); + //InitGrid(); +end; + +procedure TfrmBPJGDZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ƥӹб',cxGrid1); +end; + +procedure TfrmBPJGDZList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmBPJGDZList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmBPJGDZList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmBPJGDZList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmBPJGDZList.ToolButton1Click(Sender: TObject); +begin + try + frmBPJGDZInPut:=TfrmBPJGDZInPut.Create(Application); + with frmBPJGDZInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPJGDZInPut.Free; + end; +end; + +procedure TfrmBPJGDZList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmBPJGDZInPut:=TfrmBPJGDZInPut.Create(Application); + with frmBPJGDZInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPJGDZInPut.Free; + end; +end; + +procedure TfrmBPJGDZList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBPJGDZList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBPJGDZList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִж˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Trim(DName); + FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Status').Value:='Ѷ'; + Post; + end; + YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString)); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmBPJGDZList.YFHZData(FDZID:string):Boolean; +var + CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''''); + Open; + end; + CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString); + CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'BJ','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡƥӹӦʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(MaxNo); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:='ƥӹ'; + //FieldByName('PSName').Value:='ɴ'; + FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',QtyUnit=(select QtyUnit from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(' where YFID='''+Trim(MaxNo)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+''''); + sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmBPJGDZList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where '); + sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where CRID='+CRID); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + + Result:=True; +end; +procedure TfrmBPJGDZList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Null; + FieldByName('DuiZhangTime').Value:=Null; + FieldByName('Status').Value:=''; + Post; + end; + DelYFHZData(); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.dfm new file mode 100644 index 0000000..24e52a6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.dfm @@ -0,0 +1,285 @@ +object frmBPJGDZZSInPut: TfrmBPJGDZZSInPut + Left = 66 + Top = 92 + Width = 1215 + Height = 502 + Align = alClient + Caption = #24067#21305#21152#24037#23545#36134#24405#20837'('#26377#25240#31639')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1199 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'Kg' + '') + Properties.OnEditValueChanged = v1 + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1QtyToFZQtyXS: TcxGridDBColumn + Tag = 2 + Caption = #25240#31639#31995#25968 + DataBinding.FieldName = 'QtyToFZQtyXS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1QtyToFZQtyXSPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1FZQty: TcxGridDBColumn + Tag = 2 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 132 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1199 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.pas new file mode 100644 index 0000000..ca80dae --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.pas @@ -0,0 +1,458 @@ +unit U_BPJGDZZSInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmBPJGDZZSInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1QtyToFZQtyXS: TcxGridDBColumn; + v1FZQty: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure v1(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1QtyToFZQtyXSPropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmBPJGDZZSInPut: TfrmBPJGDZZSInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList; + +{$R *.dfm} + +procedure TfrmBPJGDZZSInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPJGDZZSInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmBPJGDZZSInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FDZID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'BJ','JYOrder_Main_MD_DuiZhang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ߶˱ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang'); + sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + Open; + end; + FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString); + if Trim(FDZID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('DZID').Value:=Trim(Maxno); + FieldByName('DZType').Value:='ƥӹ'; + FieldByName('Status').Value:=''; + FieldByName('ZSType').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2); + Post; + end; + Edit; + FieldByName('DZID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmBPJGDZZSInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥӹ¼',Tv1,''); + Close; +end; + +procedure TfrmBPJGDZZSInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥӹ¼',Tv1,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where DZID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmBPJGDZZSInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + sql.Add(' and isnull(Status,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmBPJGDZZSInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('DZDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('MPRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FZQtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyToFZQtyXS',null,[])=True then + begin + Application.MessageBox('ϵΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FZQty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Price',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmBPJGDZZSInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmBPJGDZZSInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BPJGName'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBPJGDZZSInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName(FName).Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + FPrice:=CDS_Sub.fieldbyname('Price').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with CDS_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + //Post; + end; + if Trim(FName)='Qty' then + begin + if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value; + end; + end; + end; +end; + +procedure TfrmBPJGDZZSInPut.v1( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with CDS_Sub do + begin + edit; + FieldByName('FZQtyUnit').Value:=Trim(mvalue); + end; + if Trim(mvalue)='' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('QtyToFZQtyXS').Value:=Null; + FieldByName('FZQty').Value:=Null; + end; + end; +end; + +procedure TfrmBPJGDZZSInPut.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + FName:string; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FName)='QtyToFZQtyXS' then + begin + if Trim(CDS_Sub.fieldbyname('QtyUnit').AsString)='' then + begin + v1QtyToFZQtyXS.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then + begin + v1QtyToFZQtyXS.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + v1QtyToFZQtyXS.Options.Editing:=True; + end; + if Trim(FName)='FZQty' then + begin + if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then + begin + v1FZQty.Options.Editing:=False; + Application.MessageBox('λΪ!','ʾ',0); + exit; + end; + v1FZQty.Options.Editing:=True; + end; +end; + +procedure TfrmBPJGDZZSInPut.v1QtyToFZQtyXSPropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + //if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName('QtyToFZQtyXS').Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value; + end; + end else + begin + with CDS_Sub do + begin + Edit; + FieldByName('FZQty').Value:=Null; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.dfm b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.dfm new file mode 100644 index 0000000..7683d28 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.dfm @@ -0,0 +1,478 @@ +object frmBPJGDZZSList: TfrmBPJGDZZSList + Left = 171 + Top = 128 + Width = 1130 + Height = 511 + Caption = #24067#21305#21152#24037#23545#36134#21015#34920'('#25240#31639')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1114 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 77 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1114 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 438 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 579 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label6: TLabel + Left = 286 + Top = 12 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 465 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 616 + Top = 9 + Width = 129 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 324 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 92 + Width = 1114 + Height = 380 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column9 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column8: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Caption = #25240#31639#31995#25968 + DataBinding.FieldName = 'QtyToFZQtyXS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1114 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1114 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 920 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 888 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 184 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 888 + Top = 224 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.pas b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.pas new file mode 100644 index 0000000..2cee0a9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.pas @@ -0,0 +1,591 @@ +unit U_BPJGDZZSList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmBPJGDZZSList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + FactoryName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Label6: TLabel; + OrderNo: TEdit; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + procedure InitGrid(); + function YFHZData(FDZID:string):Boolean; + function DelYFHZData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmBPJGDZZSList: TfrmBPJGDZZSList; + +implementation +uses + U_DataLink,U_RTFun,U_BPJGDZZSInPut; + +{$R *.dfm} + +procedure TfrmBPJGDZZSList.FormDestroy(Sender: TObject); +begin + frmBPJGDZZSList:=nil; +end; + +procedure TfrmBPJGDZZSList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmBPJGDZZSList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-15; +end; + +procedure TfrmBPJGDZZSList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where isnull(DZType,'''')=''ƥӹ'' and isnull(ZSType,'''')='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + begin + sql.Add(' and isnull(Status,'''')=''Ѷ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + end; + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(MPRTCodeName.Text)<>'' then + begin + SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+''''); + end; + if Trim(OrderNo.Text)<>'' then + begin + SQL.Add(' and isnull(A.OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBPJGDZZSList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmBPJGDZZSList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmBPJGDZZSList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƥӹб',Tv1,''); + Close; +end; + +procedure TfrmBPJGDZZSList.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥӹб',Tv1,''); + //InitGrid(); +end; + +procedure TfrmBPJGDZZSList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ƥӹб()',cxGrid1); +end; + +procedure TfrmBPJGDZZSList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmBPJGDZZSList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmBPJGDZZSList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmBPJGDZZSList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmBPJGDZZSList.ToolButton1Click(Sender: TObject); +begin + try + frmBPJGDZZSInPut:=TfrmBPJGDZZSInPut.Create(Application); + with frmBPJGDZZSInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPJGDZZSInPut.Free; + end; +end; + +procedure TfrmBPJGDZZSList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmBPJGDZZSInPut:=TfrmBPJGDZZSInPut.Create(Application); + with frmBPJGDZZSInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmBPJGDZZSInPut.Free; + end; +end; + +procedure TfrmBPJGDZZSList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBPJGDZZSList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBPJGDZZSList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִж˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Trim(DName); + FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Status').Value:='Ѷ'; + Post; + end; + YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString)); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmBPJGDZZSList.YFHZData(FDZID:string):Boolean; +var + CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''''); + Open; + end; + CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString); + CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'BJ','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡƥӹӦʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(MaxNo); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:='ƥӹ'; + //FieldByName('PSName').Value:='ɴ'; + FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',QtyUnit=(select QtyUnit from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(' where YFID='''+Trim(MaxNo)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+''''); + sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmBPJGDZZSList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where '); + sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where CRID='+CRID); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + + Result:=True; +end; +procedure TfrmBPJGDZZSList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Null; + FieldByName('DuiZhangTime').Value:=Null; + FieldByName('Status').Value:=''; + Post; + end; + DelYFHZData(); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CICXList.dfm b/坯布码单待检(PBMDDJ.dll)/U_CICXList.dfm new file mode 100644 index 0000000..7047e5e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CICXList.dfm @@ -0,0 +1,853 @@ +object frmCICXList: TfrmCICXList + Left = 62 + Top = 108 + Width = 1281 + Height = 667 + Caption = #24212#25910#27454#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1265 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1265 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 65 + Height = 12 + Caption = #38144#21806#21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 569 + Top = 18 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 731 + Top = 18 + Width = 26 + Height = 12 + Caption = #23458#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + end + object CINO: TEdit + Tag = 2 + Left = 447 + Top = 14 + Width = 105 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + OnKeyPress = CINOKeyPress + end + object ConNo: TEdit + Tag = 2 + Left = 609 + Top = 14 + Width = 106 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + OnKeyPress = ConNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 758 + Top = 14 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object CheckBox1: TCheckBox + Left = 896 + Top = 16 + Width = 161 + Height = 17 + Caption = #26174#31034#24212#25910#20313#27454#20026'0'#30340#25968#25454 + TabOrder = 6 + OnClick = CheckBox1Click + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 425 + Width = 1265 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object Panel2: TPanel + Left = 0 + Top = 433 + Width = 1265 + Height = 195 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label4: TLabel + Left = 646 + Top = 2 + Width = 13 + Height = 191 + Align = alLeft + Caption = #13#10#13#10#13#10#23450#13#10#13#10#37329#13#10#13#10#20998#13#10#13#10#37197 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 2 + Top = 2 + Width = 13 + Height = 191 + Align = alLeft + Caption = #13#10#13#10#13#10#20854#13#10#13#10#23427#13#10#13#10#20998#13#10#13#10#37197 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object cxGrid3: TcxGrid + Left = 659 + Top = 2 + Width = 604 + Height = 191 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn18 + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn19 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #20998#37197#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 110 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '$' + #65509 + #8364) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 2 + Caption = #21512#21516#23450#37329#37329#39069 + DataBinding.FieldName = 'DJMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #20998#37197#23450#37329 + DataBinding.FieldName = 'FPMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid2: TcxGrid + Left = 15 + Top = 2 + Width = 631 + Height = 191 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object VDate: TcxGridDBColumn + Tag = 2 + Caption = #20998#37197#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 91 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #25910#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '$' + #65509 + #8364) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + end + object VYB: TcxGridDBColumn + Tag = 2 + Caption = #25910#27454#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column1: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'FPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + #20313#27454 + #20840#27454 + #20323#37329) + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20998#37197#37329#39069 + DataBinding.FieldName = 'FPMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object VNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 79 + Width = 1265 + Height = 346 + Align = alClient + TabOrder = 4 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn9 + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = v1Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #38144#21806#21457#31080#21495 + DataBinding.FieldName = 'CINO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 999 + Caption = #26085#26399 + DataBinding.FieldName = 'CIDate' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #21457#36135#37329#39069 + DataBinding.FieldName = 'FHMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20854#23427#36153#29992#21517#31216 + DataBinding.FieldName = 'OtherFeeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20854#23427#36153#29992#37329#39069 + DataBinding.FieldName = 'OtherFee' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column6: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'KKMoney' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'DJMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20313#27454 + DataBinding.FieldName = 'YKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #20840#27454 + DataBinding.FieldName = 'QKMoney' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column4: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'YJMoney' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column3: TcxGridDBColumn + Caption = #24212#25910#20313#27454 + DataBinding.FieldName = 'YSMoney' + HeaderAlignmentHorz = taCenter + Width = 84 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 784 + Top = 168 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 712 + Top = 160 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 744 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 687 + Top = 159 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 201 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 200 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 200 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 1061 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 365 + Top = 203 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 485 + Top = 203 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 685 + Top = 323 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 759 + Top = 495 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 728 + Top = 496 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 184 + Top = 512 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 216 + Top = 512 + end + object cxGridPopupMenu4: TcxGridPopupMenu + PopupMenus = <> + Left = 264 + Top = 512 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CICXList.pas b/坯布码单待检(PBMDDJ.dll)/U_CICXList.pas new file mode 100644 index 0000000..039182c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CICXList.pas @@ -0,0 +1,600 @@ +unit U_CICXList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, cxDropDownEdit; + + +type + TfrmCICXList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + ADOQueryPrint: TADOQuery; + cxSplitter1: TcxSplitter; + cxGridPopupMenu3: TcxGridPopupMenu; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + Panel2: TPanel; + Label4: TLabel; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + ToolButton2: TToolButton; + Label6: TLabel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Label8: TLabel; + Label5: TLabel; + Label7: TLabel; + CINO: TEdit; + ConNo: TEdit; + CustomerNoName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + VYB: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + CheckBox1: TCheckBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure CINOKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmCICXList: TfrmCICXList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp,U_CIInPut, + U_SKCRFenPei,U_ConDJFenPei; + +{$R *.dfm} + +procedure TfrmCICXList.FormDestroy(Sender: TObject); +begin + frmCICXList:=nil; +end; + +procedure TfrmCICXList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCICXList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('CIList',Tv1,'CI'); +end; + +procedure TfrmCICXList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,ConNO=dbo.F_Get_Order_SubStr(A.CIID,''CIConNO'') '); + sql.Add(',PS=(select Sum(CSPS) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',Qty=(select Sum(CSQty) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',QtyUnit=(select Top 1 CSQtyUnit from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + SQL.Add(' from JYOrder_CI A'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end;} + if CheckBox1.Checked=True then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end else + begin + sql.Add(' and isnull(YSMoney,0)<>0'); + end; + + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmCICXList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('CIList',Tv1,'CI'); + //InitGrid(); +end; + +function TfrmCICXList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_CI where CIId='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + sql.Add('delete JYOrder_CI_Sub where CIId='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmCICXList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ӧտѯ',cxGrid1); +end; + +procedure TfrmCICXList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCICXList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmCICXList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCICXList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ӧտѯ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmCICXList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmCICXList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,ConNO=dbo.F_Get_Order_SubStr(A.CIID,''CIConNO'') '); + sql.Add(',PS=(select Sum(CSPS) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',Qty=(select Sum(CSQty) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',QtyUnit=(select Top 1 CSQtyUnit from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + SQL.Add(' from JYOrder_CI A'); + // sql.Add(' inner join JYOrderCon_Main C on A.PIMainId=C.MainId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; } + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmCICXList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmCICXList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCICXList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmCICXList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmCICXList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmCICXList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmCICXList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmCICXList.CINOKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(CINO.Text))<3 then Exit; + fsj:=' and AA.CINO like '''+'%'+Trim(CINO.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmCICXList.ConNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(ConNo.Text))<3 then Exit; + fsj:=' and AA.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + + +procedure TfrmCICXList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YS.CRTime,YS.BZType,YS.Money,FP.* '); + sql.Add(' from SK_Money_FP FP'); + sql.Add(' inner join YF_Money_CR YS on FP.YFID=YS.YFID'); + sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + sql.Add(' and isnull(FPType,'''')<>''CI'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YS.PriceUnit,YS.DJMoney,FP.* '); + sql.Add(' from SK_Money_FP FP'); + sql.Add(' inner join JYOrderCon_Sub YS on FP.YFID=YS.SubId'); + sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + sql.Add(' and FPType=''CI'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmCICXList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; } + try + frmCIInPut:=TfrmCIInPut.Create(Application); + with frmCIInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('CIID').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmCIInPut.Free; + end; +end; + +procedure TfrmCICXList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CIInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_CIInPut.dfm new file mode 100644 index 0000000..a6ab5ad --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CIInPut.dfm @@ -0,0 +1,456 @@ +object frmCIInPut: TfrmCIInPut + Left = 100 + Top = 77 + Width = 1029 + Height = 591 + Align = alClient + Caption = 'CI'#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1013 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1013 + Height = 72 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 36 + Top = 12 + Width = 78 + Height = 12 + Caption = #38144#21806#21457#31080#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 36 + Top = 44 + Width = 81 + Height = 12 + Caption = #26085' '#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 543 + Top = 44 + Width = 65 + Height = 12 + Caption = #36153#29992#37329#39069#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 295 + Top = 44 + Width = 65 + Height = 12 + Caption = #36153#29992#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 295 + Top = 12 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CINO: TEdit + Left = 110 + Top = 9 + Width = 120 + Height = 18 + CharCase = ecUpperCase + TabOrder = 0 + end + object CIDate: TDateTimePicker + Left = 110 + Top = 40 + Width = 123 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 1 + end + object OtherFeeName: TBtnEditA + Left = 356 + Top = 40 + Width = 120 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = OtherFeeNameBtnClick + end + object CustomerNoName: TEdit + Left = 357 + Top = 9 + Width = 120 + Height = 18 + CharCase = ecUpperCase + ReadOnly = True + TabOrder = 3 + end + object OtherFee: TEdit + Left = 605 + Top = 41 + Width = 120 + Height = 18 + CharCase = ecUpperCase + TabOrder = 4 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 101 + Width = 1013 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 130 + Width = 1013 + Height = 422 + Align = alClient + TabOrder = 3 + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v2Column4: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column6: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#31867#22411 + DataBinding.FieldName = 'FHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v2Column3: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 48 + end + object v2Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'CSPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v2Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'CSMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #25187#27454#37329#39069 + DataBinding.FieldName = 'SKKMoney' + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 598 + Top = 3 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 519 + Top = 1 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 434 + Top = 394 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 394 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 560 + Top = 1 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CIInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_CIInPut.pas new file mode 100644 index 0000000..791a4ce --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CIInPut.pas @@ -0,0 +1,477 @@ +unit U_CIInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit; + +type + TfrmCIInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + CINO: TEdit; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + Label2: TLabel; + CIDate: TDateTimePicker; + Label11: TLabel; + Label15: TLabel; + OtherFeeName: TBtnEditA; + CustomerNoName: TEdit; + Label7: TLabel; + OtherFee: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OtherFeeNameBtnClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column1PropertiesEditValueChanged(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType:String; + + { Public declarations } + end; + +var + frmCIInPut: TfrmCIInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel,U_FHOKSelList; + +{$R *.dfm} + +procedure TfrmCIInPut.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmCIInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.CIID,A.CINO,A.CIDate,A.OtherFeeName,A.OtherFee, '); + sql.Add(' B.CSID,C.ConNo,C.CustomerNoName,C.CustomerNo,D.FHQty,D.FHPS,D.FHDate,D.FHType,D.QtyUnit,'); + sql.Add(' E.OrderNo,PRTCode=isnull(E.MPRTCode,'''')+isnull(E.MPRTGY,''''),'); + sql.Add(' PRTColor=isnull(F.PRTColorNo,'''')+'' ''+isnull(F.PRTColor,'''')+'' ''+isnull(F.PRTColorEng,''''), '); + sql.Add(' F.PRTHX,G.PriceUnit,G.PRTPrice,FHMoney=G.PRTPrice*D.FHQty,PIMainId=G.MainId,PISubId=G.SubId,'); + sql.Add(' F.MainId,F.SubId,D.FHID,B.CSPrice,B.CSMoney,B.SKKMoney'); + sql.Add(' from JYOrder_CI A'); + sql.Add(' inner join JYOrder_CI_Sub B on A.CIId=B.CIId'); + sql.Add(' inner join JYOrder_FH D on B.FHID=D.FHID'); + sql.Add(' inner join JYOrder_Main E on D.MainId=E.MainId'); + sql.Add(' inner join JYOrder_Sub F on D.SubId=F.SubId'); + sql.Add(' inner join JYOrderCon_Sub G on F.PISubId=G.SubId'); + sql.Add(' inner join JYOrderCon_Main C on G.Mainid=C.MainId'); + sql.Add(' where A.CIID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHDataNew(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + CIDate.DateTime:=Now; + end; +end; + +procedure TfrmCIInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmCIInPut.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmCIInPut.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'CI','JYOrder_CI',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_CI where CIID='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('CIID').Value:=Trim(maxno); + FieldByName('CINO').Value:=Trim(CINO.Text); + FieldByName('CIDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',CIDate.Date)); + FieldByName('OtherFeeName').Value:=Trim(OtherFeeName.Text); + if Trim(OtherFee.Text)<>'' then + FieldByName('OtherFee').Value:=Trim(OtherFee.Text) + else + FieldByName('OtherFee').Value:=Null; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_CI where CINO='''+Trim(CINO.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('۷Ʊظ!','ʾ',0); + Exit; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('CSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'CS','JYOrder_CI_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ϸˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('CSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_CI_Sub where '); + sql.Add(' CSId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('CSId').AsString)='' then + Append + else + Edit; + FieldByName('CIID').Value:=Trim(maxno); + FieldByName('CSId').Value:=Trim(maxSubNo); + FieldByName('PIMainId').Value:=Order_Sub.fieldbyname('PIMainId').Value; + FieldByName('PISubId').Value:=Order_Sub.fieldbyname('PISubId').Value; + FieldByName('FHID').Value:=Order_Sub.fieldbyname('FHID').Value; + FieldByName('CSBZType').Value:=Order_Sub.fieldbyname('PriceUnit').Value; + FieldByName('CSQtyUnit').Value:=Order_Sub.fieldbyname('QtyUnit').Value; + FieldByName('CSPrice').Value:=Order_Sub.fieldbyname('CSPrice').Value; + FieldByName('CSPS').Value:=Order_Sub.fieldbyname('FHPS').Value; + FieldByName('CSQty').Value:=Order_Sub.fieldbyname('FHQty').Value; + FieldByName('CSMoney').Value:=Order_Sub.fieldbyname('CSMoney').Value; + FieldByName('SKKMoney').Value:=Order_Sub.fieldbyname('SKKMoney').Value; + Post; + end; + + Order_Sub.Edit; + Order_Sub.FieldByName('CSId').Value:=Trim(maxSubNo); + Next; + end; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set CustomerNoName='''+Trim(Order_Sub.fieldbyname('CustomerNoName').AsString)+''''); // + sql.Add(',CustomerNo='''+Trim(Order_Sub.fieldbyname('CustomerNo').AsString)+''''); // + sql.Add(',FHMoney=(select Sum(CSMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)'); + sql.Add(',KKMoney=(select Sum(SKKMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)'); + sql.Add(',BZType='''+Trim(Order_Sub.fieldbyname('PriceUnit').AsString)+''''); + sql.Add(' where CIID='''+Trim(maxno)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)+isnull(KKMoney,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)'); + sql.Add(' where CIID='''+Trim(maxno)+''''); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmCIInPut.TBSaveClick(Sender: TObject); +var + PIMainId:String; +begin + CINO.SetFocus; + if Trim(CINO.Text)='' then + begin + Application.MessageBox('۷ƱŲΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + PIMainId:=''; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not eof do + begin + if PIMainId='' then + begin + PIMainId:=Trim(Order_Sub.fieldbyname('CustomerNoName').AsString); + end else + begin + if Trim(PIMainId)<>Trim(Order_Sub.fieldbyname('CustomerNoName').AsString) then + begin + Order_Sub.EnableControls; + Application.MessageBox('ͻܱͬ!','ʾ',0); + Exit; + end; + end; + if Trim(Order_Sub.fieldbyname('SKKMoney').AsString)<>'' then + begin + if Order_Sub.fieldbyname('SKKMoney').Value>0 then + begin + Order_Sub.EnableControls; + Application.MessageBox('ۿΪ','ʾ',0); + Exit; + end; + end; + Next; + end; + end; + Order_Sub.EnableControls; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmCIInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('CSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_CI_Sub where CSId='''+Trim(Order_Sub.fieldbyname('CSId').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set '); + sql.Add(' FHMoney=(select Sum(CSMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)'); + sql.Add(' where CIID='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)+isnull(KKMoney,0)'); + sql.Add(' where CIID='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmCIInPut.OtherFeeNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CIOtherFeeName'; + flagname:=''; + if ShowModal=1 then + begin + OtherFeeName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCIInPut.ToolButton1Click(Sender: TObject); +begin + try + frmFHOKSelList:=TfrmFHOKSelList.Create(Application); + with frmFHOKSelList do + begin + if ShowModal=1 then + begin + with frmFHOKSelList.Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with Self.Order_Sub do + begin + Append; + FieldByName('PIMainId').Value:=frmFHOKSelList.Order_Main.fieldbyname('PIMainId').Value; + FieldByName('PISubId').Value:=frmFHOKSelList.Order_Main.fieldbyname('PISubId').Value; + FieldByName('MainId').Value:=frmFHOKSelList.Order_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=frmFHOKSelList.Order_Main.fieldbyname('SubId').Value; + FieldByName('FHID').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHID').Value; + FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value; + FieldByName('PRTCode').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTCode').Value; + FieldByName('PRTColor').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTColor').Value; + FieldByName('PRTHX').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTHX').Value; + FieldByName('QtyUnit').Value:=frmFHOKSelList.Order_Main.fieldbyname('QtyUnit').Value; + FieldByName('FHType').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHType').Value; + FieldByName('FHDate').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHDate').Value; + FieldByName('FHPS').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHPS').Value; + FieldByName('FHQty').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHQty').Value; + FieldByName('PriceUnit').Value:=frmFHOKSelList.Order_Main.fieldbyname('PriceUnit').Value; + FieldByName('CSPrice').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTPrice').Value; + FieldByName('CSMoney').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHMoney').Value; + FieldByName('ConNO').Value:=frmFHOKSelList.Order_Main.fieldbyname('ConNO').Value; + FieldByName('CustomerNoName').Value:=frmFHOKSelList.Order_Main.fieldbyname('CustomerNoName').Value; + FieldByName('CustomerNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('CustomerNo').Value; + //FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value; + //FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value; + //FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value; + Post; + end; + frmFHOKSelList.Order_Main.Delete; + end; + end; + + end; + end; + finally + frmFHOKSelList.Free; + end; +end; + +procedure TfrmCIInPut.v2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName('CSPrice').Value:=mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('CSMoney').Value:=FieldByName('CSPrice').Value*FieldByName('FHQty').Value; + end; +end; + +procedure TfrmCIInPut.Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Trim(DParameters1)='Ȩ' then + begin + v2Column1.Options.Editing:=True; + end else + begin + v2Column1.Options.Editing:=False; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CIList.dfm b/坯布码单待检(PBMDDJ.dll)/U_CIList.dfm new file mode 100644 index 0000000..aaa3e92 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CIList.dfm @@ -0,0 +1,943 @@ +object frmCIList: TfrmCIList + Left = 37 + Top = 47 + Width = 1281 + Height = 667 + Caption = #38144#21806#21457#31080#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1265 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1265 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 65 + Height = 12 + Caption = #38144#21806#21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 569 + Top = 18 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 731 + Top = 18 + Width = 26 + Height = 12 + Caption = #23458#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CINO: TEdit + Tag = 2 + Left = 447 + Top = 14 + Width = 105 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = CINOKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object ConNo: TEdit + Tag = 2 + Left = 609 + Top = 14 + Width = 106 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + OnKeyPress = ConNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 758 + Top = 14 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 79 + Width = 1265 + Height = 346 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn9 + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = v1Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #38144#21806#21457#31080#21495 + DataBinding.FieldName = 'CINO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 999 + Caption = #26085#26399 + DataBinding.FieldName = 'CIDate' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #21457#36135#37329#39069 + DataBinding.FieldName = 'FHMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20854#23427#36153#29992#21517#31216 + DataBinding.FieldName = 'OtherFeeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20854#23427#36153#29992#37329#39069 + DataBinding.FieldName = 'OtherFee' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column6: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'KKMoney' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'DJMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20313#27454 + DataBinding.FieldName = 'YKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #20840#27454 + DataBinding.FieldName = 'QKMoney' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column4: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'YJMoney' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column3: TcxGridDBColumn + Caption = #24212#25910#20313#27454 + DataBinding.FieldName = 'YSMoney' + HeaderAlignmentHorz = taCenter + Width = 84 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 425 + Width = 1265 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object Panel2: TPanel + Left = 0 + Top = 433 + Width = 1265 + Height = 195 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Label4: TLabel + Left = 695 + Top = 2 + Width = 13 + Height = 191 + Align = alLeft + Caption = #13#10#13#10#13#10#23450#13#10#13#10#37329#13#10#13#10#20998#13#10#13#10#37197 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 2 + Top = 2 + Width = 13 + Height = 191 + Align = alLeft + Caption = #13#10#13#10#13#10#20854#13#10#13#10#23427#13#10#13#10#20998#13#10#13#10#37197 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Panel3: TPanel + Left = 15 + Top = 2 + Width = 49 + Height = 191 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 28 + Width = 41 + Height = 22 + Caption = #22686#21152 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 68 + Width = 41 + Height = 22 + Caption = #21024#38500 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 108 + Width = 41 + Height = 22 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + end + object cxGrid2: TcxGrid + Left = 64 + Top = 2 + Width = 631 + Height = 191 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object VDate: TcxGridDBColumn + Tag = 2 + Caption = #20998#37197#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 91 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #25910#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '$' + #65509 + #8364) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + end + object VYB: TcxGridDBColumn + Tag = 2 + Caption = #25910#27454#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column1: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'FPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + #20313#27454 + #20840#27454 + #20323#37329) + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20998#37197#37329#39069 + DataBinding.FieldName = 'FPMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object VNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 708 + Top = 2 + Width = 53 + Height = 191 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button4: TButton + Left = 4 + Top = 28 + Width = 44 + Height = 22 + Caption = #22686#21152 + TabOrder = 0 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 68 + Width = 44 + Height = 22 + Caption = #21024#38500 + TabOrder = 1 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 108 + Width = 44 + Height = 22 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button6Click + end + end + object cxGrid3: TcxGrid + Left = 761 + Top = 2 + Width = 502 + Height = 191 + Align = alClient + TabOrder = 3 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn18 + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn19 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #20998#37197#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 110 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '$' + #65509 + #8364) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 2 + Caption = #21512#21516#23450#37329#37329#39069 + DataBinding.FieldName = 'DJMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #20998#37197#23450#37329 + DataBinding.FieldName = 'FPMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 776 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 160 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 744 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 687 + Top = 159 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 201 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 200 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 200 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 365 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 485 + Top = 203 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 549 + Top = 459 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 807 + Top = 503 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 840 + Top = 496 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 184 + Top = 512 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 216 + Top = 512 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 328 + Top = 520 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CIList.pas b/坯布码单待检(PBMDDJ.dll)/U_CIList.pas new file mode 100644 index 0000000..66523ee --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CIList.pas @@ -0,0 +1,1138 @@ +unit U_CIList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, cxDropDownEdit; + + +type + TfrmCIList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + CINO: TEdit; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + ConNo: TEdit; + Label7: TLabel; + CustomerNoName: TEdit; + ADOQueryPrint: TADOQuery; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Column5: TcxGridDBColumn; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + Panel2: TPanel; + Label4: TLabel; + Panel3: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + VYB: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + ToolButton2: TToolButton; + Label6: TLabel; + Panel4: TPanel; + Button4: TButton; + Button5: TButton; + Button6: TButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure CINOKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmCIList: TfrmCIList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp,U_CIInPut, + U_SKCRFenPei,U_ConDJFenPei; + +{$R *.dfm} + +procedure TfrmCIList.FormDestroy(Sender: TObject); +begin + frmCIList:=nil; +end; + +procedure TfrmCIList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCIList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('۷Ʊб',Tv1,'CI'); +end; + +procedure TfrmCIList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,ConNO=dbo.F_Get_Order_SubStr(A.CIID,''CIConNO'') '); + sql.Add(',PS=(select Sum(CSPS) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',Qty=(select Sum(CSQty) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',QtyUnit=(select Top 1 CSQtyUnit from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + SQL.Add(' from JYOrder_CI A'); + //sql.Add(' inner join JYOrderCon_Main C on A.PIMainId=C.MainId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+''')))'); + end; + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmCIList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('۷Ʊб',Tv1,'CI'); + //InitGrid(); +end; + +procedure TfrmCIList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + end; + + try + frmCIInPut:=TfrmCIInPut.Create(Application); + with frmCIInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('CIID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmCIInPut.Free; + end; +end; + +procedure TfrmCIList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SK_Money_FP where WBID='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + sql.Add(' and FPType in('''',''CI'') '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ѷݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmCIList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_CI where CIId='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + sql.Add('delete JYOrder_CI_Sub where CIId='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmCIList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('۷Ʊ',cxGrid1); +end; + +procedure TfrmCIList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCIList.TBAddClick(Sender: TObject); +begin + try + frmCIInPut:=TfrmCIInPut.Create(Application); + with frmCIInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmCIInPut.Free; + end; +end; + +procedure TfrmCIList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmCIList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCIList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='CI¼'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmCIList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmCIList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,ConNO=dbo.F_Get_Order_SubStr(A.CIID,''CIConNO'') '); + sql.Add(',PS=(select Sum(CSPS) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',Qty=(select Sum(CSQty) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + sql.Add(',QtyUnit=(select Top 1 CSQtyUnit from JYOrder_CI_Sub CS where CS.CIID=A.CIID)'); + SQL.Add(' from JYOrder_CI A'); + //sql.Add(' inner join JYOrderCon_Main C on A.PIMainId=C.MainId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmCIList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmCIList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCIList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmCIList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmCIList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmCIList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmCIList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmCIList.CINOKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(CINO.Text))<3 then Exit; + fsj:=' and AA.CINO like '''+'%'+Trim(CINO.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmCIList.ConNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(ConNo.Text))<3 then Exit; + fsj:=' and AA.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + + +procedure TfrmCIList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select A.CIID,A.CINO,A.CIDate,A.OtherFeeName,A.OtherFee, '); + sql.Add(' B.CSID,C.ConNo,C.CustomerNoName,D.FHQty,D.FHPS,D.FHDate,D.FHType,D.QtyUnit,'); + sql.Add(' E.OrderNo,PRTCode=isnull(E.MPRTCode,'''')+isnull(E.MPRTGY,''''),'); + sql.Add(' PRTColor=isnull(F.PRTColorNo,'''')+'' ''+isnull(F.PRTColor,'''')+'' ''+isnull(F.PRTColorEng,''''), '); + sql.Add(' F.PRTHX,G.PriceUnit,G.PRTPrice,FHMoney=G.PRTPrice*D.FHQty,PIMainId=G.MainId,PISubId=G.SubId,'); + sql.Add(' F.MainId,F.SubId,D.FHID'); + sql.Add(' from JYOrder_CI A'); + sql.Add(' inner join JYOrder_CI_Sub B on A.CIId=B.CIId'); + sql.Add(' inner join JYOrder_FH D on B.FHID=D.FHID'); + sql.Add(' inner join JYOrder_Main E on D.MainId=E.MainId'); + sql.Add(' inner join JYOrder_Sub F on D.SubId=F.SubId'); + sql.Add(' inner join JYOrderCon_Sub G on F.PISubId=G.SubId'); + sql.Add(' inner join JYOrderCon_Main C on G.Mainid=C.MainId'); + sql.Add(' where A.CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); } +end; + +procedure TfrmCIList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YS.CRTime,YS.BZType,YS.Money,FP.* '); + sql.Add(' from SK_Money_FP FP'); + sql.Add(' inner join YF_Money_CR YS on FP.YFID=YS.YFID'); + sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('CIId').AsString)+''''); + sql.Add(' and isnull(FPType,'''')<>''CI'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YS.PriceUnit,YS.DJMoney,FP.* '); + sql.Add(' from SK_Money_FP FP'); + sql.Add(' inner join JYOrderCon_Sub YS on FP.YFID=YS.SubId'); + sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + sql.Add(' and FPType=''CI'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmCIList.Button1Click(Sender: TObject); +begin + try + frmSKCRFenPei:=TfrmSKCRFenPei.Create(Application); + with frmSKCRFenPei do + begin + KHName:=Trim(Order_Main.fieldbyname('CustomerNo').AsString); + if ShowModal=1 then + begin + with Self.ClientDataSet2 do + begin + Append; + FieldByName('YFID').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('YFID').Value; + FieldByName('CRTime').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('CRTime').Value; + FieldByName('BZType').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('BZType').Value; + FieldByName('Money').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('Money').Value; + FieldByName('FPDate').Value:=Now; + Post; + end; + end; + end; + finally + frmSKCRFenPei.Free; + end; +end; + +procedure TfrmCIList.Button3Click(Sender: TObject); +var + maxsubno:String; +begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet2.Locate('FPDate',Null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('FPMoney',Null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('FPType',Null,[]) then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Panel1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + ///ӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('FPId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'FP','SK_Money_FP',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet2.fieldbyname('FPId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from SK_Money_FP where FPId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('FPId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + + FieldByName('FPId').Value:=Trim(maxsubno); + FieldByName('YFID').Value:=Trim(ClientDataSet2.fieldbyname('YFID').AsString); + FieldByName('FPTYpe').Value:=ClientDataSet2.fieldbyname('FPTYpe').Value; + FieldByName('FPDate').Value:=ClientDataSet2.fieldbyname('FPDate').Value; + FieldByName('WBID').Value:=Trim(Order_Main.fieldbyname('CIID').AsString); + if Trim(ClientDataSet2.fieldbyname('FPMoney').AsString)='' then + begin + fieldbyname('FPMoney').Value:=0 + end else + begin + fieldbyname('FPMoney').Value:=Trim(ClientDataSet2.fieldbyname('FPMoney').AsString); + end; + FieldByName('Note').Value:=Trim(ClientDataSet2.fieldbyname('Note').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_CI Set YKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType='''' )'); + sql.Add(', QKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''ȫ'' )'); + sql.Add(', YJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''Ӷ'' )'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)+isnull(KKMoney,0)'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set FPYKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType='''' )'); + sql.Add(',FPQKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType=''ȫ'' )'); + sql.Add(',FPYJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType=''Ӷ'' )'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set WFPMoney=isnull(Money,0)-isnull(FPDJMoney,0)'); + sql.Add('-isnull(FPYKMoney,0)-isnull(FPQKMoney,0)-isnull(FPYJMoney,0)'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('FPId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmCIList.Button2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('FPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete SK_Money_FP where FPID='''+Trim(ClientDataSet2.fieldbyname('FPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set FPYKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType='''' )'); + sql.Add(',FPQKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType=''ȫ'' )'); + sql.Add(',FPYJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType=''Ӷ'' )'); + sql.Add(' where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set WFPMoney=isnull(Money,0)-isnull(FPDJMoney,0)'); + sql.Add('-isnull(FPYKMoney,0)-isnull(FPQKMoney,0)-isnull(FPYJMoney,0)'); //-isnull(FPKKMoney,0) + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_CI Set YKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType='''' )'); + sql.Add(', QKMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''ȫ'' )'); + sql.Add(', YJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''Ӷ'' )'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)+isnull(KKMoney,0)'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet2.Delete; +end; + +procedure TfrmCIList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; } + try + frmCIInPut:=TfrmCIInPut.Create(Application); + with frmCIInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('CIID').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmCIInPut.Free; + end; +end; + +procedure TfrmCIList.Button4Click(Sender: TObject); +begin + try + frmConDJFenPei:=TfrmConDJFenPei.Create(Application); + with frmConDJFenPei do + begin + FCIID:=Trim(Order_Main.fieldbyname('CIID').AsString); + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Append; + FieldByName('YFID').Value:=frmConDJFenPei.CDS_HZ.fieldbyname('SubId').Value; + // FieldByName('CRTime').Value:=frmConDJFenPei.CDS_HZ.fieldbyname('CRTime').Value; + FieldByName('PriceUnit').Value:=frmConDJFenPei.CDS_HZ.fieldbyname('PriceUnit').Value; + FieldByName('DJMoney').Value:=frmConDJFenPei.CDS_HZ.fieldbyname('DJMoney').Value; + FieldByName('FPDate').Value:=Now; + Post; + end; + end; + end; + finally + frmConDJFenPei.Free; + end; +end; + +procedure TfrmCIList.Button6Click(Sender: TObject); +var + maxsubno:String; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('FPDate',Null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('FPMoney',Null,[]) then + begin + Application.MessageBox('䶨Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Panel1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + ///ӱ + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet3.fieldbyname('FPId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'FP','SK_Money_FP',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet3.fieldbyname('FPId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from SK_Money_FP where FPId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('FPId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + + FieldByName('FPId').Value:=Trim(maxsubno); + FieldByName('YFID').Value:=Trim(ClientDataSet3.fieldbyname('YFID').AsString); + FieldByName('FPTYpe').Value:='CI'; + FieldByName('FPDate').Value:=ClientDataSet3.fieldbyname('FPDate').Value; + FieldByName('WBID').Value:=Trim(Order_Main.fieldbyname('CIID').AsString); + if Trim(ClientDataSet3.fieldbyname('FPMoney').AsString)='' then + begin + fieldbyname('FPMoney').Value:=0 + end else + begin + fieldbyname('FPMoney').Value:=Trim(ClientDataSet3.fieldbyname('FPMoney').AsString); + end; + FieldByName('Note').Value:=Trim(ClientDataSet3.fieldbyname('Note').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_CI Set DJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''CI'' )'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)+isnull(KKMoney,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Sub Set FPDJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=JYOrderCon_Sub.SubID and A.FPType=''CI'' )'); + sql.Add('where SubID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Sub Set WFPDJMoney=isnull(DJMoney,0)-isnull(FPDJMoney,0)'); + sql.Add('where SubID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('FPId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmCIList.Button5Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('FPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete SK_Money_FP where FPID='''+Trim(ClientDataSet3.fieldbyname('FPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Sub Set FPDJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=JYOrderCon_Sub.SubId and A.FPType=''CI'' )'); + sql.Add('where SubId='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Sub Set WFPDJMoney=isnull(DJMoney,0)-isnull(FPDJMoney,0)'); + sql.Add('where SubId='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_CI Set DJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrder_CI.CIID and A.FPType=''CI'' )'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)+isnull(KKMoney,0)-isnull(DJMoney,0)'); + sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)'); + sql.Add('where CIID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet3.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.dfm b/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.dfm new file mode 100644 index 0000000..baadb09 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.dfm @@ -0,0 +1,539 @@ +object frmCKProductBCPInList: TfrmCKProductBCPInList + Left = 128 + Top = 152 + Width = 1027 + Height = 511 + Caption = #25104#21697#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1011 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25764#38144#26816#39564 + ImageIndex = 52 + Visible = False + OnClick = TBRKCXClick + end + object ToolButton1: TToolButton + Left = 339 + Top = 0 + Caption = #25171#21360'('#20449#24687#20840#37096')' + ImageIndex = 14 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 458 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1011 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 648 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 650 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 1 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 406 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 674 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + '') + end + object AOrdDefStr1: TEdit + Tag = 1 + Left = 674 + Top = 9 + Width = 68 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1011 + Height = 367 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column11 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v1Column12: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 107 + end + object v2Column5: TcxGridDBColumn + Caption = #20837#24211#20844#26020#25968 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v2Column6: TcxGridDBColumn + Caption = #20837#24211#38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column10: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 55 + end + object v1Column11: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 32 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 144 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 896 + Top = 128 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 400 + Top = 224 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 472 + Top = 224 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 432 + Top = 224 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 600 + Top = 224 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 568 + Top = 224 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 224 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.pas b/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.pas new file mode 100644 index 0000000..0cd10ba --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.pas @@ -0,0 +1,456 @@ +unit U_CKProductBCPInList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus; + +type + TfrmCKProductBCPInList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + orderNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + CPType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + AOrdDefStr1: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + v1Column4: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPInList: TfrmCKProductBCPInList; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCKProductBCPInList.FormDestroy(Sender: TObject); +begin + frmCKProductBCPInList:=nil; +end; + +procedure TfrmCKProductBCPInList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPInList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPInList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,C.PRTHX,B.MPRTMF,B.MPRTKZ,D.MJXH,D.MJQty4'); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',E.AOrdDefStr1,D.MJQty2'); + sql.add('from CK_BanCP_CR A '); + Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + Sql.add(' inner join WFB_MJJY D on A.MJId=D.MJId'); + sql.Add(' inner join JYOrder_Sub_AnPai E on A.APID=E.APID'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate'); + SQL.Add(' and CRType='''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProductBCPInList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmCKProductBCPInList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPInList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒֿ',Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPInList.FormShow(Sender: TObject); +begin + + ReadCxGrid('Ʒֿ',Tv1,'Ʒֿ'); + if Trim(DParameters2)='' then + begin + TBRKCX.Visible:=True; + end else + begin + v1Column4.Visible:=False; + end; + //InitGrid(); +end; + +procedure TfrmCKProductBCPInList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductBCPInList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCKProductBCPInList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPInList.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\뵥.rmf' ; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select AA.* from (select A.*,'); + sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),'); + sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),'); + sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID),'); + sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),'); + SQL.Add('TaiTou=(select Top 1 Note from KH_Zdy B where B.ZdyName=DD.OrdDefStr2 and Type=''OrdDefStr2'' ),'); + sql.Add('MJXH=(select MJXH from WFB_MJJY B where B.MJID=A.MJID)'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + {if Trim(CDS_Main.FieldByName('CKOrdNo').AsString)<>'' then + begin + sql.Add(' and A.CKOrdNo='''+Trim(CDS_Main.FieldByName('CKOrdNo').AsString)+''''); + end; } + sql.Add(' and CRType='''''); + SQL.Add(' and CPType=''Ʒ'' )AA '); + sql.Add(' order by SOrddefstr4,PRTHX,GangNo,MJXH '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from('); + sql.Add('select GangNo,OrderNo,SOrddefstr4,PRTHX,Sum(Qty) Qty,Count(*) PS '); + SQL.Add('from (select A.Qty,'); + sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),'); + sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),'); + sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),'); + sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID)'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + {if Trim(CDS_Main.FieldByName('CKOrdNo').AsString)<>'' then + begin + sql.Add(' and A.CKOrdNo='''+Trim(CDS_Main.FieldByName('CKOrdNo').AsString)+''''); + end; } + sql.Add(' and CRType='''''); + SQL.Add(' and CPType=''Ʒ'' )AA '); + sql.Add('Group by GangNo,OrderNo,SOrddefstr4,PRTHX )AAA'); + //sql.add(' order by SOrddefstr4,PRTHX,Cast(gangno as int)'); + sql.add(' order by SOrddefstr4,PRTHX,gangno '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_HZ); + SInitCDSData20(ADOQueryTemp,CDS_HZ); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\뵥.rmf'),'ʾ',0); + end; +end; + +procedure TfrmCKProductBCPInList.orderNoChange(Sender: TObject); +begin + if Length(Trim(orderNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmCKProductBCPInList.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,C.PRTHX,B.MPRTMF,B.MPRTKZ,D.MJXH,D.MJQty4'); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',E.AOrdDefStr1'); + sql.add('from CK_BanCP_CR A '); + Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + Sql.add(' inner join WFB_MJJY D on A.MJId=D.MJId'); + sql.Add(' inner join JYOrder_Sub_AnPai E on A.APID=E.APID'); + sql.add('where B.OrderNo like :OrderNo'); + SQL.Add(' and CRType='''' '); + Parameters.ParamByName('orderNo').Value:='%'+Trim(orderNo.Text)+'%'; + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmCKProductBCPInList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCKProductBCPInList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCKProductBCPInList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ѳⲻܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_Main.fieldbyname('BCID').AsString)+''''); + sql.Add('delete CK_BanCP_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + sql.Add('Update WFB_MJJY Set MJStr2=''δ'' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmCKProductBCPInList.ToolButton1Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\뵥ȫ.rmf' ; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select AA.* from (select A.*,MJ.MJMaoZ,MJJingZ=MJ.MJQty4,'); + sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),'); + sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),'); + sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID),'); + sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),'); + SQL.Add('TaiTou=(select Top 1 Note from KH_Zdy B where B.ZdyName=DD.OrdDefStr2 and Type=''OrdDefStr2'' ),'); + sql.Add('MJXH=(select MJXH from WFB_MJJY B where B.MJID=A.MJID)'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join WFB_MJJY MJ on A.MJId=MJ.MJId'); + //sql.Add(' inner join JYOrder_Sub JYS on A.SubId=JYS.SubId'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.CPType=''Ʒ'''); + sql.Add(' and CRType='''')AA '); + sql.Add(' order by SOrddefstr4,PRTHX,GangNo,MJXH '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from ('); + sql.Add('select GangNo,OrderNo,SOrddefstr4,PRTHX,Sum(Qty) Qty,Count(*) PS,Sum(MJMaoZ) MJMaoZ,sum(MJJingZ) MJJingZ '); + SQL.Add('from (select A.Qty,MJMaoZ=A.KgQty,MJJingZ=MJ.MJQty4,'); + sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),'); + sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),'); + sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),'); + sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID)'); + sql.Add(' from CK_BanCP_CR A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join WFB_MJJY MJ on A.MJId=MJ.MJId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.CPType=''Ʒ'''); + sql.Add(' and CRType='''')AA '); + sql.Add('Group by GangNo,OrderNo,SOrddefstr4,PRTHX'); + sql.Add(')AAA order by SOrddefstr4,PRTHX,GangNo'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_HZ); + SInitCDSData20(ADOQueryTemp,CDS_HZ); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\뵥ȫ.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPAdd.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPAdd.dfm new file mode 100644 index 0000000..2257dff --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPAdd.dfm @@ -0,0 +1,296 @@ +object frmCPAdd: TfrmCPAdd + Left = 134 + Top = 162 + Width = 1167 + Height = 399 + Align = alClient + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1151 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object Panel1: TPanel + Left = 126 + Top = 0 + Width = 131 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + Visible = False + object CheckBox1: TCheckBox + Left = 10 + Top = 7 + Width = 97 + Height = 17 + Caption = #38376#24133#21333#20301#33521#23544 + TabOrder = 0 + OnClick = CheckBox1Click + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 33 + Width = 1151 + Height = 327 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Tag = 3 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 112 + end + object v1Column12: TcxGridDBColumn + Tag = 3 + Caption = #32769#32534#21495 + DataBinding.FieldName = 'OldCYNo' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taRightJustify + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Tag = 3 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 79 + end + object v1Column13: TcxGridDBColumn + Tag = 3 + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Tag = 3 + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 80 + end + object v1Column3: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column4: TcxGridDBColumn + Tag = 3 + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Tag = 3 + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column7: TcxGridDBColumn + Tag = 3 + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column8: TcxGridDBColumn + Tag = 3 + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column9: TcxGridDBColumn + Tag = 3 + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column41: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column14: TcxGridDBColumn + Tag = 3 + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column20: TcxGridDBColumn + Tag = 2 + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column20PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 53 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column15: TcxGridDBColumn + Tag = 3 + Caption = #38754#26009#26469#28304 + DataBinding.FieldName = 'CYFrom' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 91 + end + object v1Column11: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 208 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 453 + Top = 209 + end + object DataSource2: TDataSource + DataSet = CDS_Sub + Left = 491 + Top = 211 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 589 + Top = 169 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 573 + Top = 121 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 528 + Top = 216 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPAdd.pas b/坯布码单待检(PBMDDJ.dll)/U_CPAdd.pas new file mode 100644 index 0000000..94380fc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPAdd.pas @@ -0,0 +1,651 @@ +unit U_CPAdd; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, + cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit, cxButtonEdit, + StdCtrls, ExtCtrls; + +type + TfrmCPAdd = class(TForm) + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBClose: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + DataSource2: TDataSource; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column41: TcxGridDBColumn; + Panel1: TPanel; + CheckBox1: TCheckBox; + v1Column12: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column8PropertiesEditValueChanged(Sender: TObject); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column26PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column27PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column20PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + canshu1:string; + Fint:Integer; + procedure InitSubGrid(); + function SaveData():Boolean; + { Private declarations } + public + FCYID,FCYCode,FCPID,FCPNO:String; + CopyInt:Integer; + + { Public declarations } + end; + +var + frmCPAdd: TfrmCPAdd; + +implementation +uses + U_DataLink,U_RTFun,U_iniParam,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPAdd.InitSubGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_YDang where CYID='''+Trim(FCYID)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sub); + SInitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCPAdd.FormShow(Sender: TObject); +var + fsj,FFSj,FFQZSj,FFFSj,FFType:String; + FFInt,i,j:Integer; + ii:LongInt; +begin + //canshu1:=Trim(DParameters1); + ReadCxGrid('Ʒ༭YT',Tv1,'Ʒ'); + InitSubGrid(); + if CopyInt=1 then + begin + FCYID:=''; + end; + {if Trim(YPCodeType)<>'' then + begin + if Trim(FCYID)='' then + begin + //ȡǰ׺ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYNO AA from CP_YDang '); + SQL.Add('where Cast(CYID as int)=(select isnull(Max(Cast(CYID as int)),0) from CP_YDang where CYType='''+Trim(FCPID)+''')'); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('AA').asstring)='' then + begin + FFQZSj:=Trim(FCPNO); + end else + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('AA').asstring); + FFInt:=0; + i:=0; + FFFSj:=Trim(Copy(fsj,Length(FCPNO)+1,Length(fsj))); + while FFInt<=0 do + begin + FFSj:=Trim(Copy(fsj,Length(FCPNO)+1+i,Length(fsj))); + if TryStrToInt(FFSj,ii) then + begin + if StrToInt(FFSj)>=0 then + begin + i:=i+1; + end else + begin + FFInt:=1; + FFQZSj:=Trim(Copy(fsj,1,Length(FCPNO)+i+1));//ǰ׺ַ + end; + if i=Length(FFFSj) then + begin + FFInt:=1; + FFQZSj:=Trim(FCPNO); + end; + end else + begin + FFInt:=1; + FFQZSj:=Trim(Copy(fsj,1,Length(FCPNO)+i+1));//ǰ׺ַ + end; + end; + end; + //ȡǰ׺ + //ȡ׺ + if Trim(YPCodeType)='' then + begin + i:=99; + while i>=1 do + begin + if i=99 then + begin + FFType:=Trim(FCPID); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_Type where CPID='''+Trim(FFType)+''''); + Open; + i:=fieldbyname('CPLevel').AsInteger; + if i>1 then + FFType:=Trim(fieldbyname('CPParent').AsString) + else + if i=1 then + begin + FFType:=Trim(fieldbyname('CPID').AsString); + i:=0; + end; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_Select_CP_YDang_MaxNo :CPType'); + Parameters.ParamByName('CPType').Value:=Trim(FFType); + Open; + end; + end else + if Trim(YPCodeType)='С' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYNO AA from CP_YDang '); + SQL.Add('where Cast(CYID as int)=(select isnull(Max(Cast(CYID as int)),0) from CP_YDang where CYType='''+Trim(FCPID)+''')'); + Open; + end; + end; + if Trim(ADOQueryTemp.fieldbyname('AA').asstring)='' then + begin + FFFSj:='0001'; + end else + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('AA').asstring); + FFInt:=0; + i:=0; + FFFSj:=''; + fsj:=Trim( Copy( fsj,Length(FFQZSj)+1,Length(fsj) ) ); + while FFInt<=0 do + begin + FFSj:=Trim(Copy(fsj,(Length(fsj)-i),(Length(fsj)))); + if TryStrToInt(FFSj,ii) then + begin + if StrToInt(FFSj)>=0 then + begin + FFFSj:=Trim(FFSj);//׺ַ + end else + begin + FFInt:=1; + end; + i:=i+1; + if i=Length(fsj) then + begin + FFInt:=1; + end; + end else + begin + FFInt:=1; + end; + end; + i:=Length(FFFSj); //ֱų 3 + FFInt:=StrToInt(FFFSj)+1;// + j:=Length(Trim(IntToStr(FFInt))); //λ 1 + FFFSj:=Trim(IntToStr(FFInt));//׺ַ + while j1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + with CDS_Sub do + begin + Edit; + FieldByName('CYID').Value:=Trim(maxId); + FieldByName('CYType').Value:=Trim(FCPID); + Post; + end; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmCPAdd.ToolButton1Click(Sender: TObject); +var + FFFFCPNO:string; +begin + if CDS_Sub.Locate('CYNo',null,[])=True then + begin + Application.MessageBox('ƷŲΪգ','ʾ',0); + Exit; + end; + {if CDS_Sub.Locate('CYName',null,[])=True then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; } + FFFFCPNO:=Trim(CDS_Sub.fieldbyname('CYNo').AsString); + if Pos(':',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð(:)','',0); + Exit; + end; + if Pos('',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð()','',0); + Exit; + end; + if Pos('\',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲڷб(\)','',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; +end; + +procedure TfrmCPAdd.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FieldName,PriceKg,MF,KZ:string; + FReal:Double; +begin + {mvalue:=Trim(TcxTextEdit(Sender).EditingText); + with CDS_Sub do + begin + Edit; + if TryStrToFloat(mvalue,FReal)=False then + FieldByName('CYMF').Value:=mvalue + else + begin + if Trim(canshu1)='Ӣ' then + FieldByName('CYMF').Value:=mvalue+'"' + else + FieldByName('CYMF').Value:=mvalue+'CM'; + end; + Post; + end; + FieldName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + PriceKg:=Trim(CDS_Sub.fieldbyname('CYPriceKg').AsString); + if Trim(PriceKg)='' then + begin + PriceKg:='0'; + end; + MF:=Trim(CDS_Sub.fieldbyname('CYMF').AsString); + KZ:=Trim(CDS_Sub.fieldbyname('CYKZ').AsString); + if Trim(canshu1)<>'Ӣ' then + MF:=Copy(MF,1,Pos('C',MF)-1) + else + MF:=Copy(MF,1,Pos('"',MF)-1); + KZ:=Copy(KZ,1,Pos('g',KZ)-1); + if TryStrToFloat(MF,FReal)=False then + begin + MF:='0'; + end; + if TryStrToFloat(KZ,FReal)=False then + begin + KZ:='0'; + end; + with CDS_Sub do + begin + Edit; + if Trim(canshu1)<>'Ӣ' then + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*StrToFloat(KZ)*1.00/100000 + else + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*2.54*StrToFloat(KZ)*1.00/100000; + Post; + end; } +end; + +procedure TfrmCPAdd.v1Column8PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FieldName,PriceKg,MF,KZ:string; + FReal:Double; +begin + {mvalue:=Trim(TcxTextEdit(Sender).EditingText); + with CDS_Sub do + begin + Edit; + if TryStrToFloat(mvalue,FReal)=False then + FieldByName('CYKZ').Value:=mvalue + else + FieldByName('CYKZ').Value:=mvalue+'g/O'; + Post; + end; + FieldName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + PriceKg:=Trim(CDS_Sub.fieldbyname('CYPriceKg').AsString); + if Trim(PriceKg)='' then + begin + PriceKg:='0'; + end; + MF:=Trim(CDS_Sub.fieldbyname('CYMF').AsString); + KZ:=Trim(CDS_Sub.fieldbyname('CYKZ').AsString); + if Trim(canshu1)<>'Ӣ' then + MF:=Copy(MF,1,Pos('C',MF)-1) + else + MF:=Copy(MF,1,Pos('"',MF)-1); + KZ:=Copy(KZ,1,Pos('g',KZ)-1); + if TryStrToFloat(MF,FReal)=False then + begin + MF:='0'; + end; + if TryStrToFloat(KZ,FReal)=False then + begin + KZ:='0'; + end; + with CDS_Sub do + begin + Edit; + if Trim(canshu1)<>'Ӣ' then + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*StrToFloat(KZ)*1.00/100000 + else + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*2.54*StrToFloat(KZ)*1.00/100000; + Post; + end; } +end; + +procedure TfrmCPAdd.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with CDS_Sub do + begin + Edit; + FieldByName('CYName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPAdd.v1Column26PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + fsj:string; +begin + fsj:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GYStr'; + flagname:=''; + if ShowModal=1 then + begin + with CDS_Sub do + begin + Edit; + FieldByName(fsj).Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPAdd.v1Column27PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + fsj:string; +begin + fsj:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPJGFactory'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with CDS_Sub do + begin + Edit; + FieldByName(fsj).Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPAdd.v1Column20PropertiesEditValueChanged(Sender: TObject); +var + FieldName,mvalue,MF,KZ,PriceKg:string; + FReal:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FieldName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with CDS_Sub do + begin + Edit; + FieldByName(FieldName).Value:=mvalue; + Post; + end; + PriceKg:=Trim(CDS_Sub.fieldbyname('CYPriceKg').AsString); + if Trim(PriceKg)='' then + begin + PriceKg:='0'; + end; + MF:=Trim(CDS_Sub.fieldbyname('CYMF').AsString); + KZ:=Trim(CDS_Sub.fieldbyname('CYKZ').AsString); + if Trim(canshu1)<>'Ӣ' then + MF:=Copy(MF,1,Pos('C',MF)-1) + else + MF:=Copy(MF,1,Pos('"',MF)-1); + KZ:=Copy(KZ,1,Pos('g',KZ)-1); + if TryStrToFloat(MF,FReal)=False then + begin + MF:='0'; + end; + if TryStrToFloat(KZ,FReal)=False then + begin + KZ:='0'; + end; + with CDS_Sub do + begin + Edit; + if Trim(canshu1)<>'Ӣ' then + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*StrToFloat(KZ)*1.00/100000 + else + FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*2.54*StrToFloat(KZ)*1.00/100000; + Post; + end; + +end; + +procedure TfrmCPAdd.CheckBox1Click(Sender: TObject); +begin + if CheckBox1.Checked=True then + begin + canshu1:='Ӣ'; + end else + begin + canshu1:=''; + end; +end; + +procedure TfrmCPAdd.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPWeiZhi'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('DefStr2').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPManage.dfm new file mode 100644 index 0000000..c155a15 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManage.dfm @@ -0,0 +1,808 @@ +object frmCPManage: TfrmCPManage + Left = 75 + Top = 90 + Width = 1148 + Height = 618 + Caption = #20135#21697#26723#26696 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1132 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton7Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object Panel3: TPanel + Left = 528 + Top = 0 + Width = 72 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label6: TLabel + Left = 3 + Top = 9 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Edit1: TEdit + Left = 29 + Top = 6 + Width = 38 + Height = 20 + TabOrder = 0 + end + end + object Panel4: TPanel + Left = 600 + Top = 0 + Width = 173 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label13: TLabel + Left = 3 + Top = 9 + Width = 52 + Height = 12 + Caption = #26631#31614#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabName: TBtnEditA + Left = 61 + Top = 5 + Width = 104 + Height = 20 + TabOrder = 0 + OnBtnClick = LabNameBtnClick + end + end + object ToolButton8: TToolButton + Left = 773 + Top = 0 + Caption = #26631#31614#39044#35272 + ImageIndex = 66 + OnClick = ToolButton8Click + end + object ToolButton5: TToolButton + Left = 856 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 18 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 943 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 19 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 1030 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 228 + Top = 89 + Width = 904 + Height = 490 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column19PropertiesChange + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column17: TcxGridDBColumn + Caption = #32769#32534#21495 + DataBinding.FieldName = 'OldCYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #38754#26009#26469#28304 + DataBinding.FieldName = 'CYFrom' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 108 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 220 + Top = 89 + Width = 8 + Height = 490 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel5 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1132 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label2: TLabel + Left = 16 + Top = 15 + Width = 48 + Height = 12 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 364 + Top = 15 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 482 + Top = 15 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 216 + Top = 39 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label7: TLabel + Left = 606 + Top = 39 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 364 + Top = 39 + Width = 48 + Height = 12 + Caption = #20013#25991#25104#20998 + end + object Label9: TLabel + Left = 482 + Top = 39 + Width = 48 + Height = 12 + Caption = #33521#25991#25104#20998 + end + object Label10: TLabel + Left = 606 + Top = 15 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label11: TLabel + Left = 832 + Top = 15 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 833 + Top = 39 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 720 + Top = 15 + Width = 36 + Height = 12 + Caption = #32769#32534#21495 + end + object Label15: TLabel + Left = 840 + Top = 23 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 720 + Top = 39 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object CYID: TEdit + Tag = 3 + Left = 72 + Top = 11 + Width = 121 + Height = 20 + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 414 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 1 + OnChange = CYNameChange + OnKeyPress = CYNameKeyPress + end + object CYEName: TEdit + Tag = 2 + Left = 531 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnChange = CYNameChange + OnKeyPress = CYENameKeyPress + end + object CYSpec: TEdit + Tag = 2 + Left = 265 + Top = 35 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = CYSpecChange + OnKeyPress = CYSpecKeyPress + end + object CYNO: TEdit + Tag = 2 + Left = 265 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + OnKeyPress = CYNOKeyPress + end + object CYKZ: TEdit + Tag = 2 + Left = 632 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = CYMFChange + OnKeyPress = CYKZKeyPress + end + object CYCF: TEdit + Tag = 2 + Left = 414 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 6 + OnChange = CYNameChange + OnKeyPress = CYCFKeyPress + end + object CYECF: TEdit + Tag = 2 + Left = 531 + Top = 35 + Width = 59 + Height = 20 + TabOrder = 7 + OnChange = CYNameChange + OnKeyPress = CYECFKeyPress + end + object CYMF: TEdit + Tag = 2 + Left = 632 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = CYMFChange + OnKeyPress = CYMFKeyPress + end + object OldCYNo: TEdit + Tag = 2 + Left = 755 + Top = 11 + Width = 73 + Height = 20 + TabOrder = 9 + OnChange = CYNoChange + OnKeyPress = OldCYNoKeyPress + end + object OrderNo: TEdit + Tag = 2 + Left = 755 + Top = 35 + Width = 73 + Height = 20 + TabOrder = 10 + OnChange = CYNoChange + OnKeyPress = OrderNoKeyPress + end + end + object Panel2: TPanel + Left = 512 + Top = 232 + Width = 185 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object Panel5: TPanel + Left = 0 + Top = 89 + Width = 220 + Height = 490 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Image2: TImage + Left = 2 + Top = 301 + Width = 216 + Height = 187 + Align = alBottom + end + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 299 + Align = alClient + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'CPParent' + DataController.KeyField = 'CPID' + OptionsBehavior.ExpandOnDblClick = False + OptionsSelection.CellSelect = False + OptionsView.CellAutoHeight = True + OptionsView.Headers = False + RootValue = -1 + Styles.Inactive = DataLink_DDMD.Red + Styles.Selection = DataLink_DDMD.Red + Styles.IncSearch = DataLink_DDMD.Red + TabOrder = 0 + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree20: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 61 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 989 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 957 + Top = 17 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 493 + Top = 193 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 392 + Top = 184 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 392 + Top = 152 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 424 + Top = 152 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 484 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 461 + Top = 188 + end + object SaveDialog1: TSaveDialog + Left = 513 + Top = 157 + end + object DSCYNO: TDataSource + DataSet = CDS_CYNO + Left = 771 + Top = 235 + end + object CDS_CYNO: TClientDataSet + Aggregates = <> + Params = <> + Left = 712 + Top = 264 + end + object ADOQueryTree: TClientDataSet + Aggregates = <> + Params = <> + Left = 32 + Top = 200 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManage.pas b/坯布码单待检(PBMDDJ.dll)/U_CPManage.pas new file mode 100644 index 0000000..5ac08a4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManage.pas @@ -0,0 +1,1047 @@ +unit U_CPManage; //2 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox,jpeg, BtnEdit; + +type + TfrmCPManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree20: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label3: TLabel; + CYNO: TEdit; + v1Column16: TcxGridDBColumn; + ToolButton7: TToolButton; + Panel2: TPanel; + v1Column19: TcxGridDBColumn; + DSCYNO: TDataSource; + CDS_CYNO: TClientDataSet; + Label7: TLabel; + CYKZ: TEdit; + Label8: TLabel; + Label9: TLabel; + CYCF: TEdit; + CYECF: TEdit; + Label10: TLabel; + CYMF: TEdit; + v1Column42: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ADOQueryTree: TClientDataSet; + Panel5: TPanel; + Image2: TImage; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Label11: TLabel; + Label12: TLabel; + Panel4: TPanel; + Label13: TLabel; + LabName: TBtnEditA; + ToolButton8: TToolButton; + v1Column17: TcxGridDBColumn; + Label14: TLabel; + OldCYNo: TEdit; + Panel3: TPanel; + Label6: TLabel; + Edit1: TEdit; + v1Column18: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + Label15: TLabel; + Label16: TLabel; + OrderNo: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure ToolButton7Click(Sender: TObject); + procedure CYSpecChange(Sender: TObject); + procedure v1Column19PropertiesChange(Sender: TObject); + procedure CYMFChange(Sender: TObject); + procedure CYNameChange(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + procedure LabNameBtnClick(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure OldCYNoKeyPress(Sender: TObject; var Key: Char); + procedure CYNameKeyPress(Sender: TObject; var Key: Char); + procedure CYSpecKeyPress(Sender: TObject; var Key: Char); + procedure CYCFKeyPress(Sender: TObject; var Key: Char); + procedure CYENameKeyPress(Sender: TObject; var Key: Char); + procedure CYECFKeyPress(Sender: TObject; var Key: Char); + procedure CYMFKeyPress(Sender: TObject; var Key: Char); + procedure CYKZKeyPress(Sender: TObject; var Key: Char); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure InitGridSql(fsj:string); + procedure ReadINIFile(); + procedure InitImage(); + procedure TJGS(); + + public + { Public declarations } + end; + +var + frmCPManage: TfrmCPManage; + +implementation +uses + U_DataLink,U_RTFun,U_CPAdd,U_FileUp,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPManage.InitTree(); +var + i:Integer; +begin + with ADOQueryTree20 do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + SCreateCDS20(ADOQueryTree20,ADOQueryTree); + SInitCDSData20(ADOQueryTree20,ADOQueryTree); + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPManage.InitGrid(); +begin + Panel2.Visible:=True; + Panel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType'); + Parameters.ParamByName('Code').Value:=''; + Parameters.ParamByName('PState').Value:=0; + Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + Panel2.Visible:=False; +end; +procedure TfrmCPManage.InitGridSql(fsj:string); +begin + Panel2.Visible:=True; + Panel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('exec P_Select_CP_YDang_Sql :WSql'); + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + Panel2.Visible:=False; +end; +procedure TfrmCPManage.TJGS(); +var + i,j:Integer; +begin + i:=0; + j:=0; + CDS_Main.DisableControls; + with CDS_Main do + begin + first; + while not Eof do + begin + if FieldByName('CYPriceKg').Value=0 then + begin + i:=i+1; + end else + begin + j:=j+1; + end; + Next; + end; + end; + CDS_Main.EnableControls; + Label11.Caption:='Ʒ:'+Trim(IntToStr(j)); + Label12.Caption:='δƷ:'+Trim(IntToStr(i)); +end; +procedure TfrmCPManage.FormDestroy(Sender: TObject); +begin + frmCPManage:=nil; +end; + +procedure TfrmCPManage.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбYT',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManage.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; + end; + + CDS_Main.Delete; +end; + +procedure TfrmCPManage.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('ƷбYT',Tv1,'Ʒ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYID='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CYNO); + SInitCDSData20(ADOQueryTemp,CDS_CYNO); + CDS_CYNO.Delete; +end; + +procedure TfrmCPManage.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); + TJGS(); +end; + +procedure TfrmCPManage.TBAddClick(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=''; + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + if CDS_Main.Active=False then Exit; + Self.CDS_Main.Append; + for i:=0 to frmCPAdd.Tv1.ColumnCount-1 do + begin + FieldName:=frmCPAdd.Tv1.Columns[i].DataBinding.FilterFieldName; + if Trim(FieldName)<>'' then + begin + Self.CDS_Main.FieldByName(FieldName).Value:=frmCPAdd.CDS_Sub.FieldByName(FieldName).Value; + end; + end; + CDS_Main.FieldByName('CPName').Value:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + CDS_Main.FieldByName('CYID').Value:=CDS_Sub.fieldbyname('CYID').Value; + CDS_Main.FieldByName('CYType').Value:=CDS_Sub.fieldbyname('CYType').Value; + Self.CDS_Main.Post; + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.TBRafreshClick(Sender: TObject); +begin + InitTree(); + InitGrid(); + TJGS(); +end; + +procedure TfrmCPManage.ToolButton3Click(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.CDS_Main.Edit; + for i:=0 to frmCPAdd.Tv1.ColumnCount-1 do + begin + FieldName:=frmCPAdd.Tv1.Columns[i].DataBinding.FilterFieldName; + if Trim(FieldName)<>'' then + begin + Self.CDS_Main.FieldByName(FieldName).Value:=frmCPAdd.CDS_Sub.FieldByName(FieldName).Value; + end; + end; + CDS_Main.FieldByName('CPName').Value:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + CDS_Main.FieldByName('CYID').Value:=CDS_Sub.fieldbyname('CYID').Value; + CDS_Main.FieldByName('CYType').Value:=CDS_Sub.fieldbyname('CYType').Value; + Self.CDS_Main.Post; + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + +end; + +procedure TfrmCPManage.CYIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CYID.Text)='' then Exit; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Select_CP_YDang :Code,1,'''' '); + Parameters.ParamByName('Code').Value:=Trim(CYID.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + end; +end; + +procedure TfrmCPManage.CYNoChange(Sender: TObject); +begin + //if Length(Trim(TEdit(Sender).Text))<4 then Exit; + { if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; } + +end; + +procedure TfrmCPManage.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPManage.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + + fPrintFile:= ExtractFilePath(Application.ExeName) +'Report\'+Trim(LabName.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + for i:=1 to j do + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').AsString); + fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath) then DeleteFile(fImagePath); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + except + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmCPManage.ToolButton5Click(Sender: TObject); +var + FFFFCPNO:String; +begin + FFFFCPNO:=Trim(CDS_Main.fieldbyname('CYNo').AsString); + if Pos(':',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð(:)','',0); + Exit; + end; + if Pos('',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð()','',0); + Exit; + end; + if Pos('\',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲڷб(\)','',0); + Exit; + end; + try + frmFileUp:=TfrmFileUp.Create(Application); + with frmFileUp do + begin + Code.Text:=Trim(Self.CDS_Main.fieldbyname('CYNO').AsString); + CYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',CYID,[]); + end; + end; + finally + frmFileUp.Free; + end; +end; + +procedure TfrmCPManage.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath,FFFFCPNO:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + FFFFCPNO:=Trim(CDS_Main.fieldbyname('CYNo').AsString); + if Pos(':',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð(:)','',0); + Exit; + end; + if Pos('',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð()','',0); + Exit; + end; + if Pos('\',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲڷб(\)','',0); + Exit; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPManage.ReadINIFile(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmCPManage.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton6.Click; +end; + +procedure TfrmCPManage.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+''''); + Open; + end; + CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString); + ADOQueryTree.Locate('CPID',CPID,[]); + InitImage(); +end; +procedure TfrmCPManage.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +procedure TfrmCPManage.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if Key= then + begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷ6666Ҫɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; + end; + + CDS_Main.Delete; + end; } +end; + +procedure TfrmCPManage.Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key=46 then + begin + TBDel.Click; + end; +end; + +procedure TfrmCPManage.ToolButton7Click(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=1; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.CDS_Main.Append; + for i:=0 to frmCPAdd.Tv1.ColumnCount-1 do + begin + FieldName:=frmCPAdd.Tv1.Columns[i].DataBinding.FilterFieldName; + if Trim(FieldName)<>'' then + begin + Self.CDS_Main.FieldByName(FieldName).Value:=frmCPAdd.CDS_Sub.FieldByName(FieldName).Value; + end; + end; + CDS_Main.FieldByName('CPName').Value:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + CDS_Main.FieldByName('CYID').Value:=CDS_Sub.fieldbyname('CYID').Value; + CDS_Main.FieldByName('CYType').Value:=CDS_Sub.fieldbyname('CYType').Value; + Self.CDS_Main.Post; + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManage.CYSpecChange(Sender: TObject); +begin + {if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; } +end; + +procedure TfrmCPManage.v1Column19PropertiesChange(Sender: TObject); +var + mvalue:Boolean; +begin + { mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + with CDS_CYNO do + begin + if Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then + begin + Append; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + Post; + end; + end; + end else + begin + //with CDS_CYNO do + //begin + CDS_CYNO.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[]); + CDS_CYNO.Delete; + //end; + end; } +end; + +procedure TfrmCPManage.CYMFChange(Sender: TObject); +begin + //if Length(Trim(TEdit(Sender).Text))<2 then Exit; + {if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; } + +end; + +procedure TfrmCPManage.CYNameChange(Sender: TObject); +begin + //if Length(Trim(TEdit(Sender).Text))<2 then Exit; + + +end; + +procedure TfrmCPManage.CYNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CYNO.Text)='' then Exit; + if Length(Trim(CYNO.Text))<4 then Exit; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Select_CP_YDang :Code,2,'''' '); + Parameters.ParamByName('Code').Value:='%'+Trim(CYNO.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + TJGS(); + end; +end; + +procedure TfrmCPManage.LabNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPLabName'; + flagname:='Ʒǩ'; + fnote:=True; + if ShowModal=1 then + begin + Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPManage.ToolButton8Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ; + if FileExists(fPrintFile) then + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.fieldbyname('CYID').AsString); + fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath) then DeleteFile(fImagePath); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + except + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmCPManage.OldCYNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OldCYNo.Text)='' then Exit; + if Length(Trim(OldCYNo.Text))<4 then Exit; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Select_CP_YDang :Code,8,'''' '); + Parameters.ParamByName('Code').Value:='%'+Trim(OldCYNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + TJGS(); + end; +end; + +procedure TfrmCPManage.CYNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and CYName like '''+'%'+Trim(CYName.Text)+'%'+''''); + TJGS(); + end; +end; + +procedure TfrmCPManage.CYSpecKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPManage.CYCFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPManage.CYENameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and CYEName like '''+'%'+Trim(CYEName.Text)+'%'+''''); + TJGS(); + end; +end; + +procedure TfrmCPManage.CYECFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPManage.CYMFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPManage.CYKZKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPManage.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + TJGS(); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.dfm new file mode 100644 index 0000000..e52e8f6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.dfm @@ -0,0 +1,610 @@ +object frmCPManageCX: TfrmCPManageCX + Left = 85 + Top = 108 + Width = 1148 + Height = 618 + Caption = #20135#21697#26723#26696 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1132 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGL.ThreeImgList + Flat = True + Images = DataLink_YPGL.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + Visible = False + OnClick = ToolButton7Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton8: TToolButton + Left = 528 + Top = 0 + Caption = #26679#21697#20837#24211 + ImageIndex = 103 + Visible = False + OnClick = ToolButton8Click + end + object ToolButton9: TToolButton + Left = 611 + Top = 0 + Caption = #26679#21697#20986#24211 + ImageIndex = 107 + Visible = False + OnClick = ToolButton9Click + end + object ToolButton5: TToolButton + Left = 694 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 109 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 781 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 104 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 868 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 72 + Width = 121 + Height = 507 + Align = alLeft + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'CPParent' + DataController.KeyField = 'CPID' + OptionsBehavior.ExpandOnDblClick = False + OptionsSelection.CellSelect = False + OptionsView.CellAutoHeight = True + OptionsView.Headers = False + RootValue = -1 + Styles.Inactive = DataLink_YPGL.Red + Styles.Selection = DataLink_YPGL.Red + Styles.IncSearch = DataLink_YPGL.Red + TabOrder = 1 + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object cxGrid1: TcxGrid + Left = 129 + Top = 72 + Width = 1003 + Height = 507 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.GroupByBox = False + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 55 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 71 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 69 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 73 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column9: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column20: TcxGridDBColumn + Caption = #32463#32428#23494#24230 + DataBinding.FieldName = 'DefStr6' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column17: TcxGridDBColumn + Caption = #22383#24067#20215 + DataBinding.FieldName = 'CYPrice1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 58 + end + object v1Column10: TcxGridDBColumn + Caption = #25104#21697#20215 + DataBinding.FieldName = 'CYPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 62 + end + object v1Column18: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPrice2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 49 + end + object v1Column13: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'CYPBZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 56 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGL.Default + Width = 59 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 121 + Top = 72 + Width = 8 + Height = 507 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxDBTreeList1 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1132 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label2: TLabel + Left = 16 + Top = 15 + Width = 48 + Height = 12 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 361 + Top = 15 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 479 + Top = 15 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 603 + Top = 15 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label6: TLabel + Left = 882 + Top = 16 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Label7: TLabel + Left = 723 + Top = 15 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object CYID: TEdit + Tag = 3 + Left = 72 + Top = 11 + Width = 121 + Height = 20 + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 411 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 1 + OnChange = CYNoChange + end + object CYEName: TEdit + Tag = 2 + Left = 528 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object CYSpec: TEdit + Tag = 2 + Left = 629 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = CYSpecChange + end + object CYNO: TEdit + Tag = 2 + Left = 262 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + end + object Edit1: TEdit + Left = 840 + Top = 11 + Width = 38 + Height = 20 + TabOrder = 5 + end + object CYKZ: TEdit + Tag = 2 + Left = 749 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = CYSpecChange + end + end + object Panel2: TPanel + Left = 512 + Top = 232 + Width = 193 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 909 + Top = 17 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGL.ADOLink + Parameters = <> + Left = 877 + Top = 17 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 456 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 429 + Top = 185 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 392 + Top = 184 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 392 + Top = 152 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 424 + Top = 152 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 484 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 485 + Top = 188 + end + object SaveDialog1: TSaveDialog + Left = 521 + Top = 157 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.pas b/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.pas new file mode 100644 index 0000000..ff67fac --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManageCX.pas @@ -0,0 +1,630 @@ +unit U_CPManageCX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox; + +type + TfrmCPManageCX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + DataSource1: TDataSource; + ADOQueryTree: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + ToolButton7: TToolButton; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + v1Column20: TcxGridDBColumn; + Panel2: TPanel; + v1Column19: TcxGridDBColumn; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + Label3: TLabel; + Label6: TLabel; + CYName: TEdit; + CYEName: TEdit; + CYSpec: TEdit; + CYNO: TEdit; + Edit1: TEdit; + Label7: TLabel; + CYKZ: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure CYSpecChange(Sender: TObject); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + + public + { Public declarations } + end; + +var + frmCPManageCX: TfrmCPManageCX; + +implementation +uses + U_DataLink,U_Fun,U_CPAdd,U_FileUp,U_YPCR; + +{$R *.dfm} + +procedure TfrmCPManageCX.InitTree(); +var + i:Integer; +begin + with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPManageCX.InitGrid(); +begin + Panel2.Visible:=True; + Panel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType'); + Parameters.ParamByName('Code').Value:=''; + Parameters.ParamByName('PState').Value:=0; + Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + Panel2.Visible:=False; +end; + +procedure TfrmCPManageCX.FormDestroy(Sender: TObject); +begin + frmCPManageCX:=nil; +end; + +procedure TfrmCPManageCX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPManageCX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒбѯ',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManageCX.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; + end; + + CDS_Main.Delete; +end; + +procedure TfrmCPManageCX.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('Ʒбѯ',Tv1,'Ʒ'); + if SGetServerDate(ADOQueryTemp)>StrToDate('2015-10-26') then //2013-10-26(,) + begin + ToolBar1.Visible:=False; + Panel1.Visible:=False; + cxDBTreeList1.Visible:=False; + cxGrid1.Visible:=False; + Application.MessageBox('ϵӦ̣','ʾ',0); + Exit; + end; + if DParameters1='1' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + ToolButton3.Visible:=False; + ToolButton5.Visible:=False; + end; + //InitGrid(); +end; + +procedure TfrmCPManageCX.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageCX.TBAddClick(Sender: TObject); +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=''; + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManageCX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageCX.ToolButton3Click(Sender: TObject); +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=0; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageCX.CYIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CYID.Text)+''''); + Open; + end; + CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString); + if Trim(CYID.Text)='' then Exit; + SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' '); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + end; +end; + +procedure TfrmCPManageCX.CYNoChange(Sender: TObject); +begin + if Length(Trim(CYNO.Text))<4 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageCX.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPManageCX.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒǩ.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; +end; + +procedure TfrmCPManageCX.ToolButton5Click(Sender: TObject); +begin + try + frmFileUp:=TfrmFileUp.Create(Application); + with frmFileUp do + begin + Code.Text:=Trim(Self.CDS_Main.fieldbyname('CYNO').AsString); + CYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',CYID,[]); + end; + end; + finally + frmFileUp.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPManageCX.ReadINIFile(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmCPManageCX.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton6.Click; +end; + +procedure TfrmCPManageCX.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+''''); + Open; + end; + CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString); + ADOQueryTree.Locate('CPID',CPID,[]); +end; + +procedure TfrmCPManageCX.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if Key= then + begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷ6666Ҫɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; + end; + + CDS_Main.Delete; + end; } +end; + +procedure TfrmCPManageCX.Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key=46 then + begin + TBDel.Click; + end; +end; + +procedure TfrmCPManageCX.ToolButton7Click(Sender: TObject); +begin + try + frmCPAdd:=TfrmCPAdd.Create(Application); + with frmCPAdd do + begin + CopyInt:=1; + FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString); + FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + Self.CDS_Main.Locate('CYID',FCYID,[]); + end; + end; + finally + frmCPAdd.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton8Click(Sender: TObject); +begin + try + frmYPCR:=TfrmYPCR.Create(Application); + with frmYPCR do + begin + FCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + RKFlag:=''; + frmYPCR.InitGrid(); + with CDS_HZ do + begin + Append; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + FieldByName('CYName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString); + FieldByName('CYSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString); + FieldByName('KCUnit').Value:=Trim(CDS_Main.fieldbyname('KCUnit').AsString); + Post; + end; + frmYPCR.SaveData(); + if ShowModal=1 then + begin + + end; + end; + finally + frmYPCR.Free; + end; +end; + +procedure TfrmCPManageCX.ToolButton9Click(Sender: TObject); +begin + try + frmYPCR:=TfrmYPCR.Create(Application); + with frmYPCR do + begin + FCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + RKFlag:=''; + frmYPCR.InitGrid(); + frmYPCR.cxGridDBColumn1.Caption:=''; + frmYPCR.cxGridDBColumn5.Caption:=''; + with CDS_HZ do + begin + Append; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + FieldByName('CYName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString); + FieldByName('CYSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString); + FieldByName('KCUnit').Value:=Trim(CDS_Main.fieldbyname('KCUnit').AsString); + Post; + end; + frmYPCR.SaveData(); + if ShowModal=1 then + begin + + end; + end; + finally + frmYPCR.Free; + end; +end; + +procedure TfrmCPManageCX.CYSpecChange(Sender: TObject); +begin + if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.dfm new file mode 100644 index 0000000..69901c8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.dfm @@ -0,0 +1,1109 @@ +object frmCPManageTPCX: TfrmCPManageTPCX + Left = 1 + Top = 1 + Width = 1364 + Height = 726 + Caption = #26679#21697#20449#24687#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1348 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_CYZZ.ThreeImgList + Flat = True + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object TBSel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 10 + OnClick = TBSelClick + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object ToolButton11: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #39044#35272 + ImageIndex = 39 + OnClick = ToolButton11Click + end + object ToolButton6: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 9 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxSplitter1: TcxSplitter + Left = 220 + Top = 89 + Width = 8 + Height = 598 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel5 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1348 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label2: TLabel + Left = 13 + Top = 20 + Width = 26 + Height = 24 + Caption = #25195#25551#13#10#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 460 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label5: TLabel + Left = 965 + Top = 15 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label3: TLabel + Left = 262 + Top = 20 + Width = 26 + Height = 24 + Caption = #20135#21697#13#10#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 876 + Top = 39 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Label7: TLabel + Left = 571 + Top = 39 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 460 + Top = 39 + Width = 48 + Height = 12 + Caption = #25104' '#20998 + end + object Label10: TLabel + Left = 571 + Top = 15 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label4: TLabel + Left = 656 + Top = 15 + Width = 24 + Height = 12 + Caption = #31995#21015 + end + object Label9: TLabel + Left = 965 + Top = 39 + Width = 24 + Height = 12 + Caption = #24037#33402 + end + object Label11: TLabel + Left = 876 + Top = 15 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object CYID: TEdit + Tag = 3 + Left = 40 + Top = 11 + Width = 218 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 510 + Top = 11 + Width = 52 + Height = 20 + TabOrder = 1 + OnChange = CYNameChange + end + object CYSpec: TEdit + Tag = 2 + Left = 990 + Top = 11 + Width = 55 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object CYNO: TEdit + Tag = 2 + Left = 290 + Top = 11 + Width = 160 + Height = 50 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = CYNoChange + OnKeyPress = CYNOKeyPress + end + object Edit1: TEdit + Left = 902 + Top = 35 + Width = 54 + Height = 20 + TabOrder = 4 + end + object CYKZ: TEdit + Tag = 2 + Left = 599 + Top = 35 + Width = 45 + Height = 20 + TabOrder = 5 + OnChange = CYMFChange + end + object CYCF: TEdit + Tag = 2 + Left = 510 + Top = 35 + Width = 52 + Height = 20 + TabOrder = 6 + OnChange = CYCFChange + end + object CYMF: TEdit + Tag = 2 + Left = 599 + Top = 11 + Width = 45 + Height = 20 + TabOrder = 7 + OnChange = CYMFChange + end + object CYXLType: TEdit + Tag = 2 + Left = 683 + Top = 10 + Width = 148 + Height = 20 + TabOrder = 8 + OnChange = CYMFChange + end + object Button1: TButton + Left = 832 + Top = 10 + Width = 31 + Height = 20 + Caption = '- - -' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -7 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = Button1Click + end + object GYStr: TComboBox + Tag = 1 + Left = 990 + Top = 35 + Width = 57 + Height = 20 + ItemHeight = 12 + TabOrder = 10 + OnChange = GYStrChange + Items.Strings = ( + 'PD' + 'PR' + 'YD' + 'TD' + 'H' + 'M' + 'O' + 'P' + '') + end + object HX: TEdit + Tag = 2 + Left = 902 + Top = 11 + Width = 53 + Height = 20 + TabOrder = 11 + OnChange = CYNoChange + end + object Button2: TButton + Left = 656 + Top = 35 + Width = 65 + Height = 20 + Caption = #19968#38190#26367#25442 + TabOrder = 12 + Visible = False + OnClick = Button2Click + end + object Edit2: TEdit + Left = 722 + Top = 35 + Width = 141 + Height = 20 + TabOrder = 13 + Visible = False + end + end + object Panel2: TPanel + Left = 512 + Top = 232 + Width = 185 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object Panel3: TPanel + Left = 228 + Top = 89 + Width = 1120 + Height = 598 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1116 + Height = 396 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column19PropertiesChange + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Tag = 77 + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object v1Column1: TcxGridDBColumn + Tag = 77 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Tag = 77 + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Tag = 77 + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 66 + end + object v1Column7: TcxGridDBColumn + Tag = 77 + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 73 + end + object v1Column8: TcxGridDBColumn + Tag = 77 + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1Column6: TcxGridDBColumn + Tag = 77 + Caption = #31995#21015 + DataBinding.FieldName = 'CYXLType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 87 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Tag = 77 + Caption = #24037#33402 + DataBinding.FieldName = 'GYStr' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object v1Column13: TcxGridDBColumn + Caption = #37319#26679#20154 + DataBinding.FieldName = 'CYPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1Column17: TcxGridDBColumn + Caption = #37319#26679#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column26: TcxGridDBColumn + Tag = 77 + Caption = #21518#24037#33402'1' + DataBinding.FieldName = 'GYStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column29: TcxGridDBColumn + Tag = 77 + Caption = #21518#24037#33402'2' + DataBinding.FieldName = 'GYStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object v1Column32: TcxGridDBColumn + Tag = 77 + Caption = #21518#24037#33402'3' + DataBinding.FieldName = 'GYStr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column16: TcxGridDBColumn + Tag = 77 + Caption = #33457#22411#21495'1' + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 58 + end + object v1Column3: TcxGridDBColumn + Tag = 77 + Caption = #33457#22411#21495'2' + DataBinding.FieldName = 'CYHX2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 66 + end + object v1Column18: TcxGridDBColumn + Tag = 77 + Caption = #33457#22411#21495'3' + DataBinding.FieldName = 'CYHX3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 54 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 66 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#26412 + DataBinding.FieldName = 'CostFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 54 + end + object v1Column20: TcxGridDBColumn + Caption = #26368#21518#20462#25913#20154 + DataBinding.FieldName = 'Editer' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object v1Column21: TcxGridDBColumn + Caption = #26368#21518#20462#25913#26102#38388 + DataBinding.FieldName = 'EditTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 398 + Width = 1116 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel4 + end + object Panel4: TPanel + Left = 2 + Top = 406 + Width = 1116 + Height = 190 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid3: TcxGrid + Tag = 2 + Left = 749 + Top = 2 + Width = 365 + Height = 186 + Align = alRight + TabOrder = 0 + Visible = False + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSGY + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomerNo' + end + item + Format = '1' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn9: TcxGridDBColumn + Tag = 5 + Caption = #24037#33402#21517#31216 + DataBinding.FieldName = 'GYName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FonePurple + Width = 72 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 5 + Caption = #37329#39069 + DataBinding.FieldName = 'GYMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FonePurple + Width = 65 + end + object v3Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'GYLX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FonePurple + Width = 58 + end + object v3Column1: TcxGridDBColumn + Caption = #35745#37327#21333#20301 + DataBinding.FieldName = 'JLunit' + Options.Editing = False + Styles.Header = DataLink_CYZZ.FonePurple + Width = 60 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 5 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FonePurple + Width = 95 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid62: TcxGrid + Tag = 2 + Left = 2 + Top = 2 + Width = 747 + Height = 186 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DSCB + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomerNo' + end + item + Format = '1' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skAverage + Column = cxGridDBColumn49 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v6Column1: TcxGridDBColumn + Caption = #26680#31639#26085#26399 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn40: TcxGridDBColumn + Tag = 5 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'GYSName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 80 + end + object cxGridDBColumn41: TcxGridDBColumn + Tag = 5 + Caption = #24065#31181 + DataBinding.FieldName = 'ADefStr1' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #65509 + '$' + #8364) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 53 + end + object cxGridDBColumn42: TcxGridDBColumn + Tag = 5 + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'ADefStr3' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'Kg' + 'Y') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 61 + end + object cxGridDBColumn49: TcxGridDBColumn + Tag = 5 + Caption = #25104#26412 + DataBinding.FieldName = 'JYPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn51: TcxGridDBColumn + Tag = 5 + Caption = #22791#27880 + DataBinding.FieldName = 'AdefStr2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 73 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv2 + end + end + end + end + object Panel5: TPanel + Left = 0 + Top = 89 + Width = 220 + Height = 598 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Image2: TImage + Left = 2 + Top = 409 + Width = 216 + Height = 187 + Align = alBottom + end + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 407 + Align = alClient + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'CPParent' + DataController.KeyField = 'CPID' + OptionsBehavior.ExpandOnDblClick = False + OptionsSelection.CellSelect = False + OptionsView.CellAutoHeight = True + OptionsView.Headers = False + RootValue = -1 + Styles.Inactive = DataLink_CYZZ.Red + Styles.Selection = DataLink_CYZZ.Red + Styles.IncSearch = DataLink_CYZZ.Red + TabOrder = 0 + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree10: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 217 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 989 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 1029 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 493 + Top = 193 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 392 + Top = 184 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 392 + Top = 152 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 424 + Top = 152 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 484 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 461 + Top = 188 + end + object SaveDialog1: TSaveDialog + Left = 513 + Top = 157 + end + object DSCYNO: TDataSource + DataSet = CDS_CYNO + Left = 771 + Top = 235 + end + object CDS_CYNO: TClientDataSet + Aggregates = <> + Params = <> + Left = 712 + Top = 264 + end + object CDS_CB: TClientDataSet + Aggregates = <> + Params = <> + Left = 448 + Top = 464 + end + object DSCB: TDataSource + DataSet = CDS_CB + Left = 523 + Top = 467 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 464 + Top = 528 + end + object CDS_GY: TClientDataSet + Aggregates = <> + Params = <> + Left = 896 + Top = 472 + end + object DSGY: TDataSource + DataSet = CDS_GY + Left = 971 + Top = 475 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 912 + Top = 536 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 669 + Top = 193 + end + object PopupMenu1: TPopupMenu + Left = 585 + Top = 217 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ADOQueryTree: TClientDataSet + Aggregates = <> + Params = <> + Left = 56 + Top = 216 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.pas b/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.pas new file mode 100644 index 0000000..c50142e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.pas @@ -0,0 +1,787 @@ +unit U_CPManageTPCX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, BtnEdit, cxButtonEdit, + cxDropDownEdit, cxTextEdit, cxCalendar, Menus,jpeg; + +type + TfrmCPManageTPCX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree10: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton6: TToolButton; + Label3: TLabel; + CYNO: TEdit; + Panel2: TPanel; + DSCYNO: TDataSource; + CDS_CYNO: TClientDataSet; + Edit1: TEdit; + Label6: TLabel; + Label7: TLabel; + CYKZ: TEdit; + Label8: TLabel; + CYCF: TEdit; + Label10: TLabel; + CYMF: TEdit; + Label4: TLabel; + CYXLType: TEdit; + Button1: TButton; + Panel3: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column19: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + v1Column29: TcxGridDBColumn; + v1Column32: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter2: TcxSplitter; + Panel4: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + CDS_CB: TClientDataSet; + DSCB: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + CDS_GY: TClientDataSet; + DSGY: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + ADOQuery1: TADOQuery; + v1Column17: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + ToolButton11: TToolButton; + Label9: TLabel; + GYStr: TComboBox; + Label11: TLabel; + HX: TEdit; + v1Column18: TcxGridDBColumn; + Button2: TButton; + Edit2: TEdit; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + ADOQueryTree: TClientDataSet; + TBSel: TToolButton; + Panel5: TPanel; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Image2: TImage; + cxGrid62: TcxGrid; + Tv2: TcxGridDBTableView; + v6Column1: TcxGridDBColumn; + cxGridDBColumn40: TcxGridDBColumn; + cxGridDBColumn41: TcxGridDBColumn; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn49: TcxGridDBColumn; + cxGridDBColumn51: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CYSpecChange(Sender: TObject); + procedure v1Column19PropertiesChange(Sender: TObject); + procedure CYMFChange(Sender: TObject); + procedure CYNameChange(Sender: TObject); + procedure CYCFChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton11Click(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + procedure GYStrChange(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBSelClick(Sender: TObject); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + procedure InitImage(); + + public + { Public declarations } + end; + +var + frmCPManageTPCX: TfrmCPManageTPCX; + +implementation +uses + U_DataLink,U_RTFun, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmCPManageTPCX.InitTree(); +var + i:Integer; +begin + with ADOQueryTree10 do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + SCreateCDS20(ADOQueryTree10,ADOQueryTree); + SInitCDSData20(ADOQueryTree10,ADOQueryTree); + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPManageTPCX.InitGrid(); +begin + Panel2.Visible:=True; + Panel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType'); + Parameters.ParamByName('Code').Value:=''; + Parameters.ParamByName('PState').Value:=0; + Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + Panel2.Visible:=False; +end; + +procedure TfrmCPManageTPCX.FormDestroy(Sender: TObject); +begin + frmCPManageTPCX:=nil; +end; + +procedure TfrmCPManageTPCX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; + // Action:=caHide; +end; + +procedure TfrmCPManageTPCX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбSF',Tv1,'Ʒ'); + WriteCxGrid('ƷбSF1a',Tv2,'Ʒ'); + WriteCxGrid('ƷбSF2',Tv3,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManageTPCX.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('ƷбSF',Tv1,'Ʒ'); + ReadCxGrid('ƷбSF1a',Tv2,'Ʒ'); + ReadCxGrid('ƷбSF2',Tv3,'Ʒ'); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYID='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CYNO); + SInitCDSData20(ADOQueryTemp,CDS_CYNO); + CDS_CYNO.Delete; +end; + +procedure TfrmCPManageTPCX.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPManageTPCX.TBRafreshClick(Sender: TObject); +var + DWCYID:String; +begin + InitTree(); + if CDS_Main.IsEmpty=False then + DWCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + InitGrid(); + CDS_Main.Locate('CYID',DWCYID,[]); +end; + +procedure TfrmCPManageTPCX.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageTPCX.CYIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,CPName=(select CPName from CP_Type B where B.CPID=A.CYType) '); + sql.Add(' from CP_YDang A where CYID='''+Trim(CYID.Text)+''''); + Open; + end; + CPID:=Trim(ADOQueryMain.fieldbyname('CYType').AsString); + if Trim(CYID.Text)='' then Exit; + //SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' '); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_Cost where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_CB); + SInitCDSData20(ADOQuery1,CDS_CB); + end; +end; + +procedure TfrmCPManageTPCX.CYNoChange(Sender: TObject); +begin + if Trim(Trim(TEdit(Sender).Text))<>'' then + if Length(Trim(TEdit(Sender).Text))<4 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageTPCX.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒǩ.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + //RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmCPManageTPCX.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +procedure TfrmCPManageTPCX.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPManageTPCX.ReadINIFile(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmCPManageTPCX.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //ToolButton6.Click; + if CDS_Main.FieldByName('CostFlag').AsBoolean=False then + ModalResult:=1; +end; + +procedure TfrmCPManageTPCX.CYSpecChange(Sender: TObject); +begin + if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageTPCX.v1Column19PropertiesChange(Sender: TObject); +var + mvalue:Boolean; +begin + { mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + with CDS_CYNO do + begin + if Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then + begin + Append; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + Post; + end; + end; + end else + begin + //with CDS_CYNO do + //begin + CDS_CYNO.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[]); + CDS_CYNO.Delete; + //end; + end; } +end; + +procedure TfrmCPManageTPCX.CYMFChange(Sender: TObject); +begin + if Length(Trim(TEdit(Sender).Text))<2 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageTPCX.CYNameChange(Sender: TObject); +begin + if Length(Trim(TEdit(Sender).Text))<2 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageTPCX.CYCFChange(Sender: TObject); +begin + + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageTPCX.Button1Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CYXLType'; + flagname:='ϵ'; + FGStr:=' '; + if ShowModal=1 then + begin + CYXLType.Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; + //if Length(Trim(CYXLType.Text))<2 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageTPCX.Tv2FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_Cost_HGY where PSID='''+Trim(CDS_CB.fieldbyname('PSID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_GY); + SInitCDSData20(ADOQueryTemp,CDS_GY); +end; + +procedure TfrmCPManageTPCX.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+''''); + Open; + end; + CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString); + ADOQueryTree.Locate('CPID',CPID,[]); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_Cost where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_CB); + SInitCDSData20(ADOQuery1,CDS_CB); + InitImage(); +end; + +procedure TfrmCPManageTPCX.ToolButton11Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒǩ.rmf'; + with CDS_Main do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + //RM1.PrintReport; + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'),'ʾ',0); + Exit; + end; + end; + +end; + +procedure TfrmCPManageTPCX.CYNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CYNO.Text)='' then Exit; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,CPName=(select CPName from CP_Type B where B.CPID=A.CYType) '); + sql.Add(' ,HX=isnull(CYHX,'''')+isnull(CYHX2,'''')+isnull(CYHX3,'''')'); + sql.Add(' from CP_YDang A where CYNO='''+Trim(CYNO.Text)+''''); + Open; + end; + CPID:=Trim(ADOQueryMain.fieldbyname('CYType').AsString); + + //SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' '); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_Cost where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_CB); + SInitCDSData20(ADOQuery1,CDS_CB); + CYNO.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + end; +end; + +procedure TfrmCPManageTPCX.GYStrChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPManageTPCX.Button2Click(Sender: TObject); +var + FColumn,FColumnName,Fsj:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + FColumn:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + FColumnName:=Tv1.Controller.FocusedColumn.Caption; + if Trim(Edit2.Text)='' then + begin + Application.MessageBox('ݲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox(Pchar('ȷҪһ滻<'+FColumnName+'>'),'ʾ',32+4)<>IDYES then Exit; + CDS_Main.DisableControls; + with CDS_Main do + begin + while Locate('SSel',True,[]) do + begin + if Trim(fsj)='' then + begin + fsj:='('''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''; + end else + begin + Fsj:=fsj+','''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName(FColumn).Value:=Trim(Edit2.Text); + Post; + + end; + if Trim(Fsj)<>'' then + begin + Fsj:=Fsj+')'; + end; + end; + CDS_Main.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CP_YDang Set '+FColumn+'='''+Trim(Edit2.Text)+''''); + sql.Add(',Editer='''+Trim(DName)+''',EditTime=getdate()'); + sql.Add(' where CYID in '+fsj); + ExecSQL; + end; +end; + +procedure TfrmCPManageTPCX.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCPManageTPCX.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCPManageTPCX.TBSelClick(Sender: TObject); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPSel.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPSel.dfm new file mode 100644 index 0000000..9484f64 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPSel.dfm @@ -0,0 +1,682 @@ +object frmCPSel: TfrmCPSel + Left = 75 + Top = 75 + Width = 1175 + Height = 635 + Caption = #20135#21697#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1159 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 4 + Visible = False + end + object Panel4: TPanel + Left = 213 + Top = 0 + Width = 174 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + Visible = False + object Label13: TLabel + Left = 3 + Top = 9 + Width = 52 + Height = 12 + Caption = #26631#31614#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabName: TBtnEditA + Left = 61 + Top = 5 + Width = 105 + Height = 20 + TabOrder = 0 + OnBtnClick = LabNameBtnClick + end + end + object ToolButton3: TToolButton + Left = 387 + Top = 0 + Caption = #26631#31614#39044#35272 + ImageIndex = 66 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton6: TToolButton + Left = 470 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 19 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 557 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 228 + Top = 89 + Width = 931 + Height = 507 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column19PropertiesChange + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 220 + Top = 89 + Width = 8 + Height = 507 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel5 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1159 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label2: TLabel + Left = 16 + Top = 15 + Width = 48 + Height = 12 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 364 + Top = 15 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 482 + Top = 15 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 216 + Top = 39 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label6: TLabel + Left = 773 + Top = 15 + Width = 24 + Height = 12 + Caption = #20221#25968 + Visible = False + end + object Label7: TLabel + Left = 606 + Top = 39 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 364 + Top = 39 + Width = 48 + Height = 12 + Caption = #20013#25991#25104#20998 + end + object Label9: TLabel + Left = 482 + Top = 39 + Width = 48 + Height = 12 + Caption = #33521#25991#25104#20998 + end + object Label10: TLabel + Left = 606 + Top = 15 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label11: TLabel + Left = 832 + Top = 15 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 832 + Top = 39 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CYID: TEdit + Tag = 3 + Left = 72 + Top = 11 + Width = 121 + Height = 20 + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 414 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 1 + OnChange = CYNameChange + end + object CYEName: TEdit + Tag = 2 + Left = 531 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnChange = CYNameChange + end + object CYSpec: TEdit + Tag = 2 + Left = 265 + Top = 35 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object CYNO: TEdit + Tag = 2 + Left = 265 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + OnKeyPress = CYNOKeyPress + end + object Edit1: TEdit + Left = 731 + Top = 11 + Width = 38 + Height = 20 + TabOrder = 5 + Visible = False + end + object CYKZ: TEdit + Tag = 2 + Left = 632 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = CYMFChange + end + object CYCF: TEdit + Tag = 2 + Left = 414 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = CYNameChange + end + object CYECF: TEdit + Tag = 2 + Left = 531 + Top = 35 + Width = 59 + Height = 20 + TabOrder = 8 + OnChange = CYNameChange + end + object CYMF: TEdit + Tag = 2 + Left = 632 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = CYMFChange + end + end + object Panel2: TPanel + Left = 512 + Top = 232 + Width = 185 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object Panel5: TPanel + Left = 0 + Top = 89 + Width = 220 + Height = 507 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Image2: TImage + Left = 2 + Top = 318 + Width = 216 + Height = 187 + Align = alBottom + end + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 316 + Align = alClient + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'CPParent' + DataController.KeyField = 'CPID' + OptionsBehavior.ExpandOnDblClick = False + OptionsSelection.CellSelect = False + OptionsView.CellAutoHeight = True + OptionsView.Headers = False + RootValue = -1 + Styles.Inactive = DataLink_DDMD.Red + Styles.Selection = DataLink_DDMD.Red + Styles.IncSearch = DataLink_DDMD.Red + TabOrder = 0 + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree20: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 61 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 989 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1029 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 493 + Top = 193 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 392 + Top = 184 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 392 + Top = 152 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 424 + Top = 152 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 484 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 461 + Top = 188 + end + object SaveDialog1: TSaveDialog + Left = 513 + Top = 157 + end + object DSCYNO: TDataSource + DataSet = CDS_CYNO + Left = 771 + Top = 235 + end + object CDS_CYNO: TClientDataSet + Aggregates = <> + Params = <> + Left = 712 + Top = 264 + end + object ADOQueryTree: TClientDataSet + Aggregates = <> + Params = <> + Left = 32 + Top = 200 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPSel.pas b/坯布码单待检(PBMDDJ.dll)/U_CPSel.pas new file mode 100644 index 0000000..d69cdb8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPSel.pas @@ -0,0 +1,578 @@ +unit U_CPSel; // + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox,jpeg, BtnEdit; + +type + TfrmCPSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree20: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton6: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label3: TLabel; + CYNO: TEdit; + v1Column16: TcxGridDBColumn; + Panel2: TPanel; + v1Column19: TcxGridDBColumn; + DSCYNO: TDataSource; + CDS_CYNO: TClientDataSet; + Edit1: TEdit; + Label6: TLabel; + Label7: TLabel; + CYKZ: TEdit; + Label8: TLabel; + Label9: TLabel; + CYCF: TEdit; + CYECF: TEdit; + Label10: TLabel; + CYMF: TEdit; + v1Column42: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ADOQueryTree: TClientDataSet; + Panel5: TPanel; + Image2: TImage; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Label11: TLabel; + Label12: TLabel; + Panel4: TPanel; + Label13: TLabel; + LabName: TBtnEditA; + ToolButton3: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure CYSpecChange(Sender: TObject); + procedure v1Column19PropertiesChange(Sender: TObject); + procedure CYMFChange(Sender: TObject); + procedure CYNameChange(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + procedure LabNameBtnClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + procedure InitImage(); + procedure TJGS(); + + public + { Public declarations } + end; + +var + frmCPSel: TfrmCPSel; + +implementation +uses + U_DataLink,U_RTFun,U_CPAdd,U_FileUp,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPSel.InitTree(); +var + i:Integer; +begin + with ADOQueryTree20 do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + SCreateCDS20(ADOQueryTree20,ADOQueryTree); + SInitCDSData20(ADOQueryTree20,ADOQueryTree); + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPSel.InitGrid(); +begin + Panel2.Visible:=True; + Panel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType'); + Parameters.ParamByName('Code').Value:=''; + Parameters.ParamByName('PState').Value:=0; + Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + Panel2.Visible:=False; +end; +procedure TfrmCPSel.TJGS(); +var + i,j:Integer; +begin + i:=0; + j:=0; + CDS_Main.DisableControls; + with CDS_Main do + begin + first; + while not Eof do + begin + if FieldByName('CYPriceKg').Value=0 then + begin + i:=i+1; + end else + begin + j:=j+1; + end; + Next; + end; + end; + CDS_Main.EnableControls; + Label11.Caption:='Ʒ:'+Trim(IntToStr(j)); + Label12.Caption:='δƷ:'+Trim(IntToStr(i)); +end; +procedure TfrmCPSel.FormDestroy(Sender: TObject); +begin + frmCPSel:=nil; +end; + +procedure TfrmCPSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбCX1',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPSel.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('ƷбCX1',Tv1,'Ʒ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYID='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CYNO); + SInitCDSData20(ADOQueryTemp,CDS_CYNO); + CDS_CYNO.Delete; +end; + +procedure TfrmCPSel.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); + TJGS(); +end; + +procedure TfrmCPSel.TBRafreshClick(Sender: TObject); +begin + InitTree(); + InitGrid(); + TJGS(); +end; + +procedure TfrmCPSel.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + +end; + +procedure TfrmCPSel.CYIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CYID.Text)='' then Exit; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Select_CP_YDang :Code,1,'''' '); + Parameters.ParamByName('Code').Value:=Trim(CYID.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + end; +end; + +procedure TfrmCPSel.CYNoChange(Sender: TObject); +begin + //if Length(Trim(TEdit(Sender).Text))<4 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + +end; + +procedure TfrmCPSel.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPSel.ReadINIFile(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmCPSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmCPSel.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+''''); + Open; + end; + CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString); + ADOQueryTree.Locate('CPID',CPID,[]); + InitImage(); +end; +procedure TfrmCPSel.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +procedure TfrmCPSel.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if Key= then + begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷ6666Ҫɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; + end; + + CDS_Main.Delete; + end; } +end; + +procedure TfrmCPSel.CYSpecChange(Sender: TObject); +begin + if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPSel.v1Column19PropertiesChange(Sender: TObject); +var + mvalue:Boolean; +begin + { mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + with CDS_CYNO do + begin + if Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then + begin + Append; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + Post; + end; + end; + end else + begin + //with CDS_CYNO do + //begin + CDS_CYNO.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[]); + CDS_CYNO.Delete; + //end; + end; } +end; + +procedure TfrmCPSel.CYMFChange(Sender: TObject); +begin + //if Length(Trim(TEdit(Sender).Text))<2 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + +end; + +procedure TfrmCPSel.CYNameChange(Sender: TObject); +begin + //if Length(Trim(TEdit(Sender).Text))<2 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + +end; + +procedure TfrmCPSel.CYNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CYNO.Text)='' then Exit; + if Length(Trim(CYNO.Text))<4 then Exit; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Select_CP_YDang :Code,2,'''' '); + Parameters.ParamByName('Code').Value:='%'+Trim(CYNO.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + TJGS(); + end; +end; + +procedure TfrmCPSel.LabNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPLabName'; + flagname:='Ʒǩ'; + fnote:=True; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + if ShowModal=1 then + begin + Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPSel.ToolButton3Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPType.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPType.dfm new file mode 100644 index 0000000..bf51340 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPType.dfm @@ -0,0 +1,189 @@ +object frmCPType: TfrmCPType + Left = 281 + Top = 184 + Width = 870 + Height = 505 + Caption = #20135#21697#31867#21035 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 854 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686#23376#31867 + ImageIndex = 12 + OnClick = TBAddClick + end + object ToolButton1: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 33 + Width = 249 + Height = 433 + Align = alLeft + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'CPParent' + DataController.KeyField = 'CPID' + OptionsBehavior.ExpandOnDblClick = False + OptionsSelection.CellSelect = False + OptionsView.CellAutoHeight = True + OptionsView.Headers = False + RootValue = -1 + TabOrder = 1 + OnClick = cxDBTreeList1Click + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object Panel1: TPanel + Left = 270 + Top = 54 + Width = 315 + Height = 150 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 66 + Top = 24 + Width = 48 + Height = 12 + Caption = #29238' '#31867 + end + object Label2: TLabel + Left = 66 + Top = 65 + Width = 48 + Height = 12 + Caption = #31867#21035#21517#31216 + end + object Label3: TLabel + Left = 66 + Top = 105 + Width = 48 + Height = 12 + Caption = #31867#21035#32534#30721 + end + object CPTopName: TEdit + Left = 129 + Top = 21 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object CPName: TEdit + Left = 129 + Top = 61 + Width = 121 + Height = 20 + TabOrder = 1 + OnKeyPress = CPNameKeyPress + end + object CPNo: TEdit + Left = 129 + Top = 101 + Width = 121 + Height = 20 + TabOrder = 2 + end + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree10: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 125 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 709 + Top = 209 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 677 + Top = 137 + end + object ADOQueryTree: TClientDataSet + Aggregates = <> + Params = <> + Left = 160 + Top = 152 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPType.pas b/坯布码单待检(PBMDDJ.dll)/U_CPType.pas new file mode 100644 index 0000000..e03da98 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPType.pas @@ -0,0 +1,242 @@ +unit U_CPType; //1 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, ExtCtrls, DBClient; + +type + TfrmCPType = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + DataSource1: TDataSource; + ADOQueryTree10: TADOQuery; + ToolButton1: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + CPTopName: TEdit; + CPName: TEdit; + CPNo: TEdit; + ADOQueryTree: TClientDataSet; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure cxDBTreeList1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure CPNameKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + private + { Private declarations } + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + + public + { Public declarations } + end; + +var + frmCPType: TfrmCPType; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmCPType.InitTree(); +var + i:Integer; +begin + with ADOQueryTree10 do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + SCreateCDS20(ADOQueryTree10,ADOQueryTree); + SInitCDSData20(ADOQueryTree10,ADOQueryTree); + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPType.FormDestroy(Sender: TObject); +begin + frmCPType:=nil; +end; + +procedure TfrmCPType.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPType.TBRafreshClick(Sender: TObject); +begin + InitTree(); +end; + +procedure TfrmCPType.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmCPType.TBAddClick(Sender: TObject); +begin + PState:=11; + CPTopName.Text:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + //FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + FCPID:=''; + CPName.Text:=''; + CPNo.Text:=''; + CPName.SetFocus; +end; + +procedure TfrmCPType.cxDBTreeList1Click(Sender: TObject); +begin + PState:=22; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_Type where CPID='''+Trim(ADOQueryTree.fieldbyname('CPParent').AsString)+''''); + Open; + end; + FCPID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + CPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('CPName').AsString); + CPName.Text:=Trim(ADOQueryTree.fieldbyname('CPName').AsString); + CPNo.Text:=Trim(ADOQueryTree.fieldbyname('CPNo').AsString); +end; + +procedure TfrmCPType.ToolButton1Click(Sender: TObject); +var + maxId:String; +begin + if Trim(CPName.Text)='' then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + if Trim(CPNo.Text)='' then + begin + Application.MessageBox('벻Ϊգ','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if PState=11 then + begin + if GetLSNo(ADOQueryCmd,maxId,'CP','CP_Type',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FCPID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_Type where CPID='''+Trim(FCPID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if PState=11 then + begin + Append; + FieldByName('CPID').Value:=Trim(maxId); + FieldByName('CPName').Value:=Trim(CPName.Text); + FieldByName('CPNo').Value:=Trim(CPNo.Text); + FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + FieldByName('CPLevel').Value:=ADOQueryTree.fieldbyname('CPLevel').AsInteger+1; + Post; + end else + if PState=22 then + begin + Edit; + FieldByName('CPID').Value:=Trim(maxId); + FieldByName('CPName').Value:=Trim(CPName.Text); + FieldByName('CPNo').Value:=Trim(CPNo.Text); + //FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + //FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmCPType.TBDelClick(Sender: TObject); +begin + if ADOQueryTree.FieldByName('CPLevel').AsInteger=0 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_Type where CPParent='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('Ѿ಻ɾ','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYType='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('ѾвƷڴ಻ɾ','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_Type where CPID='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+''''); + sql.Add('delete CP_Type where CPParent='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+''''); + ExecSQL; + end; + InitTree(); +end; + +procedure TfrmCPType.CPNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + CPNo.SetFocus; +end; + +procedure TfrmCPType.FormShow(Sender: TObject); +begin + InitTree(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPView.dfm b/坯布码单待检(PBMDDJ.dll)/U_CPView.dfm new file mode 100644 index 0000000..71c418d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPView.dfm @@ -0,0 +1,745 @@ +object frmCPView: TfrmCPView + Left = 75 + Top = 75 + Width = 1148 + Height = 618 + Caption = #20135#21697#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1132 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object Panel3: TPanel + Left = 276 + Top = 0 + Width = 72 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label6: TLabel + Left = 3 + Top = 9 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Edit1: TEdit + Left = 29 + Top = 6 + Width = 38 + Height = 20 + TabOrder = 0 + end + end + object Panel4: TPanel + Left = 348 + Top = 0 + Width = 174 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label13: TLabel + Left = 3 + Top = 9 + Width = 52 + Height = 12 + Caption = #26631#31614#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabName: TBtnEditA + Left = 61 + Top = 5 + Width = 105 + Height = 20 + TabOrder = 0 + OnBtnClick = LabNameBtnClick + end + end + object ToolButton3: TToolButton + Left = 522 + Top = 0 + Caption = #26631#31614#39044#35272 + ImageIndex = 66 + OnClick = ToolButton3Click + end + object ToolButton6: TToolButton + Left = 605 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 19 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 692 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 228 + Top = 89 + Width = 904 + Height = 490 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column19: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column19PropertiesChange + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = #31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column15: TcxGridDBColumn + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column17: TcxGridDBColumn + Caption = #32769#32534#21495 + DataBinding.FieldName = 'OldCYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column42: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #38754#26009#26469#28304 + DataBinding.FieldName = 'CYFrom' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + DataBinding.FieldName = 'TPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 220 + Top = 89 + Width = 8 + Height = 490 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel5 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1132 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label2: TLabel + Left = 16 + Top = 15 + Width = 48 + Height = 12 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 364 + Top = 15 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 482 + Top = 15 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 216 + Top = 39 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 216 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label7: TLabel + Left = 606 + Top = 39 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label8: TLabel + Left = 364 + Top = 39 + Width = 48 + Height = 12 + Caption = #20013#25991#25104#20998 + end + object Label9: TLabel + Left = 482 + Top = 39 + Width = 48 + Height = 12 + Caption = #33521#25991#25104#20998 + end + object Label10: TLabel + Left = 606 + Top = 15 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label11: TLabel + Left = 832 + Top = 15 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 832 + Top = 39 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 720 + Top = 15 + Width = 36 + Height = 12 + Caption = #32769#32534#21495 + end + object Label16: TLabel + Left = 720 + Top = 39 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object CYID: TEdit + Tag = 3 + Left = 72 + Top = 11 + Width = 121 + Height = 20 + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 414 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 1 + OnKeyPress = CYNameKeyPress + end + object CYEName: TEdit + Tag = 2 + Left = 531 + Top = 11 + Width = 59 + Height = 20 + TabOrder = 2 + OnKeyPress = CYENameKeyPress + end + object CYSpec: TEdit + Tag = 2 + Left = 265 + Top = 35 + Width = 89 + Height = 20 + TabOrder = 3 + OnKeyPress = CYSpecKeyPress + end + object CYNO: TEdit + Tag = 2 + Left = 265 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 4 + OnKeyPress = CYNOKeyPress + end + object CYKZ: TEdit + Tag = 2 + Left = 632 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnKeyPress = CYENameKeyPress + end + object CYCF: TEdit + Tag = 2 + Left = 414 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 6 + OnKeyPress = CYCFKeyPress + end + object CYECF: TEdit + Tag = 2 + Left = 531 + Top = 35 + Width = 59 + Height = 20 + TabOrder = 7 + OnKeyPress = CYENameKeyPress + end + object CYMF: TEdit + Tag = 2 + Left = 632 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 8 + OnKeyPress = CYENameKeyPress + end + object OldCYNo: TEdit + Tag = 2 + Left = 755 + Top = 11 + Width = 73 + Height = 20 + TabOrder = 9 + OnKeyPress = OldCYNoKeyPress + end + object OrderNo: TEdit + Tag = 2 + Left = 755 + Top = 35 + Width = 73 + Height = 20 + TabOrder = 10 + OnKeyPress = OrderNoKeyPress + end + end + object Panel2: TPanel + Left = 512 + Top = 232 + Width = 185 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object Panel5: TPanel + Left = 0 + Top = 89 + Width = 220 + Height = 490 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Image2: TImage + Left = 2 + Top = 301 + Width = 216 + Height = 187 + Align = alBottom + end + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 299 + Align = alClient + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'CPParent' + DataController.KeyField = 'CPID' + OptionsBehavior.ExpandOnDblClick = False + OptionsSelection.CellSelect = False + OptionsView.CellAutoHeight = True + OptionsView.Headers = False + RootValue = -1 + Styles.Inactive = DataLink_DDMD.Red + Styles.Selection = DataLink_DDMD.Red + Styles.IncSearch = DataLink_DDMD.Red + TabOrder = 0 + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'CPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + end + object DataSource1: TDataSource + DataSet = ADOQueryTree + Left = 91 + Top = 147 + end + object ADOQueryTree20: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 61 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 989 + Top = 1 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1029 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 432 + Top = 184 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 451 + Top = 155 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 493 + Top = 193 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 392 + Top = 184 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 392 + Top = 152 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 424 + Top = 152 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 484 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 461 + Top = 188 + end + object SaveDialog1: TSaveDialog + Left = 513 + Top = 157 + end + object DSCYNO: TDataSource + DataSet = CDS_CYNO + Left = 771 + Top = 235 + end + object CDS_CYNO: TClientDataSet + Aggregates = <> + Params = <> + Left = 712 + Top = 264 + end + object ADOQueryTree: TClientDataSet + Aggregates = <> + Params = <> + Left = 32 + Top = 200 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CPView.pas b/坯布码单待检(PBMDDJ.dll)/U_CPView.pas new file mode 100644 index 0000000..5f12b00 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CPView.pas @@ -0,0 +1,745 @@ +unit U_CPView; //3 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox,jpeg, BtnEdit; + +type + TfrmCPView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree20: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ToolButton6: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label3: TLabel; + CYNO: TEdit; + v1Column16: TcxGridDBColumn; + Panel2: TPanel; + v1Column19: TcxGridDBColumn; + DSCYNO: TDataSource; + CDS_CYNO: TClientDataSet; + Label7: TLabel; + CYKZ: TEdit; + Label8: TLabel; + Label9: TLabel; + CYCF: TEdit; + CYECF: TEdit; + Label10: TLabel; + CYMF: TEdit; + v1Column42: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ADOQueryTree: TClientDataSet; + Panel5: TPanel; + Image2: TImage; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Label11: TLabel; + Label12: TLabel; + Panel4: TPanel; + Label13: TLabel; + LabName: TBtnEditA; + ToolButton3: TToolButton; + Panel3: TPanel; + Label6: TLabel; + Edit1: TEdit; + Label15: TLabel; + OldCYNo: TEdit; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + Label16: TLabel; + OrderNo: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure CYSpecChange(Sender: TObject); + procedure v1Column19PropertiesChange(Sender: TObject); + procedure CYNOKeyPress(Sender: TObject; var Key: Char); + procedure LabNameBtnClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OldCYNoKeyPress(Sender: TObject; var Key: Char); + procedure CYSpecKeyPress(Sender: TObject; var Key: Char); + procedure CYNameKeyPress(Sender: TObject; var Key: Char); + procedure CYCFKeyPress(Sender: TObject; var Key: Char); + procedure CYENameKeyPress(Sender: TObject; var Key: Char); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + CPID:string; + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure InitGridSql(fsj:string); + procedure ReadINIFile(); + procedure InitImage(); + procedure TJGS(); + + public + { Public declarations } + end; + +var + frmCPView: TfrmCPView; + +implementation +uses + U_DataLink,U_RTFun,U_CPAdd,U_FileUp,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPView.InitTree(); +var + i:Integer; +begin + with ADOQueryTree20 do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName'); + Open; + end; + SCreateCDS20(ADOQueryTree20,ADOQueryTree); + SInitCDSData20(ADOQueryTree20,ADOQueryTree); + cxDBTreeList1.Items[0].Expand(false); + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmCPView.InitGrid(); +begin + Panel2.Visible:=True; + Panel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType'); + Parameters.ParamByName('Code').Value:=''; + Parameters.ParamByName('PState').Value:=0; + Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + Panel2.Visible:=False; +end; +procedure TfrmCPView.TJGS(); +var + i,j:Integer; +begin + i:=0; + j:=0; + CDS_Main.DisableControls; + with CDS_Main do + begin + first; + while not Eof do + begin + if FieldByName('CYPriceKg').Value=0 then + begin + i:=i+1; + end else + begin + j:=j+1; + end; + Next; + end; + end; + CDS_Main.EnableControls; + Label11.Caption:='Ʒ:'+Trim(IntToStr(j)); + Label12.Caption:='δƷ:'+Trim(IntToStr(i)); +end; +procedure TfrmCPView.FormDestroy(Sender: TObject); +begin + frmCPView:=nil; +end; + +procedure TfrmCPView.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбCX',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPView.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('ƷбCX',Tv1,'Ʒ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CYID='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CYNO); + SInitCDSData20(ADOQueryTemp,CDS_CYNO); + CDS_CYNO.Delete; +end; + +procedure TfrmCPView.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); + TJGS(); +end; + +procedure TfrmCPView.TBRafreshClick(Sender: TObject); +begin + InitTree(); + InitGrid(); + TJGS(); +end; + +procedure TfrmCPView.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + +end; + +procedure TfrmCPView.CYIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CYID.Text)='' then Exit; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Select_CP_YDang :Code,1,'''' '); + Parameters.ParamByName('Code').Value:=Trim(CYID.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + end; +end; + +procedure TfrmCPView.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPView.ToolButton4Click(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; +begin + CYID.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) +'Report\'+Trim(LabName.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmCPView.ToolButton6Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath,FFFFCPNO:String; +begin + {FPath:='C:\HTTP1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);} + FFFFCPNO:=Trim(CDS_Main.fieldbyname('CYNo').AsString); + if Pos(':',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð(:)','',0); + Exit; + end; + if Pos('',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲð()','',0); + Exit; + end; + if Pos('\',FFFFCPNO)>0 then + begin + Application.MessageBox('ƷŲڷб(\)','',0); + Exit; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + Open; + if IsEmpty then + begin + Application.MessageBox('ƷͼƬδϴ','ʾ',0); + Exit; + end; + end; + try + ReadINIFile(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString); + FFName:=FPath+FFName; + if FileExists(FFName) then + begin + FInt:=1; + end; + if FInt<>1 then + IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString), + FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString) + ); + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); + +end; +procedure TfrmCPView.ReadINIFile(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmCPView.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton6.Click; +end; + +procedure TfrmCPView.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+''''); + Open; + end; + CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString); + ADOQueryTree.Locate('CPID',CPID,[]); + InitImage(); +end; +procedure TfrmCPView.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +procedure TfrmCPView.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if Key= then + begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷ6666Ҫɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + ExecSQL; + end; + end; + + CDS_Main.Delete; + end; } +end; + +procedure TfrmCPView.CYSpecChange(Sender: TObject); +begin + if Length(Trim(CYSpec.Text))<3 then Exit; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCPView.v1Column19PropertiesChange(Sender: TObject); +var + mvalue:Boolean; +begin + { mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + with CDS_CYNO do + begin + if Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then + begin + Append; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + Post; + end; + end; + end else + begin + //with CDS_CYNO do + //begin + CDS_CYNO.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[]); + CDS_CYNO.Delete; + //end; + end; } +end; + +procedure TfrmCPView.CYNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CYNO.Text)='' then Exit; + if Length(Trim(CYNO.Text))<4 then Exit; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Select_CP_YDang :Code,2,'''' '); + Parameters.ParamByName('Code').Value:='%'+Trim(CYNO.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + TJGS(); + end; +end; + +procedure TfrmCPView.LabNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPLabName'; + flagname:='Ʒǩ'; + fnote:=True; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + if ShowModal=1 then + begin + Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPView.ToolButton3Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmCPView.OldCYNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OldCYNo.Text)='' then Exit; + if Length(Trim(OldCYNo.Text))<4 then Exit; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Select_CP_YDang :Code,8,'''' '); + Parameters.ParamByName('Code').Value:='%'+Trim(OldCYNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CYID.Text:=''; + ADOQueryTree.Locate('CPID',CPID,[]); + TJGS(); + end; +end; + +procedure TfrmCPView.CYSpecKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPView.CYNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and CYName like '''+'%'+Trim(CYName.Text)+'%'+''''); + TJGS(); + end; +end; +procedure TfrmCPView.InitGridSql(fsj:string); +begin + Panel2.Visible:=True; + Panel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('exec P_Select_CP_YDang_Sql :WSql'); + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + Panel2.Visible:=False; +end; +procedure TfrmCPView.CYCFKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + TJGS(); + end; + end; +end; + +procedure TfrmCPView.CYENameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and CYEName like '''+'%'+Trim(CYEName.Text)+'%'+''''); + TJGS(); + end; +end; + +procedure TfrmCPView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + InitGridSql(' and OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + TJGS(); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CWMDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_CWMDList.dfm new file mode 100644 index 0000000..dfb3a4f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CWMDList.dfm @@ -0,0 +1,1294 @@ +object frmCWMDList: TfrmCWMDList + Left = 23 + Top = 126 + Width = 1185 + Height = 572 + Caption = #30721#21333#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1177 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + Caption = #29366#24577#26356#25913 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ComboBox1: TComboBox + Left = 209 + Top = 3 + Width = 145 + Height = 24 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Items.Strings = ( + #24453#23545#36134 + #23545#36134#23436#32467 + #26377#20105#35758) + end + object TBExport: TToolButton + Left = 354 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 417 + Top = 0 + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 500 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1177 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label10: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label8: TLabel + Left = 635 + Top = 12 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object Label9: TLabel + Left = 635 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label11: TLabel + Left = 788 + Top = 36 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 8 + Width = 68 + Height = 20 + TabOrder = 1 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 68 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object MDType: TComboBox + Tag = 2 + Left = 686 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object PSName: TComboBox + Tag = 2 + Left = 686 + Top = 32 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + end + object MDFactoryName: TEdit + Tag = 2 + Left = 825 + Top = 32 + Width = 104 + Height = 20 + TabOrder = 10 + OnChange = TBFindClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 117 + Width = 1177 + Height = 424 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 424 + ClientRectRight = 1177 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1177 + Height = 401 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end + item + Format = '0' + Position = spFooter + Column = v3Column18 + end + item + Format = '0' + Position = spFooter + Column = v3Column19 + end + item + Format = '0' + Position = spFooter + Column = v3Column20 + end + item + Format = '0' + Position = spFooter + Column = v3Column21 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column18 + end + item + Kind = skSum + Column = v3Column19 + end + item + Kind = skSum + Column = v3Column21 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 41 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 42 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 46 + end + object v3Column22: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column23: TcxGridDBColumn + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column16: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 72 + end + object v3Column17: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 52 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 78 + end + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v3Column18: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#21305#25968 + DataBinding.FieldName = 'JSPS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + end + object v3Column19: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#25968#37327 + DataBinding.FieldName = 'JSQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + end + object v3Column20: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#21333#20215 + DataBinding.FieldName = 'JSPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v3Column21: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#37329#39069 + DataBinding.FieldName = 'JSMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + end + object v3Column15: TcxGridDBColumn + Tag = 9 + Caption = #23545#36134#22791#27880 + DataBinding.FieldName = 'JSNote' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 142 + end + object v3Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 72 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column13: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'CWStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 47 + end + object v3Column12: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Options.Editing = False + Options.Focusing = False + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 472 + Top = 103 + Width = 219 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + end + object Panel3: TPanel + Left = 473 + Top = 147 + Width = 219 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#32467#31639#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + end + end + object cxTabSheet2: TcxTabSheet + Caption = #35843#33410#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1177 + Height = 152 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object Tv1Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 160 + Width = 1177 + Height = 241 + Align = alBottom + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 553 + Height = 237 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn8 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #25187#27454#21327#21830 + Width = 549 + end> + object v2Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 77 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 220 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid4: TcxGrid + Left = 553 + Top = 0 + Width = 620 + Height = 237 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn13 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #26368#32456#25187#27454 + Width = 640 + end> + object v3Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 239 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv4 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 152 + Width = 1177 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = ScrollBox1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 92 + Width = 1177 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #23545#36134#23436#32467 + #26377#20105#35758 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1177 + ClientRectTop = 23 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 216 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 485 + Top = 189 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 455 + Top = 187 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 427 + Top = 187 + end + object ADOQuery3: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 200 + Top = 408 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 232 + Top = 408 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 265 + Top = 409 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 824 + Top = 384 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 856 + Top = 384 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 889 + Top = 385 + end + object PopupMenu1: TPopupMenu + Left = 415 + Top = 303 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #36171#20540 + OnClick = N3Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CWMDList.pas b/坯布码单待检(PBMDDJ.dll)/U_CWMDList.pas new file mode 100644 index 0000000..13761cd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CWMDList.pas @@ -0,0 +1,1746 @@ +unit U_CWMDList; //17 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox, cxSplitter, cxGridBandedTableView, + cxGridDBBandedTableView, cxTextEdit, Menus; + +type + TfrmCWMDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label4: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label10: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + AOrdDefStr1: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label6: TLabel; + MDNO: TEdit; + Label7: TLabel; + MPRTCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + v3Column12: TcxGridDBColumn; + MDType: TComboBox; + Label8: TLabel; + PSName: TComboBox; + Label9: TLabel; + v3Column13: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ComboBox1: TComboBox; + v3Column14: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + Label11: TLabel; + MDFactoryName: TEdit; + ScrollBox1: TScrollBox; + cxSplitter1: TcxSplitter; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + v2Pon: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBBandedTableView; + v3Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + v3Pon: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridLevel4: TcxGridLevel; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource4: TDataSource; + ClientDataSet4: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + ToolButton2: TToolButton; + v3Column18: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + Panel2: TPanel; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + N3: TMenuItem; + Panel3: TPanel; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure ToolButton2Click(Sender: TObject); + procedure v3Column19PropertiesEditValueChanged(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + function UPdateData():Boolean; + function JSMDData():Boolean; + function JSTJMDData(FJSType:String):Boolean; + function UPdateDataKK():Boolean; + function YFData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; + function DelYFData(CRID:String):Boolean; + function JSMDHZData():Boolean; + function YFHZData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; + function DelYFHZData(CRID:String):Boolean; + public + { Public declarations } + FFPInt:Integer; + end; + +var + frmCWMDList: TfrmCWMDList; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote,U_TJCKRKOK; + +{$R *.dfm} + +procedure TfrmCWMDList.FormDestroy(Sender: TObject); +begin + frmCWMDList:=nil; +end; + +procedure TfrmCWMDList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCWMDList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + Panel2.Visible:=True; + Panel2.Refresh; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + // Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(PF.CKName,'''')<>''ڲֿ'' and isnull(JMM.CKName,'''')='''' and JMM.FactoryName<>''ֿ'' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; + Panel2.Visible:=False; +end; + +procedure TfrmCWMDList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; + cxPageControl1.ActivePageIndex:=0; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmCWMDList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('뵥ѯCW',Tv3,'뵥'); + WriteCxGrid('ڲֿ뵥ѯCW',Tv1,'뵥'); + Close; +end; + +procedure TfrmCWMDList.cxPageControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmCWMDList.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + //SDofilter10(ClientDataSet3,SGetFilters(Panel1,1,2)); + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmCWMDList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + //sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(PF.CKName,'''')<>''ڲֿ'' and isnull(JMM.CKName,'''')='''' and JMM.FactoryName<>''ֿ'' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmCWMDList.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmCWMDList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else + TcxGridToExcel('ڲֿ뵥',cxGrid1); +end; + +procedure TfrmCWMDList.FormShow(Sender: TObject); +var + fsj:string; +begin + READCxGrid('뵥ѯCW',Tv3,'뵥'); + READCxGrid('ڲֿ뵥ѯCW',Tv1,'뵥'); + if FFPInt=9 then + begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + //sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(PF.CKName,'''')<>''ڲֿ'' and isnull(JMM.CKName,'''')='''' and JMM.FactoryName<>''ֿ'' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; + end; +end; + +procedure TfrmCWMDList.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmCWMDList.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; + +end; + +procedure TfrmCWMDList.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('״̬δѡ!','ʾ',0); + Exit; + end; + if cxTabControl1.TabIndex=0 then + begin + if Trim(ComboBox1.Text)='' then Exit; + end; + if cxTabControl1.TabIndex=3 then exit; + if cxPageControl1.ActivePageIndex=0 then + begin + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + Panel3.Visible:=True; + Panel3.Refresh; + if cxPageControl1.ActivePageIndex=0 then + begin + if JSMDHZData() then + begin + Panel3.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + end else + begin + if UPdateDataKK() then + begin + Panel3.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + end; + Panel3.Visible:=False; +end; +function TfrmCWMDList.UPdateData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('FactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDList.JSMDData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + if ComboBox1.ItemIndex=1 then + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('JSID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('JSQtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD_JS',9); + Post; + end; + end else + //if ComboBox1.ItemIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + ExecSQL; + end; + end; + + //д + // + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDList.JSMDHZData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + if ComboBox1.ItemIndex=1 then + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('JSID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('JSQtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FieldByName('JSDate').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + FieldByName('ORDMainId').Value:=ClientDataSet3.fieldbyname('ORDMainId').Value; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD_JS',9); + Post; + end; + end else + //if ComboBox1.ItemIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + ExecSQL; + end; + end; + + //д + // + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFHZData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFHZData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Result:=True; + except + Result:=False; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDList.JSTJMDData(FJSType:String):Boolean; +var + maxno,FJSID:string; +begin + Result:=False; + //д + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and JSType='''+Trim(FJSType)+''''); + Open; + end; + FJSID:=Trim(ADOQueryTemp.fieldbyname('JSID').AsString); + if ComboBox1.ItemIndex=1 then + begin + if Trim(FJSID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FJSID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(FJSID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FJSID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('KKID').Value:=Trim(ClientDataSet4.fieldbyname('KKID').AsString); + FieldByName('JSType').Value:=Trim(FJSType); + if FJSType='' then + begin + FieldByName('JSQty').Value:=-1; + FieldByName('JSPrice').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').Value; + FieldByName('JSMoney').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').AsFloat*-1; + FieldByName('FactoryNo').Value:=ClientDataSet4.fieldbyname('ZZPerson').Value; + FieldByName('FactoryName').Value:=ClientDataSet4.fieldbyname('ZZPerson').Value; + end else + if FJSType='ι' then + begin + FieldByName('JSQty').Value:=-1; + FieldByName('JSPrice').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').Value; + FieldByName('JSMoney').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').AsFloat*-1; + FieldByName('FactoryNo').Value:=ClientDataSet4.fieldbyname('ZZFactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet4.fieldbyname('ZZFactoryName').Value; + end; + Post; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(FJSID)+''''); + ExecSQL; + end; + end; + Result:=True; + +end; +function TfrmCWMDList.UPdateDataKK():Boolean; +var + maxno,maxjsno,maxkkno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + // sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('CWStatusNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + with ClientDataSet4 do + begin + First; + while not Eof do + begin + if ClientDataSet4.FieldByName('ZZFtyMoney').Value>0 then + begin + JSTJMDData('ι'); + end; + if ClientDataSet4.FieldByName('ZZPonMoney').Value>0 then + begin + JSTJMDData(''); + end; + Next; + end; + end; + //д + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if ClientDataSet4.IsEmpty then Exit; + with ClientDataSet4 do + begin + First; + while not Eof do + begin + if ClientDataSet4.FieldByName('ZZFtyMoney').Value>0 then + begin + if YFData(Trim(ClientDataSet4.fieldbyname('KKID').AsString), + Trim(ClientDataSet4.fieldbyname('ZZFactoryNo').AsString), + Trim(ClientDataSet4.fieldbyname('ZZFactoryName').AsString), + 'ι')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet4.FieldByName('ZZPonMoney').Value>0 then + begin + if YFData(Trim(ClientDataSet4.fieldbyname('KKID').AsString), + Trim(ClientDataSet4.fieldbyname('ZZPerson').AsString), + Trim(ClientDataSet4.fieldbyname('ZZPerson').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update JYOrder_Main_MD_KK Set CWHX=1,CWHXDate=getdate(),CWHXPerson='''+Trim(DName)+''''); + sql.Add(' where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + end else + begin + //ɾӦ + with ClientDataSet4 do + begin + First; + while not Eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFTypeID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + sql.Add(' and KFType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFTypeID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + sql.Add(' and KFType=''ι'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update JYOrder_Main_MD_KK Set CWHX=0,CWHXDate=Null,CWHXPerson='''''); + sql.Add(' where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDList.YFHZData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''); + sql.Add(' and CRTime='''+Trim(ClientDataSet3.fieldbyname('MDDate').AsString)+''''); + SQL.Add(' and Price='+Trim(ClientDataSet3.fieldbyname('JSPrice').AsString)); + sql.Add(' and KFType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet3.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + //FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + //FieldByName('PS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('Price').Value; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString)+''; + FieldByName('PSName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString); + FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_JS Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MDID='''+Trim(YFTYpeId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set '); + sql.Add(' PS=(select isnull(Sum(JSPS),0) from JYOrder_Main_MD_JS A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' ,Qty=(select isnull(Sum(JSQty),0) from JYOrder_Main_MD_JS A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmCWMDList.YFData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and YFTypeId='''+Trim(YFTYpeId)+''''); + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add(' and isnull(KFType,'''')='''+Trim(KFType)+''''); + end; + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if cxPageControl1.ActivePageIndex=0 then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + if GetLSNo(ADOQueryCmd,YFID,'KK','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡڲֿ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(YFTYpeId); + FieldByName('MainId').Value:=Trim(ClientDataSet3.fieldbyname('OrdMainId').AsString); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + if cxPageControl1.ActivePageIndex=0 then + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('MDDate').Value + else + FieldByName('CRTime').Value:=ClientDataSet4.fieldbyname('KKDate').Value; + if cxPageControl1.ActivePageIndex=0 then + begin + FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + FieldByName('PS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('Price').Value; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + end else + begin + FieldByName('Qty').Value:=1; + if Trim(KFType)='ι' then + FieldByName('Price').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').Value*-1 + else + FieldByName('Price').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').Value*-1; + end; + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + FieldByName('YFName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString)+''; + end else + begin + FieldByName('YFName').Value:='۷'; + FieldByName('KFType').Value:=Trim(KFType); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + if cxPageControl1.ActivePageIndex=1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYorder_Main_MD_JS Set YFID='''+Trim(YFID)+''''); + sql.Add(' where KKID='''+Trim(YFTYpeId)+''''); + sql.Add(' and FactoryNo='''+Trim(CWFactoryNo)+''''); + ExecSQL; + end; + end; + + Result:=True; +end; +function TfrmCWMDList.DelYFHZData(CRID:String):Boolean; +begin + Result:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+Trim(CRID)); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where not exists(select * from JYOrder_Main_MD_JS A where '); + sql.Add(' A.YFID=YF_Money_CR.YFID and YF_Money_CR.YFType=''Զ'' )'); + sql.Add(' and YFType=''Զ'' '); + ExecSQL; + end; + Result:=True; +end; +function TfrmCWMDList.DelYFData(CRID:String):Boolean; +begin + Result:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MDId='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + sql.Add(' and YFType=''Զ'' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+Trim(CRID)); + ExecSQL; + end; + Result:=True; +end; + +procedure TfrmCWMDList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')=''Э'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet4); + SInitCDSData20(ADOQuery1,ClientDataSet4); +end; + +procedure TfrmCWMDList.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='˹'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmCWMDList.v3Column19PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty:string; +begin + FName:=Trim(Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FPrice:=Trim(ClientDataSet3.fieldbyname('JSPrice').AsString); + FQty:=Trim(ClientDataSet3.fieldbyname('JSQty').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FName)<>'JSMoney' then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('JSMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + Post; + end; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('JSMoney').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmCWMDList.N1Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,True); +end; + +procedure TfrmCWMDList.N2Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,False); +end; + +procedure TfrmCWMDList.N3Click(Sender: TObject); +begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while ClientDataSet3.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('JSPS').Value:=FieldByName('PS').Value; + FieldByName('JSQty').Value:=FieldByName('Qty').Value; + FieldByName('JSPrice').Value:=FieldByName('Price').Value; + FieldByName('JSMoney').Value:=FieldByName('Money').Value; + FieldByName('SSel').Value:=False; + Post; + end; + end; + ClientDataSet3.EnableControls; +end; + +procedure TfrmCWMDList.Tv1DblClick(Sender: TObject); +var + fsj:string; +begin + try + frmTJCKRKOK:=TfrmTJCKRKOK.Create(Application); + with frmTJCKRKOK do + begin + + if Trim(Self.ClientDataSet3.fieldbyname('Status').AsString)='Э' then + frmTJCKRKOK.cxTabControl1.TabIndex:=2 + else + if Trim(Self.ClientDataSet3.fieldbyname('Status').AsString)='' then + frmTJCKRKOK.cxTabControl1.TabIndex:=3; + //frmTJCKRKOK.OrderNo.Text:=Trim(self.ClientDataSet3.fieldbyname('OrderNo').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.MDID='''+Trim(Self.ClientDataSet3.fieldbyname('MDID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.Status,'''')=''Э'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_Main_MD where ORDMainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(frmTJCKRKOK.ADOQueryTemp,frmTJCKRKOK.v2fty,fsj,1,True,''); + with frmTJCKRKOK.ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCSHDataNew(frmTJCKRKOK.ADOQuery1,frmTJCKRKOK.ScrollBox1,2); + frmTJCKRKOK.InitGridKK(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ShowModal=1 then + begin + + end; + end; + finally + frmTJCKRKOK.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.dfm b/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.dfm new file mode 100644 index 0000000..97fff97 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.dfm @@ -0,0 +1,1530 @@ +object frmCWMDOtherFeeList: TfrmCWMDOtherFeeList + Left = 23 + Top = 126 + Width = 1185 + Height = 572 + Caption = #30721#21333#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1177 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + Caption = #29366#24577#26356#25913 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ComboBox1: TComboBox + Left = 209 + Top = 3 + Width = 145 + Height = 24 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Items.Strings = ( + #24453#23545#36134 + #23545#36134#23436#32467 + #26377#20105#35758) + end + object TBExport: TToolButton + Left = 354 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 417 + Top = 0 + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 500 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1177 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label10: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label8: TLabel + Left = 635 + Top = 12 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object Label9: TLabel + Left = 635 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label11: TLabel + Left = 788 + Top = 36 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 8 + Width = 68 + Height = 20 + TabOrder = 1 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 68 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object MDType: TComboBox + Tag = 2 + Left = 686 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object PSName: TComboBox + Tag = 2 + Left = 686 + Top = 32 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + end + object MDFactoryName: TEdit + Tag = 2 + Left = 825 + Top = 32 + Width = 104 + Height = 20 + TabOrder = 10 + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 117 + Width = 1177 + Height = 424 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 424 + ClientRectRight = 1177 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1177 + Height = 401 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end + item + Format = '0' + Position = spFooter + Column = v3Column18 + end + item + Format = '0' + Position = spFooter + Column = v3Column19 + end + item + Format = '0' + Position = spFooter + Column = v3Column20 + end + item + Format = '0' + Position = spFooter + Column = v3Column21 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column18 + end + item + Kind = skSum + Column = v3Column19 + end + item + Kind = skSum + Column = v3Column21 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 41 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 42 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 46 + end + object v3Column22: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column23: TcxGridDBColumn + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column16: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 72 + end + object v3Column17: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 52 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 78 + end + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v3Column18: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#21305#25968 + DataBinding.FieldName = 'JSPS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + end + object v3Column19: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#25968#37327 + DataBinding.FieldName = 'JSQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + end + object v3Column20: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#21333#20215 + DataBinding.FieldName = 'JSPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 61 + end + object v3Column21: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#37329#39069 + DataBinding.FieldName = 'JSMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column19PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + end + object v3Column15: TcxGridDBColumn + Tag = 9 + Caption = #23545#36134#22791#27880 + DataBinding.FieldName = 'JSNote' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 142 + end + object v3Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 72 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column13: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'CWStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 47 + end + object v3Column12: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Options.Editing = False + Options.Focusing = False + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 472 + Top = 103 + Width = 219 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + end + object Panel3: TPanel + Left = 473 + Top = 147 + Width = 219 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#32467#31639#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + end + end + object cxTabSheet2: TcxTabSheet + Caption = #35843#33410#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1177 + Height = 152 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object Tv1Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 160 + Width = 1177 + Height = 241 + Align = alBottom + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 553 + Height = 237 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn8 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #25187#27454#21327#21830 + Width = 549 + end> + object v2Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 77 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 220 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid4: TcxGrid + Left = 553 + Top = 0 + Width = 620 + Height = 237 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn13 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #26368#32456#25187#27454 + Width = 640 + end> + object v3Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 239 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv4 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 152 + Width = 1177 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = ScrollBox1 + end + end + object cxTabSheet3: TcxTabSheet + Caption = #20854#23427#36153#29992 + ImageIndex = 2 + object cxGrid7: TcxGrid + Left = 0 + Top = 0 + Width = 1177 + Height = 401 + Align = alClient + PopupMenu = PopupMenu2 + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn31 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'JFdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 102 + end + object v7Column7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v7Column1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'JFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 81 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'JFPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 54 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'JFQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v7Column10: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'JFQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JFMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Footer = DataLink_CYZZ.handBlack + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'JFNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 131 + end + object v7Column8: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'JFFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v7Column9: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'JFFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object v7Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v7Column5: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#25968#37327 + DataBinding.FieldName = 'JSQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 75 + end + object v7Column3: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#21333#20215 + DataBinding.FieldName = 'JSPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + end + object v7Column4: TcxGridDBColumn + Tag = 9 + Caption = #32467#31639#37329#39069 + DataBinding.FieldName = 'JSMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 70 + end + object v7Column6: TcxGridDBColumn + Tag = 9 + Caption = #23545#36134#22791#27880 + DataBinding.FieldName = 'JSNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 94 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 92 + Width = 1177 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #23545#36134#23436#32467 + #26377#20105#35758 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1177 + ClientRectTop = 23 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 216 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 485 + Top = 189 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 455 + Top = 187 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 427 + Top = 187 + end + object ADOQuery3: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 200 + Top = 408 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 232 + Top = 408 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 265 + Top = 409 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 824 + Top = 384 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 856 + Top = 384 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 889 + Top = 385 + end + object PopupMenu1: TPopupMenu + Left = 415 + Top = 303 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #36171#20540 + OnClick = N3Click + end + end + object ADOQuery2: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 902 + Top = 7 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1027 + Top = 191 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1055 + Top = 191 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1085 + Top = 193 + end + object PopupMenu2: TPopupMenu + Left = 624 + Top = 209 + object MenuItem1: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem1Click + end + object MenuItem2: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem2Click + end + object MenuItem3: TMenuItem + Caption = #36171#20540 + OnClick = MenuItem3Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.pas b/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.pas new file mode 100644 index 0000000..9ebc22e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CWMDOtherFeeList.pas @@ -0,0 +1,2212 @@ +unit U_CWMDOtherFeeList; //17 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox, cxSplitter, cxGridBandedTableView, + cxGridDBBandedTableView, cxTextEdit, Menus, cxButtonEdit; + +type + TfrmCWMDOtherFeeList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label4: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label10: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + AOrdDefStr1: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label6: TLabel; + MDNO: TEdit; + Label7: TLabel; + MPRTCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + v3Column12: TcxGridDBColumn; + MDType: TComboBox; + Label8: TLabel; + PSName: TComboBox; + Label9: TLabel; + v3Column13: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ComboBox1: TComboBox; + v3Column14: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + Label11: TLabel; + MDFactoryName: TEdit; + ScrollBox1: TScrollBox; + cxSplitter1: TcxSplitter; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + v2Pon: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBBandedTableView; + v3Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + v3Pon: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridLevel4: TcxGridLevel; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource4: TDataSource; + ClientDataSet4: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + ToolButton2: TToolButton; + v3Column18: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + Panel2: TPanel; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + N3: TMenuItem; + Panel3: TPanel; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + cxTabSheet3: TcxTabSheet; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v7Column2: TcxGridDBColumn; + v7Column3: TcxGridDBColumn; + v7Column4: TcxGridDBColumn; + v7Column5: TcxGridDBColumn; + v7Column6: TcxGridDBColumn; + v7Column7: TcxGridDBColumn; + v7Column8: TcxGridDBColumn; + v7Column9: TcxGridDBColumn; + ADOQuery2: TADOQuery; + cxGridPopupMenu7: TcxGridPopupMenu; + ClientDataSet7: TClientDataSet; + DataSource7: TDataSource; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + MenuItem3: TMenuItem; + v7Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure ToolButton2Click(Sender: TObject); + procedure v3Column19PropertiesEditValueChanged(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure MenuItem3Click(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + function UPdateData():Boolean; + function JSMDData():Boolean; + function JSTJMDData(FJSType:String):Boolean; + function UPdateDataKK():Boolean; + function YFData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; + function DelYFData(CRID:String):Boolean; + function JSMDHZData():Boolean; + function YFHZData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; + function DelYFHZData(CRID:String):Boolean; + procedure InitGridMD(); + procedure InitGridOtherFee(); + function JSOtherFeeData():Boolean; + function YFOtherFeeData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; + public + { Public declarations } + FFPInt:Integer; + end; + +var + frmCWMDOtherFeeList: TfrmCWMDOtherFeeList; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote,U_TJCKRKOK; + +{$R *.dfm} + +procedure TfrmCWMDOtherFeeList.FormDestroy(Sender: TObject); +begin + frmCWMDOtherFeeList:=nil; +end; + +procedure TfrmCWMDOtherFeeList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCWMDOtherFeeList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + Panel2.Visible:=True; + Panel2.Refresh; + if cxPageControl1.ActivePageIndex<>2 then + InitGridMD() + else + InitGridOtherFee(); + TBFind.Click; + Panel2.Visible:=False; +end; +procedure TfrmCWMDOtherFeeList.InitGridMD(); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + //if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + // Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(PF.CKName,'''')<>''ڲֿ'' and isnull(JMM.CKName,'''')='''' and JMM.FactoryName<>''ֿ'' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; +end; +procedure TfrmCWMDOtherFeeList.InitGridOtherFee(); +var + fsj:string; +begin + try + ADOQuery2.DisableControls; + with ADOQuery2 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_OtherFee_JS :begdate,:enddate,:orderno,:WSql'); + //if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMF.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery2,ClientDataSet7); + SInitCDSData20(ADOQuery2,ClientDataSet7); + finally + ADOQuery3.EnableControls; + end; +end; +procedure TfrmCWMDOtherFeeList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; + cxPageControl1.ActivePageIndex:=0; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmCWMDOtherFeeList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('뵥ѯCW',Tv3,'뵥'); + WriteCxGrid('ڲֿ뵥ѯCW',Tv1,'뵥'); + WriteCxGrid('',Tv7,'뵥'); + Close; +end; + +procedure TfrmCWMDOtherFeeList.cxPageControl1Change(Sender: TObject); +begin + //TBRafresh.Click; +end; + +procedure TfrmCWMDOtherFeeList.TBFindClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=2 then Exit; + if ADOQuery3.Active=False then Exit; + //SDofilter10(ClientDataSet3,SGetFilters(Panel1,1,2)); + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmCWMDOtherFeeList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + if cxPageControl1.ActivePageIndex<>2 then + begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + //sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(PF.CKName,'''')<>''ڲֿ'' and isnull(JMM.CKName,'''')='''' and JMM.FactoryName<>''ֿ'' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end else + begin + try + ADOQuery2.DisableControls; + with ADOQuery2 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_OtherFee_JS :begdate,:enddate,:orderno,:WSql'); + //if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + end; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMF.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMF.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery2,ClientDataSet7); + SInitCDSData20(ADOQuery2,ClientDataSet7); + finally + ADOQuery3.EnableControls; + end; + end; + + end; + +end; + +procedure TfrmCWMDOtherFeeList.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=fsj+' and isnull(JMM.CWStatus,'''')='''' '; + end; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmCWMDOtherFeeList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else + TcxGridToExcel('ڲֿ뵥',cxGrid1); +end; + +procedure TfrmCWMDOtherFeeList.FormShow(Sender: TObject); +var + fsj:string; +begin + READCxGrid('뵥ѯCW',Tv3,'뵥'); + READCxGrid('ڲֿ뵥ѯCW',Tv1,'뵥'); + READCxGrid('',Tv7,'뵥'); + if FFPInt=9 then + begin + InitGridMD(); + TBFind.Click; + end; +end; + +procedure TfrmCWMDOtherFeeList.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmCWMDOtherFeeList.cxTabControl1Change(Sender: TObject); +begin + //TBRafresh.Click; + +end; + +procedure TfrmCWMDOtherFeeList.ToolButton1Click(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>2 then + begin + if ClientDataSet3.IsEmpty then Exit; + end else + begin + if ClientDataSet7.IsEmpty then Exit; + end; + + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('״̬δѡ!','ʾ',0); + Exit; + end; + if cxTabControl1.TabIndex=0 then + begin + if Trim(ComboBox1.Text)='' then Exit; + end; + if cxTabControl1.TabIndex=3 then exit; + if cxPageControl1.ActivePageIndex=0 then + begin + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + if ClientDataSet7.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + Panel3.Visible:=True; + Panel3.Refresh; + if cxPageControl1.ActivePageIndex=0 then + begin + if JSMDHZData() then + begin + Panel3.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + if UPdateDataKK() then + begin + Panel3.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + if JSOtherFeeData() then + begin + Panel3.Visible:=False; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + end; + Panel3.Visible:=False; +end; +function TfrmCWMDOtherFeeList.UPdateData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('FactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDOtherFeeList.JSMDData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + if ComboBox1.ItemIndex=1 then + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('JSID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('JSQtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD_JS',9); + Post; + end; + end else + //if ComboBox1.ItemIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + ExecSQL; + end; + end; + + //д + // + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDOtherFeeList.JSMDHZData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + if ComboBox1.ItemIndex=1 then + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('JSID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('JSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('JSQtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FieldByName('JSDate').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + FieldByName('ORDMainId').Value:=ClientDataSet3.fieldbyname('ORDMainId').Value; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD_JS',9); + Post; + end; + end else + //if ComboBox1.ItemIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet3.fieldbyname('JSID').AsString)+''''); + ExecSQL; + end; + end; + + //д + // + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=0 then + begin + if YFHZData(Trim(ClientDataSet3.fieldbyname('MDID').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryNo').AsString), + Trim(ClientDataSet3.fieldbyname('MDFactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFHZData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Result:=True; + except + Result:=False; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDOtherFeeList.JSOtherFeeData():Boolean; +var + maxno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet7.DisableControls; + with ClientDataSet7 do + begin + First; + while Locate('SSel',True,[])=True do + begin + //Ѳ״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_Fee Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + sql.Add(',CWStatusNote='''+Trim(ClientDataSet7.fieldbyname('JSNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where JFID='''+Trim(ClientDataSet7.fieldbyname('JFID').AsString)+''''); + ExecSQL; + end; + //Ѳ״̬ + //д + if ComboBox1.ItemIndex=1 then + begin + if Trim(ClientDataSet7.fieldbyname('JSID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ClientDataSet7.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet7.fieldbyname('JSID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet7.fieldbyname('JSID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet7.fieldbyname('JSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('JFID').Value:=Trim(ClientDataSet7.fieldbyname('JFID').AsString); + FieldByName('JSQtyUnit').Value:=Trim(ClientDataSet7.fieldbyname('JFQtyUnit').AsString); + FieldByName('JSDate').Value:=ClientDataSet7.fieldbyname('JFDate').Value; + FieldByName('ORDMainId').Value:=ClientDataSet7.fieldbyname('MainId').Value; + RTSetSaveDataCDS(ADOQueryCmd,Tv7,ClientDataSet7,'JYOrder_Main_MD_JS',9); + Post; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(ClientDataSet7.fieldbyname('JSID').AsString)+''''); + ExecSQL; + end; + end; + + //д + // + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if cxPageControl1.ActivePageIndex=2 then + begin + if YFOtherFeeData(Trim(ClientDataSet7.fieldbyname('JFID').AsString), + Trim(ClientDataSet7.fieldbyname('MDFactoryNo').AsString), + Trim(ClientDataSet7.fieldbyname('MDFactoryName').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + + end else + begin + //ɾӦ + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(ClientDataSet7.fieldbyname('YFID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFHZData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet7.Delete; + end else + begin + ClientDataSet7.Edit; + ClientDataSet7.FieldByName('SSel').Value:=False; + ClientDataSet7.Post; + end; + //±״̬ + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet7.EnableControls; + Result:=True; + except + Result:=False; + ClientDataSet7.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDOtherFeeList.JSTJMDData(FJSType:String):Boolean; +var + maxno,FJSID:string; +begin + Result:=False; + //д + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and JSType='''+Trim(FJSType)+''''); + Open; + end; + FJSID:=Trim(ADOQueryTemp.fieldbyname('JSID').AsString); + if ComboBox1.ItemIndex=1 then + begin + if Trim(FJSID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JS','JYOrder_Main_MD_JS',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FJSID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_JS where JSID='''+Trim(FJSID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FJSID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('JSID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('KKID').Value:=Trim(ClientDataSet4.fieldbyname('KKID').AsString); + FieldByName('JSType').Value:=Trim(FJSType); + if FJSType='' then + begin + FieldByName('JSQty').Value:=-1; + FieldByName('JSPrice').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').Value; + FieldByName('JSMoney').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').AsFloat*-1; + FieldByName('FactoryNo').Value:=ClientDataSet4.fieldbyname('ZZPerson').Value; + FieldByName('FactoryName').Value:=ClientDataSet4.fieldbyname('ZZPerson').Value; + end else + if FJSType='ι' then + begin + FieldByName('JSQty').Value:=-1; + FieldByName('JSPrice').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').Value; + FieldByName('JSMoney').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').AsFloat*-1; + FieldByName('FactoryNo').Value:=ClientDataSet4.fieldbyname('ZZFactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet4.fieldbyname('ZZFactoryName').Value; + end; + Post; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_JS where JSID='''+Trim(FJSID)+''''); + ExecSQL; + end; + end; + Result:=True; + +end; +function TfrmCWMDOtherFeeList.UPdateDataKK():Boolean; +var + maxno,maxjsno,maxkkno:string; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + //뵥״̬ + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CWStatusDate=getdate(), CWStatusFiller='''+Trim(DName)+''''); + // sql.Add(',CWStatusNote='''+Trim(ClientDataSet3.fieldbyname('CWStatusNote').AsString)+''''); + if ComboBox1.ItemIndex=0 then + begin + sql.Add(',CWStatus='''' '); + end else + begin + sql.Add(',CWStatus='''+Trim(ComboBox1.Text)+''''); + end; + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + //뵥״̬ + //д + with ClientDataSet4 do + begin + First; + while not Eof do + begin + if ClientDataSet4.FieldByName('ZZFtyMoney').Value>0 then + begin + JSTJMDData('ι'); + end; + if ClientDataSet4.FieldByName('ZZPonMoney').Value>0 then + begin + JSTJMDData(''); + end; + Next; + end; + end; + //д + //Ӧ + if ComboBox1.ItemIndex=1 then //1 Ӧ ɾɵӦ + begin + //Ӧ + if ClientDataSet4.IsEmpty then Exit; + with ClientDataSet4 do + begin + First; + while not Eof do + begin + if ClientDataSet4.FieldByName('ZZFtyMoney').Value>0 then + begin + if YFData(Trim(ClientDataSet4.fieldbyname('KKID').AsString), + Trim(ClientDataSet4.fieldbyname('ZZFactoryNo').AsString), + Trim(ClientDataSet4.fieldbyname('ZZFactoryName').AsString), + 'ι')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet4.FieldByName('ZZPonMoney').Value>0 then + begin + if YFData(Trim(ClientDataSet4.fieldbyname('KKID').AsString), + Trim(ClientDataSet4.fieldbyname('ZZPerson').AsString), + Trim(ClientDataSet4.fieldbyname('ZZPerson').AsString), + '')=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update JYOrder_Main_MD_KK Set CWHX=1,CWHXDate=getdate(),CWHXPerson='''+Trim(DName)+''''); + sql.Add(' where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + end else + begin + //ɾӦ + with ClientDataSet4 do + begin + First; + while not Eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFTypeID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + sql.Add(' and KFType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFTypeID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + sql.Add(' and YFTYpe=''Զ'' '); + sql.Add(' and KFType=''ι'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if DelYFData(ADOQueryTemp.fieldbyname('CRID').AsString)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾӦʧ!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update JYOrder_Main_MD_KK Set CWHX=0,CWHXDate=Null,CWHXPerson='''''); + sql.Add(' where KKID='''+Trim(ClientDataSet4.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + + + end; + //Ӧ + + //±״̬ + if cxTabControl1.TabIndex<>ComboBox1.ItemIndex then + begin + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Edit; + ClientDataSet3.FieldByName('SSel').Value:=False; + ClientDataSet3.Post; + end; + //±״̬ + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmCWMDOtherFeeList.YFHZData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''); + sql.Add(' and CRTime='''+Trim(ClientDataSet3.fieldbyname('MDDate').AsString)+''''); + SQL.Add(' and Price='+Trim(ClientDataSet3.fieldbyname('JSPrice').AsString)); + sql.Add(' and KFType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet3.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + //FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + //FieldByName('PS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('Price').Value; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString)+''; + FieldByName('PSName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString); + FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_JS Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MDID='''+Trim(YFTYpeId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set '); + sql.Add(' PS=(select isnull(Sum(JSPS),0) from JYOrder_Main_MD_JS A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' ,Qty=(select isnull(Sum(JSQty),0) from JYOrder_Main_MD_JS A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmCWMDOtherFeeList.YFData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and YFTypeId='''+Trim(YFTYpeId)+''''); + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add(' and isnull(KFType,'''')='''+Trim(KFType)+''''); + end; + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if cxPageControl1.ActivePageIndex=0 then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end else + if cxPageControl1.ActivePageIndex=1 then + begin + if GetLSNo(ADOQueryCmd,YFID,'KK','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡڲֿ뵥Ӧʧ!','ʾ',0); + Exit; + end; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(YFTYpeId); + FieldByName('MainId').Value:=Trim(ClientDataSet3.fieldbyname('OrdMainId').AsString); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + if cxPageControl1.ActivePageIndex=0 then + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('MDDate').Value + else + FieldByName('CRTime').Value:=ClientDataSet4.fieldbyname('KKDate').Value; + if cxPageControl1.ActivePageIndex=0 then + begin + FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + FieldByName('PS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('Price').Value:=ClientDataSet3.fieldbyname('Price').Value; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + end else + begin + FieldByName('Qty').Value:=1; + if Trim(KFType)='ι' then + FieldByName('Price').Value:=ClientDataSet4.fieldbyname('ZZFtyMoney').Value*-1 + else + FieldByName('Price').Value:=ClientDataSet4.fieldbyname('ZZPonMoney').Value*-1; + end; + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + FieldByName('YFName').Value:=Trim(ClientDataSet3.fieldbyname('PSName').AsString)+''; + end else + begin + FieldByName('YFName').Value:='۷'; + FieldByName('KFType').Value:=Trim(KFType); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + if cxPageControl1.ActivePageIndex=1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYorder_Main_MD_JS Set YFID='''+Trim(YFID)+''''); + sql.Add(' where KKID='''+Trim(YFTYpeId)+''''); + sql.Add(' and FactoryNo='''+Trim(CWFactoryNo)+''''); + ExecSQL; + end; + end; + + Result:=True; +end; +function TfrmCWMDOtherFeeList.YFOtherFeeData(YFTYpeId,CWFactoryNo,CWFactoryName,KFType:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and YFTypeId='''+Trim(YFTYpeId)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'OF','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(YFTYpeId); + FieldByName('MainId').Value:=Trim(ClientDataSet7.fieldbyname('MainId').AsString); + FieldByName('JFID').Value:=Trim(ClientDataSet7.fieldbyname('JFID').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet7.fieldbyname('JFDate').Value; + FieldByName('Qty').Value:=ClientDataSet7.fieldbyname('JFQty').Value; + //FieldByName('PS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('Price').Value:=ClientDataSet7.fieldbyname('JFPrice').Value; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet7.fieldbyname('JFQtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet7.fieldbyname('JFName').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_JS Set YFID='''+Trim(YFID)+''''); + sql.Add(' where JFID='''+Trim(YFTYpeId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update '); + ExecSQL; + end;} + Result:=True; +end; +function TfrmCWMDOtherFeeList.DelYFHZData(CRID:String):Boolean; +begin + Result:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+Trim(CRID)); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where not exists(select * from JYOrder_Main_MD_JS A where '); + sql.Add(' A.YFID=YF_Money_CR.YFID and YF_Money_CR.YFType=''Զ'' )'); + sql.Add(' and YFType=''Զ'' '); + ExecSQL; + end; + Result:=True; +end; +function TfrmCWMDOtherFeeList.DelYFData(CRID:String):Boolean; +begin + Result:=False; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MDId='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + sql.Add(' and YFType=''Զ'' '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+Trim(CRID)); + ExecSQL; + end; + Result:=True; +end; + +procedure TfrmCWMDOtherFeeList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')=''Э'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet4); + SInitCDSData20(ADOQuery1,ClientDataSet4); +end; + +procedure TfrmCWMDOtherFeeList.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='˹'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmCWMDOtherFeeList.v3Column19PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty:string; +begin + FName:=Trim(Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FPrice:=Trim(ClientDataSet3.fieldbyname('JSPrice').AsString); + FQty:=Trim(ClientDataSet3.fieldbyname('JSQty').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FName)<>'JSMoney' then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('JSMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + Post; + end; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('JSMoney').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmCWMDOtherFeeList.N1Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,True); +end; + +procedure TfrmCWMDOtherFeeList.N2Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,False); +end; + +procedure TfrmCWMDOtherFeeList.N3Click(Sender: TObject); +begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while ClientDataSet3.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('JSPS').Value:=FieldByName('PS').Value; + FieldByName('JSQty').Value:=FieldByName('Qty').Value; + FieldByName('JSPrice').Value:=FieldByName('Price').Value; + FieldByName('JSMoney').Value:=FieldByName('Money').Value; + FieldByName('SSel').Value:=False; + Post; + end; + end; + ClientDataSet3.EnableControls; +end; + +procedure TfrmCWMDOtherFeeList.Tv1DblClick(Sender: TObject); +var + fsj:string; +begin + try + frmTJCKRKOK:=TfrmTJCKRKOK.Create(Application); + with frmTJCKRKOK do + begin + + if Trim(Self.ClientDataSet3.fieldbyname('Status').AsString)='Э' then + frmTJCKRKOK.cxTabControl1.TabIndex:=2 + else + if Trim(Self.ClientDataSet3.fieldbyname('Status').AsString)='' then + frmTJCKRKOK.cxTabControl1.TabIndex:=3; + //frmTJCKRKOK.OrderNo.Text:=Trim(self.ClientDataSet3.fieldbyname('OrderNo').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.MDID='''+Trim(Self.ClientDataSet3.fieldbyname('MDID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.Status,'''')=''Э'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_Main_MD where ORDMainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(frmTJCKRKOK.ADOQueryTemp,frmTJCKRKOK.v2fty,fsj,1,True,''); + with frmTJCKRKOK.ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCSHDataNew(frmTJCKRKOK.ADOQuery1,frmTJCKRKOK.ScrollBox1,2); + frmTJCKRKOK.InitGridKK(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ShowModal=1 then + begin + + end; + end; + finally + frmTJCKRKOK.Free; + end; +end; + +procedure TfrmCWMDOtherFeeList.orderNoChange(Sender: TObject); +var + fsj:string; +begin + if cxPageControl1.ActivePageIndex<>2 then + begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + end else + begin + if ADOQuery2.Active=False then Exit; + if Trim(orderNo.Text)<>'' then + begin + fsj:=' orderno like '''+'%'+Trim(orderNo.Text)+'%'+''''; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and MDFactoryName like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + end else + begin + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=' MDFactoryName like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + end; + SDofilter(ADOQuery2,fsj); + SCreateCDS20(ADOQuery2,ClientDataSet7); + SInitCDSData20(ADOQuery2,ClientDataSet7); + end; + +end; + +procedure TfrmCWMDOtherFeeList.MenuItem1Click(Sender: TObject); +begin + SelOKNo(ClientDataSet7,True); +end; + +procedure TfrmCWMDOtherFeeList.MenuItem2Click(Sender: TObject); +begin + SelOKNo(ClientDataSet7,False); +end; + +procedure TfrmCWMDOtherFeeList.MenuItem3Click(Sender: TObject); +begin + ClientDataSet7.DisableControls; + with ClientDataSet7 do + begin + while ClientDataSet7.Locate('SSel',True,[])=True do + begin + Edit; + //FieldByName('JSPS').Value:=FieldByName('PS').Value; + FieldByName('JSQty').Value:=FieldByName('JFQty').Value; + FieldByName('JSPrice').Value:=FieldByName('JFPrice').Value; + FieldByName('JSMoney').Value:=FieldByName('JFMoney').Value; + FieldByName('SSel').Value:=False; + Post; + end; + end; + ClientDataSet7.EnableControls; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.dfm b/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.dfm new file mode 100644 index 0000000..a8e2444 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.dfm @@ -0,0 +1,840 @@ +object frmCbJdLr: TfrmCbJdLr + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #25104#26412#36827#24230#21033#28070#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #33258#21160#29983#25104 + ImageIndex = 31 + OnClick = ToolButton4Click + end + object TBADD: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 57 + Visible = False + OnClick = TBADDClick + end + object TBDel: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 113 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #23436#25104 + ImageIndex = 75 + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 52 + OnClick = TnochkClick + end + object ToolButton3: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 134 + Width = 1366 + Height = 582 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_PBMDDJ.Default + object v2ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn1: TcxGridDBColumn + Tag = 1 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v2Note: TcxGridDBColumn + Tag = 1 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2NotePropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Tag = 1 + Caption = #30333#22383#32534#21495 + DataBinding.FieldName = 'BpCode' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column2: TcxGridDBColumn + Tag = 1 + Caption = #30333#22383#21305#25968 + DataBinding.FieldName = 'BpPs' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column27: TcxGridDBColumn + Caption = #30333#22383#25968#37327 + DataBinding.FieldName = 'BpQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column26: TcxGridDBColumn + Caption = #30333#22383#21333#20301 + DataBinding.FieldName = 'BpUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2C_CodeName: TcxGridDBColumn + Tag = 1 + Caption = #21333#20215 + DataBinding.FieldName = 'BpPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v2Column4: TcxGridDBColumn + Tag = 1 + Caption = #30333#22383#37329#39069 + DataBinding.FieldName = 'BpMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v2Column28: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'spid' + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 61 + end + object v2Column9: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'RanChang' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column9PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 86 + end + object v2Column25: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangHao' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 86 + end + object v2Column7: TcxGridDBColumn + Tag = 1 + Caption = #21697#21517 + DataBinding.FieldName = 'CpName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 86 + end + object v2Column15: TcxGridDBColumn + Tag = 1 + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'CpRkPs' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 66 + end + object v2Column14: TcxGridDBColumn + Tag = 1 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'CpRkQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 76 + end + object v2Column3: TcxGridDBColumn + Tag = 1 + Caption = #39068#33394 + DataBinding.FieldName = 'CpColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 53 + end + object v2Column6: TcxGridDBColumn + Tag = 1 + Caption = #20811#37325 + DataBinding.FieldName = 'CpKz' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 66 + end + object v2Column8: TcxGridDBColumn + Tag = 2 + Caption = #26579#36153#21333#20215 + DataBinding.FieldName = 'CpYrPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column10: TcxGridDBColumn + Tag = 2 + Caption = #21253#35013#36153 + DataBinding.FieldName = 'CpBzCost' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column21: TcxGridDBColumn + Tag = 2 + Caption = #20914#36134 + DataBinding.FieldName = 'ChongZhang' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column22: TcxGridDBColumn + Tag = 2 + Caption = #26579#36153#37329#39069 + DataBinding.FieldName = 'CpYrMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column18: TcxGridDBColumn + Caption = #25104#26412#21512#35745 + DataBinding.FieldName = 'CbHjCost' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v2Column23: TcxGridDBColumn + Tag = 2 + Caption = #38144#21806#23458#25143 + DataBinding.FieldName = 'CustomerName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2Column20: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'CpCkPs' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column1: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'Filltime' + PropertiesClassName = 'TcxDateEditProperties' + Visible = False + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 79 + end + object v2Column11: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + Visible = False + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v2Column12: TcxGridDBColumn + Caption = #23436#25104#20154 + DataBinding.FieldName = 'Chker' + Visible = False + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v2Column13: TcxGridDBColumn + Caption = #23436#25104#26102#38388 + DataBinding.FieldName = 'Chktime' + PropertiesClassName = 'TcxDateEditProperties' + Visible = False + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v2Column16: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CpCkQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + end + object v2Column17: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'CpCkPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + end + object v2Column19: TcxGridDBColumn + Caption = #27611#21033#28070 + DataBinding.FieldName = 'Lr' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = cxStyle3 + Width = 89 + end + object v2Column24: TcxGridDBColumn + Caption = #27599#21305#27611#21033#28070 + DataBinding.FieldName = 'MpLr' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = cxStyle3 + Width = 97 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 112 + Width = 1366 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1366 + ClientRectTop = 19 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1366 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label3: TLabel + Left = 187 + Top = 17 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label2: TLabel + Left = 22 + Top = 17 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 59 + Top = 44 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 44 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label1: TLabel + Left = 332 + Top = 44 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label7: TLabel + Left = 356 + Top = 17 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label8: TLabel + Left = 510 + Top = 17 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label9: TLabel + Left = 658 + Top = 17 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label4: TLabel + Left = 511 + Top = 42 + Width = 24 + Height = 12 + Caption = #26579#21378 + end + object Label10: TLabel + Left = 658 + Top = 40 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 791 + Top = 17 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object CustomerName: TEdit + Tag = 2 + Left = 214 + Top = 13 + Width = 90 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 0 + end + object begdate: TDateTimePicker + Left = 72 + Top = 13 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 71 + Top = 40 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 2 + end + object FactoryName: TEdit + Tag = 2 + Left = 214 + Top = 40 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 3 + end + object BpPs: TEdit + Tag = 2 + Left = 380 + Top = 40 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 4 + end + object CpName: TEdit + Tag = 2 + Left = 381 + Top = 13 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 5 + end + object CpColor: TEdit + Tag = 2 + Left = 540 + Top = 13 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 6 + end + object CpKz: TEdit + Tag = 2 + Left = 688 + Top = 13 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 7 + end + object RanChang: TEdit + Tag = 2 + Left = 541 + Top = 38 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 8 + end + object GangHao: TEdit + Tag = 2 + Left = 688 + Top = 36 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 9 + end + object Edit1: TEdit + Tag = 2 + Left = 844 + Top = 13 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 10 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 304 + Top = 227 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 265 + Top = 231 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 227 + Top = 228 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 658 + Top = 257 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 403 + Top = 252 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 491 + Top = 254 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 277 + Top = 285 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 445 + Top = 250 + end + object PopupMenu1: TPopupMenu + Left = 231 + Top = 288 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 256 + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 724 + Top = 256 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 752 + Top = 256 + end + object cxStyleRepository1: TcxStyleRepository + Left = 722 + Top = 3 + object cxStyle1: TcxStyle + AssignedValues = [svTextColor] + TextColor = clMenuHighlight + end + end + object cxStyleRepository2: TcxStyleRepository + Left = 795 + Top = 4 + object cxStyle2: TcxStyle + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 755 + object cxStyle3: TcxStyle + AssignedValues = [svTextColor] + TextColor = clRed + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.pas b/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.pas new file mode 100644 index 0000000..86a2811 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.pas @@ -0,0 +1,896 @@ +unit U_CbJdLr; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, + cxButtonEdit, cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, + RM_e_Xls; + +type + TfrmCbJdLr = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + TBADD: TToolButton; + v2Note: TcxGridDBColumn; + v2C_CodeName: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2ssel: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + Tnochk: TToolButton; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Panel1: TPanel; + Label3: TLabel; + Label2: TLabel; + Label6: TLabel; + Label5: TLabel; + CustomerName: TEdit; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + FactoryName: TEdit; + CDS_PRT: TClientDataSet; + RMXLSExport2: TRMXLSExport; + RMDBMain: TRMDBDataSet; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + ToolButton3: TToolButton; + v2Column21: TcxGridDBColumn; + v2Column22: TcxGridDBColumn; + v2Column23: TcxGridDBColumn; + v2Column20: TcxGridDBColumn; + ToolButton4: TToolButton; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + v2Column16: TcxGridDBColumn; + v2Column17: TcxGridDBColumn; + v2Column18: TcxGridDBColumn; + v2Column19: TcxGridDBColumn; + v2Column24: TcxGridDBColumn; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + Label1: TLabel; + BpPs: TEdit; + Label7: TLabel; + CpName: TEdit; + Label8: TLabel; + CpColor: TEdit; + Label9: TLabel; + CpKz: TEdit; + Label4: TLabel; + RanChang: TEdit; + v2Column9: TcxGridDBColumn; + v2Column25: TcxGridDBColumn; + v2Column26: TcxGridDBColumn; + v2Column27: TcxGridDBColumn; + Label10: TLabel; + GangHao: TEdit; + v2Column28: TcxGridDBColumn; + Label11: TLabel; + Edit1: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure TBADDClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure v2Column5PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2NotePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + + procedure InitGrid(); + function SaveData():Boolean; + procedure SetStatus(); + procedure setGrid(); + public + fFlag:integer; + { Public declarations } + RKFlag,FCYID,fmanage:String; + canshu1:string; + end; + +var + frmCbJdLr: TfrmCbJdLr; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, + U_ZdyAttachGYS, U_ProductOrderListSel, U_ProductOrderNewList, + U_ZdyAttachment,U_DJBRKListSel; + +{$R *.dfm} +procedure TfrmCbJdLr.setGrid(); +var + i:Integer; +begin + try + + case cxTabControl1.TabIndex of + 0:begin + for i:=0 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; +// if uppercase(tv2.Columns[i].DataBinding.FieldName)<>'SSEL' then +// begin +// if Trim(canshu1)='Ȩ' then +// begin +// tv2.Columns[i].Options.Editing:=true; +// end +// else +// begin +// if tv2.Columns[i].Tag=1 then tv2.Columns[i].Options.Editing:=true; +// if tv2.Columns[i].Tag=2 then tv2.Columns[i].Options.Editing:=false; +// end; +// end; + end; + end; + 1:begin + for i:=0 to tv2.ColumnCount-1 do + begin + IF uppercase(tv2.Columns[i].DataBinding.FieldName)<>'SSEL' then + tv2.Columns[i].Options.Editing:=false; + end; + end; + 2:begin + for i:=0 to tv2.ColumnCount-1 do + begin + IF uppercase(tv2.Columns[i].DataBinding.FieldName)<>'SSEL' then + tv2.Columns[i].Options.Editing:=false; + end; + end; + end; + except + + end +end; +procedure TfrmCbJdLr.SetStatus(); +var + i:integer; +begin + Tchk.Visible:=false; + TNochk.Visible:=false; + TBDel.Visible:=false; + IF canshu1='Ȩ' then + begin + case cxTabControl1.TabIndex of + 0:begin + Tchk.Visible:=true; + TBDel.Visible:=true; + end; + 1:begin + TNochk.Visible:=true; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + TBDel.Visible:=true; + end; + 1:begin + + end; + end; + end; +end; + +procedure TfrmCbJdLr.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + Filtered:=False; + sql.Add(' select * from CbJdLr A '); + sql.Add('where A.Filltime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(' and A.Filltime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' '); + IF cxTabControl1.TabIndex<2 then + sql.Add(' and ISNULL(A.status,0)='''+inttostr(cxTabControl1.TabIndex)+''' '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; + +procedure TfrmCbJdLr.FormDestroy(Sender: TObject); +begin + frmCbJdLr:=nil; +end; + +procedure TfrmCbJdLr.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCbJdLr.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(Trim(Self.Caption),Tv2,'ʱ'); + Close; +end; +procedure TfrmCbJdLr.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + IF fieldbyname('Filler').AsString<>Trim(DName) then + begin + EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˵ݲɾ!','ʾ',0); + exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete CbJdLr where CBID='''+Trim(CDS_HZ.fieldbyname('CBID').AsString)+''''); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCbJdLr.FormShow(Sender: TObject); +begin + ReadCxGrid(Trim(Self.Caption),Tv2,'ʱ'); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-30; + SetStatus(); + InitGrid(); +end; + +procedure TfrmCbJdLr.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCbJdLr.ToolButton2Click(Sender: TObject); +var + sql:string; +begin + if ADOQueryMain.Active then + begin + sql:=SGetFilters(Panel1,1,2); + SDofilter(ADOQueryMain,sql); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +function TfrmCbJdLr.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'CB','CbJdLr',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CbJdLr where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CBID').Value:=Trim(maxId); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('Filltime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('crtime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('status').Value:='0'; + Post; + end; + with Self.CDS_HZ do + begin + Append; + FieldByName('CBID').Value:=Trim(maxId); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('Filltime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('crtime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmCbJdLr.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin +// mvalue:=TcxTextEdit(Sender).EditingText; + mvalue:=Trim(FormatDateTime('yyyy-MM-dd',TcxDateEdit(Sender).Date)); + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CbJdLr '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where CBID='''+Trim(CDS_HZ.fieldbyname('CBID').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCbJdLr.TBADDClick(Sender: TObject); +begin + Self.SaveData(); + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCbJdLr.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'ֿ⿼'); +end; + +procedure TfrmCbJdLr.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid; +end; + +procedure TfrmCbJdLr.TchkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CbJdLr SET status=''1'' '); + sql.Add(' ,Chker='''+Trim(DName)+''''); + sql.Add(' ,Chktime='''+formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))+''''); + sql.Add(' where CBID ='+quotedstr(trim(CDS_HZ.fieldbyname('CBID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCbJdLr.TnochkClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + + if CDS_HZ.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_HZ do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CbJdLr SET status=''0'' ,Chker=null,Chktime=null'); + sql.Add('where CBID ='+quotedstr(trim(CDS_HZ.fieldbyname('CBID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCbJdLr.N1Click(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + with CDS_HZ do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=true; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmCbJdLr.N2Click(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + with CDS_HZ do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=false; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmCbJdLr.Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + setGrid(); +end; + +procedure TfrmCbJdLr.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + mvalue,FFieldName,FCaption:string; + FWZ:Integer; +begin + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + FCaption:=Trim( Tv2.Controller.FocusedColumn.Caption); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=FFieldName+'1'; + flagname:=FCaption; + if ShowModal=1 then + begin + mvalue:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CbJdLr '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where CBID='''+Trim(CDS_HZ.fieldbyname('CBID').AsString)+''''); + ExecSQL; + end; + + end; + end; + finally + tv2.Controller.EditingController.ShowEdit(); + frmZDYHelp.Free; + end; + +end; + +procedure TfrmCbJdLr.ToolButton3Click(Sender: TObject); +var + fPrintFile,FConNoM:string; +begin + if CDS_HZ.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒ.rmf' ; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CbJdLr A '); + sql.Add('where A.CBID='''+Trim(CDS_HZ.fieldbyname('CBID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û'+trim(fPrintFile)),'ʾ',0); + end; + +end; + +procedure TfrmCbJdLr.FormCreate(Sender: TObject); +begin + canshu1:=trim(DParameters1); +end; + +procedure TfrmCbJdLr.v2Column5PropertiesEditValueChanged(Sender: TObject); + var + mvalue,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CbJdLr '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where CBID='''+Trim(CDS_HZ.fieldbyname('CBID').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCbJdLr.ToolButton4Click(Sender: TObject); +var + maxId:string; +begin + try + frmDJBRKListSel:=TfrmDJBRKListSel.Create(Application); + with frmDJBRKListSel do + begin + if ShowModal=1 then + begin + try + self.ADOQueryCmd.Connection.BeginTrans; + with frmDJBRKListSel.CDS_Main do + begin + while CDS_Main.Locate('SSel',true,[]) do + begin + if GetLSNo(self.ADOQueryCmd,maxId,'Cb','CbJdLr',4,1)=False then + begin + self.ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with self.ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CbJdLr where 1<>1'); + Open; + end; + with self.ADOQueryCmd do + begin + Append; + FieldByName('CbID').Value:=Trim(maxId); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('Filltime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('CRTime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('status').Value:='0'; + FieldByName('SPID').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPID').AsString; + FieldByName('RanChang').Value:=frmDJBRKListSel.CDS_Main.FieldByName('FactoryName').AsString; + FieldByName('GangHao').Value:=frmDJBRKListSel.CDS_Main.FieldByName('RCGangNo').AsString; + FieldByName('CpName').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPName').AsString; + FieldByName('CpRkPs').Value:=frmDJBRKListSel.CDS_Main.FieldByName('PiQty').asinteger; + FieldByName('CpRkQty').Value:=frmDJBRKListSel.CDS_Main.FieldByName('Qty').asfloat; + FieldByName('CpRkUnit').Value:=frmDJBRKListSel.CDS_Main.FieldByName('QtyUnit').AsString; + FieldByName('CpColor').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPColor').AsString; + FieldByName('CpKz').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPKZ').AsString; + FieldByName('BPPS').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPPS').AsString; + FieldByName('BPQty').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPQty').AsString; + FieldByName('BPUnit').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPUnit').AsString; + Post; + end; + with Self.CDS_HZ do + begin + Append; + FieldByName('CbID').Value:=Trim(maxId); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('SPID').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPID').AsString; + FieldByName('RanChang').Value:=frmDJBRKListSel.CDS_Main.FieldByName('FactoryName').AsString; + FieldByName('GangHao').Value:=frmDJBRKListSel.CDS_Main.FieldByName('RCGangNo').AsString; + FieldByName('Filltime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('CRtime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('CpName').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPName').AsString; + FieldByName('CpRkPs').Value:=frmDJBRKListSel.CDS_Main.FieldByName('PiQty').asinteger; + FieldByName('CpRkQty').Value:=frmDJBRKListSel.CDS_Main.FieldByName('Qty').asfloat; + FieldByName('CpRkUnit').Value:=frmDJBRKListSel.CDS_Main.FieldByName('QtyUnit').AsString; + FieldByName('CpColor').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPColor').AsString; + FieldByName('CpKz').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPKZ').AsString; + FieldByName('BPPS').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPPS').AsString; + FieldByName('BPQty').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPQty').AsString; + FieldByName('BPUnit').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPUnit').AsString; + Post; + end; + delete; + end; + end; + self.ADOQueryCmd.Connection.CommitTrans; + except + self.ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; + end; + end; + finally + frmDJBRKListSel.Free; + end; +end; + +procedure TfrmCbJdLr.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; + FBpQty,FCpCkPs:integer; + FBpPrice,FBpMoney,FCpYrPrice,FCpRkQty,FCpYrMoney,FCbHjCost,FCpCkQty,FCpCkPrice,FCpCkMoney,FLr,FMpLr:double; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with CDS_HZ do + begin + FBpQty:=FieldByName('BpQty').AsInteger; + FBpPrice:=FieldByName('BpPrice').AsFloat; + FCpRkQty:=FieldByName('CpRkQty').AsFloat; + FCpYrPrice:=FieldByName('CpYrPrice').AsFloat; + FCpCkQty:=FieldByName('CpCkQty').AsFloat; + FCpCkPrice:=FieldByName('CpCkPrice').AsFloat; + FCpCkPs:=FieldByName('CpCkPs').AsInteger; + end; + FBpMoney:=FBpQty*FBpPrice; + FCpYrMoney:=FCpRkQty*FCpYrPrice; + FCbHjCost:=FBpMoney+FCpYrMoney; + FCpCkMoney:=FCpCkQty*FCpCkPrice; + FLr:=FCpCkMoney-FCbHjCost; + if FCpCkPs<>0 then FMpLr:=FLr/FCpCkPs; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CbJdLr '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + sql.Add(' , BpMoney='+quotedstr(floattostr(FBpMoney))); + sql.Add(' , CpYrMoney='+quotedstr(floattostr(FCpYrMoney))); + sql.Add(' , CbHjCost='+quotedstr(floattostr(FCbHjCost))); + sql.Add(' , Lr='+quotedstr(floattostr(FLr))); + sql.Add(' , MpLr='+quotedstr(floattostr(FMpLr))); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where cbID='''+Trim(CDS_HZ.fieldbyname('cbID').AsString)+''''); + ExecSQL; + end; + with CDS_HZ do + begin + Edit; + FieldByName('BpMoney').Value:=FBpMoney; + FieldByName('CpYrMoney').Value:=FCpYrMoney; + FieldByName('CbHjCost').Value:=FCbHjCost; + FieldByName('Lr').Value:=FLr; + FieldByName('MpLr').Value:=FMpLr; + + Post; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCbJdLr.v2NotePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + edit; +// FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmCbJdLr.v2Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + edit; +// FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('RanChang').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.dfm new file mode 100644 index 0000000..b7c9e2c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.dfm @@ -0,0 +1,645 @@ +object frmClothContractInPutHZ: TfrmClothContractInPutHZ + Left = 198 + Top = 90 + Width = 831 + Height = 622 + Caption = #32433#32447#21152#24037#21512#21516#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 815 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 815 + Height = 220 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 290 + Top = 46 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 511 + Top = 222 + Width = 67 + Height = 12 + Caption = #20379' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label2: TLabel + Left = 552 + Top = 14 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 290 + Top = 14 + Width = 67 + Height = 12 + Caption = #38656' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 24 + Top = 46 + Width = 65 + Height = 12 + Caption = #31614#35746#22320#28857#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 552 + Top = 42 + Width = 65 + Height = 12 + Caption = #20132#36135#22320#28857#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 24 + Top = 68 + Width = 65 + Height = 36 + Caption = #20379#36135#36136#37327#13#10' '#21450#13#10#25216#26415#26631#20934#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 552 + Top = 68 + Width = 65 + Height = 36 + Caption = #36816#36755#26041#24335#13#10' '#21450#13#10#36153#29992#25215#25285#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 24 + Top = 118 + Width = 65 + Height = 12 + Caption = #21253#35013#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 290 + Top = 80 + Width = 65 + Height = 12 + Caption = #32467#31639#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 24 + Top = 154 + Width = 195 + Height = 12 + Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 24 + Top = 190 + Width = 91 + Height = 12 + Caption = #20854#23427#32422#23450#20107#39033#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 11 + Width = 180 + Height = 18 + TabOrder = 0 + OnKeyPress = ConNoKeyPress + end + object DeliveryDate: TDateTimePicker + Left = 353 + Top = 42 + Width = 177 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object FactoryNoName: TcxButtonEdit + Tag = 77 + Left = 575 + Top = 218 + Hint = 'FactoryNo' + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + TabOrder = 2 + Visible = False + OnKeyDown = PRTCodeNameKeyDown + Width = 162 + end + object PanZDY: TPanel + Left = 841 + Top = 128 + Width = 202 + Height = 153 + TabOrder = 3 + Visible = False + object CXGridZDY: TcxGrid + Left = 3 + Top = 4 + Width = 197 + Height = 113 + TabOrder = 0 + object TVZDY: TcxGridDBTableView + OnKeyPress = TVZDYKeyPress + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TVZDYCellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object VHelpZDYName: TcxGridDBColumn + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.handBlack + Width = 163 + IsCaptionAssigned = True + end + end + object CXGridZDYLevel1: TcxGridLevel + GridView = TVZDY + end + end + object Button1: TButton + Left = 64 + Top = 120 + Width = 65 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button1Click + end + end + object QDTime: TDateTimePicker + Left = 614 + Top = 10 + Width = 162 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object CompanyName: TcxButtonEdit + Left = 353 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + TabOrder = 5 + OnKeyDown = PRTCodeNameKeyDown + Width = 177 + end + object QDPalce: TEdit + Left = 86 + Top = 43 + Width = 179 + Height = 18 + TabOrder = 6 + end + object JHPlace: TcxButtonEdit + Left = 614 + Top = 38 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + TabOrder = 7 + Width = 162 + end + object ConTK1: TcxButtonEdit + Left = 86 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK1PropertiesButtonClick + TabOrder = 8 + Width = 183 + end + object ConTk2: TcxButtonEdit + Left = 614 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk2PropertiesButtonClick + TabOrder = 9 + Width = 162 + end + object ConTK3: TcxButtonEdit + Left = 86 + Top = 114 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK3PropertiesButtonClick + TabOrder = 10 + Width = 691 + end + object ConTK4: TcxButtonEdit + Left = 353 + Top = 76 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK4PropertiesButtonClick + TabOrder = 11 + Width = 177 + end + object ConTK5: TcxButtonEdit + Left = 216 + Top = 150 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTK5PropertiesButtonClick + TabOrder = 12 + Width = 563 + end + object ConTk6: TcxButtonEdit + Left = 110 + Top = 186 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ConTk6PropertiesButtonClick + TabOrder = 13 + Width = 669 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 249 + Width = 815 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 278 + Width = 815 + Height = 305 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column3: TcxGridDBColumn + Tag = 1 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryNoName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 117 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 100 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 103 + end + object v1Price: TcxGridDBColumn + Caption = #21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object v1ClothQty: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 384 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 456 + Top = 5 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.pas new file mode 100644 index 0000000..9e85ac8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.pas @@ -0,0 +1,878 @@ +unit U_ClothContractInPutHZ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit; + +type + TfrmClothContractInPutHZ = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DeliveryDate: TDateTimePicker; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1ClothQty: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + FactoryNoName: TcxButtonEdit; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + PanZDY: TPanel; + CXGridZDY: TcxGrid; + TVZDY: TcxGridDBTableView; + VHelpZDYName: TcxGridDBColumn; + CXGridZDYLevel1: TcxGridLevel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + CompanyName: TcxButtonEdit; + Label6: TLabel; + QDPalce: TEdit; + Label8: TLabel; + JHPlace: TcxButtonEdit; + Label7: TLabel; + ConTK1: TcxButtonEdit; + Label9: TLabel; + ConTk2: TcxButtonEdit; + Label10: TLabel; + ConTK3: TcxButtonEdit; + Label11: TLabel; + ConTK4: TcxButtonEdit; + Label12: TLabel; + ConTK5: TcxButtonEdit; + Label13: TLabel; + ConTk6: TcxButtonEdit; + v1Column3: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure TVZDYKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure JHPlacePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTK5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConTk2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,CPFlag,CPFlagName,FactoryFlag,FConType:String; + { Public declarations } + end; + +var + frmClothContractInPutHZ: TfrmClothContractInPutHZ; + +implementation +uses + U_DataLink,U_RTZDYHelp,U_RTFun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractInPutHZ.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPutHZ.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHData(ADOQuery1,ScrollBox1,0); + if PState=0 then + begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1* from ContractHZ_Main where ConType='''+Trim(FConType)+'''order by FillTime desc '); + Open; + end; + ConTK1.Text:=Trim(ADOTemp.fieldbyname('ConTK1').AsString); + ConTK2.Text:=Trim(ADOTemp.fieldbyname('ConTK2').AsString); + ConTK3.Text:=Trim(ADOTemp.fieldbyname('ConTK3').AsString); + ConTK4.Text:=Trim(ADOTemp.fieldbyname('ConTK4').AsString); + ConTK5.Text:=Trim(ADOTemp.fieldbyname('ConTK5').AsString); + ConTK6.Text:=Trim(ADOTemp.fieldbyname('ConTK6').AsString); + QDTime.DateTime:=SGetServerDate(ADOTemp); + DeliveryDate.DateTime:=SGetServerDate(ADOTemp); + QDTime.Checked:=True; + DeliveryDate.Checked:=False; + + QDPalce.Text:=''; + end; + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutHZ.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + PanZDY.Visible:=True; + PanZDY.Left:=FButn.Left; + PanZDY.Top:=FButn.Top+FButn.Height; + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); + VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name); +end; + +procedure TfrmClothContractInPutHZ.TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + FName:string; +begin + if ADOZDY.IsEmpty then Exit; + FName:=Trim(VHelpZDYName.Summary.GroupFormat); + TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutHZ.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPutHZ.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPutHZ.TVZDYKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if ADOZDY.IsEmpty then Exit; + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString); + TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString); + PanZDY.Visible:=False; + ADOZDY.Active:=False; + end; +end; + +procedure TfrmClothContractInPutHZ.FormShow(Sender: TObject); +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +function TfrmClothContractInPutHZ.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'HM','ContractHZ_Main',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from ContractHZ_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSql(ADOCmd,'ContractSX_Main',ScrollBox1,0); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FactoryNoName').Value:=Trim(Order_Sub.fieldbyname('FactoryNoName').AsString); + FieldByName('ConType').Value:=Trim(FConType); + Post; + end; + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'HS','ContractHZ_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from ContractHZ_Sub where MainId='''+Trim(maxno)+''''); + sql.Add(' and SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractHZ_Sub',0); + if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then + begin + FieldByName('C_Qty').Value:=0; + end; + if Trim(Order_Sub.fieldbyname('Price').AsString)='' then + begin + FieldByName('Price').Value:=0; + end; + FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutHZ.TBSaveClick(Sender: TObject); +begin + DeliveryDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryNoName',null,[]) then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmClothContractInPutHZ.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmClothContractInPutHZ.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѵɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutHZ.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Trim(CPFlag); + flagname:=Trim(CPFlagName); + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutHZ.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.JHPlacePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JHPlace'; + flagname:='ص'; + if ShowModal=1 then + begin + JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK1'; + flagname:='׼'; + if ShowModal=1 then + begin + ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK3'; + flagname:='װҪ'; + if ShowModal=1 then + begin + ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK4PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK4'; + flagname:='㷽ʽ'; + if ShowModal=1 then + begin + ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTK5PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK5'; + flagname:='ձ׼'; + if ShowModal=1 then + begin + ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTk6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK6'; + flagname:='Լ'; + if ShowModal=1 then + begin + ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConTk2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTK2'; + flagname:='䷽óе'; + if ShowModal=1 then + begin + ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutHZ.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; +end; + +procedure TfrmClothContractInPutHZ.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:=Trim(FactoryFlag); + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.dfm new file mode 100644 index 0000000..010005d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.dfm @@ -0,0 +1,568 @@ +object frmClothContractInPutJY: TfrmClothContractInPutJY + Left = 155 + Top = 3 + Width = 870 + Height = 697 + Align = alClient + Caption = #37319#36141'/'#21152#24037#21512#21516#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 854 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 854 + Height = 249 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 401 + Top = 14 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 397 + Top = 73 + Width = 66 + Height = 12 + Caption = #20379' '#24212' '#21830#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 225 + Top = 14 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 24 + Top = 73 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 224 + Top = 43 + Width = 65 + Height = 12 + Caption = #28155#21152#21407#22240#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 24 + Top = 104 + Width = 65 + Height = 12 + Caption = #21512#21516#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 579 + Top = 14 + Width = 65 + Height = 12 + Caption = #24037#24207#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 24 + Top = 43 + Width = 65 + Height = 12 + Caption = #21512#21516#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 87 + Top = 11 + Width = 120 + Height = 18 + CharCase = ecUpperCase + TabOrder = 0 + OnExit = ConNoExit + OnKeyPress = ConNoKeyPress + end + object DLYDate: TDateTimePicker + Left = 462 + Top = 10 + Width = 101 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object QDTime: TDateTimePicker + Left = 287 + Top = 10 + Width = 99 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object JYNote: TRichEdit + Left = 86 + Top = 101 + Width = 675 + Height = 96 + Lines.Strings = ( + '') + TabOrder = 3 + end + object FactoryNoName: TBtnEditA + Left = 462 + Top = 69 + Width = 298 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 4 + OnBtnClick = FactoryNoNameBtnClick + end + object CompanyName: TBtnEditA + Left = 87 + Top = 69 + Width = 298 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 5 + OnBtnClick = CompanyNameBtnClick + end + object JYType: TBtnEditA + Left = 285 + Top = 39 + Width = 475 + Height = 20 + TabOrder = 6 + OnBtnClick = JYTypeBtnClick + end + object ConType: TComboBox + Left = 639 + Top = 10 + Width = 121 + Height = 20 + Style = csDropDownList + DropDownCount = 20 + ItemHeight = 12 + TabOrder = 7 + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516) + end + object ConTypeOther: TBtnEditA + Left = 87 + Top = 39 + Width = 122 + Height = 20 + ReadOnly = True + TabOrder = 8 + OnBtnClick = ConTypeOtherBtnClick + end + object Panel1: TPanel + Left = 86 + Top = 200 + Width = 674 + Height = 25 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 9 + object Label30: TLabel + Left = 70 + Top = 7 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 147 + Top = 7 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 5 + Top = 7 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 95 + Top = 4 + Width = 47 + Height = 18 + ReadOnly = True + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 221 + Top = 3 + Width = 41 + Height = 20 + Style = csDropDownList + Enabled = False + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 172 + Top = 4 + Width = 47 + Height = 18 + ReadOnly = True + TabOrder = 2 + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 278 + Width = 854 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 307 + Width = 854 + Height = 351 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1ClothUnit + end + item + Format = '0' + Position = spFooter + Column = v1Column5 + end + item + Format = '0' + Position = spFooter + Column = v1Column6 + end + item + Format = '0' + Position = spFooter + Column = v1Column7 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column4: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'JGGY' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column7: TcxGridDBColumn + Caption = #20811#37325'(GSM)' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column5: TcxGridDBColumn + Caption = #21305'/'#21253#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'Y' + 'Kg' + #21305) + HeaderAlignmentHorz = taCenter + Width = 35 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 598 + Top = 3 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 519 + Top = 1 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 434 + Top = 394 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 394 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 560 + Top = 1 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.pas new file mode 100644 index 0000000..bbf23a0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.pas @@ -0,0 +1,936 @@ +unit U_ClothContractInPutJY; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit; + +type + TfrmClothContractInPutJY = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DLYDate: TDateTimePicker; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + Label11: TLabel; + v1Column2: TcxGridDBColumn; + Label13: TLabel; + JYNote: TRichEdit; + FactoryNoName: TBtnEditA; + CompanyName: TBtnEditA; + JYType: TBtnEditA; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label15: TLabel; + ConTypeOther: TBtnEditA; + Panel1: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + v1Column4: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CompanyNameBtnClick(Sender: TObject); + procedure FactoryNoNameBtnClick(Sender: TObject); + procedure JYTypeBtnClick(Sender: TObject); + procedure ConTypeOtherBtnClick(Sender: TObject); + procedure ConNoExit(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType:String; + + { Public declarations } + end; + +var + frmClothContractInPutJY: TfrmClothContractInPutJY; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmClothContractInPutJY.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPutJY.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + if PCopyInt=1 then + begin + FMainId:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,0); + FactoryNoName.TxtCode:=Trim(ADOQuery1.FieldByName('FactoryNo').AsString); + ConTypeOther.Text:=Trim(ADOQuery1.FieldByName('ConTypeOther').AsString); + if PState=0 then + begin + QDTime.DateTime:=SGetServerDate(ADOTemp); + DLYDate.DateTime:=QDTime.DateTime; + QDTime.Checked:=True; + DLYDate.Checked:=False; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); +end; + +procedure TfrmClothContractInPutJY.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); +end; + +procedure TfrmClothContractInPutJY.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPutJY.FormShow(Sender: TObject); +var + FSJ:String; +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + + + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' '; + SInitComBoxBySql(ADOTemp,ConType,False,Fsj); + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + FieldByName('ConPrice').Value:=Null; + FieldByName('Price').Value:=Null; + Post; + Next; + end; + end; + end; + if PCopyInt=1 then + begin + PState:=0; + end; + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ConMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.RecordCount>0 then + begin + ConNo.ReadOnly:=True; + end; + end; +end; + +function TfrmClothContractInPutJY.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'CM','Contract_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͬˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'Contract_Main',ScrollBox1,0); + FieldByName('FactoryNo').Value:=Trim(FactoryNoName.TxtCode); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'CS','Contract_Sub',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ɺͬϸˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where '); + sql.Add(' SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutJY.TBSaveClick(Sender: TObject); +begin + DLYDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(ConType.Text)='' then + begin + Application.MessageBox('ͬͲΪգ','ʾ',0); + Exit; + end; + if Trim(JYType.Text)='' then + begin + Application.MessageBox('ԭΪգ','ʾ',0); + Exit; + end; + if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Spec',null,[]) then + begin + Application.MessageBox('ͺŲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmClothContractInPutJY.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.ToolButton1Click(Sender: TObject); +begin + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + end; + if Order_Sub.RecordCount=1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOTemp.fieldbyname('MPRTGY').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + FieldByName('C_Spec').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('JGGY').Value:=Trim(ADOTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('MFQty').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('KZQty').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('C_CF').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + Post; + end; + end; + end; +end; + +procedure TfrmClothContractInPutJY.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where COnSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutJY.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(ConType.Text)='' then + begin + Application.MessageBox('ͬͲΪ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ClothHT'; + flagname:='Ʒ'; + MainType:=Trim(ConType.Text); + fnote:=True; + V1Note.Caption:=''; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutJY.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + {if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; } +end; + +procedure TfrmClothContractInPutJY.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.CompanyNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.FactoryNoNameBtnClick( + Sender: TObject); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + FactoryNoName.Text:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + FactoryNoName.TxtCode:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKId').AsString); + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmClothContractInPutJY.JYTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConJYType'; + flagname:='ͬԭ'; + frmZDYHelp.TBAdd.Visible:=False; + frmZDYHelp.TBEdit.Visible:=False; + frmZDYHelp.TBDel.Visible:=False; + if ShowModal=1 then + begin + JYType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.ConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + ConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutJY.ConNoExit(Sender: TObject); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); +end; + +procedure TfrmClothContractInPutJY.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where RTrim(MPRTCode)+RTrim(MPRTGY)='''+Trim(mvalue)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with Order_Sub do + begin + Edit; + {FieldByName('C_Code').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOTemp.fieldbyname('MPRTGY').AsString);} + FieldByName('C_CodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + FieldByName('C_Spec').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('JGGY').Value:=Trim(ADOTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('MFQty').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('KZQty').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('C_CF').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + Post; + end; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.dfm new file mode 100644 index 0000000..703fdb6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.dfm @@ -0,0 +1,733 @@ +object frmClothContractInPutSXMX: TfrmClothContractInPutSXMX + Left = 34 + Top = 24 + Width = 1055 + Height = 697 + Align = alClient + Caption = #37319#36141'/'#21152#24037#21512#21516#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1039 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1039 + Height = 428 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 304 + Top = 52 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 304 + Top = 90 + Width = 66 + Height = 12 + Caption = #20379' '#24212' '#21830#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 24 + Top = 52 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 24 + Top = 90 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 24 + Top = 129 + Width = 65 + Height = 12 + Caption = #32467#31639#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 24 + Top = 167 + Width = 65 + Height = 12 + Caption = #20135#21697#36136#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 24 + Top = 205 + Width = 65 + Height = 12 + Caption = #25968#37327#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 611 + Top = 12 + Width = 52 + Height = 12 + Caption = #20132#26399#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label7DblClick + end + object Label8: TLabel + Left = 24 + Top = 243 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 610 + Top = 119 + Width = 117 + Height = 12 + Caption = #19981#21487#25239#21147#21450#39118#38505#25215#25285 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label9DblClick + end + object Label10: TLabel + Left = 610 + Top = 257 + Width = 52 + Height = 12 + Caption = #36829#32422#36131#20219 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label10DblClick + end + object Label13: TLabel + Left = 24 + Top = 273 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label13DblClick + end + object Label14: TLabel + Left = 304 + Top = 14 + Width = 65 + Height = 12 + Caption = #24037#24207#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 463 + Top = 14 + Width = 52 + Height = 12 + Caption = #21512#21516#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 11 + Width = 209 + Height = 18 + CharCase = ecUpperCase + TabOrder = 0 + OnExit = ConNoExit + OnKeyPress = ConNoKeyPress + end + object DLYDate: TDateTimePicker + Left = 365 + Top = 48 + Width = 226 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object QDTime: TDateTimePicker + Left = 86 + Top = 47 + Width = 211 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object JiaoHuoNote: TRichEdit + Left = 611 + Top = 30 + Width = 412 + Height = 83 + TabOrder = 3 + end + object NoKangLiNote: TRichEdit + Left = 610 + Top = 135 + Width = 412 + Height = 110 + TabOrder = 4 + end + object WeiYueNote: TRichEdit + Left = 610 + Top = 273 + Width = 412 + Height = 120 + TabOrder = 5 + end + object Note: TRichEdit + Left = 86 + Top = 273 + Width = 504 + Height = 96 + Lines.Strings = ( + '') + TabOrder = 6 + end + object FactoryNoName: TBtnEditA + Left = 365 + Top = 86 + Width = 225 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 7 + OnBtnClick = FactoryNoNameBtnClick + end + object CompanyName: TBtnEditA + Left = 86 + Top = 86 + Width = 209 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 8 + OnBtnClick = CompanyNameBtnClick + end + object JieSuanNote: TBtnEditA + Left = 86 + Top = 126 + Width = 504 + Height = 20 + TabOrder = 9 + OnBtnClick = JieSuanNoteBtnClick + end + object PRTZhiLiang: TBtnEditA + Left = 86 + Top = 164 + Width = 504 + Height = 20 + TabOrder = 10 + OnBtnClick = PRTZhiLiangBtnClick + end + object QtyNote: TBtnEditA + Left = 86 + Top = 202 + Width = 504 + Height = 20 + TabOrder = 11 + OnBtnClick = QtyNoteBtnClick + end + object PayMent: TBtnEditA + Left = 86 + Top = 240 + Width = 504 + Height = 20 + TabOrder = 12 + OnBtnClick = PayMentBtnClick + end + object ConType: TComboBox + Left = 364 + Top = 10 + Width = 98 + Height = 20 + Style = csDropDownList + DropDownCount = 20 + ItemHeight = 12 + TabOrder = 13 + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516) + end + object ConTypeOther: TBtnEditA + Left = 516 + Top = 10 + Width = 76 + Height = 20 + ReadOnly = True + TabOrder = 14 + OnBtnClick = ConTypeOtherBtnClick + end + object Panel1: TPanel + Left = 86 + Top = 368 + Width = 503 + Height = 25 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 15 + object Label30: TLabel + Left = 70 + Top = 7 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 147 + Top = 7 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 5 + Top = 7 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 95 + Top = 4 + Width = 47 + Height = 18 + ReadOnly = True + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 221 + Top = 3 + Width = 41 + Height = 20 + Style = csDropDownList + Enabled = False + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 172 + Top = 4 + Width = 47 + Height = 18 + ReadOnly = True + TabOrder = 2 + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 457 + Width = 1039 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 486 + Width = 1039 + Height = 172 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end + item + Format = '0' + Position = spFooter + Column = v1Price + end + item + Format = '0' + Position = spFooter + Column = v1ClothUnit + end + item + Format = '0' + Position = spFooter + Column = v1Column5 + end + item + Format = '0' + Position = spFooter + Column = v1Column6 + end + item + Format = '0' + Position = spFooter + Column = v1Column7 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 119 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 98 + end + object v1Column13: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'JGGY' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133#35828#26126 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column7: TcxGridDBColumn + Caption = #20811#37325'(GSM)' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325#35828#26126 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #21305'/'#21253#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'Y' + 'Kg' + #21305 + #32568 + #22871) + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column9: TcxGridDBColumn + Caption = #20854#20182#35201#27714 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Width = 95 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 344 + Top = 376 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 376 + Top = 376 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 65533 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 560 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 488 + Top = 560 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.pas new file mode 100644 index 0000000..8332377 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.pas @@ -0,0 +1,1249 @@ +unit U_ClothContractInPutSXMX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmClothContractInPutSXMX = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label4: TLabel; + DLYDate: TDateTimePicker; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + Label11: TLabel; + Label12: TLabel; + v1Column2: TcxGridDBColumn; + Label6: TLabel; + Label7: TLabel; + JiaoHuoNote: TRichEdit; + Label8: TLabel; + Label9: TLabel; + NoKangLiNote: TRichEdit; + Label10: TLabel; + WeiYueNote: TRichEdit; + Label13: TLabel; + Note: TRichEdit; + FactoryNoName: TBtnEditA; + CompanyName: TBtnEditA; + JieSuanNote: TBtnEditA; + PRTZhiLiang: TBtnEditA; + QtyNote: TBtnEditA; + PayMent: TBtnEditA; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + Label15: TLabel; + ConTypeOther: TBtnEditA; + Panel1: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + procedure TBCloseClick(Sender: TObject); + procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure JieSuanNotePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PRTZhiLiangPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure QtyNotePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CompanyNameBtnClick(Sender: TObject); + procedure FactoryNoNameBtnClick(Sender: TObject); + procedure JieSuanNoteBtnClick(Sender: TObject); + procedure PRTZhiLiangBtnClick(Sender: TObject); + procedure QtyNoteBtnClick(Sender: TObject); + procedure PayMentBtnClick(Sender: TObject); + procedure Label7DblClick(Sender: TObject); + procedure Label9DblClick(Sender: TObject); + procedure Label10DblClick(Sender: TObject); + procedure Label13DblClick(Sender: TObject); + procedure ConTypeOtherBtnClick(Sender: TObject); + procedure ConNoExit(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt,EditInt:Integer; + FMainId,FConNo,FConType,canshu1:String; + + { Public declarations } + end; + +var + frmClothContractInPutSXMX: TfrmClothContractInPutSXMX; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmClothContractInPutSXMX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ɹӹͬ¼11',Tv1,'ɹӹͬ'); +end; + +procedure TfrmClothContractInPutSXMX.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + if PCopyInt=1 then + begin + FMainId:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,0); + FactoryNoName.TxtCode:=Trim(ADOQuery1.FieldByName('FactoryNo').AsString); + ConTypeOther.Text:=Trim(ADOQuery1.FieldByName('ConTypeOther').AsString); + if PState=0 then + begin + QDTime.DateTime:=SGetServerDate(ADOTemp); + DLYDate.DateTime:=QDTime.DateTime; + QDTime.Checked:=True; + DLYDate.Checked:=False; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); +end; + +procedure TfrmClothContractInPutSXMX.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin + + with ADOZDY do + begin + Filtered:=False; + Close; + SQL.Clear; + SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+''''); + Open; + end; + FText:=Trim(FButn.Text); + if FText<>'' then + SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%')) + else + SDofilter(ADOZDY,''); +end; + +procedure TfrmClothContractInPutSXMX.PRTCodeNameKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + {if (key=vk_return) or (Key=vk_Down) then + begin + if ADOZDY.Active then + CXGridZDY.SetFocus; + end; } +end; + +procedure TfrmClothContractInPutSXMX.FormShow(Sender: TObject); +var + FSJ:String; +begin + {if Trim(DParameters1)='1' then + begin + v1Price.Visible:=False; + v1ClothQty.Visible:=False; + v1PRTQty.Visible:=False; + end else + begin + v1Price.Visible:=True; + v1ClothQty.Visible:=True; + v1PRTQty.Visible:=True; + end; } + ReadCxGrid('ɹӹͬ¼11',Tv1,'ɹӹͬ'); + + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' '; + SInitComBoxBySql(ADOTemp,ConType,False,Fsj); + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + FieldByName('ConPrice').Value:=Null; + FieldByName('Price').Value:=Null; + Post; + Next; + end; + end; + end; + if PCopyInt=1 then + begin + PState:=0; + end; + if Trim(canshu1)<>'Ȩ' then + begin + if PState=1 then + begin + + v1Price.Options.Editing:=False; + end; + if EditInt=9 then + begin + + v1Price.Options.Editing:=True; + end; + end; + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ConMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.RecordCount>0 then + begin + ConNo.ReadOnly:=True; + end; + end; +end; + +function TfrmClothContractInPutSXMX.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'CM','Contract_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͬˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'Contract_Main',ScrollBox1,0); + FieldByName('FactoryNo').Value:=Trim(FactoryNoName.TxtCode); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + {with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ConNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͬظ!','ʾ',0); + Exit; + end; } + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'CS','Contract_Sub',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ɺͬϸˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where '); + sql.Add(' SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutSXMX.TBSaveClick(Sender: TObject); +begin + DLYDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(ConType.Text)='' then + begin + Application.MessageBox('ͬͲΪգ','ʾ',0); + Exit; + end; + if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + {if Order_Sub.Locate('ConQty',null,[]) then + begin + Application.MessageBox('ͬΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('ConUnit',null,[]) then + begin + Application.MessageBox('ͬλΪ!','ʾ',0); + Exit; + end; } + if Order_Sub.Locate('C_Spec',null,[]) then + begin + Application.MessageBox('ͺŲΪ!','ʾ',0); + Exit; + end; + if PState=0 then + begin + if Application.MessageBox('ȷҪݱ޸!','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmClothContractInPutSXMX.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ToolButton1Click(Sender: TObject); +begin + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + end; + if Order_Sub.RecordCount=1 then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString);//+ + // Trim(ADOTemp.fieldbyname('MPRTGY').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + FieldByName('C_Spec').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('JGGY').Value:=Trim(ADOTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('MFQty').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('KZQty').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('C_CF').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('C_Note').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + + Post; + end; + end; + end; +end; + +procedure TfrmClothContractInPutSXMX.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where COnSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(ConType.Text)='' then + begin + Application.MessageBox('ͬͲΪ!','ʾ',0); + Exit; + end; + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ClothHT'; + flagname:='Ʒ'; + MainType:=Trim(ConType.Text); + fnote:=True; + V1Note.Caption:=''; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutSXMX.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + {if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; } +end; + +procedure TfrmClothContractInPutSXMX.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.JieSuanNotePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JieSuanNote'; + flagname:='˵'; + if ShowModal=1 then + begin + JieSuanNote.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.PRTZhiLiangPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PRTZhiLiang'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + PRTZhiLiang.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.QtyNotePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='QtyNote'; + flagname:='˵'; + if ShowModal=1 then + begin + QtyNote.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.CompanyNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNameBtnClick( + Sender: TObject); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + FactoryNoName.Text:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + FactoryNoName.TxtCode:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKId').AsString); + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.JieSuanNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JieSuanNote'; + flagname:='˵'; + if ShowModal=1 then + begin + JieSuanNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.PRTZhiLiangBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PRTZhiLiang'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + PRTZhiLiang.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.QtyNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='QtyNote'; + flagname:='˵'; + if ShowModal=1 then + begin + QtyNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.PayMentBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PayMentZW'; + flagname:='ʽ'; + if ShowModal=1 then + begin + PayMent.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label7DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JiaoHuoNote'; + flagname:='˵'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(JiaoHuoNote.Text)='' then + JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + JiaoHuoNote.Text:=JiaoHuoNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label9DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='NoKangLiNote'; + flagname:='ɿճе'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(NoKangLiNote.Text)='' then + NoKangLiNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + NoKangLiNote.Text:=NoKangLiNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label10DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='WeiYueNote'; + flagname:='ΥԼ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(WeiYueNote.Text)='' then + WeiYueNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + WeiYueNote.Text:=WeiYueNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label13DblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='ConMainNote'; + flagname:='ͬע'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(Note.Text)='' then + Note.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + Note.Text:=Note.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + ConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConNoExit(Sender: TObject); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); +end; + +procedure TfrmClothContractInPutSXMX.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where RTrim(MPRTCode)+RTrim(MPRTGY)='''+Trim(mvalue)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + with Order_Sub do + begin + Edit; + {FieldByName('C_Code').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOTemp.fieldbyname('MPRTGY').AsString);} + // FieldByName('C_CodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString); + //FieldByName('C_Spec').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('JGGY').Value:=Trim(ADOTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('MFQty').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString); + FieldByName('KZQty').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); + FieldByName('C_CF').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString); + FieldByName('C_Note').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString); + Post; + end; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.dfm new file mode 100644 index 0000000..ef8f748 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.dfm @@ -0,0 +1,748 @@ +object frmClothContractListHZ: TfrmClothContractListHZ + Left = 25 + Top = 102 + Width = 1341 + Height = 536 + Caption = #37319#36141#21512#21516 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1325 + Height = 62 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton7: TToolButton + Left = 441 + Top = 0 + Caption = #32039#24613#21512#21516#21407#22240 + ImageIndex = 22 + OnClick = ToolButton7Click + end + object TBSSOk: TToolButton + Left = 548 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 16 + OnClick = TBSSOkClick + end + object TBSSNO: TToolButton + Left = 611 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 17 + OnClick = TBSSNOClick + end + object TBChkOk: TToolButton + Left = 698 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 50 + Wrap = True + OnClick = TBChkOkClick + end + object TBExport: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object TBChkNO: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 129 + OnClick = TBChkNOClick + end + object ToolButton4: TToolButton + Left = 150 + Top = 30 + AutoSize = True + Caption = #19978#20256 + ImageIndex = 18 + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 213 + Top = 30 + AutoSize = True + Caption = #19978#20256#25764#38144 + ImageIndex = 52 + OnClick = ToolButton6Click + end + object ToolButton5: TToolButton + Left = 300 + Top = 30 + AutoSize = True + Caption = #19979#36733 + ImageIndex = 19 + OnClick = ToolButton5Click + end + object TBPrint: TToolButton + Left = 363 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 426 + Top = 35 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')' + #20215#26684#30830#35748#20070) + end + object ToolButton8: TToolButton + Left = 530 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 593 + Top = 30 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 680 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1325 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 22 + Width = 52 + Height = 12 + Caption = #21512#21516#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 439 + Top = 22 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 595 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 740 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_Code: TEdit + Tag = 2 + Left = 492 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 634 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 794 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 137 + Width = 1325 + Height = 360 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column13: TcxGridDBColumn + Caption = #25991#20214#19978#20256 + DataBinding.FieldName = 'FileFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 64 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #32039#24613#21512#21516#21407#22240 + DataBinding.FieldName = 'JYType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 87 + end + object v1Column15: TcxGridDBColumn + Caption = #21512#21516#35828#26126 + DataBinding.FieldName = 'JYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column16: TcxGridDBColumn + Caption = #26368#21518#20462#25913#20154 + DataBinding.FieldName = 'Editer' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column17: TcxGridDBColumn + Caption = #26368#21518#20462#25913#26102#38388 + DataBinding.FieldName = 'EditTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 126 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel16: TPanel + Left = 531 + Top = 229 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19978#20256#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object Panel2: TPanel + Left = 530 + Top = 195 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19979#36733#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clPurple + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 116 + Width = 1325 + Height = 21 + ActivePage = cxTabSheet1 + Align = alTop + Style = 8 + TabOrder = 5 + OnChange = cxPageControl1Change + ClientRectBottom = 23 + ClientRectRight = 1325 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#21512#21516 + ImageIndex = 0 + end + object cxTabSheet2: TcxTabSheet + Caption = #32039#24613#21512#21516 + ImageIndex = 1 + object cxTabControl1: TcxTabControl + Left = 0 + Top = 0 + Width = 1325 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 0 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1325 + ClientRectTop = 23 + end + end + object cxTabSheet3: TcxTabSheet + Caption = #20840#37096 + ImageIndex = 2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 163 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1071 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1005 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 55 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1166 + Top = 54 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1103 + Top = 50 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 440 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 508 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 574 + Top = 162 + end + object SaveDialog1: TSaveDialog + Left = 542 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.pas new file mode 100644 index 0000000..01aad48 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.pas @@ -0,0 +1,884 @@ +unit U_ClothContractListHZ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmClothContractListHZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_Code: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + ComboBox1: TComboBox; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column13: TcxGridDBColumn; + Panel16: TPanel; + Panel2: TPanel; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxTabControl1: TcxTabControl; + TBSSOk: TToolButton; + TBSSNO: TToolButton; + TBChkNO: TToolButton; + TBChkOk: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton8: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure TBSSOkClick(Sender: TObject); + procedure TBSSNOClick(Sender: TObject); + procedure TBChkOkClick(Sender: TObject); + procedure TBChkNOClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListHZ: TfrmClothContractListHZ; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmClothContractListHZ.FormDestroy(Sender: TObject); +begin + frmClothContractListHZ:=nil; +end; + +procedure TfrmClothContractListHZ.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListHZ.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('ɹͬ1',Tv1,'ͬ'); + FPath:='D:\Right1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q D:\Right1209\',sw_hide); +end; + +procedure TfrmClothContractListHZ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.ConQty*B.ConPrice from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end;} + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add(' and isnull(A.JYType,'''')='''' '); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add(' and isnull(A.JYType,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end; + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmClothContractListHZ.InitForm(); +var + FSJ:string; +begin + + ReadCxGrid('ɹͬ1',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); + if Trim(canshu1)='Ȩ' then + begin + TBSSOk.Visible:=False; + TBSSNO.Visible:=False; + TBChkNO.Visible:=True; + TBChkOk.Visible:=True; + ToolButton7.Visible:=True; + end else + begin + TBChkNO.Visible:=False; + TBChkOk.Visible:=False; + TBSSOk.Visible:=True; + TBSSNO.Visible:=True; + ToolButton7.Visible:=False; + end; +end; + +procedure TfrmClothContractListHZ.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmClothContractListHZ.TBEditClick(Sender: TObject); +var + FInt:Integer; +begin + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if cxPageControl1.ActivePageIndex<>1 then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + end else + begin + if cxTabControl1.TabIndex<>0 then Exit; + FInt:=9; + end; + end; + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + EditInt:=FInt; + frmClothContractInPutSXMX.canshu1:=Trim(self.canshu1); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZ.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where COnMainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractListHZ.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListHZ.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractListHZ.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.ConQty*B.ConPrice,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmClothContractListHZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListHZ.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=0; + FMainId:=''; + + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZ.ConNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmClothContractListHZ.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListHZ.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListHZ.cxPageControl1Change(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex=1 then + begin + cxPageControl1.Height:=46; + if Trim(canshu1)='Ȩ' then + begin + cxTabControl1.TabIndex:=1; + end; + end else + begin + cxPageControl1.Height:=23; + end; + InitGrid(); +end; + +procedure TfrmClothContractListHZ.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + PCopyInt:=1; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZ.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZ.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ɹӹͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmClothContractListHZ.FormCreate(Sender: TObject); +begin + lstPat := TStringList.Create; + canshu1:=Trim(DParameters1); + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmClothContractListHZ.ToolButton4Click(Sender: TObject); +var + i,j: Integer; + PatFile,HZStr: String; + FTPPath,FConNo,MaxNo:string; +begin + {if Trim(canshu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + end; } + lstPat.Clear; + if ODPat.Execute then + begin + lstPat.AddStrings(ODPat.Files); + end; + + if lstPat.Count > 0 then + begin + try + ReadINIFile10(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + end else + begin + Exit; + end; + Panel16.Visible:=True; + Panel16.Refresh; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select isnull(Count(*),0) MM from XD_File where '); + SQL.Add(' filetype=''NXHT'''); + Open; + j:=fieldbyname('MM').AsInteger; + end; + try + ADOQueryCmd.Connection.BeginTrans; + for i := 0 to lstPat.Count - 1 do + begin + PatFile := ExtractFileName(lstPat[i]); + HZStr:=Copy(PatFile,(Pos('.',PatFile)+1),(Length(PatFile)-Pos('.',PatFile)) ) ; + if IdFTP1.Connected then + begin + try + {if not DirectoryExists('D:\ͼƬ\'+Trim(gDef1)) then + ForceDirectories('D:\ͼƬ\'+Trim(gDef1)); } + // IdFTP1.Put(lstPat[i], Trim('\SC')+'\'+Trim(PatFile)); + if GetLSNo(ADOQueryCmd,MaxNo,'NH','XD_File',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡļʧܣ','ʾ',0); + Exit; + end; + IdFTP1.Put(lstPat[i], Trim('\NH')+'\'+Trim(MaxNo)+'.'+Trim(HZStr)); + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add('select * from XD_File where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('XFID').Value:=Trim(MaxNo); + FieldByName('CYID').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('CYNO').Value:=Trim(Order_Main.fieldbyname('ConNo').AsString); + FieldByName('filename').Value:=Trim(PatFile); + FieldByName('FileDate').Value:=SGetServerDate(ADOQueryTemp); + fieldbyname('FileType').value:=Trim('NXHT'); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('HZStr').Value:='.'+Trim(HZStr); + Post; + end; + except + //ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ͼƬϴʧܣ','ʾ',0); + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Main Set FileFlag=1 where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + if IdFTP1.Connected then IdFTP1.Quit; + Panel16.Visible:=False; + Application.MessageBox('ϴɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ϴʧܣ','ʾ',0); + end; +end; +procedure TfrmClothContractListHZ.ReadINIFile10(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmClothContractListHZ.ToolButton5Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.fieldbyname('FileFlag').AsBoolean=False then Exit; + Panel2.Visible:=True; + Panel2.Refresh; + { } + try + ReadINIFile10(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from XD_File where CYID='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + FFName:=Trim(ADOQueryTemp.fieldbyname('XFID').AsString)+Trim(ADOQueryTemp.fieldbyname('HZStr').AsString); + if FileExists(FPath+FFName)=false then + begin + IdFTP1.Get('NH\'+FFName,FPath+FFName); + end; + Panel2.Visible:=False; + if IdFTP1.Connected then IdFTP1.Quit; + if FileExists(FPath+FFName) then + begin + ShellExecute(Handle, 'open',PChar(FPath+FFName),'', '', SW_SHOWNORMAL); + end; + {FFName:=Trim(CDS_SC.fieldbyname('FileName').AsString); + + FFName:=FPath+FFName; + if FileExists(FFName)=false then + begin + IdFTP1.Get('SC\'+Trim(CDS_SC.fieldbyname('FileName').AsString), + FPath+Trim(CDS_SC.fieldbyname('FileName').AsString) + ); + end; + Panel2.Visible:=False; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(CDS_SC.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); } + +end; + +procedure TfrmClothContractListHZ.ToolButton6Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Main Set FileFlag=0 where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + sql.Add(' delete XD_File where CYID='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + +end; + +procedure TfrmClothContractListHZ.ToolButton7Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConJYType'; + flagname:='ͬԭ'; + if Trim(canshu1)<>'Ȩ' then + begin + frmZDYHelp.TBAdd.Visible:=False; + frmZDYHelp.TBEdit.Visible:=False; + frmZDYHelp.TBDel.Visible:=False; + end; + if ShowModal=1 then + begin + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListHZ.TBSSOkClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus='''',SSPerson='''+Trim(DName)+''''); + sql.Add(',SSTime=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmClothContractListHZ.TBSSNOClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͬͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus='''',SSPerson='''' '); + sql.Add(',SSTime=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmClothContractListHZ.TBChkOkClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus=''ͨ'',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTIme=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmClothContractListHZ.TBChkNOClick(Sender: TObject); +begin + if cxPageControl1.ActivePageIndex<>1 then Exit; + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִ˳','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus='''',Chker='''' '); + sql.Add(',ChkTIme=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmClothContractListHZ.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListHZ.ToolButton8Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ɹӹͬ',cxGrid1); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.dfm new file mode 100644 index 0000000..fcf3b4e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.dfm @@ -0,0 +1,509 @@ +object frmClothContractListHZCX: TfrmClothContractListHZCX + Left = 88 + Top = 120 + Width = 1242 + Height = 536 + Caption = #37319#36141#21512#21516 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1226 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = TBEditClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 437 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 500 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 563 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1226 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 22 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 425 + Top = 22 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 581 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 726 + Top = 22 + Width = 52 + Height = 12 + Caption = #21512#21516#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 323 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_Code: TEdit + Tag = 2 + Left = 478 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 620 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 780 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1226 + Height = 411 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 77 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1096 + Top = 8 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 416 + Top = 248 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 968 + Top = 56 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.pas new file mode 100644 index 0000000..1aafdc5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.pas @@ -0,0 +1,399 @@ +unit U_ClothContractListHZCX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC; + +type + TfrmClothContractListHZCX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + Label5: TLabel; + Label4: TLabel; + Label14: TLabel; + C_Code: TEdit; + FactoryNoName: TEdit; + ConType: TComboBox; + v1Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListHZCX: TfrmClothContractListHZCX; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}; + +{$R *.dfm} + +procedure TfrmClothContractListHZCX.FormDestroy(Sender: TObject); +begin + frmClothContractListHZCX:=nil; +end; + +procedure TfrmClothContractListHZCX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListHZCX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ɹͬ',Tv1,'ͬ'); +end; + +procedure TfrmClothContractListHZCX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmClothContractListHZCX.InitForm(); +var + FSJ:string; +begin + ReadCxGrid('ɹͬ',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); +end; + +procedure TfrmClothContractListHZCX.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmClothContractListHZCX.TBEditClick(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZCX.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractListHZCX.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListHZCX.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractListHZCX.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM:string; + +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɴ߶ͬ.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString); + + + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ӧĺͬ.rmf'),'ʾ',0); + end; + +end; + +procedure TfrmClothContractListHZCX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListHZCX.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=0; + FMainId:=''; + + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZCX.ConNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmClothContractListHZCX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListHZCX.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListHZCX.cxPageControl1Change(Sender: TObject); +begin + // InitGrid(); +end; + +procedure TfrmClothContractListHZCX.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + PCopyInt:=1; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmClothContractListHZCX.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.dfm b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.dfm new file mode 100644 index 0000000..f320fd7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.dfm @@ -0,0 +1,617 @@ +object frmClothContractListJY: TfrmClothContractListJY + Left = 76 + Top = 121 + Width = 1250 + Height = 536 + Caption = #32039#24613#21512#21516 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1234 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #19978#20256 + ImageIndex = 18 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 567 + Top = 0 + Caption = #19978#20256#25764#38144 + ImageIndex = 52 + Visible = False + OnClick = ToolButton6Click + end + object ToolButton5: TToolButton + Left = 650 + Top = 0 + AutoSize = True + Caption = #19979#36733 + ImageIndex = 19 + Visible = False + OnClick = ToolButton5Click + end + object TBPrint: TToolButton + Left = 713 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 776 + Top = 5 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 0 + Text = #37319#36141#21152#24037#21512#21516 + Visible = False + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')' + #37319#36141#21152#24037#21512#21516'('#33457#36793')' + #20215#26684#30830#35748#20070) + end + object ToolButton3: TToolButton + Left = 880 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 967 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1234 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 22 + Width = 52 + Height = 12 + Caption = #21512#21516#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 439 + Top = 22 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 595 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 740 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 337 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_Code: TEdit + Tag = 2 + Left = 492 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 634 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 794 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1234 + Height = 411 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column4: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'JGGY' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #28155#21152#21407#22240 + DataBinding.FieldName = 'JYType' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column10: TcxGridDBColumn + Caption = #21512#21516#35828#26126 + DataBinding.FieldName = 'JYNote' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel16: TPanel + Left = 531 + Top = 229 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19978#20256#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object Panel2: TPanel + Left = 530 + Top = 195 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19979#36733#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clPurple + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 986 + Top = 38 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 912 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 40 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1096 + Top = 8 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 440 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 532 + Top = 149 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 598 + Top = 154 + end + object SaveDialog1: TSaveDialog + Left = 566 + Top = 152 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.pas b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.pas new file mode 100644 index 0000000..974d14e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ClothContractListJY.pas @@ -0,0 +1,694 @@ +unit U_ClothContractListJY; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmClothContractListJY = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_Code: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + ComboBox1: TComboBox; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + Panel16: TPanel; + Panel2: TPanel; + ToolButton6: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractListJY: TfrmClothContractListJY; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutJY,U_ModuleNote; + +{$R *.dfm} + +procedure TfrmClothContractListJY.FormDestroy(Sender: TObject); +begin + frmClothContractListJY:=nil; +end; + +procedure TfrmClothContractListJY.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractListJY.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('ͬ',Tv1,'ͬ'); + {FPath:='D:\Right1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q D:\Right1209\',sw_hide); } +end; + +procedure TfrmClothContractListJY.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + sql.Add(' and isnull(A.JYType,'''')<>'''' '); + sql.Add(' and A.Filler='''+Trim(DName)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmClothContractListJY.InitForm(); +var + FSJ:string; +begin + + ReadCxGrid('ͬ',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); +end; + +procedure TfrmClothContractListJY.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmClothContractListJY.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + end; + try + frmClothContractInPutJY:=TfrmClothContractInPutJY.Create(Application); + with frmClothContractInPutJY do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutJY.Free; + end; +end; + +procedure TfrmClothContractListJY.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + {if Trim(canshu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + end; } + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where COnMainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͬɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractListJY.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmClothContractListJY.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractListJY.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.ConQty*B.ConPrice,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmClothContractListJY.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractListJY.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPutJY:=TfrmClothContractInPutJY.Create(Application); + with frmClothContractInPutJY do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutJY.Free; + end; +end; + +procedure TfrmClothContractListJY.ConNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmClothContractListJY.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractListJY.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListJY.cxPageControl1Change(Sender: TObject); +begin + // InitGrid(); +end; + +procedure TfrmClothContractListJY.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPutJY:=TfrmClothContractInPutJY.Create(Application); + with frmClothContractInPutJY do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + PCopyInt:=1; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutJY.Free; + end; +end; + +procedure TfrmClothContractListJY.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutJY:=TfrmClothContractInPutJY.Create(Application); + with frmClothContractInPutJY do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutJY.Free; + end; +end; + +procedure TfrmClothContractListJY.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmClothContractListJY.FormCreate(Sender: TObject); +begin + lstPat := TStringList.Create; + canshu1:=Trim(DParameters1); +end; + +procedure TfrmClothContractListJY.ToolButton4Click(Sender: TObject); +var + i,j: Integer; + PatFile,HZStr: String; + FTPPath,FConNo,MaxNo:string; +begin + {if Trim(canshu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + end; } + lstPat.Clear; + if ODPat.Execute then + begin + lstPat.AddStrings(ODPat.Files); + end; + + if lstPat.Count > 0 then + begin + try + ReadINIFile10(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + end else + begin + Exit; + end; + Panel16.Visible:=True; + Panel16.Refresh; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select isnull(Count(*),0) MM from XD_File where '); + SQL.Add(' filetype=''NXHT'''); + Open; + j:=fieldbyname('MM').AsInteger; + end; + try + ADOQueryCmd.Connection.BeginTrans; + for i := 0 to lstPat.Count - 1 do + begin + PatFile := ExtractFileName(lstPat[i]); + HZStr:=Copy(PatFile,(Pos('.',PatFile)+1),(Length(PatFile)-Pos('.',PatFile)) ) ; + if IdFTP1.Connected then + begin + try + {if not DirectoryExists('D:\ͼƬ\'+Trim(gDef1)) then + ForceDirectories('D:\ͼƬ\'+Trim(gDef1)); } + // IdFTP1.Put(lstPat[i], Trim('\SC')+'\'+Trim(PatFile)); + if GetLSNo(ADOQueryCmd,MaxNo,'NH','XD_File',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡļʧܣ','ʾ',0); + Exit; + end; + IdFTP1.Put(lstPat[i], Trim('\NH')+'\'+Trim(MaxNo)+'.'+Trim(HZStr)); + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add('select * from XD_File where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('XFID').Value:=Trim(MaxNo); + FieldByName('CYID').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('CYNO').Value:=Trim(Order_Main.fieldbyname('ConNo').AsString); + FieldByName('filename').Value:=Trim(PatFile); + FieldByName('FileDate').Value:=SGetServerDate(ADOQueryTemp); + fieldbyname('FileType').value:=Trim('NXHT'); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('HZStr').Value:='.'+Trim(HZStr); + Post; + end; + except + //ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ͼƬϴʧܣ','ʾ',0); + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Main Set FileFlag=1 where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + if IdFTP1.Connected then IdFTP1.Quit; + Panel16.Visible:=False; + Application.MessageBox('ϴɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ϴʧܣ','ʾ',0); + end; +end; +procedure TfrmClothContractListJY.ReadINIFile10(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmClothContractListJY.ToolButton5Click(Sender: TObject); +var + fHandle:THandle; + FInt:Integer; + FFName,FPath:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.fieldbyname('FileFlag').AsBoolean=False then Exit; + Panel2.Visible:=True; + Panel2.Refresh; + { } + try + ReadINIFile10(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + if Length(server)<6 then + begin + server:='127.0.0.1'; + end; + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + FPath:='D:\Right1209\'; + if not DirectoryExists(ExtractFileDir(FPath)) then + CreateDir(ExtractFileDir(FPath)); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from XD_File where CYID='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + FFName:=Trim(ADOQueryTemp.fieldbyname('XFID').AsString)+Trim(ADOQueryTemp.fieldbyname('HZStr').AsString); + if FileExists(FPath+FFName)=false then + begin + IdFTP1.Get('NH\'+FFName,FPath+FFName); + end; + Panel2.Visible:=False; + if IdFTP1.Connected then IdFTP1.Quit; + if FileExists(FPath+FFName) then + begin + ShellExecute(Handle, 'open',PChar(FPath+FFName),'', '', SW_SHOWNORMAL); + end; + {FFName:=Trim(CDS_SC.fieldbyname('FileName').AsString); + + FFName:=FPath+FFName; + if FileExists(FFName)=false then + begin + IdFTP1.Get('SC\'+Trim(CDS_SC.fieldbyname('FileName').AsString), + FPath+Trim(CDS_SC.fieldbyname('FileName').AsString) + ); + end; + Panel2.Visible:=False; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(FPath+Trim(CDS_SC.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); } + +end; + +procedure TfrmClothContractListJY.ToolButton6Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Main Set FileFlag=0 where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + sql.Add(' delete XD_File where CYID='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.dfm b/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.dfm new file mode 100644 index 0000000..ea0f152 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.dfm @@ -0,0 +1,391 @@ +object frmConDJFenPei: TfrmConDJFenPei + Left = 225 + Top = 103 + Width = 1028 + Height = 618 + Caption = #21512#21516#23450#37329#20998#37197 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1012 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1012 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + Visible = False + object Label1: TLabel + Left = 433 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + Visible = False + end + object Label3: TLabel + Left = 295 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 720 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + Visible = False + end + object Label8: TLabel + Left = 858 + Top = 13 + Width = 48 + Height = 12 + Caption = #32479#35745#21333#20301 + Visible = False + end + object YFName: TEdit + Tag = 2 + Left = 495 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 0 + Visible = False + end + object FactoryName: TEdit + Tag = 2 + Left = 343 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 1 + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 757 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 4 + Visible = False + end + object HZFactoryName: TEdit + Tag = 2 + Left = 906 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 5 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 70 + Width = 1012 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MPRTCF + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #21512#21516#37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column14: TcxGridDBColumn + Caption = #21512#21516#23450#37329 + DataBinding.FieldName = 'DJMoney' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #24050#20998#37197#23450#37329 + DataBinding.FieldName = 'FPDJMoney' + Width = 74 + end + object v1Column1: TcxGridDBColumn + Caption = #26410#20998#37197#23450#37329 + DataBinding.FieldName = 'WFPDJMoney' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column13: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'PRTGY' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 64 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 49 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 62 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #36741#21161#24037#33402 + DataBinding.FieldName = 'PRTGYHZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 50 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 51 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 44 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 349 + Top = 185 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 381 + Top = 185 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 408 + Top = 248 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 251 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 504 + Top = 248 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.pas b/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.pas new file mode 100644 index 0000000..4730a74 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ConDJFenPei.pas @@ -0,0 +1,168 @@ +unit U_ConDJFenPei; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmConDJFenPei = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + Label3: TLabel; + FactoryName: TEdit; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + Label4: TLabel; + OrderNo: TEdit; + Label8: TLabel; + HZFactoryName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1ConNo: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + + procedure InitGrid(); + + public + { Public declarations } + ConNo,FCIID:String; + + end; + +var + frmConDJFenPei: TfrmConDJFenPei; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + + + +procedure TfrmConDJFenPei.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId in('); + sql.Add(' select PIMainId from JYOrder_CI where CIID='''+Trim(FCIID)+''')'); + SQL.Add(' and isnull(B.WFPDJMoney,0)<>0 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmConDJFenPei.FormDestroy(Sender: TObject); +begin + frmConDJFenPei:=nil; +end; + +procedure TfrmConDJFenPei.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmConDJFenPei.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͬ',Tv1,''); + Close; +end; +procedure TfrmConDJFenPei.FormShow(Sender: TObject); +begin + ReadCxGrid('ͬ',Tv1,''); + InitGrid(); +end; + +procedure TfrmConDJFenPei.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmConDJFenPei.ToolButton2Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmConDJFenPei.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmConDJFenPei.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ConInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_ConInPut.dfm new file mode 100644 index 0000000..9ef61da --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ConInPut.dfm @@ -0,0 +1,713 @@ +object frmConInPut: TfrmConInPut + Left = 241 + Top = 32 + Width = 1111 + Height = 656 + Align = alClient + Caption = #35746#21333#21512#21516#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1095 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1095 + Height = 156 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label3: TLabel + Left = 290 + Top = 12 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 27 + Top = 12 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 553 + Top = 12 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 290 + Top = 97 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 553 + Top = 68 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 27 + Top = 97 + Width = 65 + Height = 12 + Caption = #20215#26684#26465#27454#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 553 + Top = 40 + Width = 65 + Height = 12 + Caption = #35013#33337#21475#23736#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 706 + Top = 40 + Width = 52 + Height = 12 + Caption = #30446#30340#22320#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 27 + Top = 40 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 27 + Top = 68 + Width = 65 + Height = 12 + Caption = #25968#37327#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 290 + Top = 68 + Width = 65 + Height = 12 + Caption = #25903#20184#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 553 + Top = 97 + Width = 65 + Height = 12 + Caption = #25910#27454#38134#34892#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 27 + Top = 126 + Width = 65 + Height = 12 + Caption = #38134#34892#36134#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 553 + Top = 126 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 290 + Top = 126 + Width = 62 + Height = 12 + Caption = 'PO NO'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 290 + Top = 40 + Width = 65 + Height = 12 + Caption = #20132#26399#22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 352 + Top = 8 + Width = 185 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object ConNo: TEdit + Tag = 2 + Left = 88 + Top = 9 + Width = 185 + Height = 18 + CharCase = ecUpperCase + TabOrder = 1 + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 615 + Top = 8 + Width = 230 + Height = 20 + Hint = 'CustomerNo' + ReadOnly = True + TabOrder = 2 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SYRName: TBtnEditC + Tag = 2 + Left = 352 + Top = 93 + Width = 185 + Height = 20 + TabOrder = 3 + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object PayMent: TBtnEditC + Tag = 2 + Left = 615 + Top = 64 + Width = 230 + Height = 20 + Hint = 'PayMentHT/'#20184#27454#26041#24335 + TabOrder = 4 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object PriceTK: TBtnEditC + Tag = 2 + Left = 88 + Top = 93 + Width = 185 + Height = 20 + Hint = 'PriceTKHT/'#20215#26684#26465#27454 + TabOrder = 5 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object FromPlace: TBtnEditC + Tag = 2 + Left = 615 + Top = 36 + Width = 84 + Height = 20 + Hint = 'FromPlace/'#35013#33337#21475#23736 + TabOrder = 6 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ToPlace: TBtnEditC + Tag = 2 + Left = 752 + Top = 36 + Width = 93 + Height = 20 + Hint = 'ToPlace/'#30446#30340#22320 + TabOrder = 7 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 88 + Top = 36 + Width = 185 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 8 + end + object OrdConQtyNote: TBtnEditC + Tag = 2 + Left = 88 + Top = 64 + Width = 185 + Height = 20 + Hint = 'OrdConQtyNote/'#25968#37327#35828#26126 + TabOrder = 9 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ZFPayment: TBtnEditC + Tag = 2 + Left = 352 + Top = 64 + Width = 185 + Height = 20 + Hint = 'ZFPayment/'#25903#20184#26041#24335 + TabOrder = 10 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BankNameHZ: TBtnEditC + Tag = 2 + Left = 615 + Top = 93 + Width = 230 + Height = 20 + Hint = 'BankNameHZ/'#25910#27454#38134#34892 + TabOrder = 11 + OnBtnUpClick = BankNameHZBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BankNo: TBtnEditC + Tag = 2 + Left = 88 + Top = 122 + Width = 185 + Height = 20 + Hint = 'BankNo/'#38134#34892#36134#21495 + TabOrder = 12 + OnBtnUpClick = BankNoBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TEdit + Tag = 2 + Left = 615 + Top = 123 + Width = 231 + Height = 18 + CharCase = ecUpperCase + TabOrder = 13 + end + object PONO: TEdit + Tag = 2 + Left = 352 + Top = 123 + Width = 185 + Height = 18 + CharCase = ecUpperCase + TabOrder = 14 + end + object DlyDateNote: TBtnEditC + Tag = 2 + Left = 352 + Top = 36 + Width = 185 + Height = 20 + Hint = 'DlyDateNote/'#20132#26399#22791#27880 + TabOrder = 15 + OnBtnUpClick = FromPlaceBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 185 + Width = 1095 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + OnClick = ToolButton3Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 214 + Width = 1095 + Height = 403 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column1: TcxGridDBColumn + Caption = 'S/M' + DataBinding.FieldName = 'SM' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column7: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column8: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column6: TcxGridDBColumn + Caption = #39068#33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column11: TcxGridDBColumn + Caption = #39068#33394#21517 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'KG' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 67 + end + object v1PriceUnit: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + '$' + #8364 + #65509) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #21253#32568#36153 + DataBinding.FieldName = 'BaoGangFee' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column3: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + Width = 100 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 968 + Top = 101 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 912 + Top = 101 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 520 + Top = 304 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 304 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 872 + Top = 109 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 456 + Top = 304 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ConInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_ConInPut.pas new file mode 100644 index 0000000..302a1b6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ConInPut.pas @@ -0,0 +1,959 @@ +unit U_ConInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmConInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label3: TLabel; + OrdDate: TDateTimePicker; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + v1PRTPrice: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + v1PRTOrderQty: TcxGridDBColumn; + Label10: TLabel; + ConNo: TEdit; + Label14: TLabel; + Label20: TLabel; + CustomerNoName: TBtnEditC; + SYRName: TBtnEditC; + v1OrderUnit: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Label1: TLabel; + PayMent: TBtnEditC; + Label2: TLabel; + PriceTK: TBtnEditC; + cxGridPopupMenu1: TcxGridPopupMenu; + Label7: TLabel; + Label4: TLabel; + FromPlace: TBtnEditC; + ToPlace: TBtnEditC; + Label5: TLabel; + DlyDate: TDateTimePicker; + Label6: TLabel; + OrdConQtyNote: TBtnEditC; + Label8: TLabel; + ZFPayment: TBtnEditC; + Label9: TLabel; + BankNameHZ: TBtnEditC; + Label11: TLabel; + BankNo: TBtnEditC; + Label12: TLabel; + Note: TEdit; + Label13: TLabel; + PONO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Label15: TLabel; + DlyDateNote: TBtnEditC; + v1Column12: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomerNoNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure SYRNameBtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject); + procedure PayMentBtnUpClick(Sender: TObject); + procedure PriceTKBtnUpClick(Sender: TObject); + procedure FromPlaceBtnUpClick(Sender: TObject); + procedure BankNameHZBtnUpClick(Sender: TObject); + procedure BankNoBtnUpClick(Sender: TObject); + private + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + { Private declarations } + public + PState,CopyInt:Integer; + FMainId,FFMainId:String; + FXS:Integer; + { Public declarations } + end; + +var + frmConInPut: TfrmConInPut; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel, U_ZHKHListNewCX, + U_CPSel; + +{$R *.dfm} + +procedure TfrmConInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬ¼1',Tv1,'ָʾ'); +end; + +procedure TfrmConInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrderCon_Sub '); + if PState=1 then + begin + sql.Add('where MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' where 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + //MoneyDate.Date:=OrdDate.Date; + //DlyDate.DateTime:=SGetServerDateTime(ADOTemp); + //ConPerson1.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //ConPerson1.Text:=Trim(DName); + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; + +procedure TfrmConInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmConInPut.FormShow(Sender: TObject); +begin + readCxGrid('ͬ¼1',Tv1,'ָʾ'); + InitData(); +end; + +function TfrmConInPut.SaveData():Boolean; +var + maxno,maxsubno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JC','JYOrderCon_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrderCon_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'JYOrderCon_Main',ScrollBox1,2); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + // FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where ConNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͬظ!','ʾ',0); + Exit; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Main Set Filler='''+Trim(DName)+''''); + sql.Add(' where MainId='''+Trim(maxno)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set SYRAddress=(select Top 1 ZdyStr4 from KH_Zdy where ZdyName=JYOrderCon_Main.SYRName and Type=''GSTT'' )'); + sql.Add(',SYRTel=(select Top 1 ZdyStr2 from KH_Zdy where ZdyName=JYOrderCon_Main.SYRName and Type=''GSTT'' )'); + sql.Add(',SYRFax=(select Top 1 ZdyStr3 from KH_Zdy where ZdyName=JYOrderCon_Main.SYRName and Type=''GSTT'' )'); + sql.Add(',KHAddress=(select Top 1 ZKAddress from ZH_KH_Info A where A.KHNameJC=JYOrderCon_Main.CustomerNoName)'); + sql.Add(',KHTel=(select Top 1 ZKTelNo from ZH_KH_Info A where A.KHNameJC=JYOrderCon_Main.CustomerNoName)'); + sql.Add(',BankFastNoHZ=(select Top 1 Note from KH_Zdy where ZdyName=JYOrderCon_Main.BankNameHZ and Type=''BankNameHZ'' )'); + sql.Add(',BankName=(select Top 1 ZdyStr1 from KH_Zdy where ZdyName=JYOrderCon_Main.BankNo and Type=''BankNoHT'' )'); + sql.Add(',BankFastNo=(select Top 1 ZdyStr2 from KH_Zdy where ZdyName=JYOrderCon_Main.BankNo and Type=''BankNoHT'' )'); + sql.Add(' where MainId='''+Trim(maxno)+''''); + ExecSQL; + end; + ///ӱ + + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'JB','JYOrderCon_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrderCon_Sub where MainId='''+Trim(maxno)+''''); + sql.Add(' and SubId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrderCon_Sub',0); + if Trim(fieldbyname('PRTOrderQty').AsString)='' then + begin + fieldbyname('PRTOrderQty').Value:=0; + end else + begin + fieldbyname('PRTOrderQty').Value:=Order_Sub.fieldbyname('PRTOrderQty').Value; + end; + if Trim(fieldbyname('PRTPrice').AsString)='' then + begin + fieldbyname('PRTPrice').Value:=0; + end else + begin + fieldbyname('PRTPrice').Value:=Order_Sub.fieldbyname('PRTPrice').Value; + end; + if Trim(fieldbyname('PRTMoney').AsString)='' then + begin + fieldbyname('PRTMoney').Value:=0; + end else + begin + fieldbyname('PRTMoney').Value:=Order_Sub.fieldbyname('PRTMoney').Value; + end; + if Trim(fieldbyname('BaoGangFee').AsString)='' then + begin + fieldbyname('BaoGangFee').Value:=0; + end else + begin + fieldbyname('BaoGangFee').Value:=Order_Sub.fieldbyname('BaoGangFee').Value; + end; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmConInPut.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmConInPut.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmConInPut.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmConInPut.TBSaveClick(Sender: TObject); +begin + OrdDate.SetFocus; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(CustomerNoName.Text)='' then + begin + Application.MessageBox('ͻΪգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmConInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + MainType:=Trim(DName); + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + Self.Order_Sub.FieldByName('SOrdDefStr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.ToolButton1Click(Sender: TObject); +var + i:Integer; +begin + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪ!','ʾ',0); + Exit; + end; + i:=Order_Sub.RecordCount; + i:=i+1; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('XHNO').Value:=IntToStr(i); + FieldByName('PRTColor').Value:=''; + FieldByName('PRTOrderQty').Value:=null; + FieldByName('PRTPrice').Value:=null; + FieldByName('SOrddefstr1').Value:=null; + FieldByName('SOrddefstr2').Value:=null; + Post; + end; +end; + +procedure TfrmConInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmConInPut.CustomerNoNameBtnUpClick(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + CustomerNoName.TxtCode:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('ZKID').AsString); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmConInPut.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmConInPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +type + TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; +begin + //if PPInt=2 then Exit; + Ddatabase:=StringOfChar(' ', 32); + Th := LoadLibrary('LabelSet.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(DCode), + PChar(DName), + PChar(Ddatabase), + PChar('ǩģ'), + PChar(''), + PChar(''), + '','','','','','','','',PChar(DConString) + ); + if Trim(PChar(Ddatabase))<>'' then + begin + Ddatabase:=Trim(PChar(Ddatabase)); + LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; + labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); + with Order_Sub do + begin + Edit; + FieldByName('SLbName').Value:=labname; + FieldByName('SLbInt').Value:=LabInt; + end; + end; + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('LabelSet.dll')); + end; + +end; + +procedure TfrmConInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.SYRNameBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + SYRName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmConInPut.v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + fsj:string; +begin + try + frmCPSel:=TfrmCPSel.Create(Application); + with frmCPSel do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PRTCode').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYNO').AsString); + FieldByName('PRTCodeName').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYEName').AsString); + FieldByName('PRTSpec').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYSpec').AsString); + FieldByName('PRTCF').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYECF').AsString); + if Trim(frmCPSel.CDS_Main.fieldbyname('CYMF').AsString)<>'' then + begin + FieldByName('PRTMF').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYMF').AsString); + end; + if Trim(frmCPSel.CDS_Main.fieldbyname('CYKZ').AsString)<>'' then + begin + FieldByName('PRTKZ').Value:=Trim(frmCPSel.CDS_Main.fieldbyname('CYKZ').AsString); + end; + //Post; + end; + end; + end; + finally + frmCPSel.Free; + end; + +end; + +procedure TfrmConInPut.v1PRTOrderQtyPropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty,FBaoGangFee:string; +begin + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FPrice:=Trim(Order_Sub.fieldbyname('PRTPrice').AsString); + FQty:=Trim(Order_Sub.fieldbyname('PRTOrderQty').AsString); + FBaoGangFee:=Trim(Order_Sub.fieldbyname('BaoGangFee').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FBaoGangFee)='' then + begin + FBaoGangFee:='0'; + end; + with Order_Sub do + begin + Edit; + FieldByName('PRTMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty)+StrToFloat(FBaoGangFee); + Post; + end; +end; + +procedure TfrmConInPut.PayMentBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PIPayMent'; + flagname:='ʽ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + PayMent.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.PriceTKBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceTK'; + flagname:='۸'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + PriceTK.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.FromPlaceBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.BankNameHZBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BankNameHZ'; + flagname:='տ'; + fnote:=True; + V1Name.Caption:='տ'; + V1Note.Caption:='Ѹٴ'; + if ShowModal=1 then + begin + BankNameHZ.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmConInPut.BankNoBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BankNoHT'; + flagname:='˺'; + V1Name.Caption:='˺'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='Ѹٴ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + BankNo.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.dfm new file mode 100644 index 0000000..87d588b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.dfm @@ -0,0 +1,631 @@ +object frmClothContractInPutSXMX: TfrmClothContractInPutSXMX + Left = 155 + Top = 3 + Width = 1055 + Height = 697 + Align = alClient + Caption = #37319#36141'/'#21152#24037#21512#21516#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1039 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_KangChi.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1039 + Height = 302 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 14 + Width = 65 + Height = 12 + Caption = #21512#21516#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 320 + Top = 48 + Width = 66 + Height = 12 + Caption = #20379' '#24212' '#21830#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 320 + Top = 14 + Width = 65 + Height = 12 + Caption = #31614#35746#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 24 + Top = 48 + Width = 67 + Height = 12 + Caption = #38656' '#26041#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 24 + Top = 117 + Width = 65 + Height = 12 + Caption = #36153#29992#25215#25285#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 24 + Top = 83 + Width = 65 + Height = 12 + Caption = #36136#37327#26631#20934#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 24 + Top = 152 + Width = 104 + Height = 12 + Caption = #20132#36135#26041#27861#21450#22320#28857#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 611 + Top = 12 + Width = 104 + Height = 12 + Caption = #21253#35013#12289#35013#28514#21450#26631#35760 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label7DblClick + end + object Label8: TLabel + Left = 24 + Top = 186 + Width = 65 + Height = 12 + Caption = #39564#25910#26041#27861#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 610 + Top = 129 + Width = 52 + Height = 12 + Caption = #36816#36755#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnDblClick = Label9DblClick + end + object Label4: TLabel + Left = 24 + Top = 221 + Width = 65 + Height = 12 + Caption = #25439#32791#36131#20219#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 24 + Top = 255 + Width = 65 + Height = 12 + Caption = #21512#21516#20221#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 225 + Top = 255 + Width = 65 + Height = 12 + Caption = #21103#26412#20221#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 395 + Top = 255 + Width = 104 + Height = 12 + Caption = #21457#31080#24320#20986#20043#26085#36215#31532 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 553 + Top = 255 + Width = 39 + Height = 12 + Caption = #22825#20184#27454 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 611 + Top = 255 + Width = 39 + Height = 12 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConNo: TEdit + Left = 86 + Top = 11 + Width = 208 + Height = 18 + ReadOnly = True + TabOrder = 0 + OnKeyPress = ConNoKeyPress + end + object QDTime: TDateTimePicker + Left = 382 + Top = 10 + Width = 210 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 1 + end + object BaoZuangNote: TRichEdit + Left = 609 + Top = 30 + Width = 412 + Height = 91 + TabOrder = 2 + end + object YunShuType: TRichEdit + Left = 609 + Top = 146 + Width = 412 + Height = 92 + TabOrder = 3 + end + object FactoryNoName: TBtnEditA + Left = 382 + Top = 44 + Width = 209 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 4 + OnBtnClick = FactoryNoNameBtnClick + end + object CompanyName: TBtnEditA + Left = 86 + Top = 44 + Width = 209 + Height = 20 + Hint = 'FactoryNo' + ReadOnly = True + TabOrder = 5 + OnBtnClick = CompanyNameBtnClick + end + object FeeNote: TBtnEditA + Left = 88 + Top = 113 + Width = 504 + Height = 20 + TabOrder = 6 + OnBtnClick = FeeNoteBtnClick + end + object PRTZhiLiang: TBtnEditA + Left = 88 + Top = 78 + Width = 504 + Height = 20 + TabOrder = 7 + OnBtnClick = PRTZhiLiangBtnClick + end + object JiaoHuoNote: TBtnEditA + Left = 130 + Top = 148 + Width = 462 + Height = 20 + TabOrder = 8 + OnBtnClick = JiaoHuoNoteBtnClick + end + object YanShouNote: TBtnEditA + Left = 88 + Top = 183 + Width = 504 + Height = 20 + TabOrder = 9 + OnBtnClick = YanShouNoteBtnClick + end + object SunHaoNote: TBtnEditA + Left = 88 + Top = 217 + Width = 504 + Height = 20 + TabOrder = 10 + OnBtnClick = SunHaoNoteBtnClick + end + object ConFenShu: TEdit + Left = 86 + Top = 252 + Width = 83 + Height = 18 + TabOrder = 11 + end + object ConFuBen: TEdit + Left = 286 + Top = 252 + Width = 60 + Height = 18 + TabOrder = 12 + end + object DayBegFK: TEdit + Left = 501 + Top = 252 + Width = 47 + Height = 18 + TabOrder = 13 + end + object Note: TEdit + Left = 646 + Top = 252 + Width = 372 + Height = 18 + TabOrder = 14 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 331 + Width = 1039 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_KangChi.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 360 + Width = 1039 + Height = 298 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end + item + Format = '0' + Position = spFooter + Column = v1Price + end + item + Format = '0' + Position = spFooter + Column = v1ClothUnit + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1Column6 + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 126 + end + object v1Column3: TcxGridDBColumn + Caption = #22806#38144#21512#21516#21495 + DataBinding.FieldName = 'JYConNo' + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column13: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'JYStyleNo' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #22411#21495#12289#35268#26684 + DataBinding.FieldName = 'C_Spec' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PRTSpecPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 98 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1ClothUnitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215'('#21547#31246')' + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1ClothUnitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column14: TcxGridDBColumn + Caption = #24635#20215'('#20803')' + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #20132#36135#26102#38388 + DataBinding.FieldName = 'C_DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Width = 197 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_KangChi.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_KangChi.ADOLink + Parameters = <> + Left = 520 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 412 + Top = 448 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 240 + end + object ADOZDY: TADOQuery + Connection = DataLink_KangChi.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 353 + Top = 5 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + end + object ADOQuery1: TADOQuery + Connection = DataLink_KangChi.ADOLink + Parameters = <> + Left = 560 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 506 + Top = 446 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.pas new file mode 100644 index 0000000..0eda5ba --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractBCInPut.pas @@ -0,0 +1,1051 @@ +unit U_ContractBCInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmClothContractInPutSXMX = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + ConNo: TEdit; + Label5: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1PRTSpec: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + Label2: TLabel; + QDTime: TDateTimePicker; + Label3: TLabel; + Label11: TLabel; + Label12: TLabel; + v1Column2: TcxGridDBColumn; + Label6: TLabel; + Label7: TLabel; + BaoZuangNote: TRichEdit; + Label8: TLabel; + Label9: TLabel; + YunShuType: TRichEdit; + FactoryNoName: TBtnEditA; + CompanyName: TBtnEditA; + FeeNote: TBtnEditA; + PRTZhiLiang: TBtnEditA; + JiaoHuoNote: TBtnEditA; + YanShouNote: TBtnEditA; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + Label4: TLabel; + SunHaoNote: TBtnEditA; + ConFenShu: TEdit; + ConFuBen: TEdit; + Label10: TLabel; + Label13: TLabel; + Label14: TLabel; + DayBegFK: TEdit; + Label15: TLabel; + Label16: TLabel; + Note: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PRTMFPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FactoryNoNamePropertiesChange(Sender: TObject); + procedure CompanyNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PRTZhiLiangPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CompanyNameBtnClick(Sender: TObject); + procedure FactoryNoNameBtnClick(Sender: TObject); + procedure FeeNoteBtnClick(Sender: TObject); + procedure PRTZhiLiangBtnClick(Sender: TObject); + procedure JiaoHuoNoteBtnClick(Sender: TObject); + procedure YanShouNoteBtnClick(Sender: TObject); + procedure Label7DblClick(Sender: TObject); + procedure Label9DblClick(Sender: TObject); + procedure SunHaoNoteBtnClick(Sender: TObject); + procedure v1PRTSpecPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1ClothUnitPropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType:String; + + { Public declarations } + end; + +var + frmClothContractInPutSXMX: TfrmClothContractInPutSXMX; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmClothContractInPutSXMX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬ¼',Tv1,'ͬ'); +end; + +procedure TfrmClothContractInPutSXMX.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + if PCopyInt=1 then + begin + FMainId:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,0); + FactoryNoName.TxtCode:=Trim(ADOQuery1.FieldByName('FactoryNo').AsString); + if PState=0 then + begin + QDTime.DateTime:=SGetServerDate(ADOTemp); + QDTime.Checked:=True; + end; +end; + +procedure TfrmClothContractInPutSXMX.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmClothContractInPutSXMX.FormShow(Sender: TObject); +begin + ReadCxGrid('ͬ¼',Tv1,'ͬ'); + InitData(); + if PCopyInt=1 then + begin + FMainId:=''; + FConNo:=''; + ConNo.Text:=''; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; +end; +procedure TfrmClothContractInPutSXMX.GetMaxConNO(); +begin + +end; +function TfrmClothContractInPutSXMX.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'CM','Contract_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͬˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'Contract_Main',ScrollBox1,0); + FieldByName('FactoryNo').Value:=Trim(FactoryNoName.TxtCode); + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ConNo='''+Trim(ConNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͬظ!','ʾ',0); + Exit; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'CS','Contract_Sub',2,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ɺͬϸˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Contract_Sub where '); + sql.Add(' SubId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxSubNo); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo); + Next; + end; + end; + if Trim(ConNo.Text)='' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_Update_NXConNo :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(maxno); + ExecSQL; + end; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPutSXMX.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + {if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; } + if Trim(FactoryNoName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊգ','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('C_Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Unit',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('JYConNo',null,[]) then + begin + Application.MessageBox('ͬŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('JYStyleNo',null,[]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('C_Spec',null,[]) then + begin + Application.MessageBox('ͺŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.RecordCount>6 then + begin + Application.MessageBox('ϸݲܶ!','ʾ',0); + Exit; + end; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where ConNo='''+Trim(Order_Sub.fieldbyname('JYConNo').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Order_Sub.EnableControls; + Application.MessageBox(PChar('ͬ<'+Trim(Order_Sub.fieldbyname('JYConNo').AsString)+'>!'),'ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Sub A'); + sql.Add(' where A.StyleNo='''+Trim(Order_Sub.fieldbyname('JYStyleNo').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Order_Sub.EnableControls; + Application.MessageBox(PChar('<'+Trim(Order_Sub.fieldbyname('JYStyleNo').AsString)+'>!'),'ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Sub A'); + sql.Add(' inner join JYorderCon_Main B on A.Mainid=B.Mainid'); + sql.Add(' where A.StyleNo='''+Trim(Order_Sub.fieldbyname('JYStyleNo').AsString)+''''); + sql.Add(' and B.ConNo='''+Trim(Order_Sub.fieldbyname('JYConNo').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Order_Sub.EnableControls; + Application.MessageBox(PChar('ͬ<'+Trim(Order_Sub.fieldbyname('JYConNo').AsString)+ + '>вڿ<'+Trim(Order_Sub.fieldbyname('JYStyleNo').AsString)+'>!'),'ʾ',0); + Exit; + end; + Next; + end; + end; + Order_Sub.EnableControls; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmClothContractInPutSXMX.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ToolButton1Click(Sender: TObject); +begin + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('SubId').Value:=''; + Post; + end; +end; + +procedure TfrmClothContractInPutSXMX.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where COnSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + FXS:=99; + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ClothHT'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTMFPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KZ'; + flagname:='صλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1OrderQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MF'; + flagname:='ŷλ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1ClothQtyPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='Ƽ۵λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPutSXMX.CompanyNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdDefStr2'; + flagname:='跽'; + if ShowModal=1 then + begin + FXS:=99; + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + {if Key=#13 then + begin + if Trim(ConNo.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+''''); + Open; + end; + FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString); + end; + end; } +end; + +procedure TfrmClothContractInPutSXMX.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where exists('); + sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); + sql.Add(' where C.Mainid='''+Trim(FMainId)+''''); + sql.Add(' and B.MXID=A.YFTypeId)'); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѾӦ޸ĹӦ!','ʾ',0); + Exit; + end; + end; + + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Factory'; + flagname:=''; + MainType:='YCLFactory'; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.PRTZhiLiangPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PRTZhiLiang'; + flagname:='׼'; + if ShowModal=1 then + begin + PRTZhiLiang.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.CompanyNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='跽'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FactoryNoNameBtnClick( + Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GYS'; + flagname:=''; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.FeeNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FeeNote'; + flagname:='ø'; + if ShowModal=1 then + begin + FeeNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.PRTZhiLiangBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PRTZhiLiang'; + flagname:='׼'; + if ShowModal=1 then + begin + PRTZhiLiang.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.JiaoHuoNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JiaoHuoNote'; + flagname:='ص'; + if ShowModal=1 then + begin + JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.YanShouNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YanShouNote'; + flagname:='շ'; + if ShowModal=1 then + begin + YanShouNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label7DblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BaoZuangNote'; + flagname:='װװ꼰'; + if ShowModal=1 then + begin + BaoZuangNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.Label9DblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YunShuType'; + flagname:='䷽ʽ'; + if ShowModal=1 then + begin + YunShuType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.SunHaoNoteBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SunHaoNote'; + flagname:=''; + if ShowModal=1 then + begin + SunHaoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1PRTSpecPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='C_Spec'; + flagname:='ͺš'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Spec').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractInPutSXMX.v1ClothUnitPropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FPrice,FQty:string; +begin + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FPrice:=Trim(Order_Sub.fieldbyname('Price').AsString); + FQty:=Trim(Order_Sub.fieldbyname('C_Qty').AsString); + if Trim(FPrice)='' then + begin + FPrice:='0'; + end; + if Trim(FQty)='' then + begin + FQty:='0'; + end; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FPrice)*StrToFloat(FQty); + Post; + end; + end{ else + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=mvalue; + Post; + end; + end}; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.dfm new file mode 100644 index 0000000..3f8da85 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.dfm @@ -0,0 +1,647 @@ +object frmContractCGJGChkList: TfrmContractCGJGChkList + Left = 39 + Top = 151 + Width = 1341 + Height = 536 + Caption = #37319#36141#21152#24037#21512#21516 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1325 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBChkOk: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = TBChkOkClick + end + object ToolButton1: TToolButton + Left = 276 + Top = 0 + Caption = #23457#26680#19981#21516#36807 + ImageIndex = 32 + OnClick = ToolButton1Click + end + object Panel2: TPanel + Left = 371 + Top = 0 + Width = 351 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label6: TLabel + Left = 8 + Top = 9 + Width = 48 + Height = 12 + Caption = #23457#26680#22791#27880 + end + object ChkNote: TEdit + Left = 57 + Top = 5 + Width = 289 + Height = 20 + TabOrder = 0 + end + end + object TBChkNO: TToolButton + Left = 722 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 129 + OnClick = TBChkNOClick + end + object TBPrint: TToolButton + Left = 809 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 872 + Top = 5 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')') + end + object ToolButton8: TToolButton + Left = 976 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 1039 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 1126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1325 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 22 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 424 + Top = 22 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 580 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 725 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 322 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 477 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 619 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 779 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 111 + Width = 1325 + Height = 386 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column15: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 126 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#25209#22791#27880 + DataBinding.FieldName = 'PChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 110 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1325 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1325 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 163 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1071 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1005 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 55 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1166 + Top = 54 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1103 + Top = 50 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 440 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 508 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 574 + Top = 162 + end + object SaveDialog1: TSaveDialog + Left = 542 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.pas new file mode 100644 index 0000000..0377fd4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGChkList.pas @@ -0,0 +1,515 @@ +unit U_ContractCGJGChkList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmContractCGJGChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton3: TToolButton; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + TBChkNO: TToolButton; + TBChkOk: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton8: TToolButton; + cxTabControl1: TcxTabControl; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ComboBox1: TComboBox; + ToolButton1: TToolButton; + Panel2: TPanel; + Label6: TLabel; + ChkNote: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBChkOkClick(Sender: TObject); + procedure TBChkNOClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmContractCGJGChkList: TfrmContractCGJGChkList; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmContractCGJGChkList.FormDestroy(Sender: TObject); +begin + frmContractCGJGChkList:=nil; +end; + +procedure TfrmContractCGJGChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractCGJGChkList.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('ɹӹͬChk',Tv1,'ͬ'); +end; + +procedure TfrmContractCGJGChkList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where isnull(SSPerson,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Chker,'''')='''' '); + end else + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + if cxTabControl1.TabIndex<>3 then + begin + sql.Add(' and isnull(Chker,'''')<>'''' '); + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + end; + end; + + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmContractCGJGChkList.InitForm(); +var + FSJ:string; +begin + + ReadCxGrid('ɹӹͬChk',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); +end; + +procedure TfrmContractCGJGChkList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmContractCGJGChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractCGJGChkList.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmContractCGJGChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGChkList.ConNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmContractCGJGChkList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractCGJGChkList.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + sql.Add(' and isnull(SSPerson,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Chker,'''')='''' '); + end else + begin + if cxTabControl1.TabIndex<>3 then + begin + sql.Add(' and isnull(Chker,'''')<>'''' '); + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + end; + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractCGJGChkList.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGChkList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ɹӹͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmContractCGJGChkList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmContractCGJGChkList.ReadINIFile10(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmContractCGJGChkList.TBChkOkClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus=''ͨ'',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTIme=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGChkList.TBChkNOClick(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then Exit; + if cxTabControl1.TabIndex=3 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(PChker,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѿܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ˳','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus=NUll,Chker=NUll,ChkNote=Null '); + sql.Add(',ChkTIme=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGChkList.ToolButton8Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ɹӹͬ',cxGrid1); +end; + +procedure TfrmContractCGJGChkList.ToolButton1Click(Sender: TObject); +begin + if cxTabControl1.TabIndex>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(PChker,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѿ˲ͨ','ʾ',0); + Exit; + end; + if Trim(ChkNote.Text)='' then + begin + Application.MessageBox('˱עΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ˲ͨ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus=''˲ͨ'',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTime=getdate(),ChkNote='''+Trim(ChkNote.Text)+''''); + sql.add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + //ChkNote.Text:=''; + Order_Main.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.dfm new file mode 100644 index 0000000..57a03f7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.dfm @@ -0,0 +1,667 @@ +object frmContractCGJGList: TfrmContractCGJGList + Left = 13 + Top = 120 + Width = 1341 + Height = 536 + Caption = #37319#36141#21152#24037#21512#21516 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1325 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBSSOk: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 16 + OnClick = TBSSOkClick + end + object TBSSNO: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 17 + OnClick = TBSSNOClick + end + object TBChkOk: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 50 + Visible = False + OnClick = TBChkOkClick + end + object TBChkNO: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 129 + Visible = False + OnClick = TBChkNOClick + end + object TBPrint: TToolButton + Left = 765 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 828 + Top = 5 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')') + end + object ToolButton8: TToolButton + Left = 932 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 995 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 1082 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1325 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 22 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 425 + Top = 22 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 581 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 726 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 323 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 478 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 620 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 780 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 111 + Width = 1325 + Height = 386 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 87 + end + object v1Column15: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 77 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + end + object v1Column17: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 101 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + end + object v1Column13: TcxGridDBColumn + Caption = #23457#25209#22791#27880 + DataBinding.FieldName = 'PChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1325 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #23457#25209#36890#36807 + #23457#25209#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1325 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 163 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1071 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1005 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 55 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1166 + Top = 54 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1103 + Top = 50 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 440 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 508 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 574 + Top = 162 + end + object SaveDialog1: TSaveDialog + Left = 542 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.pas new file mode 100644 index 0000000..e357634 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGList.pas @@ -0,0 +1,629 @@ +unit U_ContractCGJGList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmContractCGJGList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + ComboBox1: TComboBox; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton3: TToolButton; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + TBSSOk: TToolButton; + TBSSNO: TToolButton; + TBChkNO: TToolButton; + TBChkOk: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton8: TToolButton; + cxTabControl1: TcxTabControl; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBSSOkClick(Sender: TObject); + procedure TBSSNOClick(Sender: TObject); + procedure TBChkOkClick(Sender: TObject); + procedure TBChkNOClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmContractCGJGList: TfrmContractCGJGList; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmContractCGJGList.FormDestroy(Sender: TObject); +begin + frmContractCGJGList:=nil; +end; + +procedure TfrmContractCGJGList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractCGJGList.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('ɹӹͬ',Tv1,'ͬ'); + FPath:='D:\Right1209\'; + if DirectoryExists(ExtractFileDir(FPath)) then + winexec('cmd /c rd /s /q D:\Right1209\',sw_hide); +end; + +procedure TfrmContractCGJGList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SSPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SSPerson,'''')<>'''' '); + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + sql.Add(' and isnull(PChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + sql.Add(' and isnull(PChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=4 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=5 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmContractCGJGList.InitForm(); +var + FSJ:string; +begin + + ReadCxGrid('ɹӹͬ',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); +end; + +procedure TfrmContractCGJGList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmContractCGJGList.TBEditClick(Sender: TObject); +var + FInt:Integer; +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + end; + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + EditInt:=FInt; + frmClothContractInPutSXMX.canshu1:=Trim(self.canshu1); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ!','ʾ',0); + Exit; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where COnMainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmContractCGJGList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractCGJGList.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmContractCGJGList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGList.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=0; + FMainId:=''; + + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGList.ConNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmContractCGJGList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractCGJGList.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SSPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SSPerson,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractCGJGList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + PCopyInt:=1; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGList.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ɹӹͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmContractCGJGList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmContractCGJGList.ReadINIFile10(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmContractCGJGList.TBSSOkClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set SSPerson='''+Trim(DName)+''''); + sql.Add(',SSTime=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGList.TBSSNOClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͬͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set SSPerson='''' '); + sql.Add(',SSTime=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGList.TBChkOkClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus=''ͨ'',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTIme=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGList.TBChkNOClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִ˳','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set ChkStatus='''',Chker='''' '); + sql.Add(',ChkTIme=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGList.ToolButton8Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ɹӹͬ',cxGrid1); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.dfm new file mode 100644 index 0000000..96a4344 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.dfm @@ -0,0 +1,647 @@ +object frmContractCGJGSPList: TfrmContractCGJGSPList + Left = 13 + Top = 120 + Width = 1341 + Height = 536 + Caption = #37319#36141#21152#24037#21512#21516#23457#25209 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1325 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBChkOk: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#25209#36890#36807 + ImageIndex = 22 + OnClick = TBChkOkClick + end + object ToolButton1: TToolButton + Left = 276 + Top = 0 + Caption = #23457#25209#19981#36890#36807 + ImageIndex = 32 + OnClick = ToolButton1Click + end + object Panel2: TPanel + Left = 371 + Top = 0 + Width = 351 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label6: TLabel + Left = 8 + Top = 9 + Width = 48 + Height = 12 + Caption = #23457#25209#22791#27880 + end + object PChkNote: TEdit + Left = 57 + Top = 5 + Width = 289 + Height = 20 + TabOrder = 0 + end + end + object TBChkNO: TToolButton + Left = 722 + Top = 0 + AutoSize = True + Caption = #23457#25209#25764#38144 + ImageIndex = 52 + OnClick = TBChkNOClick + end + object TBPrint: TToolButton + Left = 809 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 872 + Top = 5 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')') + end + object ToolButton8: TToolButton + Left = 976 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 1039 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 1126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1325 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 22 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 424 + Top = 22 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 580 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 725 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 322 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 477 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 619 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 779 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433#21512#21516 + #26579#32433#21512#21516 + #32455#36896#21512#21516 + #30952#27611#21512#21516 + #22383#24067#21512#21516 + #26579#33394#21512#21516 + #21360#33457#21512#21516 + #21518#21152#24037#21512#21516 + #25104#21697#21512#21516 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 111 + Width = 1325 + Height = 386 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#25209#22791#27880 + DataBinding.FieldName = 'PChkNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1325 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#25209 + #23457#25209#36890#36807 + #23457#25209#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1325 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 163 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1071 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1005 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 55 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1166 + Top = 54 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1103 + Top = 50 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 440 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 508 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 574 + Top = 162 + end + object SaveDialog1: TSaveDialog + Left = 542 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.pas new file mode 100644 index 0000000..e0fc4d3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSPList.pas @@ -0,0 +1,492 @@ +unit U_ContractCGJGSPList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmContractCGJGSPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton3: TToolButton; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + TBChkNO: TToolButton; + TBChkOk: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton8: TToolButton; + cxTabControl1: TcxTabControl; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ComboBox1: TComboBox; + Panel2: TPanel; + Label6: TLabel; + PChkNote: TEdit; + ToolButton1: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBChkOkClick(Sender: TObject); + procedure TBChkNOClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmContractCGJGSPList: TfrmContractCGJGSPList; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmContractCGJGSPList.FormDestroy(Sender: TObject); +begin + frmContractCGJGSPList:=nil; +end; + +procedure TfrmContractCGJGSPList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractCGJGSPList.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('ɹӹͬPChk',Tv1,'ͬ'); +end; + +procedure TfrmContractCGJGSPList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where isnull(SSPerson,'''')<>'''' and isnull(Chker,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(PChker,'''')='''' '); + end else + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + if cxTabControl1.TabIndex<>3 then + begin + sql.Add(' and isnull(PChker,'''')<>'''' '); + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end; + end; + + end; + + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmContractCGJGSPList.InitForm(); +var + FSJ:string; +begin + + ReadCxGrid('ɹӹͬPChk',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%ؼ%'' '; + SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj); +end; + +procedure TfrmContractCGJGSPList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmContractCGJGSPList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractCGJGSPList.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmContractCGJGSPList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGSPList.ConNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmContractCGJGSPList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractCGJGSPList.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + sql.Add(' and isnull(SSPerson,'''')<>'''' and isnull(Chker,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(PChker,'''')='''' '); + end else + begin + if cxTabControl1.TabIndex<>3 then + begin + sql.Add(' and isnull(PChker,'''')<>'''' '); + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(PChkStatus,'''')=''ͨ'' '); + end; + end; + + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractCGJGSPList.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGSPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ɹӹͬ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmContractCGJGSPList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmContractCGJGSPList.ReadINIFile10(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmContractCGJGSPList.TBChkOkClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set PChkStatus=''ͨ'',PChker='''+Trim(DName)+''''); + sql.Add(',PChkTIme=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGSPList.TBChkNOClick(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then Exit; + if cxTabControl1.TabIndex=3 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('Update Contract_Main Set PChkStatus=NUll,PChker=NUll,PChkNote=NULL '); + sql.Add(',PChkTIme=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmContractCGJGSPList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGSPList.ToolButton8Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ɹӹͬ',cxGrid1); +end; + +procedure TfrmContractCGJGSPList.ToolButton1Click(Sender: TObject); +begin + if cxTabControl1.TabIndex>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(PChkNote.Text)='' then + begin + Application.MessageBox('עΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪͨ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(' Update Contract_Main Set PChkStatus=''ͨ'',PChker='''+Trim(DName)+''''); + sql.Add(',PChkTime=getdate(),PChkNote='''+Trim(PChkNote.Text)+''''); + sql.add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + //ChkNote.Text:=''; + Order_Main.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.dfm new file mode 100644 index 0000000..5372892 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.dfm @@ -0,0 +1,542 @@ +object frmContractCGJGSXSelList: TfrmContractCGJGSXSelList + Left = 34 + Top = 132 + Width = 1341 + Height = 536 + Caption = #37319#36141#21152#24037#21512#21516 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1325 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object ComboBox1: TComboBox + Left = 252 + Top = 5 + Width = 104 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Visible = False + Items.Strings = ( + #37319#36141#21152#24037#21512#21516 + #37319#36141#21152#24037#21512#21516'('#32433#32447')') + end + object TBClose: TToolButton + Left = 356 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1325 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 283 + Top = 22 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 424 + Top = 22 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 580 + Top = 22 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 725 + Top = 22 + Width = 52 + Height = 12 + Caption = #24037#24207#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 322 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 477 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 619 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object ConType: TComboBox + Tag = 1 + Left = 779 + Top = 18 + Width = 84 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = ConNoChange + Items.Strings = ( + #22383#32433 + #26579#32433 + #32455#36896 + '' + '' + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1325 + Height = 411 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1PRTQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1OrderNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1Column3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 118 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column15: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 608 + Top = 163 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1071 + Top = 49 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1005 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 55 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1166 + Top = 54 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1103 + Top = 50 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 440 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 968 + Top = 56 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 508 + Top = 157 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 574 + Top = 162 + end + object SaveDialog1: TSaveDialog + Left = 542 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.pas new file mode 100644 index 0000000..5be877b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractCGJGSXSelList.pas @@ -0,0 +1,368 @@ +unit U_ContractCGJGSXSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles; + +type + TfrmContractCGJGSXSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + Order_Main: TClientDataSet; + Label4: TLabel; + FactoryNoName: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + ConType: TComboBox; + Label14: TLabel; + ToolButton2: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ComboBox1: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + FInt,PFInt:Integer; + canshu1:string; + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure ReadINIFile10(); + { Private declarations } + public + { Public declarations } + end; + +var + frmContractCGJGSXSelList: TfrmContractCGJGSXSelList; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmContractCGJGSXSelList.FormDestroy(Sender: TObject); +begin + frmContractCGJGSXSelList:=nil; +end; + +procedure TfrmContractCGJGSXSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractCGJGSXSelList.TBCloseClick(Sender: TObject); +var + FPath:String; +begin + Close; + WriteCxGrid('SXɹӹͬChk',Tv1,'ͬ'); +end; + +procedure TfrmContractCGJGSXSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where isnull(SSPerson,'''')<>'''' '); + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + sql.Add(' and isnull(Chker,'''')<>'''' and isnull(PChker,'''')<>'''' '); + sql.Add(' and ConType in(''ɴ'',''Ⱦɴ'',''֯'')'); + sql.Add(' and not exists(select * from JYOrder_Main JM where JM.OrderNO=A.ConNo)'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmContractCGJGSXSelList.InitForm(); + +begin + ReadCxGrid('SXɹӹͬChk',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmContractCGJGSXSelList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmContractCGJGSXSelList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractCGJGSXSelList.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf'; + // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɹӹͬ.rmf' ; + fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID'); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmContractCGJGSXSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGSXSelList.ConNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmContractCGJGSXSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractCGJGSXSelList.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''); + sql.Add(' and isnull(SSPerson,'''')<>'''' '); + sql.Add(' and isnull(Chker,'''')<>'''' and isnull(PChker,'''')<>'''' '); + sql.Add(' and ConType in(''ɴ'',''Ⱦɴ'',''֯'')'); + sql.Add(' and not exists(select * from JYOrder_Main JM where JM.OrderNO=A.ConNo)'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractCGJGSXSelList.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + with frmClothContractInPutSXMX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPutSXMX.Free; + end; +end; + +procedure TfrmContractCGJGSXSelList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); +end; + +procedure TfrmContractCGJGSXSelList.ReadINIFile10(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmContractCGJGSXSelList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractCGJGSXSelList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.dfm new file mode 100644 index 0000000..4a19c6f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.dfm @@ -0,0 +1,706 @@ +object frmContractChkList: TfrmContractChkList + Left = 42 + Top = 129 + Width = 1244 + Height = 600 + Caption = #35746#21333#21512#21516#23457#26680 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1233 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 363 + Top = 0 + Caption = #23457#25209#36890#36807 + ImageIndex = 114 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 446 + Top = 0 + Caption = #23457#25209#25764#38144 + ImageIndex = 129 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 529 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 592 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 655 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 718 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1233 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 177 + Top = 39 + Width = 40 + Height = 12 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 311 + Top = 15 + Width = 52 + Height = 12 + Caption = #20844#21496#25260#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 177 + Top = 15 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 311 + Top = 40 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 463 + Top = 15 + Width = 26 + Height = 12 + Caption = #35268#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 463 + Top = 40 + Width = 26 + Height = 12 + Caption = #25104#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 36 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 218 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object SYRName: TEdit + Tag = 2 + Left = 364 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 218 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object PRTCode: TEdit + Tag = 2 + Left = 364 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object PRTSpec: TEdit + Tag = 2 + Left = 489 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object PRTCF: TEdit + Tag = 2 + Left = 489 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1233 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #24453#23457#25209 + #24050#23457#25209 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1233 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 9 + Top = 133 + Width = 1224 + Height = 220 + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MPRTCF + end + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v1Column8: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'ZFPayment' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column17: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'PriceTK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 84 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column14: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'DJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #24050#20998#37197#23450#37329 + DataBinding.FieldName = 'FPDJMoney' + Options.Editing = False + Width = 72 + end + object v1Column16: TcxGridDBColumn + Caption = #26410#20998#37197#23450#37329 + DataBinding.FieldName = 'WFPDJMoney' + Options.Editing = False + Width = 72 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v1Column18: TcxGridDBColumn + Caption = #24050#20316#24223 + DataBinding.FieldName = 'ZuoFeiFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column19: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column20: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column21: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 248 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 208 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 392 + Top = 200 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object CDS_PRT10: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 264 + end + object RMDBDataSet2: TRMDBDataSet + Visible = True + DataSet = CDS_PRT10 + Left = 408 + Top = 256 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.pas new file mode 100644 index 0000000..d24a401 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractChkList.pas @@ -0,0 +1,618 @@ +unit U_ContractChkList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxPC; + +type + TfrmContractChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + ComboBox1: TComboBox; + cxTabControl1: TcxTabControl; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label4: TLabel; + Label6: TLabel; + Label9: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + CustomerNoName: TEdit; + SYRName: TEdit; + ConNo: TEdit; + PRTCode: TEdit; + PRTSpec: TEdit; + PRTCF: TEdit; + CDS_PRT10: TClientDataSet; + RMDBDataSet2: TRMDBDataSet; + ToolButton2: TToolButton; + ToolButton5: TToolButton; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmContractChkList: TfrmContractChkList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmContractChkList.FormDestroy(Sender: TObject); +begin + frmContractChkList:=nil; +end; + +procedure TfrmContractChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractChkList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmContractChkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmContractChkList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + SQL.Add(' and isnull(ChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(ChkTime,'''')<>'''' and ZuoFeiFlag=0 '); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and isnull(PChker,'''')='''' and ZuoFeiFlag=1 '); + end else + if cxTabControl1.TabIndex=3 then + begin + SQL.Add(' and isnull(PChker,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmContractChkList.InitForm(); +begin + ReadCxGrid('ͬбѡ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractChkList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmContractChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractChkList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmContractChkList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice+isnull(BaoGangFee,0),BaoGangFee10=isnull(B.BaoGangFee,0) '); + sql.Add(',KHName=(select KHName from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',KHNameEng=(select KHNameEng from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT10); + SInitCDSData20(ADOQueryTemp,CDS_PRT10); + if FileExists(fPrintFile) then + begin + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; +procedure TfrmContractChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc '); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractChkList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractChkList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractChkList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractChkList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractChkList.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmContractChkList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where 1=1'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + SQL.Add(' and isnull(ChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(ChkTime,'''')<>'''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and isnull(PChker,'''')='''' and ZuoFeiFlag=1 '); + end else + if cxTabControl1.TabIndex=3 then + begin + SQL.Add(' and isnull(PChker,'''')<>'''' '); + end; + sql.Add(' and ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractChkList.ToolButton3Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractChkList.ToolButton4Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set Chker=NUll'); + SQL.Add(',ChkTime=NUll,ChkStatus=Null '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractChkList.ToolButton2Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set PChker='''+Trim(DName)+''''); + SQL.Add(',PChkTime=getdate(),PChkStatus=''ͨ'' '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractChkList.ToolButton5Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>3 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set PChker=NUll'); + SQL.Add(',PChkTime=NUll,PChkStatus=Null '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractList.dfm new file mode 100644 index 0000000..9a47c6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractList.dfm @@ -0,0 +1,942 @@ +object frmContractList: TfrmContractList + Left = 39 + Top = 71 + Width = 1249 + Height = 594 + Caption = #35746#21333#21512#21516 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1233 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object ToolButton3: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20316#24223#36865#23457 + ImageIndex = 32 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #20316#24223#25764#38144 + ImageIndex = 52 + OnClick = ToolButton6Click + end + object TBExport: TToolButton + Left = 765 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 828 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 891 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 954 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object cxGrid1: TcxGrid + Left = -7 + Top = 125 + Width = 1224 + Height = 220 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MPRTCF + end + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v1Column8: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'ZFPayment' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column17: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'PriceTK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 84 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column14: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'DJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #24050#20998#37197#23450#37329 + DataBinding.FieldName = 'FPDJMoney' + Options.Editing = False + Width = 72 + end + object v1Column16: TcxGridDBColumn + Caption = #26410#20998#37197#23450#37329 + DataBinding.FieldName = 'WFPDJMoney' + Options.Editing = False + Width = 72 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v1Column21: TcxGridDBColumn + Caption = #24050#20316#24223 + DataBinding.FieldName = 'ZuoFeiFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column18: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column19: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column20: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1233 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 177 + Top = 39 + Width = 40 + Height = 12 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 311 + Top = 15 + Width = 52 + Height = 12 + Caption = #20844#21496#25260#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 177 + Top = 15 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 311 + Top = 40 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 463 + Top = 15 + Width = 26 + Height = 12 + Caption = #35268#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 463 + Top = 40 + Width = 26 + Height = 12 + Caption = #25104#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 36 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 218 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object SYRName: TEdit + Tag = 2 + Left = 364 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 218 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object PRTCode: TEdit + Tag = 2 + Left = 364 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object PRTSpec: TEdit + Tag = 2 + Left = 489 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object PRTCF: TEdit + Tag = 2 + Left = 489 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1233 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24050#20316#24223 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1233 + ClientRectTop = 23 + end + object Panel2: TPanel + Left = 0 + Top = 360 + Width = 1233 + Height = 195 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Label7: TLabel + Left = 2 + Top = 2 + Width = 13 + Height = 191 + Align = alLeft + Caption = #13#10#13#10#13#10#23450#13#10#13#10#37329#13#10#13#10#20998#13#10#13#10#37197 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Panel3: TPanel + Left = 15 + Top = 2 + Width = 66 + Height = 191 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 28 + Width = 57 + Height = 22 + Caption = #22686#21152 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 68 + Width = 57 + Height = 22 + Caption = #21024#38500 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 108 + Width = 57 + Height = 22 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + end + object cxGrid2: TcxGrid + Left = 81 + Top = 2 + Width = 1150 + Height = 191 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object VDate: TcxGridDBColumn + Tag = 2 + Caption = #20998#37197#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 110 + end + object v2Column3: TcxGridDBColumn + Caption = #25910#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '$' + #65509 + #8364) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object VYB: TcxGridDBColumn + Tag = 2 + Caption = #25910#27454#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v2Column2: TcxGridDBColumn + Caption = #20998#37197#23450#37329 + DataBinding.FieldName = 'FPMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 352 + Width = 1233 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + Visible = False + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 248 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 208 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 392 + Top = 200 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 448 + Top = 248 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 400 + Top = 440 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 368 + Top = 440 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 520 + Top = 424 + end + object CDS_PRT10: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 264 + end + object RMDBDataSet2: TRMDBDataSet + Visible = True + DataSet = CDS_PRT10 + Left = 408 + Top = 256 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractList.pas new file mode 100644 index 0000000..d96aa1d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractList.pas @@ -0,0 +1,999 @@ +unit U_ContractList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxPC, cxDropDownEdit, cxTextEdit; + +type + TfrmContractList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + v1OrdDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label6: TLabel; + Label9: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CustomerNoName: TEdit; + SYRName: TEdit; + ConNo: TEdit; + v1Column2: TcxGridDBColumn; + ComboBox1: TComboBox; + cxTabControl1: TcxTabControl; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Label2: TLabel; + PRTCode: TEdit; + Label3: TLabel; + Label5: TLabel; + PRTSpec: TEdit; + PRTCF: TEdit; + v1Column13: TcxGridDBColumn; + Panel2: TPanel; + cxSplitter1: TcxSplitter; + Label7: TLabel; + Panel3: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + VYB: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column3: TcxGridDBColumn; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + v1Column14: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + CDS_PRT10: TClientDataSet; + RMDBDataSet2: TRMDBDataSet; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + canshu1:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + + { Public declarations } + end; + +var + frmContractList: TfrmContractList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun,U_SKCRFenPei; + +{$R *.dfm} + +procedure TfrmContractList.FormDestroy(Sender: TObject); +begin + frmContractList:=nil; +end; + +procedure TfrmContractList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + canshu1:=Trim(DParameters1); +end; + +procedure TfrmContractList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬбѡ1',Tv1,'ָʾ'); + WriteCxGrid('1',Tv1,'ָʾ'); +end; + +procedure TfrmContractList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + // sql.Add(' ,DJMoney=(select isnull(Sum(FPMoney),0) from SK_Money_FP FP where FP.WBID=B.Subid and FP.FPType='''' )'); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 '); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and ZuoFeiFlag=1 '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmContractList.InitForm(); +begin + ReadCxGrid('ͬбѡ1',Tv1,'ָʾ'); + ReadCxGrid('1',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmContractList.TBEditClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.TBDelClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SK_Money_FP where WBID='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FPType='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ѷ䶨ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmContractList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmContractList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice+isnull(BaoGangFee,0),BaoGangFee10=isnull(B.BaoGangFee,0) '); + sql.Add(',KHName=(select KHName from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',KHNameEng=(select KHNameEng from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT10); + SInitCDSData20(ADOQueryTemp,CDS_PRT10); + if FileExists(fPrintFile) then + begin + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmContractList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc '); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractList.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmContractList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add(' where 1=1'); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(A.SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 '); + end else + if cxTabControl1.TabIndex=2 then + begin + SQL.Add(' and ZuoFeiFlag=1 '); + end; + sql.Add(' and A.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractList.ToolButton3Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set SChker='''+Trim(DName)+''''); + SQL.Add(',SChkTime=getdate() '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractList.ToolButton4Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrderCon_Main '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set SChker=NUll'); + SQL.Add(',SChkTime=NUll '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YS.CRTime,YS.BZType,YS.Money,FP.* '); + sql.Add(' from SK_Money_FP FP'); + sql.Add(' inner join YF_Money_CR YS on FP.YFID=YS.YFID'); + sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add(' and FPType='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmContractList.Button1Click(Sender: TObject); +begin + try + frmSKCRFenPei:=TfrmSKCRFenPei.Create(Application); + with frmSKCRFenPei do + begin + KHName:=Trim(Order_Main.fieldbyname('CustomerNoName').AsString); + if ShowModal=1 then + begin + with Self.ClientDataSet2 do + begin + Append; + FieldByName('YFID').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('YFID').Value; + FieldByName('CRTime').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('CRTime').Value; + FieldByName('BZType').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('BZType').Value; + FieldByName('Money').Value:=frmSKCRFenPei.CDS_HZ.fieldbyname('Money').Value; + FieldByName('FPDate').Value:=Now; + Post; + end; + end; + end; + finally + frmSKCRFenPei.Free; + end; +end; + +procedure TfrmContractList.Button3Click(Sender: TObject); +var + maxsubno:String; +begin + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet2.Locate('FPDate',Null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('FPMoney',Null,[]) then + begin + Application.MessageBox('䶨Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Panel1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + ///ӱ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('FPId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'FP','SK_Money_FP',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet2.fieldbyname('FPId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from SK_Money_FP where FPId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('FPId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + + FieldByName('FPId').Value:=Trim(maxsubno); + FieldByName('YFID').Value:=Trim(ClientDataSet2.fieldbyname('YFID').AsString); + FieldByName('FPTYpe').Value:=''; + FieldByName('FPDate').Value:=ClientDataSet2.fieldbyname('FPDate').Value; + FieldByName('WBID').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + if Trim(ClientDataSet2.fieldbyname('FPMoney').AsString)='' then + begin + fieldbyname('FPMoney').Value:=0 + end else + begin + fieldbyname('FPMoney').Value:=Trim(ClientDataSet2.fieldbyname('FPMoney').AsString); + end; + FieldByName('Note').Value:=Trim(ClientDataSet2.fieldbyname('Note').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Sub Set DJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrderCon_Sub.SubID and A.FPType='''' )'); + sql.Add('where SubID='''+Trim(Order_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Sub Set WFPDJMoney=isnull(DJMoney,0)-isnull(FPDJMoney,0)'); + sql.Add('where SubID='''+Trim(Order_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set FPDJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType='''' )'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set WFPMoney=isnull(Money,0)-isnull(FPDJMoney,0)-isnull(FPHKMoney,0)'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Edit; + ClientDataSet2.FieldByName('FPId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmContractList.Button2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Trim(ClientDataSet2.fieldbyname('FPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete SK_Money_FP where FPID='''+Trim(ClientDataSet2.fieldbyname('FPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderCon_Sub Set DJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.WBID=JYOrderCon_Sub.SubID and A.FPType='''' )'); + sql.Add('where SubID='''+Trim(Order_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Sub Set WFPDJMoney=isnull(DJMoney,0)-isnull(FPDJMoney,0)'); + sql.Add('where SubID='''+Trim(Order_Main.fieldbyname('SubID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set FPDJMoney=(select Sum(FPMoney) from SK_Money_FP A '); + sql.Add(' where A.YFID=YF_Money_CR.YFID and A.FPType='''' )'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set WFPMoney=isnull(Money,0)-isnull(FPDJMoney,0)-isnull(FPHKMoney,0)'); + sql.Add('where YFID='''+Trim(ClientDataSet2.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet2.Delete; +end; + +procedure TfrmContractList.ToolButton5Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from JYOrderCon_Main where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('PChker').AsString<>'' then Exit; + if ADOQueryTemp.FieldByName('ZuoFeiPerson').AsString<>'' then Exit; + if ADOQueryTemp.FieldByName('Chker').AsString='' then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set ZuoFeiPerson='''+Trim(DName)+''''); + SQL.Add(',ZuoFeiTime=getdate(),ZuoFeiFlag=1 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractList.ToolButton6Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from JYOrderCon_Main where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('PChker').AsString<>'' then + begin + Application.MessageBox('Ѿͨܳ!','ʾ',0); + Exit; + end; + if ADOQueryTemp.FieldByName('ZuoFeiPerson').AsString='' then Exit; + if Application.MessageBox('ȷҪִϳ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set ZuoFeiPerson=Null'); + SQL.Add(',ZuoFeiTime=Null,ZuoFeiFlag=0 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.dfm new file mode 100644 index 0000000..7e76dbc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.dfm @@ -0,0 +1,651 @@ +object frmContractSelList: TfrmContractSelList + Left = 49 + Top = 122 + Width = 1244 + Height = 600 + Align = alClient + Caption = #35746#21333#21512#21516#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1233 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + Caption = #36873#25321 + ImageIndex = 31 + OnClick = ToolButton2Click + end + object Panel2: TPanel + Left = 185 + Top = 0 + Width = 97 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + Visible = False + object CheckBox1: TCheckBox + Left = 14 + Top = 8 + Width = 74 + Height = 17 + Caption = #35843#29992#25968#25454 + Checked = True + State = cbChecked + TabOrder = 0 + end + end + object ToolButton1: TToolButton + Left = 282 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 345 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 408 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 471 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 534 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object cxGrid1: TcxGrid + Left = 9 + Top = 101 + Width = 1224 + Height = 369 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MPRTCF + end + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'PRTGY' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 84 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #36741#21161#24037#33402 + DataBinding.FieldName = 'PRTGYHZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 56 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1233 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 319 + Top = 15 + Width = 26 + Height = 12 + Caption = #23458#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 479 + Top = 15 + Width = 52 + Height = 12 + Caption = #20844#21496#25260#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 479 + Top = 40 + Width = 52 + Height = 12 + Caption = #36741#21161#24037#33402 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 177 + Top = 15 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 319 + Top = 40 + Width = 26 + Height = 12 + Caption = #24037#33402 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 177 + Top = 40 + Width = 40 + Height = 12 + Caption = #32534' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 647 + Top = 15 + Width = 26 + Height = 12 + Caption = #35268#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 647 + Top = 40 + Width = 26 + Height = 12 + Caption = #25104#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 36 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 348 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object SYRName: TEdit + Tag = 2 + Left = 532 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object PRTGYHZ: TEdit + Tag = 2 + Left = 532 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 218 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object PRTGY: TEdit + Tag = 2 + Left = 348 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object PRTCode: TEdit + Tag = 2 + Left = 218 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + object PRTSpec: TEdit + Tag = 2 + Left = 673 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = CustomerNoNameChange + end + object PRTCF: TEdit + Tag = 2 + Left = 673 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 9 + OnChange = CustomerNoNameChange + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 248 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 208 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 392 + Top = 200 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.pas new file mode 100644 index 0000000..c7e14d5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractSelList.pas @@ -0,0 +1,491 @@ +unit U_ContractSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxPC; + +type + TfrmContractSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + v1OrdDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1PRTPrice: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label6: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CustomerNoName: TEdit; + SYRName: TEdit; + PRTGYHZ: TEdit; + ConNo: TEdit; + PRTGY: TEdit; + v1Column2: TcxGridDBColumn; + ComboBox1: TComboBox; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Label2: TLabel; + PRTCode: TEdit; + Label3: TLabel; + Label5: TLabel; + PRTSpec: TEdit; + PRTCF: TEdit; + Panel2: TPanel; + CheckBox1: TCheckBox; + ToolButton2: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmContractSelList: TfrmContractSelList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmContractSelList.FormDestroy(Sender: TObject); +begin + frmContractSelList:=nil; +end; + +procedure TfrmContractSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractSelList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmContractSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmContractSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmContractSelList.InitForm(); +begin + ReadCxGrid('ͬбѡ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractSelList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmContractSelList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractSelList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmContractSelList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice,COL=''COL:'' '); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + // + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select TolConMoney=Sum(PRTOrderQty*PRTPrice)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + EngMoney:=num2cengnum(ADOQueryTemp.fieldbyname('TolConMoney').AsString); + EngMoney:=UpperCase(EngMoney); + if FileExists(fPrintFile) then + begin + RMVariables['EngMoney']:=EngMoney; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmContractSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc '); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractSelList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractSelList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractSelList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractSelList.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmContractSelList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(ConNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where 1=1'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + {if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + SQL.Add(' and isnull(ChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(ChkTime,'''')<>'''' '); + end; } + sql.Add(' and A.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractSelList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractSelList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Order_Main.IsEmpty then Exit; + ModalResult:=1; +end; + +procedure TfrmContractSelList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.dfm new file mode 100644 index 0000000..ed0f322 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.dfm @@ -0,0 +1,665 @@ +object frmContractViewList: TfrmContractViewList + Left = 126 + Top = 114 + Width = 1244 + Height = 600 + Caption = #35746#21333#21512#21516#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1228 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + Visible = False + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 552 + Top = 3 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1228 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 177 + Top = 39 + Width = 40 + Height = 12 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 311 + Top = 15 + Width = 52 + Height = 12 + Caption = #20844#21496#25260#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 177 + Top = 15 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 311 + Top = 40 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 463 + Top = 15 + Width = 26 + Height = 12 + Caption = #35268#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 463 + Top = 40 + Width = 26 + Height = 12 + Caption = #25104#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 36 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 218 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object SYRName: TEdit + Tag = 2 + Left = 364 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 218 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoKeyPress + end + object PRTCode: TEdit + Tag = 2 + Left = 364 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object PRTSpec: TEdit + Tag = 2 + Left = 489 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object PRTCF: TEdit + Tag = 2 + Left = 489 + Top = 36 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1228 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1228 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 1 + Top = 133 + Width = 1224 + Height = 220 + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MPRTCF + end + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v1Column8: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'ZFPayment' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column17: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'PriceTK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 84 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'PRTMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column14: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'DJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #24050#20998#37197#23450#37329 + DataBinding.FieldName = 'FPDJMoney' + Options.Editing = False + Width = 72 + end + object v1Column16: TcxGridDBColumn + Caption = #26410#20998#37197#23450#37329 + DataBinding.FieldName = 'WFPDJMoney' + Options.Editing = False + Width = 72 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PRTNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 56 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 248 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 208 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 392 + Top = 200 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object CDS_PRT10: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 264 + end + object RMDBDataSet2: TRMDBDataSet + Visible = True + DataSet = CDS_PRT10 + Left = 408 + Top = 256 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.pas b/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.pas new file mode 100644 index 0000000..9eeb37f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ContractViewList.pas @@ -0,0 +1,538 @@ +unit U_ContractViewList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxPC; + +type + TfrmContractViewList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + ComboBox1: TComboBox; + cxTabControl1: TcxTabControl; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label4: TLabel; + Label6: TLabel; + Label9: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + CustomerNoName: TEdit; + SYRName: TEdit; + ConNo: TEdit; + PRTCode: TEdit; + PRTSpec: TEdit; + PRTCF: TEdit; + CDS_PRT10: TClientDataSet; + RMDBDataSet2: TRMDBDataSet; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmContractViewList: TfrmContractViewList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmContractViewList.FormDestroy(Sender: TObject); +begin + frmContractViewList:=nil; +end; + +procedure TfrmContractViewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmContractViewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmContractViewList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬбѡ',Tv1,'ָʾ'); +end; + +procedure TfrmContractViewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where A.OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and A.OrdDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + SQL.Add(' and isnull(ChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(ChkTime,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmContractViewList.InitForm(); +begin + ReadCxGrid('ͬбѡ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractViewList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmContractViewList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmContractViewList.TBExportClick(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv1,ADOQueryMain,'ָʾб'); + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ͬ',cxGrid1); +end; + +procedure TfrmContractViewList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + EngMoney:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ӣĺͬ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice '); + sql.Add(',KHName=(select KHName from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',KHNameEng=(select KHNameEng from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT10); + SInitCDSData20(ADOQueryTemp,CDS_PRT10); + if FileExists(fPrintFile) then + begin + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ӣĺͬ.rmf'),'ʾ',0); + end; +end; +procedure TfrmContractViewList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc '); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmContractViewList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmContractViewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmContractViewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmContractViewList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmConInPut:=TfrmConInPut.Create(Application); + with frmConInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmConInPut.Free; + end; +end; + +procedure TfrmContractViewList.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmContractViewList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrderCon_Main A '); + sql.Add(' inner join JYOrderCon_Sub B on A.MainId=B.MainId'); + SQL.Add('where 1=1'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; } + if cxTabControl1.TabIndex=0 then + begin + SQL.Add(' and isnull(SChkTime,'''')<>'''' '); + SQL.Add(' and isnull(ChkTime,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + SQL.Add(' and isnull(ChkTime,'''')<>'''' '); + end; + sql.Add(' and ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmContractViewList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmContractViewList.ToolButton3Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmContractViewList.ToolButton4Click(Sender: TObject); +var + FFFId:String; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrderCon_Main Set Chker=NUll'); + SQL.Add(',ChkTime=NUll,ChkStatus=Null '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('MainId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('MainId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm new file mode 100644 index 0000000..7c4060f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm @@ -0,0 +1,351 @@ +object frmDJBCKInPut: TfrmDJBCKInPut + Left = 55 + Top = 111 + Width = 1283 + Height = 502 + Align = alClient + Caption = #24453#26816#24067#20837#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1267 + Height = 431 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column11 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #25104#21697#37319#36141) + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column17: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 60 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'KG' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column16PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1267 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 50 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas new file mode 100644 index 0000000..7aa74af --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas @@ -0,0 +1,847 @@ +unit U_DJBCKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmDJBCKInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + v1Column4: TcxGridDBColumn; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + function YSData(Order_Main10:TClientDataSet):Boolean; + public + { Public declarations } + FBCId:String; + fckName:String; + end; + +var + frmDJBCKInPut: TfrmDJBCKInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel, + U_ZdyAttachCP; + +{$R *.dfm} + + +function TfrmDJBCKInPut.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,PriceUnit,OrderUnit,FComTaiTou,FromSubID,khName:String; + fprice,huilv:double; +begin + Result:=False; + fprice:=0; + huilv:=0; + PriceUnit:='RMB'; + khName:=''; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('update JYOrder_Sub SET Huilv=isnull((select Huilv from JYOrderCon_Sub X where X.SubId=JYOrder_Sub.SOrddefstr10),1) where Huilv=0'); + execsql; + end; + with Order_Main10 do + begin + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select A.*,fPrice=dbo.F_Get_Order_Price(A.MainID,A.subID),B.customerNoName'); + sql.Add(' from JYOrder_Sub A '); + sql.Add(' inner join JYOrder_main B on B.mainID=A.mainID '); + sql.Add(' Where subID='''+Trim(Order_Main10.fieldbyname('ORDSubIdRK').AsString)+''''); + Open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + PriceUnit:=Trim(ADOQueryTemp.fieldbyname('PriceUnit').AsString); + OrderUnit:=Trim(ADOQueryTemp.fieldbyname('OrderUnit').AsString); + fPrice:= ADOQueryTemp.fieldbyname('fPrice').AsFloat; + huilv:= ADOQueryTemp.fieldbyname('huilv').AsFloat; + khName:= ADOQueryTemp.fieldbyname('customerNoName').AsString; + end; + IF huilv=0 then huilv:=1; + CRID:='0'; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and YFName=''ͻ˻'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡƷӦʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(Order_Main10.fieldbyname('SPID').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦտǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:=Trim(KHName); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CDS_Sub.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('ps').Value:=-1*Order_Main10.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value:=-1*Order_Main10.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value:=fprice; + FieldByName('HuiLv').Value:=huilv; + FieldByName('BZType').Value:=Trim(PriceUnit); + // FieldByName('Money').Value:=-1*format('%.2f',[Order_Main10.fieldbyname('Qty').AsFloat*fprice]); + // FieldByName('BBMoney').Value:=-1*format('%.2f',[Order_Main10.fieldbyname('Qty').AsFloat*fprice*huilv]); + FieldByName('QtyUnit').Value:=Trim(Order_Main10.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(KHName); + FieldByName('YFName').Value:='ͻ˻'; + FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('SPID').AsString); + FieldByName('subID').Value:=''; + FieldByName('OrderNO').Value:=Trim(Order_Main10.fieldbyname('OrderNO').AsString); + FieldByName('P_CodeName').Value:=Trim(Order_Main10.fieldbyname('SPName').AsString); + FieldByName('P_Spec').Value:=Trim(Order_Main10.fieldbyname('SPSpec').AsString); + FieldByName('P_color').Value:=Trim(Order_Main10.fieldbyname('SPColor').AsString); + FieldByName('status').Value:='0'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + + //Next; + end; + end; + Result:=True; +end; + +procedure TfrmDJBCKInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBCKInPut.TBAddClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty=False then + begin + CopyAddRowCDS(CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('SPID').Value:=null; + post; + end; + end else + begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + FieldByName('SPType').Value:='Ʒ'; + Post; + end; + end; + + + +end; +function TfrmDJBCKInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FFSPID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+''''); + SQL.Add(' and isnull(CKName,'''')=''ɴ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+FCRID); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=FCRID; + FieldByName('CKName').Value:='ɴ'; + FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value; + FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value; + FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value; + FieldByName('SPCF').Value:=CDS_Sub.fieldbyname('SPCF').Value; + FieldByName('ShaZhi').Value:=CDS_Sub.fieldbyname('ShaZhi').Value; + FieldByName('SeBie').Value:=CDS_Sub.fieldbyname('SeBie').Value; + FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value; + Post; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'DR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ첼ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FFSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(Maxno)+''''); + sql.Add(' and YFName=''ͻ˻'' '); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FFSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('FZSPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:=trim(fckName); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + //FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + if Trim(FFSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then + begin + FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(Maxno)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ܱ!','ʾ',0); + Exit; + end; + } + { if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + //FieldByName('CRID').Value:=Trim(FCRID); + Post; + + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ͻ˻' then + begin + if not YSData(CDS_Sub) then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + exit; + end; + end; + + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmDJBCKInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼Ǽ',Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBCKInPut.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('첼Ǽ',Tv1,'첼ֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); + if CDS_Sub.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + v1Column4.Options.Focusing:=False; + // v1Column15.Options.Focusing:=False; + v1Column14.Options.Focusing:=False; + v2Column1.Options.Focusing:=False; + v1Column8.Options.Focusing:=False; + v1Column7.Options.Focusing:=False; + v1Column1.Options.Focusing:=False; + v1Column10.Options.Focusing:=False; + Exit; + end else + begin + v1Column4.Options.Focusing:=True; + //v1Column15.Options.Focusing:=True; + v1Column14.Options.Focusing:=True; + v2Column1.Options.Focusing:=True; + v1Column8.Options.Focusing:=True; + v1Column7.Options.Focusing:=True; + v1Column1.Options.Focusing:=True; + v1Column10.Options.Focusing:=True; + end; +end; + +procedure TfrmDJBCKInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmDJBCKInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPcolor',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmDJBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXKuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; + +end; + +procedure TfrmDJBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('SPSpec').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr1').AsString); + FieldByName('SPColor').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr3').AsString); + FieldByName('SPCF').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr2').AsString); + FieldByName('SPMF').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr7').AsString); + FieldByName('SPKZ').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPKZ').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPCode').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('CPID').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ATID').AsString); + end; + end; + end; + finally + frmZdyAttachCP.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + FieldByName('SPName').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString); + FieldByName('SPSpec').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString); + FieldByName('SPColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('SPCF').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCF').AsString); + FieldByName('SPMF').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString); + FieldByName('SPKZ').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString); + FieldByName('SPHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmDJBCKInPut.ToolButton1Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,CDS_Sub); +end; + +procedure TfrmDJBCKInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + fieldname:string; +begin + fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with CDS_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('Money').Value:=strtofloat(format('%.2f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + Tv1.Controller.EditingController.ShowEdit(); + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm new file mode 100644 index 0000000..17b6398 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm @@ -0,0 +1,598 @@ +object frmDJBCKKCList: TfrmDJBCKKCList + Left = 171 + Top = 133 + Width = 1181 + Height = 511 + Caption = #24453#26816#24067#24211#23384#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 31 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1165 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 466 + Top = 136 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label1: TLabel + Left = 630 + Top = 152 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label2: TLabel + Left = 274 + Top = 140 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label9: TLabel + Left = 486 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label10: TLabel + Left = 638 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label11: TLabel + Left = 766 + Top = 120 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label13: TLabel + Left = 486 + Top = 36 + Width = 48 + Height = 12 + Caption = #33457#22411#33457#21495 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 515 + Top = 133 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 679 + Top = 149 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object KuWei: TEdit + Tag = 2 + Left = 322 + Top = 136 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 534 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 663 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SOrddefstr1: TEdit + Tag = 2 + Left = 791 + Top = 116 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 535 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1165 + Height = 380 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#21495#33457#22411 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column19: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + Width = 67 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.pas new file mode 100644 index 0000000..c32b791 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.pas @@ -0,0 +1,234 @@ +unit U_DJBCKKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmDJBCKKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + Label2: TLabel; + KuWei: TEdit; + v1Column19: TcxGridDBColumn; + Label9: TLabel; + RCGangNo: TEdit; + Label10: TLabel; + SPColor: TEdit; + Label11: TLabel; + SOrddefstr1: TEdit; + Label13: TLabel; + PRTHX: TEdit; + ToolButton2: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + fckname:string; + { Public declarations } + end; + +var + frmDJBCKKCList: TfrmDJBCKKCList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmDJBCKKCList.FormDestroy(Sender: TObject); +begin + frmDJBCKKCList:=nil; +end; + +procedure TfrmDJBCKKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBCKKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(A.CKName,'''')='''+trim(fckName)+''' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmDJBCKKCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmDJBCKKCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBCKKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼б',Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBCKKCList.FormShow(Sender: TObject); +begin + ReadCxGrid('첼б',Tv1,'첼ֿ'); + //InitGrid(); +end; + +procedure TfrmDJBCKKCList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmDJBCKKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmDJBCKKCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBCKKCList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCList.ToolButton1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmDJBCKKCList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmDJBCKKCList.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('첼',cxGrid2); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.dfm new file mode 100644 index 0000000..13dc27b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.dfm @@ -0,0 +1,624 @@ +object frmDJBCKKCSelList: TfrmDJBCKKCSelList + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Align = alClient + Caption = #24453#26816#24067#24211#23384#36873#25321#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 31 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1366 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 458 + Top = 156 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label1: TLabel + Left = 458 + Top = 180 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label2: TLabel + Left = 674 + Top = 168 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label9: TLabel + Left = 490 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label10: TLabel + Left = 490 + Top = 36 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label11: TLabel + Left = 806 + Top = 176 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label13: TLabel + Left = 655 + Top = 12 + Width = 48 + Height = 12 + Caption = #33457#22411#33457#21495 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #29616#36135#36716#22806#36152 + '' + '') + end + object SPCF: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 507 + Top = 153 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 507 + Top = 177 + Width = 108 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object KuWei: TEdit + Tag = 2 + Left = 722 + Top = 164 + Width = 65 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 538 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 538 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SOrddefstr1: TEdit + Tag = 2 + Left = 823 + Top = 172 + Width = 65 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object SPHX: TEdit + Tag = 2 + Left = 703 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1366 + Height = 619 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column20: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#21495#33457#22411 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + Options.Editing = False + Width = 67 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.pas new file mode 100644 index 0000000..98b1d14 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.pas @@ -0,0 +1,234 @@ +unit U_DJBCKKCSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmDJBCKKCSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + Label2: TLabel; + KuWei: TEdit; + v1Column19: TcxGridDBColumn; + Label9: TLabel; + RCGangNo: TEdit; + Label10: TLabel; + SPColor: TEdit; + Label11: TLabel; + SOrddefstr1: TEdit; + Label13: TLabel; + SPHX: TEdit; + v1Column20: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + { Private declarations } + public + fckName:string; + { Public declarations } + end; + +var + frmDJBCKKCSelList: TfrmDJBCKKCSelList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmDJBCKKCSelList.FormDestroy(Sender: TObject); +begin + frmDJBCKKCSelList:=nil; +end; + +procedure TfrmDJBCKKCSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBCKKCSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')='''+trim(fckName)+''' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmDJBCKKCSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmDJBCKKCSelList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBCKKCSelList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼ѡб',Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBCKKCSelList.FormShow(Sender: TObject); +begin + ReadCxGrid('첼ѡб',Tv1,'첼ֿ'); + //InitGrid(); +end; + +procedure TfrmDJBCKKCSelList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmDJBCKKCSelList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCSelList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmDJBCKKCSelList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBCKKCSelList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCSelList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKKCSelList.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +procedure TfrmDJBCKKCSelList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm new file mode 100644 index 0000000..db8449d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm @@ -0,0 +1,754 @@ +object frmDJBCKOutList: TfrmDJBCKOutList + Left = 81 + Top = 35 + Width = 1210 + Height = 583 + Caption = #24453#26816#24067#20986#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1194 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20986#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + Caption = #25171#21360#26816#39564#25351#31034#21333 + ImageIndex = 4 + OnClick = ToolButton3Click + end + object TBExport: TToolButton + Left = 434 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1194 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 20 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 56 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 332 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 468 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label8: TLabel + Left = 332 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label6: TLabel + Left = 736 + Top = 124 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 340 + Top = 108 + Width = 60 + Height = 12 + Caption = #26469#33258#35746#21333#21495 + end + object Label10: TLabel + Left = 340 + Top = 132 + Width = 60 + Height = 12 + Caption = #20986#21040#35746#21333#21495 + end + object Label11: TLabel + Left = 534 + Top = 96 + Width = 60 + Height = 12 + Caption = #26469#33258#21152#24037#21378 + end + object Label13: TLabel + Left = 534 + Top = 120 + Width = 60 + Height = 12 + Caption = #20986#21040#21152#24037#21378 + end + object Label9: TLabel + Left = 618 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label14: TLabel + Left = 618 + Top = 36 + Width = 48 + Height = 12 + Caption = #26412#21378#32568#21495 + end + object Label15: TLabel + Left = 467 + Top = 36 + Width = 36 + Height = 12 + Caption = #39068' '#33394 + end + object Label16: TLabel + Left = 883 + Top = 96 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label17: TLabel + Left = 659 + Top = 148 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label18: TLabel + Left = 777 + Top = 12 + Width = 36 + Height = 12 + Caption = #25805#20316#21592 + end + object BegDate: TDateTimePicker + Left = 69 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 69 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 359 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 506 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 359 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #26816#39564#20986#24211 + #21152#24037#20986#24211 + #22238#20462#20986#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 774 + Top = 120 + Width = 60 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object QCorderNo: TEdit + Tag = 2 + Left = 400 + Top = 105 + Width = 60 + Height = 20 + TabOrder = 8 + OnChange = TBFindClick + end + object CKorderNo: TEdit + Tag = 2 + Left = 400 + Top = 129 + Width = 60 + Height = 20 + TabOrder = 9 + OnChange = TBFindClick + end + object FromFactoryName: TEdit + Tag = 2 + Left = 594 + Top = 93 + Width = 60 + Height = 20 + TabOrder = 10 + OnChange = TBFindClick + end + object ToFactoryName: TEdit + Tag = 2 + Left = 594 + Top = 117 + Width = 60 + Height = 20 + TabOrder = 11 + OnChange = TBFindClick + end + object RCGangNo: TEdit + Tag = 2 + Left = 667 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = TBFindClick + end + object GangNo: TEdit + Tag = 2 + Left = 667 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = TBFindClick + end + object SPColor: TEdit + Tag = 2 + Left = 506 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = TBFindClick + end + object SOrddefstr1: TEdit + Tag = 2 + Left = 908 + Top = 93 + Width = 60 + Height = 20 + TabOrder = 15 + OnChange = TBFindClick + end + object SPHX: TEdit + Tag = 2 + Left = 684 + Top = 145 + Width = 60 + Height = 20 + TabOrder = 16 + OnChange = TBFindClick + end + object Filler: TEdit + Tag = 2 + Left = 814 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 17 + OnChange = TBFindClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1194 + Height = 448 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column21: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #36864#36135) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column15: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column20: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 79 + end + object v1Column22: TcxGridDBColumn + Caption = #25442#31639#31995#25968 + DataBinding.FieldName = 'XS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 972 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1028 + Top = 152 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + Top = 152 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 916 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 944 + Top = 152 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 396 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 508 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 452 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 344 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 792 + Top = 232 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 368 + Top = 232 + ReportData = {} + end + object RMBarCodeObject1: TRMBarCodeObject + Left = 536 + Top = 232 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas new file mode 100644 index 0000000..d3816a4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas @@ -0,0 +1,500 @@ +unit U_DJBCKOutList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, RM_BarCode; + +type + TfrmDJBCKOutList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + QCorderNo: TEdit; + Label10: TLabel; + CKorderNo: TEdit; + Label11: TLabel; + FromFactoryName: TEdit; + Label13: TLabel; + ToFactoryName: TEdit; + Label9: TLabel; + Label14: TLabel; + RCGangNo: TEdit; + GangNo: TEdit; + v1Column15: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + ToolButton3: TToolButton; + ADOQueryPrint: TADOQuery; + v1Column21: TcxGridDBColumn; + Label15: TLabel; + SPColor: TEdit; + Label16: TLabel; + SOrddefstr1: TEdit; + Label17: TLabel; + SPHX: TEdit; + RM1: TRMGridReport; + RMBarCodeObject1: TRMBarCodeObject; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + Filler: TEdit; + Label18: TLabel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure SPNameChange(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + canshu1,canshu2:string; + procedure InitGrid(); + { Private declarations } + public + fckName:string; + { Public declarations } + end; + +var + frmDJBCKOutList: TfrmDJBCKOutList; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKOutPut; + +{$R *.dfm} + +procedure TfrmDJBCKOutList.FormDestroy(Sender: TObject); +begin + frmDJBCKOutList:=nil; +end; + +procedure TfrmDJBCKOutList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBCKOutList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmDJBCKOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + SQL.Add(' and A.CRFlag='''' '); + SQL.Add(' and isnull(A.CKName,'''')='''+trim(fckName)+''' '); + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmDJBCKOutList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmDJBCKOutList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBCKOutList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹбPMD',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmDJBCKOutList.FormShow(Sender: TObject); +begin + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end; + ReadCxGrid('ӹбPMD',Tv1,'ӹֿ'); + //InitGrid(); +end; + +procedure TfrmDJBCKOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ӹб',cxGrid2); +end; + +procedure TfrmDJBCKOutList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmDJBCKOutList.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBCKOutList.SPIDKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmDJBCKOutList.N1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not eof do + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='' then + begin + Edit; + FieldByName('SSel').Value:=True; + Post; + end; + Next; + end; + end; + CDS_Main.EnableControls; +end; + +procedure TfrmDJBCKOutList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBCKOutList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from WFB_MJJY where isnull(APID,'''')='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Exit; + end; + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('FZSPID').AsString)+''''); + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + begin + sql.Add(' delete CK_SXPB_CR where isnull(PYID,'''')='''+Trim(CDS_Main.fieldbyname('PYID').AsString)+''''); + end; + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end; + CDS_Main.Delete; +end; + +procedure TfrmDJBCKOutList.TBAddClick(Sender: TObject); +begin + try + frmDJBCKOutPut:=TfrmDJBCKOutPut.Create(Application); + with frmDJBCKOutPut do + begin + FBCId:=''; + fckName:=self.fckName; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBCKOutPut.Free; + end; +end; + +procedure TfrmDJBCKOutList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼޸!','ʾ',0); + Exit; + end; + try + frmDJBCKOutPut:=TfrmDJBCKOutPut.Create(Application); + with frmDJBCKOutPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + fckName:=self.fckName; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBCKOutPut.Free; + end; + +end; + +procedure TfrmDJBCKOutList.ToolButton3Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; + +begin + if CDS_Main.IsEmpty then Exit; + //if Trim(CDS_Main.fieldbyname('CRType').AsString)<>'' then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while CDS_Main.Locate('SSel',True,[]) do + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where A.SPId='''+Trim(CDS_Main.fieldbyname('SPId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_PRT); + SInitCDSData20(ADOQueryPrint,CDS_PRT); + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_PRT.fieldbyname('SPID').AsString); + fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath) then DeleteFile(fImagePath); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + except + CDS_Main.EnableControls; + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + CDS_Main.EnableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + end; + CDS_Main.EnableControls; + +end; + +procedure TfrmDJBCKOutList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CRType').AsString)<>'' then + begin + Tv1.OptionsSelection.CellSelect:=False; + end else + begin + Tv1.OptionsSelection.CellSelect:=True; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm new file mode 100644 index 0000000..44b365c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm @@ -0,0 +1,316 @@ +object frmDJBCKOutPut: TfrmDJBCKOutPut + Left = 78 + Top = 122 + Width = 1215 + Height = 502 + Align = alClient + Caption = #24453#26816#24067#20986#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1199 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 50 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1199 + Height = 431 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1CRType: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #26816#39564#20986#24211 + #21152#24037#20986#24211 + #22238#20462#20986#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column20: TcxGridDBColumn + Tag = 2 + Caption = #25442#31639#31995#25968 + DataBinding.FieldName = 'Xs' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 496 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 336 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 432 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.pas new file mode 100644 index 0000000..33432e5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.pas @@ -0,0 +1,589 @@ +unit U_DJBCKOutPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, cxSpinEdit; + +type + TfrmDJBCKOutPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CRType: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v1Column19: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + ToolButton1: TToolButton; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + fckName:string; + end; + +var + frmDJBCKOutPut: TfrmDJBCKOutPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp,U_DJBCKKCSelList, + U_GYSSelList, U_ZdyAttachGYS, U_ProductOrderListSel; + +{$R *.dfm} + +procedure TfrmDJBCKOutPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBCKOutPut.TBAddClick(Sender: TObject); +begin + try + frmDJBCKKCSelList:=TfrmDJBCKKCSelList.Create(Application); + with frmDJBCKKCSelList do + begin + fckName:=self.fckName; + ToolButton1.Visible:=True; + if ShowModal=1 then + begin + frmDJBCKKCSelList.CDS_Main.DisableControls; + with frmDJBCKKCSelList.CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + FieldByName('ORDMainIdRK').Value:=Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString); + FieldByName('ORDMainIdCK').Value:=Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(frmDJBCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString); + FieldByName('QCOrderNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('CKOrderNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('SOrddefstr1').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SOrddefstr1').AsString; + FieldByName('PRTColor').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('PRTColor').AsString; + FieldByName('PRTHX').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('PRTHX').AsString; + FieldByName('FactoryName').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value; + FieldByName('SSType').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SSType').Value; + FieldByName('SPType').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPType').Value; + FieldByName('SPName').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPName').Value; + FieldByName('SPSpec').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value; + FieldByName('SPColor').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPColor').Value; + FieldByName('SPCF').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPKZ').Value; + FieldByName('SPHX').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPHX').Value; + // FieldByName('SPColor').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPColor').Value; + FieldByName('RCGangNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('RCGangNo').Value; + FieldByName('FromFactoryName').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('FromFactoryNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value; + FieldByName('ToFactoryName').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('ToFactoryNo').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value; + FieldByName('QtyUnit').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('PiQty').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value; + FieldByName('Qty').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value; + FieldByName('FZSPID').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPID').Value; + end; + frmDJBCKKCSelList.CDS_Main.Delete; + end; + end; + frmDJBCKKCSelList.CDS_Main.EnableControls; + + end; + end; + finally + frmDJBCKKCSelList.Free; + end; +end; +function TfrmDJBCKOutPut.SaveCKData():Boolean; +var + FCRID,Maxno,FSPID,MaxPYNo,FPYID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + FSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ첼ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + FieldByName('FZSPID').Value:=Trim(CDS_Sub.fieldbyname('FZSPID').AsString); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=-1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + FieldByName('CKName').Value:=fckName; + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + FieldByName('PYID').Value:=Trim(Maxno); + end; + if Trim(FSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('Xs').Value:=CDS_Sub.fieldbyname('Xs').AsFloat; + FieldByName('PiQty').Value:=CDS_Sub.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value:=CDS_Sub.fieldbyname('Qty').AsFloat; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!','ʾ',0); + Exit; + end; + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where PYID='''+Trim(Maxno)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'' '); + Open; + end; + FPYID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FPYID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxPYNo,'YR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӹƽʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxPYNo:=Trim(FPYID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(MaxPYNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FPYID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(MaxPYNo); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + {FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);} + FieldByName('FZSPID').Value:=Trim(MaxPYNo); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + FieldByName('CKName').Value:='ӹ'; + FieldByName('CRType').Value:='ƽ'; + FieldByName('PYID').Value:=Trim(Maxno); + if Trim(FPYID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(MaxPYNo)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(MaxPYNo)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!','ʾ',0); + Exit; + end; + end; + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + Post; + + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmDJBCKOutPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼ǼPMD',Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBCKOutPut.FormShow(Sender: TObject); +begin + ReadCxGrid('첼ǼPMD',Tv1,'첼ֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,OrderNoCK=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdCK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmDJBCKOutPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(KGQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(PiQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); } + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end; + CDS_Sub.Delete; +end; + +procedure TfrmDJBCKOutPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + if (Trim(CDS_Sub.fieldbyname('FromFactoryName').AsString)=Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString)) + and (Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString)=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString)) + then + begin + CDS_Sub.EnableControls; + Application.MessageBox('ͬһţͬһƽ!','ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDS_Sub.EnableControls; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmDJBCKOutPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmClothContractListHZCX:=TfrmClothContractListHZCX.Create(Application); + with frmClothContractListHZCX do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CGConNo').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('ConNo').AsString); + FieldByName('CGConMainId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('MainId').AsString); + FieldByName('CGConSubId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('SubId').AsString); + FieldByName('FactoryName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('FactoryNoName').AsString); + FieldByName('SXName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('C_CodeName').AsString); + //Post; + end; + end; + end; + finally + frmClothContractListHZCX.Free; + end; +end; + +procedure TfrmDJBCKOutPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmDJBCKOutPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdCK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('CKorderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('SPColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmDJBCKOutPut.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + FFSPID:String; +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)<>'' then + begin + v1CRType.Options.Editing:=False; + end; + end; +end; + +procedure TfrmDJBCKOutPut.ToolButton1Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,CDS_Sub); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.dfm new file mode 100644 index 0000000..7908490 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.dfm @@ -0,0 +1,671 @@ +object frmDJBRKHZList: TfrmDJBRKHZList + Left = -8 + Top = -8 + Width = 1378 + Height = 754 + Caption = #24453#26816#24067#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1362 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBMX: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 39 + OnClick = TBMXClick + end + object TBExport: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1362 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 498 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 319 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 258 + Top = 132 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 358 + Top = 120 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 475 + Top = 120 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 561 + Top = 140 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 561 + Top = 116 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label10: TLabel + Left = 714 + Top = 140 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label11: TLabel + Left = 831 + Top = 144 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label13: TLabel + Left = 983 + Top = 144 + Width = 36 + Height = 12 + Caption = #39068' '#33394 + end + object Label15: TLabel + Left = 679 + Top = 12 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label16: TLabel + Left = 983 + Top = 168 + Width = 36 + Height = 12 + Caption = #25805#20316#21592 + end + object Label14: TLabel + Left = 1119 + Top = 144 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label17: TLabel + Left = 854 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 177 + Top = 9 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 525 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 356 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 308 + Top = 129 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 385 + Top = 116 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 512 + Top = 116 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 612 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 612 + Top = 113 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object KuWei: TEdit + Tag = 2 + Left = 766 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 882 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 1020 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object SPKZ1: TEdit + Tag = 2 + Left = 710 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + object Filler: TEdit + Tag = 2 + Left = 1020 + Top = 165 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = FactoryNameChange + end + object batchNo: TEdit + Tag = 2 + Left = 1172 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = FactoryNameChange + end + object begTime: TDateTimePicker + Left = 167 + Top = 109 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 15 + end + object endTime: TDateTimePicker + Left = 167 + Top = 132 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 16 + end + object CRType: TComboBox + Tag = 2 + Left = 904 + Top = 8 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 17 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #25104#21697#37319#36141 + #21360#33457#21152#24037#20837#24211 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 73 + Width = 1362 + Height = 643 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column21 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column2: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 128 + end + object v1Column4: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 143 + end + object v1Column13: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #30721#21333#24635#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_PBMDDJ.FontBlue + Styles.Footer = DataLink_PBMDDJ.FontBlue + Styles.Header = DataLink_PBMDDJ.FontBlue + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column16: TcxGridDBColumn + Caption = #32440#31649#37325#37327 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column21: TcxGridDBColumn + Caption = #26631#31614#24635#25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_PBMDDJ.FoneRed + Styles.Footer = DataLink_PBMDDJ.FoneRed + Styles.Header = DataLink_PBMDDJ.FoneRed + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 856 + Top = 108 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 784 + Top = 116 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 616 + Top = 8 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 616 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 584 + Top = 232 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 552 + Top = 232 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 372 + Top = 184 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 740 + Top = 8 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 700 + Top = 8 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 924 + Top = 96 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.pas new file mode 100644 index 0000000..4073f83 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.pas @@ -0,0 +1,353 @@ +unit U_DJBRKHZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, BtnEdit; + +type + TfrmDJBRKHZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label10: TLabel; + KuWei: TEdit; + Label11: TLabel; + RCGangNo: TEdit; + Label13: TLabel; + SPColor: TEdit; + Label15: TLabel; + SPKZ1: TEdit; + Filler: TEdit; + Label16: TLabel; + ADOQueryPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + batchNo: TEdit; + Label14: TLabel; + begTime: TDateTimePicker; + endTime: TDateTimePicker; + v1Column21: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + CRType: TComboBox; + Label17: TLabel; + TBMX: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure TBMXClick(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + canshu1,canshu2:string; + procedure InitGrid(); + Procedure PrintData(fMJID:string); + { Private declarations } + public + fckName:string; + { Public declarations } + end; + +var + frmDJBRKHZList: TfrmDJBRKHZList; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKInPut, U_DJBRKlist; + +{$R *.dfm} +Procedure TfrmDJBRKHZList.PrintData(fMJID:string); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(fMJID); + fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath) then DeleteFile(fImagePath); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + except + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(' from WFB_MJJY A') ; + SQL.Add(' where A.MJID='''+Trim(fMJID)+''''); + Open; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=1; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾ',0); + end; +end; + +procedure TfrmDJBRKHZList.FormDestroy(Sender: TObject); +begin + frmDJBRKHZList:=nil; +end; + +procedure TfrmDJBRKHZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBRKHZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmDJBRKHZList.InitGrid(); +var + mBegdate,mEnddate:string; +begin + mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date)+' '+FormatDateTime('HH:nn',begTime.Time); + menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date)+' '+FormatDateTime('HH:nn',endTime.Time); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add(' select factoryName,CRType,SPName,C_CodeNameZW,SPMF,SPKZ,QtyUnit,cast(SPKZ as varchar) as SPKZ1, sum(piQty) as piQty,sum(Qty) as Qty,sum(Qty1) as Qty1,sum(MJlen) as MJlen '); + sql.Add(' from( '); + sql.Add(' SELECT A.factoryName,A.CRType,A.SPName,A.SPMF,A.SPKZ,A.piQty,A.Qty,A.Qty1,A.QtyUnit '); + sql.Add(' ,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.SPName and Type=''CP'') '); + sql.Add(' ,MJLen=(select sum(MJlen) from WFB_MJJY X where X.APID=A.SPID ) '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.Date)+''' '); + sql.add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + sql.Add(' and isnull(CKName,'''')='''+trim(fckName)+''''); + SQL.Add(' and CRFlag='''' '); + sql.Add(' )AA group by factoryName,CRType,SPName,C_CodeNameZW,SPMF,SPKZ,QtyUnit '); + Open; + // ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmDJBRKHZList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmDJBRKHZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBRKHZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBRKHZList.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv1,'첼ֿ'); + InitGrid(); +end; + +procedure TfrmDJBRKHZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmDJBRKHZList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmDJBRKHZList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmDJBRKHZList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBRKHZList.SPIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmDJBRKHZList.SPIDChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKHZList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKHZList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKHZList.TBMXClick(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmDJBRKList:=TfrmDJBRKList.Create(self); + with frmDJBRKList do + begin + fckName:=self.fckName; + TBadd.Visible:=false; + TBedit.Visible:=false; + TBdel.Visible:=false; + TBTSedit.Visible:=false; + begdate.DateTime:=self.BegDate.DateTime; + enddate.DateTime:=self.EndDate.DateTime; + factoryName.Text:=self.CDS_Main.fieldbyName('factoryname').AsString; + CRType.ItemIndex:=CRType.Items.IndexOf(self.CDS_Main.fieldbyName('CRType').AsString); + SPName.Text:=self.CDS_Main.fieldbyName('SPName').AsString; + SPKZ1.Text:=self.CDS_Main.fieldbyName('SPKZ1').AsString; + + show; + end; + +end; + +procedure TfrmDJBRKHZList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + TBMX.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm new file mode 100644 index 0000000..ad3a15d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm @@ -0,0 +1,1058 @@ +object frmDJBRKList: TfrmDJBRKList + Left = -8 + Top = 0 + Width = 1378 + Height = 754 + Caption = #24453#26816#24067#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1362 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBTSedit: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #29305#27530#20462#25913 + ImageIndex = 11 + OnClick = TBTSeditClick + end + object TBPrint: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25171#21360#26816#39564#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBPrint1: TToolButton + Left = 525 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + OnClick = TBPrint1Click + end + object TBExport: TToolButton + Left = 612 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 675 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1362 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 342 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 459 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 202 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 342 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 459 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 561 + Top = 140 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 561 + Top = 116 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label12: TLabel + Left = 202 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label10: TLabel + Left = 714 + Top = 140 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label11: TLabel + Left = 603 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label13: TLabel + Left = 755 + Top = 12 + Width = 36 + Height = 12 + Caption = #39068' '#33394 + end + object Label15: TLabel + Left = 603 + Top = 36 + Width = 48 + Height = 12 + Caption = #33457' '#22411 + end + object Label16: TLabel + Left = 755 + Top = 36 + Width = 36 + Height = 12 + Caption = #25805#20316#21592 + end + object Label14: TLabel + Left = 883 + Top = 12 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label20: TLabel + Left = 883 + Top = 37 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#31867#22411 + end + object Label21: TLabel + Left = 1047 + Top = 12 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label22: TLabel + Left = 1047 + Top = 36 + Width = 48 + Height = 12 + Caption = #20013#25991#21697#21517 + end + object Label23: TLabel + Left = 1199 + Top = 12 + Width = 24 + Height = 12 + Caption = #22791#27880 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 369 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 496 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 252 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 369 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 496 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 612 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 612 + Top = 113 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 252 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #25104#21697#37319#36141 + #21360#33457#21152#24037#20837#24211 + #22797#21512#21378#21152#24037#20837#24211 + #21050#27611#21378#21152#24037#20837#24211 + '') + end + object KuWei: TEdit + Tag = 2 + Left = 766 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 654 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 792 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + object SPHX: TEdit + Tag = 2 + Left = 654 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = FactoryNameChange + end + object Filler: TEdit + Tag = 2 + Left = 792 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = FactoryNameChange + end + object batchNo: TEdit + Tag = 2 + Left = 944 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 15 + OnChange = FactoryNameChange + end + object begTime: TDateTimePicker + Left = 167 + Top = 109 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 16 + end + object endTime: TDateTimePicker + Left = 167 + Top = 132 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 17 + end + object GYSType: TComboBox + Tag = 1 + Left = 944 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 18 + OnChange = FactoryNameChange + Items.Strings = ( + '' + #22383#24067#21378 + #21152#24037#21378 + #22806#36141#25104#21697#21378 + #21360#26579#21378 + #21360#33457#21378 + #22797#21512#21378 + #33014#21360#21378 + #21050#27611#21378) + end + object SPKZ1: TEdit + Tag = 2 + Left = 1096 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 19 + OnChange = FactoryNameChange + end + object C_CodeNameZW: TEdit + Tag = 2 + Left = 1096 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 20 + OnChange = FactoryNameChange + end + object note: TEdit + Tag = 2 + Left = 1224 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 21 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1362 + Height = 619 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column21 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column24: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSEL' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #29983#20135#36864#22238) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column19: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #30721#21333#24635#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_PBMDDJ.FontBlue + Styles.Footer = DataLink_PBMDDJ.FontBlue + Styles.Header = DataLink_PBMDDJ.FontBlue + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column20: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #30333#22383#32534#21495 + DataBinding.FieldName = 'batchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column21: TcxGridDBColumn + Caption = #26631#31614#24635#25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_PBMDDJ.FoneRed + Styles.Footer = DataLink_PBMDDJ.FoneRed + Styles.Header = DataLink_PBMDDJ.FoneRed + Width = 60 + end + object v1Column22: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object v1Column23: TcxGridDBColumn + Caption = #20379#24212#21830#31867#22411 + DataBinding.FieldName = 'GYSType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel5: TPanel + Left = 376 + Top = 184 + Width = 453 + Height = 209 + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label28: TLabel + Left = 12 + Top = 24 + Width = 48 + Height = 12 + Caption = #21152' '#24037' '#21378 + end + object Label17: TLabel + Left = 12 + Top = 52 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label18: TLabel + Left = 12 + Top = 80 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label19: TLabel + Left = 12 + Top = 108 + Width = 48 + Height = 12 + Caption = #32568' '#21495 + end + object Label24: TLabel + Left = 12 + Top = 140 + Width = 48 + Height = 12 + Caption = #22791' '#27880 + end + object Button5: TButton + Left = 336 + Top = 8 + Width = 90 + Height = 25 + Caption = #20462#25913#21152#24037#21378 + TabOrder = 0 + OnClick = Button5Click + end + object Button6: TButton + Left = 336 + Top = 180 + Width = 90 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button6Click + end + object factoryName1: TBtnEditA + Left = 64 + Top = 20 + Width = 185 + Height = 20 + TabOrder = 2 + OnBtnClick = factoryName1BtnClick + end + object Com_CRype: TComboBox + Left = 64 + Top = 48 + Width = 185 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #25104#21697#37319#36141 + #21360#33457#21152#24037#20837#24211 + #22797#21512#21378#21152#24037#20837#24211 + #21050#27611#21378#21152#24037#20837#24211) + end + object Button1: TButton + Left = 336 + Top = 40 + Width = 90 + Height = 25 + Caption = #20462#25913#20837#24211#31867#22411 + TabOrder = 4 + OnClick = Button1Click + end + object edit_batchNo: TEdit + Left = 64 + Top = 76 + Width = 185 + Height = 20 + TabOrder = 5 + end + object edit_gangNo: TEdit + Left = 64 + Top = 104 + Width = 185 + Height = 20 + TabOrder = 6 + end + object Button2: TButton + Left = 336 + Top = 72 + Width = 90 + Height = 25 + Caption = #20462#25913#30333#22383#32534#21495 + TabOrder = 7 + OnClick = Button2Click + end + object Button3: TButton + Left = 336 + Top = 104 + Width = 90 + Height = 25 + Caption = #20462#25913#32568#21495 + TabOrder = 8 + OnClick = Button3Click + end + object edit_note: TEdit + Left = 64 + Top = 136 + Width = 185 + Height = 20 + TabOrder = 9 + end + object Button4: TButton + Left = 336 + Top = 136 + Width = 90 + Height = 25 + Caption = #20462#25913#22791#27880 + TabOrder = 10 + OnClick = Button4Click + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 584 + Top = 36 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 544 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 36 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 600 + Top = 388 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 568 + Top = 388 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 536 + Top = 388 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 324 + Top = 144 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 300 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 288 + Top = 240 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 740 + Top = 8 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 700 + Top = 8 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 620 + Top = 36 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas new file mode 100644 index 0000000..dcb76d0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas @@ -0,0 +1,784 @@ +unit U_DJBRKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, BtnEdit; + +type + TfrmDJBRKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label12: TLabel; + CRType: TComboBox; + Label10: TLabel; + KuWei: TEdit; + v1Column19: TcxGridDBColumn; + Label11: TLabel; + RCGangNo: TEdit; + Label13: TLabel; + SPColor: TEdit; + Label15: TLabel; + SPHX: TEdit; + v1Column20: TcxGridDBColumn; + Filler: TEdit; + Label16: TLabel; + v1Column24: TcxGridDBColumn; + TBPrint: TToolButton; + ADOQueryPrint: TADOQuery; + v1Column5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + TBPrint1: TToolButton; + v1Column13: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + batchNo: TEdit; + Label14: TLabel; + begTime: TDateTimePicker; + endTime: TDateTimePicker; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + Panel5: TPanel; + Label28: TLabel; + Button5: TButton; + Button6: TButton; + factoryName1: TBtnEditA; + TBTSedit: TToolButton; + Label17: TLabel; + Com_CRype: TComboBox; + Button1: TButton; + Label18: TLabel; + edit_batchNo: TEdit; + edit_gangNo: TEdit; + Label19: TLabel; + Button2: TButton; + Button3: TButton; + GYSType: TComboBox; + Label20: TLabel; + v1Column23: TcxGridDBColumn; + SPKZ1: TEdit; + Label21: TLabel; + C_CodeNameZW: TEdit; + Label22: TLabel; + v1Column12: TcxGridDBColumn; + note: TEdit; + Label23: TLabel; + edit_note: TEdit; + Label24: TLabel; + Button4: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBPrint1Click(Sender: TObject); + procedure factoryName1BtnClick(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure TBTSeditClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + Procedure PrintData(fMJID:string); + { Private declarations } + public + fckName:string; + { Public declarations } + end; + +var + frmDJBRKList: TfrmDJBRKList; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKInPut, U_DJBRK_Edit, U_ZdyAttachGYS; + +{$R *.dfm} +Procedure TfrmDJBRKList.PrintData(fMJID:string); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(fMJID); + fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath) then DeleteFile(fImagePath); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + except + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(',factoryNameJZ=(select Top 1 zdyNameZ from KH_Zdy_Attachment X where X.ZdyName=A.factoryName and Type=''GYS'') '); + sql.Add(' from WFB_MJJY A') ; + SQL.Add(' where A.MJID='''+Trim(fMJID)+''''); + Open; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=1; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾ',0); + end; +end; + +procedure TfrmDJBRKList.FormDestroy(Sender: TObject); +begin + frmDJBRKList:=nil; +end; + +procedure TfrmDJBRKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBRKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmDJBRKList.InitGrid(); +var + mBegdate,mEnddate:string; +begin + mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date)+' '+FormatDateTime('HH:nn',begTime.Time); + menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date)+' '+FormatDateTime('HH:nn',endTime.Time); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add(' select A.*,cast(spkz as varchar) as spkz1 '); + sql.Add(' ,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.SPName and Type=''CP'') '); + sql.Add(' ,GYSType=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=A.FactoryName and Type=''GYS'') '); + sql.Add(' ,MJLen=(select sum(MJlen) from WFB_MJJY X where X.APID=A.SPID ) '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.Date)+''' '); + sql.add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + sql.Add(' and isnull(CKName,'''')='''+trim(fckName)+''''); + SQL.Add(' and CRFlag='''' '); + Open; + // ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + tbfind.Click; + end; +end; + +procedure TfrmDJBRKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmDJBRKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBRKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼б',Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBRKList.FormShow(Sender: TObject); +begin + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + TBtsedit.Visible:=false; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + TBtsedit.Visible:=True; + end; + ReadCxGrid('첼б',Tv1,'첼ֿ'); + InitGrid(); +end; + +procedure TfrmDJBRKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('첼б',cxGrid2); +end; + +procedure TfrmDJBRKList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmDJBRKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmDJBRKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBRKList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select APID from CK_BanCP_CR where isnull(APID,'''')='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ⲻɾ!','ʾ',0); + Exit; + end; +{ if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('delete from WFB_MJJY where not exists(select SPID from CK_SXPB_CR X where X.SPID=WFB_MJJY.APID)'); + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ͻ˻' then + begin + sql.Add('delete from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + end; + ExecSQL; + end; + + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + +end; + +procedure TfrmDJBRKList.TBAddClick(Sender: TObject); +begin + { try + frmDJBCKInPut:=TfrmDJBCKInPut.Create(Application); + with frmDJBCKInPut do + begin + FBCId:=''; + fckName:=self.fckName; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBCKInPut.Free; + end;} + try + frmDJBRK_Edit:=TfrmDJBRK_Edit.Create(Application); + with frmDJBRK_Edit do + begin + fkeyNo:=''; + fckName:=self.fckName; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBRK_Edit.Free; + end; +end; + +procedure TfrmDJBRKList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣ޸!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select APID from CK_BanCP_CR where isnull(APID,'''')='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ⲻ޸!','ʾ',0); + Exit; + end; + { try + frmDJBCKInPut:=TfrmDJBCKInPut.Create(Application); + with frmDJBCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + fckName:=self.fckName; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBCKInPut.Free; + end; } + try + frmDJBRK_Edit:=TfrmDJBRK_Edit.Create(Application); + with frmDJBRK_Edit do + begin + fkeyNo:=Trim(self.CDS_Main.fieldbyname('SPID').AsString); + fckName:=self.fckName; + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBRK_Edit.Free; + end; +end; + +procedure TfrmDJBRKList.SPIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmDJBRKList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmDJBRKList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; + +begin + if CDS_Main.IsEmpty then Exit; + //if Trim(CDS_Main.fieldbyname('CRType').AsString)<>'' then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while CDS_Main.Locate('SSel',True,[]) do + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where A.SPId='''+Trim(CDS_Main.fieldbyname('SPId').AsString)+''''); + Open; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('SPID').AsString); + fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath) then DeleteFile(fImagePath); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + except + CDS_Main.EnableControls; + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + CDS_Main.EnableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + end; + CDS_Main.EnableControls; + + +end; + +procedure TfrmDJBRKList.TBPrint1Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select MJID from WFB_MJJY'); + sql.Add('where APID='''+trim(CDS_Main.fieldbyName('SPID').AsString)+''' '); + open; + end; + IF ADOQueryTemp.IsEmpty then exit; + while not ADOQueryTemp.Eof do + begin + sleep(200); + Printdata(ADOQueryTemp.fieldbyName('MJID').AsString); + ADOQueryTemp.next; + end; +end; + +procedure TfrmDJBRKList.factoryName1BtnClick(Sender: TObject); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + factoryName1.Text:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmDJBRKList.Button6Click(Sender: TObject); +begin + Panel5.Visible:=false; +end; + +procedure TfrmDJBRKList.Button5Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + IF trim(factoryName1.Text)='' then + begin + application.MessageBox('ӹΪգ','ʾϢ',0); + exit; + end; + if Application.MessageBox('ȷҪ޸ļӹ','ʾ',32+4)<>IDYES then Exit; + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_SXPB_CR SET factoryName='''+trim(factoryName1.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update WFB_MJJY SET factoryName='''+trim(factoryName1.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Panel5.Visible:=false; + except + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmDJBRKList.TBTSeditClick(Sender: TObject); +begin + factoryName1.Text:=''; + Com_CRype.Text:=''; + edit_batchNo.Text:=''; + edit_gangNo.Text:=''; + edit_note.Text:=''; + Panel5.Left:=(self.Width-Panel5.Width) div 2; + Panel5.Visible:=true; +end; + +procedure TfrmDJBRKList.Button1Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + IF trim(Com_CRype.Text)='' then + begin + application.MessageBox('ͲΪգ','ʾϢ',0); + exit; + end; + if Application.MessageBox('ȷҪ޸','ʾ',32+4)<>IDYES then Exit; + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_SXPB_CR SET CRType='''+trim(Com_CRype.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Panel5.Visible:=false; + except + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmDJBRKList.Button2Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + if Application.MessageBox('ȷҪ޸İ','ʾ',32+4)<>IDYES then Exit; + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_SXPB_CR SET batchNo='''+trim(edit_batchNo.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update WFB_MJJY SET batchNo='''+trim(edit_batchNo.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update CK_BanCP_CR SET batchNo='''+trim(edit_batchNo.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update CK_BanCP_KC SET batchNo='''+trim(edit_batchNo.Text)+''' '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_CR B on B.BCID=A.BCID '); + sql.Add('where B.APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''' '); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Panel5.Visible:=false; + except + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmDJBRKList.Button3Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + if Application.MessageBox('ȷҪ޸ĸ׺','ʾ',32+4)<>IDYES then Exit; + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_SXPB_CR SET RCGangNo='''+trim(edit_gangNo.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update WFB_MJJY SET RCGangNo='''+trim(edit_gangNo.Text)+''',BCGangNo='''+trim(edit_gangNo.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update CK_BanCP_CR SET RCGangNo='''+trim(edit_gangNo.Text)+''',BCGangNo='''+trim(edit_gangNo.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update CK_BanCP_KC SET RCGangNo='''+trim(edit_gangNo.Text)+''',BCGangNo='''+trim(edit_gangNo.Text)+''' '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_CR B on B.BCID=A.BCID '); + sql.Add('where B.APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''' '); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Panel5.Visible:=false; + except + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmDJBRKList.Button4Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + if Application.MessageBox('ȷҪ޸ıע','ʾ',32+4)<>IDYES then Exit; + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_SXPB_CR SET note='''+trim(edit_note.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Panel5.Visible:=false; + except + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.dfm new file mode 100644 index 0000000..95ef48b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.dfm @@ -0,0 +1,865 @@ +object frmDJBRKListSel: TfrmDJBRKListSel + Left = 150 + Top = 108 + Width = 1378 + Height = 754 + Caption = #24453#26816#24067#20837#24211#36873#25321#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1362 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1362 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 342 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 459 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 202 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 342 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 459 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 561 + Top = 140 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 561 + Top = 116 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label12: TLabel + Left = 202 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label10: TLabel + Left = 714 + Top = 140 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label11: TLabel + Left = 603 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label13: TLabel + Left = 755 + Top = 12 + Width = 36 + Height = 12 + Caption = #39068' '#33394 + end + object Label15: TLabel + Left = 603 + Top = 36 + Width = 48 + Height = 12 + Caption = #33457' '#22411 + end + object Label16: TLabel + Left = 755 + Top = 36 + Width = 36 + Height = 12 + Caption = #25805#20316#21592 + end + object Label14: TLabel + Left = 883 + Top = 12 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label20: TLabel + Left = 883 + Top = 37 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#31867#22411 + end + object Label21: TLabel + Left = 1047 + Top = 12 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 369 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 496 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 252 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 369 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 496 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 612 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 612 + Top = 113 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 252 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #25104#21697#37319#36141 + #21360#33457#21152#24037#20837#24211 + #22797#21512#21378#21152#24037#20837#24211 + #21050#27611#21378#21152#24037#20837#24211 + '') + end + object KuWei: TEdit + Tag = 2 + Left = 766 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 654 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 792 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + object SPHX: TEdit + Tag = 2 + Left = 654 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = FactoryNameChange + end + object Filler: TEdit + Tag = 2 + Left = 792 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = FactoryNameChange + end + object batchNo: TEdit + Tag = 2 + Left = 944 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 15 + OnChange = FactoryNameChange + end + object begTime: TDateTimePicker + Left = 167 + Top = 109 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 16 + end + object endTime: TDateTimePicker + Left = 167 + Top = 132 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 17 + end + object GYSType: TComboBox + Tag = 1 + Left = 944 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 18 + OnChange = FactoryNameChange + Items.Strings = ( + '' + #22383#24067#21378 + #21152#24037#21378 + #22806#36141#25104#21697#21378 + #21360#26579#21378 + #21360#33457#21378 + #22797#21512#21378 + #33014#21360#21378 + #21050#27611#21378) + end + object SPKZ1: TEdit + Tag = 2 + Left = 1072 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 19 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1362 + Height = 619 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column21 + end + item + Kind = skSum + Column = v1Column25 + end + item + Kind = skSum + Column = v1Column26 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column24: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSEL' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #29983#20135#36864#22238) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column19: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #30721#21333#24635#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_PBMDDJ.FontBlue + Styles.Footer = DataLink_PBMDDJ.FontBlue + Styles.Header = DataLink_PBMDDJ.FontBlue + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column20: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #32440#31649#37325#37327 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #30333#22383#32534#21495 + DataBinding.FieldName = 'batchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column21: TcxGridDBColumn + Caption = #26631#31614#24635#25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_PBMDDJ.FoneRed + Styles.Footer = DataLink_PBMDDJ.FoneRed + Styles.Header = DataLink_PBMDDJ.FoneRed + Width = 71 + end + object v1Column22: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object v1Column23: TcxGridDBColumn + Caption = #20379#24212#21830#31867#22411 + DataBinding.FieldName = 'GYSType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column25: TcxGridDBColumn + Caption = #30333#22383#21305#25968 + DataBinding.FieldName = 'TPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column26: TcxGridDBColumn + Caption = #30333#22383#25968#37327 + DataBinding.FieldName = 'TPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 584 + Top = 36 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 544 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 36 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 600 + Top = 388 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 568 + Top = 388 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 536 + Top = 388 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 372 + Top = 184 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 300 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 288 + Top = 240 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 740 + Top = 8 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 700 + Top = 8 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 620 + Top = 36 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.pas new file mode 100644 index 0000000..c02026e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.pas @@ -0,0 +1,354 @@ +unit U_DJBRKListSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, BtnEdit; + +type + TfrmDJBRKListSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label12: TLabel; + CRType: TComboBox; + Label10: TLabel; + KuWei: TEdit; + v1Column19: TcxGridDBColumn; + Label11: TLabel; + RCGangNo: TEdit; + Label13: TLabel; + SPColor: TEdit; + Label15: TLabel; + SPHX: TEdit; + v1Column20: TcxGridDBColumn; + Filler: TEdit; + Label16: TLabel; + v1Column24: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + batchNo: TEdit; + Label14: TLabel; + begTime: TDateTimePicker; + endTime: TDateTimePicker; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + GYSType: TComboBox; + Label20: TLabel; + v1Column23: TcxGridDBColumn; + SPKZ1: TEdit; + Label21: TLabel; + v1Column25: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + Procedure PrintData(fMJID:string); + { Private declarations } + public + fckName:string; + { Public declarations } + end; + +var + frmDJBRKListSel: TfrmDJBRKListSel; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKInPut, U_DJBRK_Edit, U_ZdyAttachGYS; + +{$R *.dfm} +Procedure TfrmDJBRKListSel.PrintData(fMJID:string); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(fMJID); + fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath) then DeleteFile(fImagePath); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + except + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(' from WFB_MJJY A') ; + SQL.Add(' where A.MJID='''+Trim(fMJID)+''''); + Open; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=1; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾ',0); + end; +end; + +procedure TfrmDJBRKListSel.FormDestroy(Sender: TObject); +begin + frmDJBRKListSel:=nil; +end; + +procedure TfrmDJBRKListSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmDJBRKListSel.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmDJBRKListSel.InitGrid(); +var + mBegdate,mEnddate:string; +begin + mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date)+' '+FormatDateTime('HH:nn',begTime.Time); + menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date)+' '+FormatDateTime('HH:nn',endTime.Time); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add(' select A.*,cast(spkz as varchar) as spkz1 '); + sql.Add(' ,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.SPName and Type=''CP'') '); + sql.Add(' ,GYSType=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=A.FactoryName and Type=''GYS'') '); + sql.Add(' ,MJLen=(select sum(MJlen) from WFB_MJJY X where X.APID=A.SPID ) '); + sql.Add(' ,TpPS=(select sum(TPPS) from [guoyundata].dbo.XH_Cloth_TP X where X.gangNo=A.RcGangNo and X.DQfactoryName=A.factoryName )'); + sql.Add(' ,TPQty=(select sum(TPQty) from [guoyundata].dbo.XH_Cloth_TP X where X.gangNo=A.RcGangNo and X.DQfactoryName=A.factoryName)'); + sql.Add(' ,TpUnit=(select top 1 TPUnit from [guoyundata].dbo.XH_Cloth_TP X where X.gangNo=A.RcGangNo and X.DQfactoryName=A.factoryName)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.Date)+''' '); + sql.add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + sql.Add(' and isnull(CKName,'''')=''Ųֿ'''); + sql.Add(' and not exists (select * from CbJdLr X where X.SPID=A.SPID)'); + SQL.Add(' and CRFlag='''' '); + Open; + // ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + tbfind.Click; + end; +end; + +procedure TfrmDJBRKListSel.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmDJBRKListSel.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBRKListSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption),Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBRKListSel.FormShow(Sender: TObject); +begin + + ReadCxGrid(trim(self.Caption),Tv1,'첼ֿ'); + InitGrid(); +end; + +procedure TfrmDJBRKListSel.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('첼б',cxGrid2); +end; + +procedure TfrmDJBRKListSel.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmDJBRKListSel.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmDJBRKListSel.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBRKListSel.SPIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmDJBRKListSel.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmDJBRKListSel.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKListSel.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + + +procedure TfrmDJBRKListSel.Tv1DblClick(Sender: TObject); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.dfm new file mode 100644 index 0000000..66c1588 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.dfm @@ -0,0 +1,725 @@ +object frmDJBRK_Edit: TfrmDJBRK_Edit + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Align = alClient + Caption = #22238#20179#20449#24687#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBPrint: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + Enabled = False + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1366 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 36 + Top = 20 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label8: TLabel + Left = 116 + Top = 120 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label2: TLabel + Left = 232 + Top = 20 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label4: TLabel + Left = 452 + Top = 20 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object CRTime: TDateTimePicker + Left = 88 + Top = 16 + Width = 100 + Height = 20 + Date = 41509.970132187500000000 + Format = 'yyyy-MM-dd' + Time = 41509.970132187500000000 + TabOrder = 0 + end + object InoutNo: TEdit + Left = 164 + Top = 116 + Width = 100 + Height = 20 + TabOrder = 1 + end + object CRType: TComboBox + Left = 284 + Top = 16 + Width = 117 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #25104#21697#37319#36141 + #21360#33457#21152#24037#20837#24211 + #22797#21512#21378#21152#24037#20837#24211 + #21050#27611#21378#21152#24037#20837#24211) + end + object FactoryName: TBtnEditA + Left = 492 + Top = 16 + Width = 213 + Height = 20 + ReadOnly = True + TabOrder = 3 + OnBtnClick = FactoryNameBtnClick + end + object Panel3: TPanel + Left = 1008 + Top = 2 + Width = 356 + Height = 52 + Align = alRight + BevelOuter = bvNone + Color = clSkyBlue + TabOrder = 4 + object Label3: TLabel + Left = 64 + Top = 12 + Width = 44 + Height = 21 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 200 + Top = 16 + Width = 24 + Height = 12 + Caption = #32440#31649 + end + object QtyMX: TEdit + Left = 115 + Top = 10 + Width = 65 + Height = 22 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = QtyMXKeyPress + end + object QtyFJ: TEdit + Left = 228 + Top = 10 + Width = 65 + Height = 22 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + end + object Panel2: TPanel + Left = 0 + Top = 118 + Width = 1366 + Height = 475 + Align = alTop + Caption = 'Panel2' + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1072 + Height = 473 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #30333#22383#32534#21495 + DataBinding.FieldName = 'batchNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v2Column1PropertiesButtonClick + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column4: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24635#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'KG' + 'M') + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object GroupBox1: TGroupBox + Left = 1073 + Top = 1 + Width = 292 + Height = 473 + Align = alRight + Caption = #22238#20179#26126#32454#20449#24687'('#21452#20987#21024#38500#26126#32454#20449#24687')' + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 2 + Top = 14 + Width = 288 + Height = 457 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DSMX + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column2 + end + item + Format = #20849' 0 '#21367 + Kind = skCount + Column = v2Column3 + end + item + Kind = skSum + Column = v2Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_PBMDDJ.Default + object v2Column3: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJqty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column2: TcxGridDBColumn + Caption = #26631#31614#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 89 + Width = 1366 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object TBADD: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = TBADDClick + end + object TBdel: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = TBDelClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Main + Left = 504 + Top = 136 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 460 + Top = 172 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end + object ADOMX: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 892 + Top = 190 + end + object CDS_MX: TClientDataSet + Aggregates = <> + Params = <> + Left = 848 + Top = 246 + end + object DSMX: TDataSource + DataSet = CDS_MX + Left = 868 + Top = 310 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 616 + Top = 4 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 692 + Top = 4 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 652 + Top = 4 + end + object ThreeColorBase: TcxStyleRepository + Left = 327 + Top = 72 + object SHuangSe: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + TextColor = clBtnText + end + object SkyBlue: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + TextColor = clBlack + end + object Default: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object QHuangSe: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object FontBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object TextSHuangSe: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + object FonePurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindow + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object FoneClMaroon: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clMaroon + end + object FoneRed: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + object RowColor: TcxStyle + AssignedValues = [svColor] + Color = 16311512 + end + object handBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxBlue: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16711731 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object SHuangSeCu: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.pas new file mode 100644 index 0000000..d2f3a85 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.pas @@ -0,0 +1,940 @@ +unit U_DJBRK_Edit; + +interface + +uses + Windows, Messages, SysUtils,strutils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, StdCtrls, ExtCtrls, BtnEdit, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport; + +type + TfrmDJBRK_Edit = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Main: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Panel1: TPanel; + Panel2: TPanel; + GroupBox1: TGroupBox; + CRTime: TDateTimePicker; + Label1: TLabel; + Label8: TLabel; + InoutNo: TEdit; + Label2: TLabel; + CRType: TComboBox; + Label4: TLabel; + FactoryName: TBtnEditA; + ToolBar2: TToolBar; + TBADD: TToolButton; + TBdel: TToolButton; + v1Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column3: TcxGridDBColumn; + ADOMX: TADOQuery; + CDS_MX: TClientDataSet; + DSMX: TDataSource; + Panel3: TPanel; + Label3: TLabel; + QtyMX: TEdit; + TBPrint: TToolButton; + RM2: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + v1Column4: TcxGridDBColumn; + Label5: TLabel; + QtyFJ: TEdit; + v2Column4: TcxGridDBColumn; + ThreeColorBase: TcxStyleRepository; + SHuangSe: TcxStyle; + SkyBlue: TcxStyle; + Default: TcxStyle; + QHuangSe: TcxStyle; + Red: TcxStyle; + FontBlue: TcxStyle; + TextSHuangSe: TcxStyle; + FonePurple: TcxStyle; + FoneClMaroon: TcxStyle; + FoneRed: TcxStyle; + RowColor: TcxStyle; + handBlack: TcxStyle; + cxBlue: TcxStyle; + SHuangSeCu: TcxStyle; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FactoryNameBtnClick(Sender: TObject); + procedure TBADDClick(Sender: TObject); + procedure QtyMXKeyPress(Sender: TObject; var Key: Char); + procedure TBPrintClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBdelClick(Sender: TObject); + procedure v2Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1Column15PropertiesEditValueChanged(Sender: TObject); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveData():Boolean; + function YSData(Order_Main10:TClientDataSet):Boolean; + Procedure InitGrid(); + Procedure initMJID(); + Procedure PrintData(fMJID:string); + public + { Public declarations } + fkeyNo:String; + fckName:String; + end; +var + frmDJBRK_Edit: TfrmDJBRK_Edit; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel, + U_ZdyAttachCP; + +{$R *.dfm} +Procedure TfrmDJBRK_Edit.PrintData(fMJID:string); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(fMJID); + fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); + if FileExists(fImagePath) then DeleteFile(fImagePath); + Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + except + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(',factoryNameJZ=(select Top 1 zdyNameZ from KH_Zdy_Attachment X where X.ZdyName=A.factoryName and Type=''GYS'') '); + sql.Add(' from WFB_MJJY A') ; + SQL.Add(' where A.MJID='''+Trim(fMJID)+''''); + Open; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=1; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾ',0); + end; +end; +Procedure TfrmDJBRK_Edit.initMJID(); +begin + try + with ADOMX do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add('where APID='+quotedstr(trim(CDS_Main.fieldByName('SPID').AsString))); + open; + end; + SCreateCDS20(ADOMX,CDS_MX); + SInitCDSData20(ADOMX,CDS_MX); + except + end; +end; +Procedure TfrmDJBRK_Edit.InitGrid(); +begin + try + with adoqueryMain do + begin + close; + sql.Clear; + sql.Add('select *,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.SPName and Type=''CP'') from CK_SXPB_CR A'); + sql.Add('where SPID='+quotedstr(trim(fkeyNO))); + open; + end; + SCreateCDS20(adoqueryMain,CDS_Main); + SInitCDSData20(adoqueryMain,CDS_Main); + if not CDS_Main.IsEmpty then + begin + CRTime.Date:= CDS_Main.fieldbyname('CRTime').AsDateTime; + // CKName.ItemIndex:=CKName.Items.IndexOf(trim(CDS_Main.fieldbyname('CKName').AsString)); + CRType.ItemIndex:=CRType.Items.IndexOf(trim(CDS_Main.fieldbyname('CRType').AsString)); + // inoutNo.Text:=CDS_Main.fieldbyname('inoutNo').asstring; + factoryName.Text:=trim(CDS_Main.fieldbyname('factoryName').AsString); + end; + finally + end; +end; + + +function TfrmDJBRK_Edit.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,PriceUnit,OrderUnit,FComTaiTou,FromSubID,khName:String; + fprice,huilv:double; +begin + Result:=False; + fprice:=0; + huilv:=0; + PriceUnit:='RMB'; + khName:=''; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('update JYOrder_Sub SET Huilv=isnull((select Huilv from JYOrderCon_Sub X where X.SubId=JYOrder_Sub.SOrddefstr10),1) where Huilv=0'); + execsql; + end; + with Order_Main10 do + begin + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select A.*,fPrice=dbo.F_Get_Order_Price(A.MainID,A.subID),B.customerNoName'); + sql.Add(' from JYOrder_Sub A '); + sql.Add(' inner join JYOrder_main B on B.mainID=A.mainID '); + sql.Add(' Where subID='''+Trim(Order_Main10.fieldbyname('ORDSubIdRK').AsString)+''''); + Open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + PriceUnit:=Trim(ADOQueryTemp.fieldbyname('PriceUnit').AsString); + OrderUnit:=Trim(ADOQueryTemp.fieldbyname('OrderUnit').AsString); + fPrice:= ADOQueryTemp.fieldbyname('fPrice').AsFloat; + huilv:= ADOQueryTemp.fieldbyname('huilv').AsFloat; + khName:= ADOQueryTemp.fieldbyname('customerNoName').AsString; + end; + IF huilv=0 then huilv:=1; + CRID:='0'; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and YFName=''ͻ˻'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡƷӦʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(Order_Main10.fieldbyname('SPID').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦտǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:=Trim(KHName); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CDS_Main.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('ps').Value:=-1*Order_Main10.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value:=-1*Order_Main10.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value:=fprice; + FieldByName('HuiLv').Value:=huilv; + FieldByName('BZType').Value:=Trim(PriceUnit); + // FieldByName('Money').Value:=-1*format('%.2f',[Order_Main10.fieldbyname('Qty').AsFloat*fprice]); + // FieldByName('BBMoney').Value:=-1*format('%.2f',[Order_Main10.fieldbyname('Qty').AsFloat*fprice*huilv]); + FieldByName('QtyUnit').Value:=Trim(Order_Main10.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(KHName); + FieldByName('YFName').Value:='ͻ˻'; + FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('SPID').AsString); + FieldByName('subID').Value:=''; + FieldByName('OrderNO').Value:=Trim(Order_Main10.fieldbyname('OrderNO').AsString); + FieldByName('P_CodeName').Value:=Trim(Order_Main10.fieldbyname('SPName').AsString); + FieldByName('P_Spec').Value:=Trim(Order_Main10.fieldbyname('SPSpec').AsString); + FieldByName('P_color').Value:=Trim(Order_Main10.fieldbyname('SPColor').AsString); + FieldByName('status').Value:='0'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + + //Next; + end; + end; + Result:=True; +end; + +procedure TfrmDJBRK_Edit.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +function TfrmDJBRK_Edit.SaveData():Boolean; +var + Maxno:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not eof do + begin + Maxno:=fieldbyName('SPID').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(Maxno)+''''); + sql.Add(' and YFName=''ͻ˻'' '); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + if IsEmpty then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('FZSPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:=trim(fckName); + FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CRType').Value:=trim(CRType.Text); + FieldByName('factoryName').Value:=trim(factoryName.Text); + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Main,'CK_SXPB_CR',2); + FieldByName('PiQty').Value:=CDS_Main.fieldbyname('piQty').AsInteger; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').AsFloat; + FieldByName('price').Value:=CDS_Main.fieldbyname('price').AsFloat; + FieldByName('money').Value:=CDS_Main.fieldbyname('money').AsFloat; + FieldByName('Qty1').Value:=CDS_Main.fieldbyname('Qty1').AsFloat; + FieldByName('RCQty').Value:=CDS_Main.fieldbyname('RCQty').AsFloat; + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(Maxno)+''''); + ExecSQL; + end; + + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY SET CKName=B.CKName,factoryName=B.FactoryName,BatchNo=B.BatchNO,C_CodeName=B.SPName,C_Color=B.SPColor,'); + sql.Add(' MJTypeOther=B.QtyUnit,MJStr1=B.QtyUnit,MJStr2=''δ'',MJFK=cast(isnull(B.SPMF,''0'') as decimal(18,2)),MJSJKZ=cast(isnull(B.SPKZ,''0'') as decimal(18,2)),'); + sql.Add(' RCgangNo=B.RCGangNo,BCgangNo=B.RCGangNo,Filler=B.Filler,Filltime=B.Filltime '); + sql.Add(' FROM WFB_MJJY A '); + sql.Add(' inner join CK_SXPB_CR B on B.SPID=A.APID '); + sql.Add(' where A.APID='''+Trim(Maxno)+''''); + ExecSQL; + end; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select A.SPID '); + sql.Add('from CK_SXPB_CR A'); + sql.Add('inner join CK_SXPB_CR B on B.RCGangNo=A.RCgangNo and B.Qty=A.Qty and B.SPID<>A.SPID'); + sql.Add('where A.SPID='''+Trim(Maxno)+''' and isnull(A.RCGangNo,'''')<>'''' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͬ׺ܱͬ棡','ʾ',0); + exit; + end; + + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ͻ˻' then + begin + if not YSData(CDS_Main) then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + exit; + end; + end; + + Next; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + TBPrint.Enabled:=true; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmDJBRK_Edit.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBRK_Edit.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid(self.Caption,Tv1,'첼ֿ'); + InitGrid(); + initMJID(); +end; + +procedure TfrmDJBRK_Edit.TBSaveClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + + if trim(factoryName.Text)='' then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if trim(CRType.Text)='' then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('SPcolor',null,[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('Qty',null,[])=True then + begin + Application.MessageBox('뵥Ϊ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('SPName','',[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('SPcolor','',[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if CDS_Main.FieldByName('Qty').AsFloat=0 then + begin + Application.MessageBox('뵥Ϊ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('QtyUnit','',[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + + + IF not CDS_MX.IsEmpty then + begin + IF tv2.DataController.Summary.FooterSummaryValues[1]<> CDS_Main.fieldByName('PiQty').AsInteger then + begin + Application.MessageBox('ܺϸƥһ!','ʾ',0); + Exit; + end; + end; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmDJBRK_Edit.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal=1 then + begin + with Self.CDS_Main do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('SPSpec').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr1').AsString); + FieldByName('SPColor').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr3').AsString); + FieldByName('SPCF').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr2').AsString); + FieldByName('SPMF').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr7').AsString); + FieldByName('SPKZ').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPKZ').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPCode').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('CPID').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ATID').AsString); + FieldByName('C_CodeNameZW').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('defnote3').AsString); + end; + end; + end; + finally + frmZdyAttachCP.Free; + end; +end; + +procedure TfrmDJBRK_Edit.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + fieldname:string; +begin + fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with CDS_Main do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('Money').Value:=strtofloat(format('%.2f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmDJBRK_Edit.FormDestroy(Sender: TObject); +begin + frmDJBRK_Edit:=nil; +end; + +procedure TfrmDJBRK_Edit.FormCreate(Sender: TObject); +begin + Panel2.Align:=alclient; + CRTime.DateTime:=now(); +end; + +procedure TfrmDJBRK_Edit.FactoryNameBtnClick(Sender: TObject); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + factoryName.Text:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmDJBRK_Edit.TBADDClick(Sender: TObject); +var + fSPID:string; +begin + IF not CDS_MX.IsEmpty then + begin + IF tv2.DataController.Summary.FooterSummaryValues[1]<> CDS_Main.fieldByName('PiQty').AsInteger then + begin + Application.MessageBox('ܺϸƥһ!','ʾ',0); + Exit; + end; + end; + CopyAddRowCDS(CDS_Main); + if GetLSNo(ADOQueryCmd,fSPID,'','CK_SXPB_CR',3,1)=False then + begin + Application.MessageBox('ȡ첼ʧ!','ʾ',0); + Exit; + end; + CDS_Main.edit; + CDS_Main.FieldByName('SPID').Value:=fSPID; + CDS_Main.FieldByName('PiQty').Value:=0; + CDS_Main.FieldByName('Qty').Value:=0; + CDS_Main.FieldByName('Qty1').Value:=0; + CDS_Main.FieldByName('RCQty').Value:=0; + CDS_Main.FieldByName('QtyUnit').Value:='M'; + CDS_Main.FieldByName('RCQtyUnit').Value:='M'; + CDS_Main.FieldByName('SPMF').Value:=''; + CDS_Main.FieldByName('SPKZ').Value:=''; + CDS_Main.FieldByName('RCgangNo').Value:=''; + CDS_Main.Post; +end; + +procedure TfrmDJBRK_Edit.QtyMXKeyPress(Sender: TObject; var Key: Char); +var + fMJID:string; +begin + If key=#13 then + begin + If CDS_Main.IsEmpty then + begin + application.MessageBox('ƷϢû룬ϸϢ','ʾϢ',MB_ICONERROR); + exit; + end; + IF strtofloatdef(QtyMX.Text,0)=0 then exit; + if GetLSNo(ADOQueryCmd,fMJID,'','APTM',4,1)=False then + begin + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add('where 1=2'); + open; + append; + Fieldbyname('mainID').Value:=''; + Fieldbyname('subID').Value:=''; + Fieldbyname('MJID').Value:=trim(fMJID); + Fieldbyname('MJXH').Value:=1; + Fieldbyname('MJQty1').Value:=strtofloatdef(QtyMX.Text,0); + Fieldbyname('MJlen').Value:=strtofloatdef(QtyMX.Text,0)+strtofloatdef(QtyFJ.Text,0); + Fieldbyname('APID').Value:=trim(CDS_Main.fieldbyname('SPID').AsString); + Fieldbyname('MJXH').Value:=1; + Fieldbyname('MJType').Value:='Ʒ'; + Fieldbyname('MJStr2').Value:='δ'; + post; + end; + + with CDS_MX do + begin + append; + Fieldbyname('MJID').Value:=trim(fMJID); + Fieldbyname('APID').Value:=trim(CDS_Main.fieldbyname('SPID').AsString); + Fieldbyname('MJQty1').Value:=strtofloatdef(QtyMX.Text,0); + Fieldbyname('MJlen').Value:=strtofloatdef(QtyMX.Text,0)+strtofloatdef(QtyFJ.Text,0); + post; + end; + + with CDS_main do + begin + edit; + IF CDS_MX.IsEmpty then + Fieldbyname('Qty1').Value:=0 + else + Fieldbyname('Qty1').Value:=tv2.DataController.Summary.FooterSummaryValues[0]-tv2.DataController.Summary.FooterSummaryValues[2]; + post; + end; + { IF varisnull(tv2.DataController.Summary.FooterSummaryValues[0]) then + begin + fRollNum:=0; + fQty:=0; + end + else + begin + fRollNum:=CDS_Sub.RecordCount; + fQty:=tv2.DataController.Summary.FooterSummaryValues[0]; + end; + with CDS_Main do + begin + EDIT; + FieldByName('RollNum').Value:=fRollNum; + Fieldbyname('Qty').Value:=fQty; + FieldbyName('Money').Value:=format('%.0f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat]); + post; + end; } + QtyMX.Text:=''; + except + end; + end; +end; + +procedure TfrmDJBRK_Edit.TBPrintClick(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select MJID from WFB_MJJY'); + sql.Add('where APID='''+trim(CDS_Main.fieldbyName('SPID').AsString)+''' '); + open; + end; + IF ADOQueryTemp.IsEmpty then exit; + while not ADOQueryTemp.Eof do + begin + sleep(200); + Printdata(ADOQueryTemp.fieldbyName('MJID').AsString); + ADOQueryTemp.next; + end; +end; + +procedure TfrmDJBRK_Edit.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + initMJID(); +end; + +procedure TfrmDJBRK_Edit.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + IF CDS_MX.IsEmpty then exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+trim(CDS_MX.fieldbyName('MJID').AsString)+''''); + open; + end; + IF trim(ADOQueryTemp.fieldbyName('MJStr2').AsString)<>'δ' then + begin + application.MessageBox('Ѿ⣬ɾ','ʾϢ',MB_ICONERROR); + exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from WFB_MJJY where MJID='''+trim(CDS_MX.fieldbyName('MJID').AsString)+''''); + execsql; + end; + CDS_MX.Delete; + with CDS_main do + begin + edit; + IF CDS_MX.IsEmpty then + Fieldbyname('Qty1').Value:=0 + else + Fieldbyname('Qty1').Value:=tv2.DataController.Summary.FooterSummaryValues[0]-tv2.DataController.Summary.FooterSummaryValues[2]; + post; + end; +end; + +procedure TfrmDJBRK_Edit.TBdelClick(Sender: TObject); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY where isnull(APID,'''')='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from WFB_MJJY where APID='''+trim(CDS_Main.fieldbyName('SPID').AsString)+''''); + execsql; + end; + CDS_Main.Delete; +end; + +procedure TfrmDJBRK_Edit.v2Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_Main do + begin + Edit; + FieldByName('SPName').Value:=Trim(mvalue); + Post; + end; + + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(CDS_Main.fieldbyname('SPName').AsString))); + open; + end; + IF ADOQueryTemp.IsEmpty then + begin + application.MessageBox('Ʒڣ','ʾϢ',0); + with CDS_Main do + begin + Edit; + FieldByName('SPName').Value:=''; + Post; + end; + end + else + begin + with CDS_Main do + begin + Edit; + FieldByName('C_CodeNameZW').Value:=Trim(ADOQueryTemp.fieldbyname('defnote3').AsString); + Post; + end; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmDJBRK_Edit.v1Column15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_Main do + begin + Edit; + FieldByName('SPColor').Value:=Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmDJBRK_Edit.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + with CDS_Main do + begin + Edit; + FieldByName('batchNo').Value:=Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +{ + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select top 1 * from CK_SXPB_CR where batchNo='''+trim(CDS_Main.fieldbyName('batchNo').AsString)+''' '); + open; + IF not IsEmpty then + begin + with CDS_Main do + begin + Edit; + FieldByName('SPName').Value:=Trim(ADOQueryTemp.fieldbyName('SPName').AsString); + Post; + end; + end; + end; } +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm b/坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm new file mode 100644 index 0000000..23ca694 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm @@ -0,0 +1,17985 @@ +object DataLink_PBMDDJ: TDataLink_PBMDDJ + OldCreateOrder = False + OnDestroy = DataModuleDestroy + Left = 343 + Top = 231 + Height = 349 + Width = 482 + object AdoDataLink: TADOQuery + Connection = ADOLink + Parameters = <> + Left = 136 + Top = 8 + end + object ADOLink: TADOConnection + LoginPrompt = False + Left = 48 + Top = 8 + end + object ThreeImgList: TImageList + Height = 24 + Width = 24 + Left = 48 + Top = 96 + Bitmap = { + 494C01018900F000040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000060000000A005000001002000000000000070 + 0800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F800000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A5004F69BE004F69BE004F69BE000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00506CCA00173CB900506CCA000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A9897004F6ED5001740C9004F6ED5000000000000000000000000000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 0000000000000000000000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA006885E7006885 + E7006885E7001C4BE8001948E8001C4BE8006885E7006885E7006885E7000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 00000000000000000000000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE006A8AF3004A70 + F0004A70F0002957EE002957EE002957EE004A70F0004A70F0006A8AF3000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 000000000000000000000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF007F99ED007F99 + ED007F99ED003B64EF003B64EF003E67F0007F99ED007F99ED007F99ED000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB008EA6F6006989F3008EA6F6000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 000000000000000000000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4009AAFF700829CF5009AAFF7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F00ADBDF400ADBDF400ADBDF4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008195DB0028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 7300283973002839730028397300283973002839730028397300283973002839 + 73002839730028397300283973007287D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A4B3E50031437F002B38 + 680026335B002B396C008E9FD400C0C0C000C1C1C100C7C7C700C8C8C800D5D5 + D500DADADA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CACACA00596FB9003E5194003E51 + 94003E5194003E5194003E5194003D5092003B4D8B00384A860034447C003241 + 77002F3E71002A3867002936620040529200C3C3C300DBDBDB00000000000000 + 0000000000000000000000000000000000002D3E7C00092EAA000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7000429A7000429A7000429A7000429A7000429A7000429 + A7000429A7000429A7003B57B400354682000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536AB6007089DA005570 + CD003E5ABA00566EBC0047589200B7C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005E72B6008DA1E40090A5 + EB008DA3ED008BA2ED00879EEB008199E9007E96E4007B92E000758CD7007187 + D1006E84CC00687CC0006F7FB7004D5B8A000000000000000000000000000000 + 0000000000000000000000000000000000004057A7002345B600042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042AAA000328 + A300042AAA00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC004157A200334A9300374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000374E9A002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00374E9A0000000000000000006782DF006983DC00617C + D6004461C2003A57B800576EBC00283A7700B7C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008AA0EB00829CF5007995 + F4007290F4006989F3006082F2004C71ED004469E6003A5FDE00274DCD001D43 + C300143AB9000328A3003652AF006E7EB7000000000000000000000000000000 + 000000000000000000000000000000000000A7B7ED00435EBA00153AB7000930 + B3000930B3000930B3000930B3000930B3000930B3000930B3008191C600FFFF + FF00FFFFFF000930B3000930B3000930B3000930B3000930B3000930B3000930 + B3000930B3000F35B5003D4F8D008499DF0033478A004F6CCC004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC00657FD30033478A000000000033478A00657FD3004F6CCC004F6C + CC004F6CCC004F6CCC0033478A0000000000000000006F8AE5007891E300758E + DF005873CF004663C3003A57B80047589300283B7800B7C5F100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000096AAEE0093AAF60096AC + F700829DF5007894F4006D8CF3005679EE004B6FE7004166DF002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 000000000000000000000000000000000000000000003A4E93004E69C0002449 + C500163DC100163DC100163DC100163DC100163DC100153AB800FFFFFF00FFFF + FF00FFFFFF00153AB800163DC100163DC100163DC100163DC100163DC100163D + C1001F45C4004E69C600A8B7EE00000000004158A7001B47D800204BD900224C + D9001B47D800829AE9004158A700000000004158A700829AE900204BD900224C + D900204BD900829AE9004158A700000000004158A700829AE9001B47D800224C + D900204BD9001B47D8004158A7000000000000000000778ACD009EB0EF00829A + E800778FE00096A8E3008292C800344EA200576EBC0048599300B7C5F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000097ABEE0097ADF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 00000000000000000000000000000000000000000000617ACE004E61A5004666 + D0001D44C9001D44C9001D44C9001D44C9001D44C9001C43C500A8B4DC00FFFF + FF00FFFFFF001D44C9001D44C9001D44C9001D44C9001D44C9001D44C9001D44 + C9003E60D0005066AD0000000000000000004961B6002D58E7003861E9003A62 + E9002C57E7009BAFF3004961B600000000004961B6009BAFF3003861E9003A62 + E900365FE8009BAFF3004961B600000000004961B6009BAFF3002D58E7003A62 + E900365FE8002C57E7004961B60000000000000000003F59B0007E90D000A1B3 + EF00839AE5008A96BD00B3C0EB00384F9C00344EA200576EBC002A3D7900B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000099ADEE0098AEF70097AD + F700829DF5007894F4006D8CF3005679EE00000000007A94E8002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A53A1005A73 + C600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF001C3CA6004660 + B6004660B600234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002F54 + D2005974CB003E549E0000000000000000004F69C0003C65EF00496FF0004C72 + F1003A64EF00A9BBF8004F69C000000000004F69C000A9BBF800496FF0004C72 + F100476EF000A9BBF8004F69C000000000004F69C000A9BBF8003C65EF004C72 + F100476EF0003A64EF004F69C0000000000000000000BECCF5004059B0007F92 + D100849BE8004E5C8A008A96BD008292C800384F9C00344EA200495A93002B3D + 7A00B7C5F1000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009AAEEF0098AEF70097AD + F700829DF5007894F4006D8CF30011172D0000000000161B2B002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455E + B200476ADF003158DB003158DB003158DB003158DB003158DB0092A2D700FFFF + FF00FFFFFF003158DB003158DB003158DB003158DB003158DB003158DB00657E + D0004159AB000000000000000000000000005770C700BBC9F600BECBF700BFCC + F600BAC8F600B5C4F5005770C700000000005770C700B5C4F500BECBF700BFCC + F600BECBF700B5C4F5005770C700000000005770C700B5C4F500BBC9F600BFCC + F600BECBF700BAC8F6005770C70000000000000000000000000000000000BECC + F5008093D100A2B4EF006576AF008A96BD00B3C0EB008292C800344EA200566E + BC00495A9500B7C5F10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000099ADF00097ADF70097AD + F700829DF5007894F4006D8CF3001F1F1F000C0C0C001F1F1F002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009AAD + EC006984E0003C62E200375EE000375EE000375EE000375EE00095A5D900FFFF + FF00FFFFFF00375EE000375EE000375EE000375EE000375EE000395FE000566C + B600748ADC000000000000000000000000005B76D2005872C9005872C9007A7E + 8E005872C9005872C9005B76D200000000005B76D2005872C9005872C9006F74 + 83005872C9005872C9005B76D200000000005B76D2005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 0000435CB2007C8FD1009AADEF004E5C8A008A96BD00B3C0EB00384F9C00344E + A200576EBC002C3F7C00B7C5F100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000098ACF00094ABF60096AC + F700829DF5007894F4006D8CF3003A405600333333003F4454002C51CE002146 + C400163BBA000328A30003269B00687CBE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000687ECB00587AE9003E64E5003E64E5003E64E5003E64E50097A7DB00FFFF + FF00FFFFFF003E64E5003E64E5003E64E5003E64E5003E64E5005073E8004A63 + BB00000000000000000000000000000000000000000000000000000000007878 + 7800000000000000000000000000000000000000000000000000000000006666 + 6600000000000000000000000000000000000000000000000000000000005656 + 5600000000000000000000000000000000000000000000000000000000000000 + 0000BECCF500445DB3007C90D1006576AF004E5C8A008A96BD008292C800384F + 9C00344EA2004A5B95002D3F7C00B7C5F1000000000000000000000000000000 + 000000000000000000000000000000000000000000008EA4EE00859FF50089A2 + F600859FF5007E99F5007592F4006283F000597AE9005072E1003E60D2003457 + C9002C4EC0001C3DAC003652AF007181BA000000000000000000000000000000 + 0000000000008282820080808000828282000000000000000000000000000000 + 0000657FD9006C83CD006686F2004C71F0004C71F0004C71F000CDD4EE00FFFF + FF00FFFFFF004C71F0004C71F0004C71F0004C71F0006182F1007087D4000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000000000000000000000000000000000000000000000000000000000008080 + 8000000000000000000000000000000000000000000000000000000000007070 + 7000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BECCF5008294D300A2B4EF006576AF008A96BD00B3C0 + EB008292C800344EA200576EBC004B5C9500B7C5F10000000000000000000000 + 000000000000000000000000000000000000000000006E84D0008AA1EE0090A6 + F00091A7F0008FA5F0008CA3EF00879FED00849BE8008097E3007B91DA00788D + D400758ACF007083C5007283BE00576798000000000000000000000000000000 + 0000000000008080800040404000808080000000000000000000000000000000 + 0000D2DBF800536CC1008098E7005176F1005176F1005176F100CFD6EF00FFFF + FF00FFFFFF005176F1005176F1005176F100597CF2007E97ED005870C3000000 + 0000000000000000000000000000000000000000000000000000000000009D9D + 9D009A9A9A0099999900989898009494940094949400919191008E8E8E008C8C + 8C008C8C8C008888880088888800858585008282820080808000808080007C7C + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465FB5008395D300A2B4EF004E5C8A008A96 + BD00B3C0EB00384F9C003B58B800576EBC002F3E750032437D00354787003B50 + 98004C64BB0000000000000000000000000000000000718BE2005771C8005771 + C8005771C8005771C8005771C800556EC400516ABD004E66B600485EA7006D71 + 7D00717170005E616D003A4A83005068B8000000000000000000000000000000 + 0000000000008080800045454500808080000000000000000000000000000000 + 0000000000007991E3006B81CC00587CF200587CF200587CF200D1D8EF00FFFF + FF00FFFFFF00587CF200587CF200587CF200718FF4007388D200607AD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009999 + 9900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BECCF5004760B6008396D4006576AF004F5D + 8A008A96BD008292C8004663C3003C59B900596DAF00586CAF005D72B800647B + C8005C70B1004760B40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000CCCCCC008080800000000000000000000000000000000000000000000000 + 0000000000008080800050505000808080000000000000000000000000000000 + 00000000000000000000839AE800869FF3006686F3006586F300F3F5FA00FFFF + FF00FFFFFF006586F3006586F3006586F300758AD1007189DF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000364C99002B3D7B002B3D7B002B3D7B006367 + 73002B3D7B002B3D7B002B3D7B00364C99000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5007F92D400A2B4 + EF00869DE800778FE0006781D7005873CF003351B600203FA6000C2C96001B3B + A8003D5ABD00667FD0004861B400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D1D1D1008080800000000000000000000000000000000000000000000000 + 0000000000008080800055555500808080000000000000000000000000000000 + 00000000000000000000000000008B9FE0007E99F5006B8AF300FFFFFF00FFFF + FF00FFFFFF006B8AF3006B8AF3007A96F400526CC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000031448600657ED100506CCA00506CCA00506C + CA00506CCA00506CCA00657ED100314486000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004963B9008597 + D500A4B5EF00849BE600778FE0006781D7004461C200415DBA00445EB4001433 + 9B001839A7003A58BC005F73B4004A62B5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D5D5D5008080800000000000000000000000000000000000000000000000 + 0000000000008A8A8A0059595900808080000000000000000000000000000000 + 00000000000000000000000000005F77C90097ACF2007592F4005B73C3005B73 + C3005B73C3007290F4007491F40090A7F300849BE80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000374C94006580D8000732C1000833C1000833 + C1000833C1000631C1006681D900374C94000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004A63 + BA008799D60093A7EB00859BE600778FE0008196DA0099A8D9008F9DCD008191 + C7003853AB001536A5005E78CD003F549B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000D8D8D80084848400C6C6C600000000000000000000000000000000000000 + 0000C6C6C6009898980067676700868686000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005C75C8009FB1EF007F9AF5007F9A + F5007F9AF500829CF500A1B4F300687FCD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445BAC00869EEC002C55DE003D62DF003E63 + DF003C61DF002A53DD00869EEC00445BAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D66BB00A3B5F1009EB0EF008FA4EA00596CAD00AAB9EF0000000000536B + BC005A6999007F8FC400546DBE003A4C8B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009090 + 9000C3C3C3008E8E8E008A8A8A00000000000000000000000000000000000000 + 00008A8A8A00B5B5B5006E6E6E00969696000000000000000000000000000000 + 0000000000000000000000000000000000006B84DE008699DB00859FF500859F + F500859FF50096ACF7008FA2E0005E79D6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63B900A1B4F600446BEC005F80EE006383 + EF005E7FEE004269EC00A1B4F6004A63B9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004E67BD00A7B8F300A7B8F10095A9ED004C65BB0000000000000000000000 + 0000465CAA006B79A8004F66B400374883000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B0B0 + B000A6A6A600B0B0B0008B8B8B00868686000000000000000000000000008686 + 860092929200ACACAC0078787800BBBBBB000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF9005C75CC0094ABF6008CA5 + F6008CA5F600A6B7F100647CCD00AFBFF3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F68BF00A6B9F800567AF2007B97F4007F9A + F5007995F4005378F100A5B8F8004F68BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC000A3B5F400ADBDF4009DB0F1004D62AF00D1DAF800000000000000 + 0000000000003F56A1007284C00034437B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D3D3D300D7D7D700DFDFDF00CECECE00AEAEAE009D9D9D0099999900C0C0 + C000C5C5C500B7B7B700D3D3D300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A7B6EB00A4B7 + F800A2B6F8005E77CA00D3DBF900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556EC500B8C7F900597CF2007E99F500829C + F5007C97F400577BF200B7C7F900556EC5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C77D400AABBF5009BB0F50097ACF300829BEB006D81C9005169C1000000 + 000000000000000000003D5299003D539D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000080808000B3B3B300E1E1E100F3F3F300EFEFEF00E9E9E900CDCD + CD00A7A7A7008080800000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CF00B2C0 + F100B1BFF1007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005771C800B7C6F600BFCCF500C6D1F700C7D2 + F700C6D1F700BECBF500B7C6F6005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008C9EDC00A9BAF50090A7F3007B95EE007993EA006C81C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B0B0B0008A8A8A008080800080808000808080008A8A + 8A00B0B0B0000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007C93E6005771 + C9005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005B76D2005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005B76D2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005974CF008C9EDD00A5B7F5007490EE00718DED006E8AE800526B + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D600556FC500556EC400546DC1005169 + BB00546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C2C2 + C2003D4E860029355F0027335E0027335E0027335E0027335E0027335E002733 + 5E0027335E0027335E0027335E0027335E0029355F003D4E860098A7D800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002C3C + 75003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55 + A4003D55A4003D55A4003D55A4003D55A4003D55A4003D55A40040518F00AFBD + EC00000000000000000000000000000000000000000000000000000000004053 + 93003F64DE002A54DF004368E5007D97ED0099ADF0009EB1F000849BE700768F + E2006984DB00506CCB004360C2003553B700213EA0003E57A900415187000000 + 000000000000000000000000000000000000000000002F3E710045569500475C + A400435AA700435AA700435AA600435AA500445BA600435AA500445AA5004359 + A4004359A3004359A2004359A2004359A1004358A0004358A00043589F004358 + 9F00495A990044528B0043569E0000000000D6D6D600384A880023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C0023315C0023315C0023315C0023315C0023315C002331 + 5C0023315C0023315C00C0C0C000CECECE000000000000000000465DAD004055 + 99001336AC001034AB001034AB001034AB001034AB001034AB001034AB001034 + AB001034AB001034AB001034AB001034AB001034AB001336AC002C4BB4003D54 + A300000000000000000000000000000000000000000000000000000000002B3D + 79001945D7001F42B5005466A300A7B7ED00A3B5F100AABAF2007781A4009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB3001B3898004A5EA1000000 + 0000000000000000000000000000000000006279C9004660B4002747B000072B + A3000328A0000328A00003279F0003279F0003279E0003279D0003269C000326 + 9B0003269A000326990003269800032597000325960003259500032594000324 + 9300072895002743A2002E3D6F008EA1E1000000000026356E005A6CAB00566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB000566AB000566AB000566AB000566AB000566AB000566A + B000566AB000566AB00000000000000000000000000000000000324791003E59 + B400042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC001338B1002D40 + 8100000000000000000000000000000000000000000000000000000000002D3E + 7D000938D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D50013319500495EA4000000 + 000000000000000000000000000000000000283C80002748B5000429A8000429 + A7000429A6000429A5000429A5000328A3000328A2000328A2000328A0000328 + A00003279F0003279E0003279E0003279D0003269B0003269B0003269A000326 + 99000326980003259700495A99002D428A00000000002D4289005771CA00173F + C500042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC000042FC000042FC000042F + C000042FC0004F6DD30000000000000000000000000000000000364B95003F5C + BD00042DB800042DB800042DB8001037BB001037BB001037BB001037BB001037 + BB001037BB001037BB001037BB000D35BB00042DB800042DB8001037BB003246 + 8B00000000000000000000000000000000000000000000000000000000003143 + 84000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000002B3E8100042CB300042CB200042C + B20003238D00506BC800042BAF00042BAD00042BAD00042BAC00042AAA000322 + 8800506AC3000429A8000429A8000429A7000429A6000429A500032184000328 + A3000328A2000328A100435EB8002638730000000000324793005873D0001842 + CF000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC000533CC000533CC000533CC000533CC000533CC000533CC000533 + CC000533CC005171DB0000000000000000000000000000000000384E9900405D + C200042FBF00042FBF00042FBF00405EC200405EC200405EC200405EC200405E + C200405EC200405EC200405EC2003859C800042FBF00042FBF00113AC2003549 + 9000000000000000000000000000000000000000000000000000000000003346 + 87000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000002D418600042DB800042DB700042D + B600032492004F6BCA00042CB400042CB300042CB200042CB100042BB0000323 + 8C004F6AC700042BAD00042BAC00042BAC00042AAA00042AAA00032187000429 + A8000429A8000429A700435FBC002839770000000000364C9D00607CDA002851 + DC001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9001643D9001643D9001643D9001643D9001643D9001643D9001643 + D9001643D9005C7BE400000000000000000000000000000000003A509D00405F + C7000430C4000430C4000430C400374C9700374C9700374C9700374C9700374C + 9700374C9700374C9700374C9700405FC7000430C4000430C400103AC700374C + 9700000000000000000000000000000000000000000000000000000000003447 + 8B000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 0000000000000000000000000000000000002F438B000530BE00042EBC00042E + BC00032595004F6CCE00042EB900042DB700042DB7000328A200031F7E000219 + 6400374B8D00031F7C0003269A00042CB100042BB000042BAF0003238C00042B + AD00042BAC00042AAB00425FBF002A3C7C00000000003E57AF00748FEA004F74 + F000426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426AEF00426A + EF00426AEF007B97F400000000000000000000000000000000003F57A7004162 + D1000434D1000434D1000434D1003C54A1000000000000000000000000000000 + 000000000000000000003C54A1004162D1000434D1000434D100113ED3003C54 + A10000000000000000000000000000000000000000000000000000000000384D + 94000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 000000000000000000000000000000000000344A9400143ECA001740CA00153E + C900072A9E005875D7000E38C5000B36C4000934C2000D2A8A00CDCCCA00CBCA + C800C9C7C600CECCCB0003208300042EBB00042EBA00042EB90003249300042D + B700042DB600042DB6004361C7002F42850000000000405AB1007D97EB006384 + F300587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF200587CF200587CF200587CF200587CF200587CF200587CF200587C + F200587CF20089A2F600000000000000000000000000000000004058AC004567 + D6000E3DD8000E3DD8000C3BD8003F57A8000000000000000000000000000000 + 000000000000000000003F57A8004567D6000E3DD8000E3DD8001946DA003F57 + A800000000000000000000000000000000000000000000000000000000003A4F + 98000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 000000000000000000000000000000000000364B99001D46D100224AD2002149 + D1000A2DA3005F7CDC001A43CD001640CB00153FCA0016359B00EDEDEC00ECEC + EB00EBEBEA00DBDCE20005258E000530C100042FBF00042FBF0003269800042F + BD00042EBC00042EBB004362CB0031458A0000000000425BB300869DED007894 + F4006E8DF3006E8DF3006E8DF3006E8DF3006E8DF3006E8DF300637EDB00637E + DB00637EDB00637EDB006C8AF0006E8DF3006E8DF3006E8DF3006E8DF3006E8D + F3006E8DF30097ADF70000000000000000000000000000000000435CAF004B6C + DB001E4BE1001D4AE0001947E000425AAD000000000000000000000000000000 + 00000000000000000000425AAD004A6CDB001E4BE1001E4BE1002853E200425A + AD00000000000000000000000000000000000000000000000000000000003C51 + 9C000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D50013319500495EA4000000 + 000000000000000000000000000000000000394F9E00264FD8002C53D8002C53 + D7000D31A8006884E100254DD400214AD2002049D2001D45CC001639AF000826 + 8B004E67BA001034AC00113AC5000F3AC8000C37C7000A35C50004279C000632 + C3000531C200042FC0004262CF0033478F00000000003B519A00465898003A4D + 9000364A8E00364A8E00364A8E00364A8E00364A8E00364A8E00C7CCDD009BA0 + AF00999EAD005967980035488A00364A8E00364A8E00364A8E00364A8E00364A + 8E00364A8E00465898003D55A5000000000000000000000000004862B9005576 + E5003D66EE003D66EE00325DED004761B9000000000000000000000000000000 + 000000000000000000004761B9005475E5003D66EE003D66EE00436AEE004761 + B900000000000000000000000000000000000000000000000000000000004157 + A3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA4000000 + 0000000000000000000000000000000000003D55A800375EE2004166E3004267 + E3001338B0007691E9003B61E000375DDE00355CDD00345BDD003057DB000F33 + AB006C87E4002951D800274FD700264ED6001834940017349400072074001330 + 9200122F91001338B3004869D800384E9800000000006179CC005A75D1005A75 + D1005A75D1005A75D1005A75D1005A75D1005A75D1005A75D100D0D7ED00D0D6 + E700CED4E5006A7FC7005873CD005A75D1005A75D1005A75D1005A75D1005A75 + D1005A75D1005A75D1004B5FA5000000000000000000000000004A64BB005A7B + E8004D72F1004D72F1004068F0004A64BB000000000000000000000000000000 + 000000000000000000004A64BB00597AE8004D72F1004E73F1005176F1004A64 + BB0000000000000000000000000000000000000000000000000000000000435A + A7000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000004059AD003F66E7004B70E8004D71 + E900163BB3007E98ED00456AE5004368E4004166E3003F64E2003C62E1001237 + AF00748FE900345BDD003259DC003158DC00B6B6BA00BFBDBB00BDBBB900BAB8 + B600AEAEB200173494004C6DDC003A509D0000000000738CE000466AE2003B61 + E0003B61E0003B61E0003B61E0003B61E0003B61E0003B61E0004665CE005773 + D3005773D3003557C9003A5FDC003B61E0003B61E0003B61E0003B61E0003B61 + E0003B61E0003B61E000566AB3000000000000000000000000004B65BC005F7F + E8005C7FF2005C7FF2004D72F1004B65BC000000000000000000000000000000 + 000000000000000000004B65BC005D7DE8005C7FF2005D80F2005F81F2004B65 + BC0000000000000000000000000000000000000000000000000000000000455C + AB000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007A92 + E300C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 000000000000000000000000000000000000425CB200486DEC004D6CD2003D55 + A600122C80005E6FA8003851A4004362CA004B70E800496EE700456AE600153A + B3007A95EC003F64E3003E64E3003C62E200D7D5D400CDCCCA00CBCAC800C7C5 + C300CECCCB001F3B99005071E0003D54A20000000000B8C6F6009BB0F70093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AAF60093AA + F60093AAF60093AAF6006C80C9000000000000000000000000004D67BE006A87 + E9007C97F4007C97F4006686F3004D67BE0000000000000000005A74CB004D67 + BE004D67BE004D67BE004D67BE00728DEA007D98F5007D98F5007F9AF5004D67 + BE004D67BE004D67BE004D67BE005A74CB000000000000000000000000004961 + B3000535D4001E378A004066E500CED6F000A3B5F100AABAF2008BA1E9007E95 + E200C7CFEB004D6ACB002F4079002D4CB400A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000004760B700587CF2005166AD00D7D5 + D400CBCAC800C9C7C600C7C5C300465DA9006283F2006082F1005C7EEF001B40 + BB008AA2F3005477ED005377ED005175EC004361C7004261C70014339B003D5C + C5003C5CC5004166E2005678E8004259AC0000000000D7DFF900D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DEFC00D5DE + FC00D5DEFC00D5DEFC007387CC000000000000000000000000004E68BF006E8A + EA008BA4F6008AA3F6007391F4004E68BF0000000000000000004E68C100607A + D0004E71E7006382E900738EEA0089A2F4008CA5F6008CA5F6008CA5F600738D + EA006483E9005A7BE800607AD0004E68C1000000000000000000000000004C65 + B8000535D4001E378A004864C100CED6F000A3B5F100AABAF2007E8EC40090A0 + D700C7CFEB004D6ACB002F407900384F9D00A9B3D500133195004A5FA5000000 + 0000000000000000000000000000000000004861B8006082F2005E73BB00E4E5 + EA00ECECEB00EBEBEA00EAEAE9005269B4006D8CF3006B8AF3006888F3001E43 + BE0092A9F5006082F1005F81F1005C7EF000597CEF00577AEF001A3FBB005175 + ED005074EC004A6FEB00597BEB00455DB100000000007185CC007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE007589CE007589CE007589CE007589CE007589CE007589 + CE007589CE007589CE005870C6000000000000000000000000004F69C000738E + EB009BB0F7009AAFF700809BF5004F69C0000000000000000000BFCDF600516A + C3005A78E0006384F300819BF50098AEF7009CB1F7009CB1F7009CB1F700829D + F5006686F3006183F200516AC300BFCDF6000000000000000000000000004E66 + BC000535D4001F42B5005466A300A7B7ED00A3B5F100AABAF2007882A5009AA3 + C30096A7E0004D6ACB0038509E004B5A8C00576CB300133195004A5FA5000000 + 0000000000000000000000000000000000004962B9006888F3007D97F0007086 + D000213FA3008D9DD2006A81CF007893F0007894F4007794F4007391F4002146 + BE009BB0F7006C8BF3006A8AF3006888F3006586F3006384F3001D42BE005D7F + F1005C7FF1005478F0005C7EEF004761B7000000000000000000000000000000 + 0000000000000000000000000000C7C5C500AFADAC00898685007D7A78007D7A + 78007D7A78007D7A78007D7A7800AFADAC008F8D8B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000516BC2007B95 + EC00BAC9FA00B9C8F90097ADF700516BC2000000000000000000000000000000 + 000092A5EC00738EEB0098AEF700B4C4F900BBCAFA00BBCAFA00BAC9FA0097AD + F7007892EC005A73C6000000000000000000000000000000000000000000536D + C4000425940015349B002C469F005B6CA500727FA9007682A9006070A2005666 + 9F004B5D990035498D002A3F86001F357E00091F6A000D226800344374000000 + 0000000000000000000000000000000000004B65BC00708EF40089A2F60097AD + F70097ADF70095ACF70093AAF60090A8F6008EA6F6008CA5F60088A2F60087A1 + F500859FF500829CF500809BF5007F9AF5007B97F4007995F4007894F4007491 + F4006F8DF3006283F2006987ED004B65BC000000000000000000000000000000 + 0000000000000000000000000000E0DEDE00D7D5D500D3D1D000D3D1D000D3D1 + D000D3D1D000D3D1D000D3D1D000D5D3D2009C9A990000000000000000000000 + 0000000000000000000000000000000000000000000000000000526CC3007A95 + EC00C4D1FA00C3D0FA009CB1F700526CC3000000000000000000000000000000 + 0000000000006179CB00809AEE00ABBDF800C9D5FB00C9D5FB00C1CEFA007B96 + EE006179CB007991E20000000000000000000000000033437C0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D0027376D0027376D0027376D0027376D0027376D0027376D0027376D002737 + 6D00374780000000000000000000000000004D66BF007995F400829CF50091A8 + F6009AAFF70099AFF70097ADF70096ACF70094ABF60092A9F6008FA7F6008DA5 + F6008BA4F60088A2F60086A0F500849EF500819BF5007F9AF5007C97F4007592 + F4006D8CF3005E80F2006C86E0004F6AC5000000000000000000000000000000 + 0000000000000000000000000000DEDDDC00E4E3E200E4E3E200E4E3E200E4E3 + E200E4E3E200E4E3E200E4E3E200E4E3E2009A97960000000000000000000000 + 0000000000000000000000000000000000000000000000000000536DC600738E + E900AFC0F900B0C0F9008FA7F600536DC4000000000000000000000000000000 + 0000000000006883DC00637BCD00869FF200BAC9FA00BAC9FA00A7B9F8006179 + CC006883DC00000000000000000000000000000000002E3F7B004662BF004F6C + CD005F7DE3006685ED006988F1006382EB005F7FE8005B7BE4005474DD005070 + D9004C6CD5004564CC004463CA004766CC004D6BD100506ED400516FD500536F + CC00364A91000000000000000000000000007990E200839CF0007E99F5007C97 + F400839EF500839EF500839EF500829CF500819BF5007F9AF5007C97F4007B97 + F4007A96F4007794F4007592F4007491F400718FF4006F8DF3006C8BF3006485 + F3005F81F2006485F3005C73C70091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000CED8F7005770 + C8006D8AEB006D8AEB006A83DA00C1CDF6000000000000000000000000000000 + 00000000000000000000000000005973CF007390F2007592F2006E86D6000000 + 000000000000000000000000000000000000000000003E539B00566EBF004463 + CA005B7AE2007490EE007E99F3006987EC005D7DE7005273E2003B60D8002F54 + D200244ACB000C35BE000831BA001239BE00254AC6002B50C9003256CD005D77 + CE004458A000000000000000000000000000000000007991E300506AC3005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C000506AC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005670C7005670C700647ED900000000000000000000000000000000000000 + 0000000000000000000000000000000000006580DC006681DD005D77CF000000 + 000000000000000000000000000000000000000000006079C700566CB6005D77 + CB006D87DD00748EE5007892E800708BE3006E88E1006A84DE00637DD8005E79 + D5005B76D200536DCA00516CC9005570CC005B75CE005E78D1005E78D100556B + B2006880D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005972CA005972CA00C1CDF6000000 + 0000000000000000000000000000000000000000000000000000677FD1005068 + BC005068BC005068BC005068BC005068BC005068BC00485EA900485EA900485E + A900485EA9005068BC005068BC005068BC005068BC005068BC005068BC006E85 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000879BE00044589E004458 + 9E00475A9E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DADADA00C7C7C700C0C0 + C000C0C0C000253566002A396E00AFBCE400C8C8C800D5D5D500DEDEDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000032458D00DDE2 + F600DFE4F700DFE4F700E0E5F700E0E6F700E0E6F700E1E7F800E3E8F800E3E8 + F800E4E9F800E4E9F800E5EAF800E5EAF800E6EBF800E7EBF900E7EBF900E8EC + F900E9EDF900E9EDF90032458D00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F1002C3F7D003E58AE003F58AA00425287000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000293973008C99C6008897C9004963B7001F3E + A60003269C001F3EA6004963B7006A7EC2008C99C60029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000035499400D8DF + F600C9D2F200C9D2F200CAD3F200CCD5F400CDD6F400CED7F400CFD7F400D0D8 + F400D0D8F400D2DAF500D3DBF500D4DBF500D6DDF500D6DDF500D7DEF500D9E0 + F600DAE0F600DBE1F70035499400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F1002E42 + 81004A5D9D000F309D000F2F9A003F58AA003044890000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005871C0003D54A2002C4082005165A9004A65 + BD000328A3004661BC005165A9004A598E002C3C7A005871C000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000384E9A00D5DC + F600C3CEF300C4CFF300C4CFF300C5D0F300C5D0F300C6D0F300C8D2F400C9D3 + F400C9D3F400CBD4F400CCD5F400CCD5F400CED7F500CFD8F600D0D9F600D2DA + F600D2DAF600D3DBF600384E9A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000304285004B5F + A1003F5AB70003269B00032698000F2F9A004453880031458A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000042528C00516B + C200042AAA00506AC40042528C008397DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003F56AA00D7DF + F9000537DD00C6D1F700C6D1F700C6D1F700C5D1F7000537DD00C5D1F700C4D0 + F700C4D0F700C4D0F700C4D0F700C3CFF7000537DD00C3CFF700C3CFF700C4D0 + F7000537DD00C4D0F7003F56AA00000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC7F20035498F003E5BBE000F33 + AB000429A50003279F0003279D0003269B000F2F9A003F58AA00445489000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034488D005771 + C600042EB9005771C60034488D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AB000D8E0 + FA000538E500C7D3F900C7D3F900C7D3F900C6D2F9000538E500C6D2F900C6D2 + F900C6D2F900C6D2F900C6D2F900C5D1F9000538E500C5D1F900C4D0F800C4D0 + F8000538E500C4D0F800425AB000000000000000000000000000000000000000 + 0000000000000000000000000000BAC7F200374B93005165AD001035B100042A + AA00A0AEDE000328A20003279F0003279D00032698000F2F9A003F58AA003247 + 8B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000374C93005873 + CB00042FC0005873CB00374C9300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455EB600DAE2 + FC00053AEB00CAD5FB00CAD5FB00C9D5FB00C9D5FB00053AEB00C8D4FB00C8D4 + FB00C8D4FB00C7D3FB00C7D3FB00C7D3FB00053AEB00C7D3FB00C6D2FA00C6D2 + FA00053AEB00C6D2FA00455EB600000000000000000000000000000000000000 + 0000000000000000000000000000394E9700546AB2004A67CA000C32B200052C + AD0099A6D000A0AEDD000328A20003279F0003269B00032698000F2F9A004555 + 890033478C000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A509A005974 + D0000431C7005974D0003A509A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004861B900DEE5 + FC000F42EC00D0DAFB00D0DAFB00CFD9FB00CFD9FB000F42EC00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB000F42EC00CCD7FB00CCD7FB00CCD7 + FB000F42EC00CBD6FB004861B900000000000000000000000000000000000000 + 000000000000BDC9F4003D54A0005C78D500395BCB002B4FC600A7B5E5001439 + B8000C32B200939FC600FFFFFF00A0AEDD0003279F0003279D0003269B000F2F + 9A003F58AA0046568A0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004057A7005B77 + DA000636D6005B77DA004057A700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000364C97002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C76002B3C + 76002B3C76002B3C7600000000000000000000000000000000004963BA00DFE6 + FC001949ED00D3DCFB00D3DCFB00D3DCFB00D3DCFB001A4AED00D2DBFB00D2DB + FB00D2DBFB00D2DBFB00D2DBFB00D1DBFB001A4AED00D1DBFB00D1DBFB00D0DA + FB001A4AED00CFD9FB004963BA00000000000000000000000000000000000000 + 0000BDC9F4003F57A3005F76C0004767D2003A5CCD003255C900FFFFFF00A7B5 + E5001439B80004269800939FC600FFFFFF000328A20003279F0003279D000326 + 98000F2F9A003F58AA0033488D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000435BAE005F7D + E0000E3EDF005F7DE000435BAE00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003F559E004E6CD000274D + CD002B50CD002B50CD002B50CD002C51CD002C51CD002C51CD002C51CD002C51 + CD002C51CD002C51CD002C51CD002C51CD002C51CD002B50CD002B50CD002A4F + CD00274DCD004E6CD000000000000000000000000000000000004A64BB00E2E8 + FD002251ED00D7DFFC00D6DFFC00D6DFFC00D6DFFC002453EE00D6DFFC00D6DF + FC00D5DEFC00D5DEFC00D5DEFC00D5DEFC002453EE00D4DDFC00D4DDFC00D4DD + FC002352ED00D2DBFB004A64BB00000000000000000000000000000000000000 + 00004259AA006379C4006883DF004A6AD5004364D2003B5DCD00A5B0D300FFFF + FF00A7B5E5000C32B20004269800939FC600A0AEDD000328A20003279F000326 + 9B00032698000F2F9A0046568B003A4F99000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000465FB4006381 + E5001747E7006381E500465FB400000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A75D1005771C8006472 + A8006A80CA005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8007684 + B4006472A8005771C800000000000000000000000000000000004D66BE00E5EA + FD003761EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003862EF003862EF003862EF003862 + EF003761EF00D8E0FC004D66BE00000000000000000000000000BECCF500465E + B2007590E7006D88E5006985E200BDC7E700FFFFFF00B9C5EE003B5DCD003250 + B600A5B0D300A7B5E5001439B8000C32B200939FC600FFFFFF00A0AEDD000327 + 9F000F31A100405AB000364B9300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004B65BC006B88 + EB002755EE006B88EB004B65BC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005A74 + C7002247C100042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF00042FBF004A60 + AA005A74C70000000000000000000000000000000000000000004E68BF00E6EC + FD004169F000E1E7FD00E1E7FD00E1E7FD00E1E7FD00436BF000E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00436BF000DEE5FC00DEE5FC00DEE5 + FC004169F000DBE2FC004E68BF000000000000000000BECCF5004961B7006D84 + D0007892E9007892E800728CE600617BCF00BAC3E100FFFFFF004364D2003B5D + CD003250B600FFFFFF00A7B5E5001439B80004269800939FC60099A5CE000F32 + A700415BB5004B5B950000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C66BD006E8B + EB00305CEE006E8BEB004C66BD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007D93 + E0003457CD000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA004B61 + AF007D93E00000000000000000000000000000000000000000004F69C000E7EC + FD004B71F100E4E9FD00E4E9FD00E4E9FD00E4E9FD004D72F100E3E9FD00E3E9 + FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD004D72F100E2E8FD00E2E8FD00E1E7 + FD004B71F100DEE5FC004F69C00000000000000000004B67C0006A83D30089A1 + F000889FED00819AEB007993E8006A85E200617BCF00BAC3E100B9C5EE004364 + D2003B5DCD00A5B0D300FFFFFF00A7B5E5000C32B2000426980003259500415C + B9004C5E9A003B519B0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67BE00728E + EC003862EF00728EEC004D67BE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E7BDD00234FE100234FE100234FE100234FE100234FE100234FE100234F + E100234FE100234FE100234FE100234FE100234FE100234FE100224EE0004E64 + B500000000000000000000000000000000000000000000000000526CC300EBF0 + FD005D80F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2006183F2006183F2006183F2006183F2006183F2006183F2006183F2006183 + F2005E80F200E4E9FD00526CC30000000000000000004C66BD00728FF20095AB + F30099AEF20091A7F0008AA1EE007993E800728CE6006A85E200BAC3E100FFFF + FF00B9C5EE003B5DCD003250B600A5B0D3001B40BC001B40B9004562C1003E56 + A200000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005069C0007B95 + ED004A70F0007B95ED005069C000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006984E1003E66EE003862ED003B64ED003B64ED003B64ED003B64ED003B64 + ED003B64ED003B64ED003B64ED003B64ED003B64ED003862ED003E66EE004F68 + C300000000000000000000000000000000000000000000000000536DC400ECF0 + FE00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EBF0FD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E6EBFD00536DC40000000000000000004D67BF007693F300A1B4 + F600A1B4F40099AEF20091A7F000819AEB007993E800728CE600617BCF00BAC3 + E100FFFFFF004364D2003B5DCD003250B600274BC2004A67C7005366A8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1007D97 + EE005176F1007D97ED00516AC100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006781DA005378F100496FF0005176F1005176F1005176F1005176F1005176 + F1005176F1005176F1005176F1005176F1005075F100496FF0005378F1005975 + D100000000000000000000000000000000000000000000000000546EC500EDF1 + FE00EDF1FE00EEF2FE00EEF2FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0FE00ECF0 + FE00EAEFFD00E7ECFD00546EC50000000000000000004E68C0007A96F400A9BB + F700A3B4F1006078C7004B63B600506BC6007C95E7007993E8006A85E200617B + CF00BAC3E100B9C5EE004364D2003A5CCD00516DCD00566AAB00445AAA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000526BC200809A + EE005A7DF200809AEE00526BC200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000647AC900728FF100577BF2005C7FF2005E80F2005F81F2006082F2006082 + F2006082F2006082F2005F81F2005E80F200567AF200587CF200728FF1009FB1 + F0000000000000000000000000000000000000000000000000005770C700F0F3 + FE007B97F40087A1F5008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3F60087A1 + F5007A96F400EBF0FD005770C7000000000000000000506AC1007A96F400B1C1 + F900506AC100D2DBF80000000000A9BAF0004B63B6008AA1EE007993E800728C + E6006A85E2005771CB004B6BD7005D79D7004960B30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FAFE9005671CC0000000000000000000000000000000000546EC50088A0 + EF006B8AF30088A0EF00546EC500000000000000000000000000000000005A72 + C600A1B1E900546EC50000000000000000000000000000000000000000000000 + 00005A75D1006E84D2007690EA007D97EB007F98EB007F98EB008099EB008099 + EB008099EB008099EB007F98EB007F98EB007A94EA007790EA006E84D2000000 + 00000000000000000000000000000000000000000000000000005871C800F0F3 + FE00F1F4FE00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE00F1F4FE00F0F3 + FE00EEF2FE00EBF0FD005871C8000000000000000000516BC2006F8DF300A9BB + F800516BC200D3DBF90000000000BFCDF5004D66BA007F99ED00819AEB007993 + E800728CE6005776DD00637FDC005F73BA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008AA1EC006B81CD00AFBEF300000000000000000000000000556FC6008BA2 + F0007290F4008BA2F000556FC600000000000000000000000000000000007589 + D200879FEF00556FC60000000000000000000000000000000000000000000000 + 000000000000647EDB005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C900647EDB000000 + 00000000000000000000000000000000000000000000000000005872C900F1F4 + FD00F4F6FD00F5F7FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F6F8FD00F5F7 + FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F5F7FD00F4F6FD00F4F6 + FD00F3F6FD00F1F4FD005872C9000000000000000000546FCB006680D90099AF + F7006E84D1005E78D100D3DBF900556FCB00647BCA0099AEF2008AA1EE00819A + EB00748FE7006984E0006277BF004D65BA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007993EE00748EE5005870C8000000000000000000000000005670C7008FA6 + F1007A96F4008FA6F1005670C70000000000000000000000000093A7ED007791 + E7007C96EE005E79D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009EB3F700B6C6F900C3D0FA00B7C6F800B1C1F800A8BAF50092A8F100809A + EE00758FE900526BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000819AEB006183F2005579F100486DE8004469E8004469E8005174E9006585 + F1007894F4006484F1005074E900466BE8004469E8004A6EE8004E73EF006586 + F3007992E500607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600748DDD0099AFF700ACBDF800B5C5F900AFBFF800A6B8F600869FF100809A + EE006B81CC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000095A8E600A8B9F300AABBF300A5B7F300A4B6F300A4B6F300A9B9F300AFBF + F500B1C1F500AEBEF500A8B9F300A5B7F300A4B6F300A6B8F300AABAF300A8B9 + F30095A8E600607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8006982DC007C96ED0089A0EE00869EEE00839BED00738EE9006C83 + D0005671CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C900879CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CBCBCB00C7C7C70095A4D9002B3A6A002B3A6A002B3A6A002B3A6A002B3A + 6A002B3A6A002B3A6A002B3A6A002B3A6A003040790095A4D900C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DBDBDB00D1D1D100C9C9C900C7C7 + C700C7C7C700C5C5C500C5C5C500C5C5C50029386D0030417800C5C5C500D3D3 + D300000000000000000000000000000000000000000000000000000000000000 + 00007789C8002C375F0033458000C3C3C300C5C5C500D1D1D100DCDCDC000000 + 00000000000000000000DADADA00D5D5D500C3C3C300B1BCE500394B89007587 + C600DADADA000000000000000000000000000000000000000000000000000000 + 000000000000B2BFEE002D407D003758C6003758C6003758C6003758C6003758 + C6003758C6003758C6003758C6003758C6003C53A1002E407C00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387100032698000326 + 98004E66B6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F92D80029396C008494C80025346900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED7F60031417A00536BBC002D3D7800647BC90000000000000000000000 + 0000000000000000000000000000000000002D3D780041569B004B66BE00B7C5 + F100000000000000000000000000000000000000000000000000000000000000 + 000031458E003E58AF003358D600042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB3000D34B9003358D6003E58AF00BAC6 + F200000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3D79000328A2000328 + A2004F69BE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008093D900324273005466A5008393C80027366B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000354C98003C529C00425DB400384984003D54A200000000000000 + 00000000000000000000000000003D54A200425CB0002245B8003E55A1000000 + 000000000000000000000000000000000000000000000000000000000000BAC7 + F2004059B200345AD9000D36BE00042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB7000D36BE00345AD9003348 + 9100BAC7F2000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002F418200042BAD00042B + AD00506BC6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036457A005568AA00324DAA008494CC00293A7300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007389D500495991001338B2003A59C0004054960094A6E5000000 + 000000000000A5B6EC002F42860040549600163BB400092EA9004B5B95000000 + 0000000000000000000000000000000000000000000000000000BCC8F300354A + 95003359DA000D37C200042EBC00042EBC00042EBC00042EBC00042EBC00042E + BC00042EBC00042EBC00042EBC00042EBC00042EBC00042EBC000D37C200415B + B500354A9500BCC8F30000000000000000000000000000000000000000000000 + 000000000000364B94005C76CD00183DB800183DB800183DB8000D37C3000D37 + C3000D37C300183DB800183DB800183DB800364B940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003850 + 9D00455690002042B300042AA900042AA9008496D4002F428100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003B54A200042CB100042CB100042CB100435EBE003E51 + 9500344890004660BD002146C200072EB300042CB1004961AE00384D98000000 + 00000000000000000000000000000000000000000000384F9E00435DBA00335A + DE000431C5000431C5000431C5000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C5000431C5000431C5000D39 + CB00335ADE00435DBA00BDC9F400000000000000000000000000000000000000 + 0000000000003A509B005B79DD001540CF001540CF001540CF001540CF001540 + CF001540CF001540CF001540CF001540CF003A509B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003C54A3005365 + A400516CC700042CB200042CB200042CB2008497D90033468700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000788ED900163CBB00062FB700062FB700133ABE003C5C + C900465EAF00163DBF00062FB700062FB7001138BA005062A2005E76C9000000 + 000000000000000000000000000000000000BDC9F400435FBD00335BE0000D3A + CE000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000D3ACE00335BE0003A52A100BDC9F4000000000000000000000000000000 + 0000000000003E54A5006782DD006A84DD006A84DD006A84DD001D49DA001D49 + DA00617FE5006A84DD006A84DD006A84DD003E54A50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CED7F6006179C7004258A50033488F005568AA004D6A + CC001239BE00042EBB00042EBB00042EBB008499DD00364A9000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D0D8F7004762C1001139BE001139BE001139BE00143B + C0002E53CD001139BE001139BE001139BE003959C30040539600BCC8F3000000 + 0000000000000000000000000000000000004159AD00345CE3000D3BD3000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000433CF000433CF000433CF000433CF000433CF000433CF000433 + CF000433CF000D3BD3004561C0004159AD000000000000000000000000000000 + 0000000000000000000000000000000000008197E500455FB6002D59ED002D59 + ED00587BF1008197E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004C5F9F005971BF004A66C5002447BA001237B4007288D2004F6FDB000432 + CD000432CD000432CD000432CD000432CD00849BE6003D53A0007087D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005669AA003458D0002B50CE002B50CE002B50 + CE002B50CE002B50CE002B50CE002B50CE00596DAF00647CD000000000000000 + 0000000000000000000000000000000000004159A9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9000535D9000535D9000535D9000535D9000535D9000535 + D9000535D9000535D9003760E8004159A9000000000000000000000000000000 + 00000000000000000000000000004A62BC00526AC4004D6DD5003560EF003560 + EF003560EF00526AC4004A62BC008198E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A74C9001C43C500042FC000042FC000042FC000728ADB005273E2000D3C + D7000E3DD8000E3DD8000E3DD8000E3DD800869DEB004058A800576EB8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000465BA500395BCB00385CD400385CD400385C + D400385CD400385CD400385CD400385CD4004B60A7004D66BC00D1DAF7000000 + 000000000000000000000000000000000000435BAF000537DD000537DD000434 + D200042CB100042CB100042EB9000537DD000537DD00042CB1000537DD000537 + DD000430C400042CB100042CB1000430C4000537DD00042CB1000537DD000537 + DD000537DD000537DD00365FE900435BAF000000000000000000000000000000 + 000000000000000000005C76D2005171DE003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF005171DE00526BC1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005071DE000433CF000433CF000433CF000433CF00728DE4005779E9001A48 + E1001C4AE1001C4AE1001C4AE1001C4AE10089A1EF00445DB0004E71E500738C + DE00000000000000000000000000000000000000000000000000000000000000 + 000000000000ABBBF0004159AB006580DD004B6DDD004669DC004669DC004669 + DC004669DC004669DC004669DC004669DC006480DE00576EB8004159AB000000 + 000000000000000000000000000000000000455EB300093BE300093BE2003B5A + C000FFFFFF00FBFBFB00BCC3DD00093BE200093BE200F2F2F200093BE2000835 + CC007F90CB00FFFFFF00F5F5F5007F90CB00093BE200F2F2F200093BE200093B + E200093BE200093BE2003861EB00455EB3000000000000000000000000000000 + 0000839AE6006279C7006A88EE004D72F1005879E5005D76CA004E68C3004E68 + C3004F68BD005879E5004D72F1004D72F1006279C700839AE600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006384F300456CF0004C72F1004C72F100466DF00088A1F5005E80F200335E + EF003862EF003862EF003862EF003862EF008EA6F6004A64BC00093DEB00516A + BE0000000000000000000000000000000000000000000000000000000000BFCC + F5005A70BB00728BDF006D8AEA006180E7006180E7006180E7006180E7006180 + E7006180E7006180E7006180E7006180E7006180E700607FE7006B88EA005E73 + BD004A63BA00ABBBF10000000000000000004A64BB001949ED001B4BED001B4B + ED001B4BED003761EF00C4D0F9001B4BED001B4BED00FFFFFF001B4BED00C2C9 + E2007F9AF5001B4BED001B4BED00708EF4001B4BED00F5F5F5004F6CCE003A5A + C3001741CF001B4BED004068F0004A64BB000000000000000000000000000000 + 00005169C2008A9FE9005378F100617FE500536CBF007990E200000000000000 + 0000D2DBF800536CBF00617FE5005378F1008A9FE9005169C200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F8DF3006787F3006F8DF3006F8DF3006888F30095ACF7006283F2004068 + F000466DF000466DF000466DF000466DF00091A8F6004B65BD00093DEB004B65 + BD00000000000000000000000000000000000000000000000000768EDF004C64 + B7007D97EB007590ED006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB006D8AEB007C96 + ED006F85D0004C64B70000000000000000004B65BD002050ED002352ED00315D + EF00E3E9FD00FFFFFF00C8D4FB002352ED002352ED00FFFFFF002352ED00FBFB + FB005A7DF2002352ED002352ED005A7DF2002352ED00FFFFFF00C9D5FB00EDF0 + FA0092A0D0002352ED00446BF0004B65BD000000000000000000000000000000 + 00007288D000718FF4005B7EF200566EC10091A4EB0000000000000000000000 + 00000000000091A4EB00566EC1006684E700718FF4007288D000839AE7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007995F400839EF50090A8F60090A8F600859FF500A0B4F7006586F3004D72 + F1005378F1005378F1005378F1005378F10094ABF6004C66BE002553EE004F6A + C50000000000000000000000000000000000000000005672CE00586FBE00738C + DE007D97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97 + F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007C97F1007D97 + F1007E99F1007790E200526DC700BFCCF5004C66BD002957EE002C59EE00BCCA + FA007D98F500486FF0002C59EE002C59EE002C59EE00FFFFFF002C59EE00D8E0 + FC0088A2F6002C59EE002C59EE007B97F4002C59EE00FFFFFF002C59EE00476E + F000F8F8F8002C59EE00486FF0004C66BD000000000000000000000000000000 + 00009EB1F2006B8AF300738FEE00D3DBF8000000000000000000000000000000 + 00000000000000000000D3DBF800566EC2006B8AF3009EB1F2004F69C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000089A0EC009FB3F700AFC0F900B8C7F900A6B9F800ACBDF8006C8BF3006485 + F3006F8DF3006F8DF3006F8DF3006F8DF30099AFF7004E68C000667DCB000000 + 00000000000000000000000000000000000000000000516BC200516BC200516B + C200516BC200516BC200516BC200516BC200516BC200516BC20094ABF60095AC + F70095ACF70093AAF600879DE600516BC200516BC200516BC200516BC200516B + C200516BC200516BC200516BC2005671CD004E68BF003963EF003E67F0006384 + F300FFFFFF00FFFFFF00CFD9FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF003E67 + F000ACBDF800FFFFFF00FFFFFF00ACBDF8003E67F000FFFFFF00FFFFFF00F2F5 + FE009FB3F7003E67F0004F74F1004E68BF000000000000000000000000000000 + 0000A4B6F3007391F4007C97ED00000000000000000000000000000000000000 + 0000000000000000000000000000526DC8007391F400A4B6F3005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000768CD400B1C0F200B5C5F900B4C4F9009EB3F700A7B9F800718FF4006D8C + F3007C97F4007D98F5007D98F5007D98F5009CB1F7004F69C1007991E3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007189E000A3B6F800A2B6 + F800A2B6F800A0B4F7007A8FD6006882DC000000000000000000000000000000 + 0000000000000000000000000000000000004F69C0003F68F000476EF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000486FF000486FF000486FF000486FF000486FF000486FF000486F + F000486FF000476EF0005075F1004F69C0000000000000000000000000000000 + 0000A9BAF300809BF500839CEF00000000000000000000000000000000000000 + 0000000000000000000000000000536EC900809BF500A9BAF300516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006881DB00506AC200657BC9008196DB008FA2E5008EA5F0008FA7F6007794 + F400859FF5008AA3F6008AA3F6008AA3F6009FB3F700506AC200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600AFBFF500B0C0 + F900B0C0F900ACBDF6006078C9009FB1F0000000000000000000000000000000 + 000000000000000000000000000000000000506AC100466DF0004E73F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1004E73F1004F74F100566FC3000000000000000000000000000000 + 0000A5B5EA00A2B6F8008AA3F6007A92E4000000000000000000000000000000 + 000000000000000000007A92E4007D90D600A2B6F800A5B5EA005C77D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005871CF008A9C + DC00A8B9F6009BB0F700A4B7F800A5B8F800A3B6F800536DC400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F94D800C4D1 + FA00C9D5FB008DA0DF006983DD00000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCDF6008499E0006686F3005A7D + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006283 + F2006283F2006283F2006283F2006283F2006283F2006283F2006283F2006082 + F2005A7DF2006686F300526CC500BFCDF6000000000000000000000000000000 + 00008597D800B3C3F90097ADF700637ACA0092A7EC0000000000000000000000 + 00000000000092A7EC00637ACA0096AAEE00B3C3F9008597D800849BE8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + CF00758BD20097ADF70097ADF700A0B4F700A1B5F700546EC500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DCD00BCCA + F700CDD8FB006D84CF009FB1F000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC60090A2E200718F + F4006787F3006B8AF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3005D80 + F200718FF40090A2E200BFCDF600000000000000000000000000000000000000 + 00005B74C900B9C6F200B2C2F9009FB1EF00657BCB007C92E500000000000000 + 0000D3DBF900657BCB009FB1EF009AAFF700B9C6F2005B74C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006883DC00A7B9F40098AEF700849EF5009EB3F700556FC600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C900A9B8 + EC00CAD5FB005771C80000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600536EC70091A4 + E2006384F300708EF4007592F4007592F4007592F4007592F4007592F4007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007290F4007491 + F40091A4E200536EC70000000000000000000000000000000000000000000000 + 0000000000006B84DE008093D600BCCAFA00ACBDF800A7B9F800AFBFF500AFBF + F500ADBDF600ACBDF800BCCAFA00C5D1F9006B84DE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A7ED00677ECD009DAFEE0094ABF6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009FB1F000667D + CD009AAFF40093A8ED0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60099A9E3008CA5F6007894F40086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F500839EF5007894F40093AAF6005670 + C800C1CDF6000000000000000000000000000000000000000000000000000000 + 000000000000000000006B85DE00C2CEF400C2CFFA00B7C7F900A9BBF800A9BB + F800B0C0F900C2CFFA00C2CEF400798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000093A8ED005D76CA008DA5F6005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9008297E1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C9009AAAE300ABBDF8008AA3F6008EA6F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008EA6F6007E99F500ABBDF8009DACE500C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E76CC008D9EDB00B5C2ED00C6D2F800C6D2 + F800C6D2F8008D9EDB005E76CC00879CE9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6008FA2E5005771C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000647E + DA00667DCD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF6005771C9009DACE50090A8F60099AFF7009DB2F7009FB3F7009FB3 + F7009FB3F7009EB3F7009DB2F70098AEF700ABBDF8009DACE5005771C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005874CF00C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D6D6D600CDCDCD00C7C7C7007487C6002938 + 6D0025346A00C5C5C500C7C7C700CBCBCB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005E72B6002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B00687BBC00CFCF + CF0000000000000000000000000000000000000000000000000000000000D3D3 + D300C0C0C00025346D0027315900273159002731590027315900273159002731 + 590027315900273159002731590027315900273159002E3D7300C0C0C000CBCB + CB00DEDEDE000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DFE5F90032406C005261 + 970046568B00455AA500DFE5F900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004C64B4003F59AE002C52 + D2000D35BA000E36BB000E36BB000E36BB000E36BB000E36BB000E36BB000E36 + BB000E36BB000D35BA000C34BA00284ECE00142A74002240A6003C54A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000293973004E67B80003269B0003269B0003269B0003269B000326 + 9B0003269B0003269B0003269B0003269B004E67B80029397300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F100293C7A0045548D0017369D001C3A + 9E00032083003F57A70043528600283873000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000006E85CF00273773002534690025346900364D96006E85 + CF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000354C97004A68CE003358 + D600355AD200365AD200365AD200365AD200365AD200365AD200365AD200365A + D200365AD2003358D2002C52D1004166DF000A2479001335A500425FC0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C77004E68BC0003279F0003279F0003279F0003218700021C + 700003228A0003279F0003279F0003279F004E68BC002B3C7700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334685006F7EB1003F5AB20003269B002946 + A900032288000F2F99003F58A90048599300B6C5F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007287D100293B7900233576000C2A8F000C2A8F000C2A8F00172F82002335 + 7600293B79000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002E407F005271DE004166 + E2005374E3005677E4005777E4005777E4005777E4005777E4005777E4005777 + E4005777E4005072E3004267E0005275EA0003218700092EA9004160CA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002D3E7C004E68BF000328A4000328A4000328A40003238C00FFFF + FF0003238F000328A4000328A4000328A4004E68BF002D3E7C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007483B4003D59B800072CA4000328A1002947 + AD000321870003269A00072999003751AA003244840000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293B7B00143090000328A1001638A8001638A8001638A8000328A1000328 + A100143090004F67B60000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003C54A30033468A003346 + 8A0033468A003A4C8B0030438400304384003043840030438400304384003043 + 84003043840030438400304384003043840003249100042DB500365BD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000031448500506BC700042BAE00042BAE00042BAE00042BAE00042B + AE00042BAE00042BAE00042BAE00042BAE00506BC70031448500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006880D0006170A400173CB7001036B5001237B5000F34B1003D5B + BF0006258B00062BA7000429A3000328A000465FB0003D4D81006179C7000000 + 0000000000000000000000000000000000000000000000000000788DD9002F44 + 8D002045BD004B68CA00566FBF003E509000374D9A00374D9A004D609F00566F + BF002045BD002648B70044569700788DD9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000364A8F003358D30003279F0003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F00042AA900042EBB00375DDC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034468900506CCA00042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300506CCA0034468900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F200455796008496D300153BBC00183EBD00193EBC001F44BC004361 + C60008278E000D32AE000A2FAB00052AA6001F3FAA00485FAA00324279000000 + 0000000000000000000000000000000000000000000000000000374D98001E3F + AD00506ED3005C75C60042559800D0D8F70000000000000000006B83D3004255 + 98005C75C6000B35C000546EC1003A509A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000384D9500375DDE000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C200375DDE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000036498E004F6CCD00042DB800042DB800042DB800042DB800042D + B800042DB800042DB800042DB800042DB8004F6CCD0036498E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000465FB2008B98C8004968D0001E44C4002147C6002146C500284CC4004866 + CC000B2B94001439B7001035B2000D32AE000429A500324FB2004D5E98000000 + 000000000000000000000000000000000000000000007B92DD00354EA200113C + CC005F78CF004559A100889DE30000000000000000000000000000000000889D + E3004559A100133ECC003156D3005165AC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00003D54A000375EE3000433CE00829DF500829DF500829DF500829DF500829D + F500829DF500829DF500829DF500829DF5000433CE000433CE00375EE3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003A4F9700506ED4000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C200506ED4003A4F9700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000091A0D1004769D800234BD1003055D4003055D4002F54D3004062D4005371 + D7001132A0002146C5001D42C100193EBC001035B3000A2FAD002C4BB4003F55 + A2000000000000000000000000000000000000000000435AB000254DD4003059 + E2004D63B000D1DAF80000000000000000000000000000000000000000000000 + 0000D1DAF800355BDC001E4BE0006682E0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004057A600375FE6000636D4000737D4000737D4000737D4000737D4000737 + D4000737D4000737D4000737D4000737D4000737D5000636D400375FE6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003C529C004F6ED7000431C7000431C7000431C7000431C7000431 + C7000431C7000431C7000431C7000431C7004F6ED7003C529C00000000000000 + 000000000000000000000000000000000000000000000000000000000000D1DA + F8008EA2E6002A52D7002F56D800375CDB00375CDB00365BDA004668DA005876 + DC001334A300274CCB002348C7001F44C300163BB9000F34B3001035AF003B4C + 8400CED7F70000000000000000000000000000000000465EB400355BE0003660 + EB004A64BE000000000000000000000000000000000000000000000000000000 + 000000000000355CE1002250E9006986E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000435BAD003961E8000D3DDB00103FDB00103FDB00103FDB00103FDB00103F + DB00103FDB00103FDB00103FDB00103FDB000F3EDB000D3DDB003A62E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A0004F6FDB000432CC000432CC000432CC000432CC000432 + CC000432CC000432CC000432CC000432CC004F6FDB003F55A000000000000000 + 000000000000000000000000000000000000000000000000000000000000677F + D4006683E6002E56DD00395FDF003F64E1003E63E0003D62DF005777E2005E7C + E2001638A9002D52D100294ECD00254AC9001B40BF00153AB9000E34B3004A5C + 9D005B74C300000000000000000000000000000000004962B9004167E700305C + EE004D68C2000000000000000000000000000000000000000000000000000000 + 0000000000003059E2003661EF006D8AEB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004962B8003E66EE001B4BE80092A9F60092A9F60092A9F60092A9F60092A9 + F60092A9F60092A9F60092A9F60092A9F6002250E9001C4BE8004169EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000435AAA005576E3001441D8001542D8001542D8001542D8001542 + D8001542D8001542D8001542D8001441D8005576E300435AAA00000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8005C71 + BB00365FE800446AEA004B70EC004C71EC004B70EB004B70EB006785EB006987 + EA001B3EB200395EDC003459D8003055D400264BCA002045C400183EBE004A65 + C0003F508C00CED7F7000000000000000000000000005772CE006C85DE003C65 + EF006A80CD007990E20000000000000000000000000000000000000000000000 + 00007990E2003F68F0006989F300748CDF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B65BD004068F0002352ED002E5AED002E5AED002E5AED002E5AED002E5A + ED002E5AED002E5AED002E5AED002E5AED002C59ED002352ED00446BF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000465EAF005879E7001E4ADE001F4BDE001F4BDE001F4BDE001F4B + DE001F4BDE001F4BDE001F4BDE001E4ADE005879E700465EAF00000000000000 + 00000000000000000000000000000000000000000000000000008EA3E9007E90 + D1003D65ED004D72F0005277F0005378F0005277F0005176EF00708DF0006E8B + EE001E41B7003F64E1003A5FDD00355AD9002B50CF00254AC9001D43C3003858 + C200495C9E008499DF00000000000000000000000000839AE600667DCC00577B + F2005B7BE800576EC10091A4EB000000000000000000000000000000000091A4 + EB00516ABF00597CF2007E99F500677ECC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D67BE00426AF0002A57EE003862EF003862EF003862EF003862EF003862 + EF003862EF003862EF003862EF003862EF003560EF002B58EE00476EF0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004861B4005B7CEA002853E4002954E4002954E4002954E4002954 + E4002954E4002954E4002954E4002853E4005B7CEA004861B400000000000000 + 00000000000000000000000000000000000000000000000000006D87DD0091A3 + DF00476EF000567AF2005A7DF2005B7EF2005A7DF200587CF2007794F4007390 + F2002044BB004469E5004065E2003A5FDD002F54D3002A4FCE002248C8002C4F + C1004D62AB005E76C70000000000000000000000000000000000526BC3008199 + E8005075F1005475E200526BC000D3DBF80000000000000000007990E300526B + C0005878E3007290F4008AA0E900526BC30000000000000000004E67C1005C74 + C4004E67C1000000000000000000000000000000000000000000000000000000 + 00004F69C000466DF0003963EF00A6B9F800A6B9F800A6B9F800A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A6B9F800496FF0003A64EF004E73F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004D67BE006182F1003C65EE003E66EE003E66EE003E66EE003E66 + EE003E66EE003E66EE003E66EE003B64ED006182F1004D67BE00000000000000 + 0000000000000000000000000000000000000000000000000000516CC700AEBE + F300567AF2006586F3006989F3006989F3006888F3006686F3007D98F5007D98 + F5002549BF004E73ED00486DE9004469E500385DDB003257D6002A50CF002348 + C400506BC3003D539D0000000000000000000000000000000000000000006881 + DA00869FF1006D8CF3005F81F2005679EB004C70E8004D71E7005C7FF2006D8C + F300708EF4006586F300577BF2004E6CD500BFCDF600000000005069C1006384 + F3005069C1000000000000000000000000000000000000000000000000000000 + 0000506AC100486FF0004068F0005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005176F1004169F0005075F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C0006485F300466DF000496FF000496FF000496FF000496F + F000496FF000496FF000496FF000466DF0006485F3005069C000000000000000 + 00000000000000000000000000000000000000000000000000004F69C000AFBF + F4005A7DF2006989F300708EF400718FF4006F8DF3006D8CF3007E99F500829C + F500274ABF005378F0004D72ED00476CE8003B60DE00355AD9002D53D3001940 + C300526CC5003C4F910000000000000000000000000000000000000000000000 + 0000657CCC008FA3EA00839EF5006283F2005277F1005C7FF20086A0F50097AD + F700A1B3F1006D8CF3006C8BF3005479F100516BC400BFCDF600516BC2006586 + F300516BC2000000000000000000000000000000000000000000000000000000 + 0000516BC2004A70F000486FF0005F81F2005F81F2005F81F2005F81F2005F81 + F2005F81F2005F81F2005F81F2005F81F2005A7DF200496FF0005378F1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516AC1006888F3005075F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005075F1006888F300516AC100000000000000 + 0000000000000000000000000000000000000000000000000000506AC100AFBF + F400577BF2006787F300708EF4007794F4007693F4007491F4007C97F40086A0 + F500294CBF00577BF2005176EF004B70EB003E63E100355BDB002C53D400163E + C500536DC7003D50940000000000000000000000000000000000000000000000 + 0000849AE800576FC7007085D100859DEF00849CEF00849CEF00859AE4007389 + D3005770C500839EF5007592F4006F8DF3005270D600526CC500526CC3006A8A + F300526CC3000000000000000000000000000000000000000000000000000000 + 0000556FC5004D72F1005378F100B8C7F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F9006C8BF3005579F1005C7EF000536D + C400536DC400536DC40000000000000000000000000000000000000000000000 + 000000000000536CC3006E8DF30092A9F60094ABF60094ABF60094ABF60094AB + F60094ABF60094ABF60094ABF60091A8F6006E8DF300536CC300000000000000 + 0000000000000000000000000000000000000000000000000000526CC300ADBD + F4008BA4F60099AFF7009EB3F7008BA4F6007491F4007290F4007D98F5008DA5 + F6002C4EBF005A7DF2004F74F1004269EE005D7DE9007993E900869DE8007B92 + E0008397D8004054980000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC700768EDE0087A1F500829DF5007290F4006A83DB007C97 + F400556EC5000000000000000000000000000000000000000000000000000000 + 00005670C6005C7DEA005579F1007C97F4007D98F5007D98F5007D98F5007D98 + F5007D98F5007D98F5007D98F5007D98F5007290F4005A7DF2005E80F0003761 + ED003761ED00456AE50000000000000000000000000000000000000000000000 + 000000000000546DC400708EF400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB300708EF400546DC400000000000000 + 0000000000000000000000000000000000000000000000000000536DC400ABBB + ED008295D7006F84CE008599DA00B3C2F300B4C4F90091A8F6006B8AF30089A2 + F6002A4DBF004B71F100466DF0006787F30093A4DD008092CF00677ABC008797 + CD00A7B3DC0041569A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF600566FC7007A91DF008DA5F6008DA5F60086A0F500839E + F500566FC6000000000000000000000000000000000000000000000000000000 + 0000556FC7005B7CEA00587CF2007F9AF500849EF50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F500859FF5007592F4005B7EF2005B7EF2000834 + C5000A36CA004568DA0000000000000000000000000000000000000000000000 + 000000000000556EC5007391F4009EB3F700A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F8009EB3F7007391F400556EC500000000000000 + 00000000000000000000000000000000000000000000000000005873CF00536E + C7009FB1F000AEBEF3009FB1F0005A74C9008E9FDD00B4C3F5006888F3007995 + F4002448BF004E73F1007C97F200889BDC006680D9009CAFEE00ACBCF1006780 + D400445AA6004860B10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005E79 + D6005771C8005771C8005771C8005771C80095ACF70095ACF70095ACF70086A0 + F5005771C8000000000000000000000000000000000000000000000000000000 + 00006B85DE005B78DB005479F1006283F2006B8AF3006F8DF3007391F4007391 + F4007391F4007391F400718FF4006D8CF3005C7FF2004A70F0004A70F000324B + 9C002648B700506BC20000000000000000000000000000000000000000000000 + 0000000000005770C7007693F400A6B9F800AFC0F900B1C1F900B1C1F900B1C1 + F900B1C1F900B1C1F900AFC0F900A5B8F8007592F4005770C700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859BE900ACBCF1009CB1 + F7002A4FC8005E77CA00859BE900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006E8BED007C96EE007F99EF00859EF00098ADF2009AAEF20097ACF2007C96 + EE005872C9000000000000000000000000000000000000000000000000000000 + 0000AFBFF3005D76CA005879E5005277F1005579F100577BF200587CF200587C + F200587CF200587CF200587CF200567AF2005075F1004C72F100446BF0006379 + C500526AB9005B72C40000000000000000000000000000000000000000000000 + 0000000000005871C8007491F400042DB5000429A80003269C0003208300031E + 79000320810003269A000429A700042CB3007391F4005871C800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008497D900AEBF + F8007189DA007C93E50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005B76D2000000000000000000000000000000000000000000000000000000 + 000000000000859CE9005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C90093A8ED0000000000000000000000000000000000000000000000 + 0000000000005872C9006D8CF3006686F3007391F4007A96F4007E99F5007F9A + F5007E99F5007A96F4007290F4006485F3006D8CF3005872C900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D200A1B0 + E80094A4DA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004E6ACE005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005B76D200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005A76 + D2005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000253671003E4D + 8200495991008699DD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004A60AE003544 + 7900485EA900435BAC00435BAC00435BAB00435BAB00435BAA00435BA900435A + A8004259A7004259A600435AA6004259A500435AA500435AA500435AA5004556 + 910033406D00455BA50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008197DC0044579500405B + B8005B73C4005A679400293D8500B9C6F100000000000000000000000000293D + 8500293D8500B9C6F100000000000000000000000000647BCB00364784004761 + B500072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A3004A5FA6003342760000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008197DD002A3C7B003755BB003E5B + BD008798D100465BA000465BA0002A3E83000000000000000000BAC6F200465B + A000465BA0002A3E830000000000000000000000000033478A004B61AA002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A8004B5E9E0000000000000000000000000037477F00CDD6F6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000354787004963B7002B4EC0007188D4006273 + B0004B64B500123DCC00123DCC004A6BD80032499A0032499A004B64B500123D + CC00123DCC004A6BD800384FA2000000000000000000314588004361C700042C + B300042CB2003252BF00DEE3F400C0CAEA003353BD00042BAD00042BAC00425F + C000FFFFFF008194D400042AA900042AA900BFC8E800FFFFFF00FFFFFF000328 + A4000328A300435EBB000000000000000000000000006D789F004B62B1000000 + 000000000000000000000000000000000000000000000000000000000000293C + 7A00283871002838710028387100283871002838710028387100283871002838 + 71002838710028387100293C7A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005169BE004A64BA002A4EC400042EB9007289D7006677 + B8004F69C0001240DA000535D8001240DA004E69BF004E69BF004B6EE3000535 + D8001240DA004B6EE3003D55AC00000000000000000034488C004362CA00042D + B800042DB600DEE4F500FFFFFF00FFFFFF00AFBBE200042BAF00042CB100617A + CE00FFFFFF008191CA000429A800042BAD00C0CAEA00FFFFFF00FFFFFF00042A + AA00042AA900425EBD000000000000000000000000007D89B10035447D00A3B4 + EB00000000000000000000000000000000000000000000000000000000003447 + 8400949DBE00435DB600435DB600435EB6004761B7004963B8004A64B8004E67 + BB004E67BB004C66BA002B3C7600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546CC000384C90002B50C800042FBE00042FBE002B4FC700869A + DC005E74BB004C71ED001344E7000539E600476DED00476DED001344E7001344 + E7004C71ED00536DCA00BECCF5000000000000000000364A91004363CE000530 + BE00042EBC00FFFFFF00FFFFFF00FFFFFF00FFFFFF000429A700042DB60091A3 + DE00FFFFFF006177BF00042BAC00042CB300EEF1F900FFFFFF00DEE3F100042B + AE00042BAE00425FC100000000000000000000000000707DAA004B66C0004959 + 9400000000000000000000000000000000000000000000000000000000000000 + 0000BAC6F20094A0C8007A8ED1002647B6002C4CB8003150B9003755BB00415E + BF00435FBF003856BC0031438300000000000000000026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0026356E0026356E0026356E0026356E0026356E002635 + 6E0026356E0026356E0031458E00000000000000000000000000000000000000 + 0000394E97004D68C5002C52D1000431C7000431C7000431C6000431C6000431 + C5003358D0006478C2005C76D2005378F1001748EC001748EC001748EC005C76 + D200435CB600BECCF5000000000000000000000000003A509A004768D700133D + CA00153EC9004062D300E0E5F600C3CCEA001A3CAD000A32B700647ED800FFFF + FF00FFFFFF000429A700042FBE00042FBD00FFFFFF00FFFFFF008F9FD400042D + B800042DB8004362C90000000000000000000000000054639C006980CC004964 + BF00546CC0000000000000000000000000000000000000000000000000000000 + 0000000000003C5094006E7FBC00516CC9003858C1003E5CC2004462C5004F6B + C800536ECA004764C600344789000000000000000000435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435FBC00435F + BC00435FBC00435FBC002C3E7B0000000000000000000000000000000000BCC9 + F400536BBD00385DD7000C39CE000E3ACE000E3ACD000E3ACD000E3ACC000E3A + CC003B5FD600667BC4006981D5006787F300315DEF00315DEF00315DEF006981 + D500455FB800BFCCF5000000000000000000000000003C52A000496BDA001C46 + D1002149D1001F48D0001D44C900173CB600173DBD001640CB00E1E6F800FFFF + FF00FFFFFF000B33B8000A35C4000833C300FFFFFF00FFFFFF00516BBF00042F + BE00042FBD004363CD000000000000000000000000003D5196008596D0003F5F + C80040539500556EC30000000000000000000000000000000000000000000000 + 000000000000384D9600586FBA00516DCD004563C9004C69CC00516DCD005C76 + D0005F7AD100536FCD00374C8F0000000000000000004361C700042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB400042CB400042CB400042CB400042CB400042CB400042C + B400042CB400042CB40032468800000000000000000000000000000000003E55 + AB004266DD001A45D6001944D5001D47D5001C46D4001C46D4001D47D4004669 + DB0092A4E6006F87D6007F9AF500567AF2004C72F1004C72F1004C72F1007F9A + F5006F87D6004761BA000000000000000000000000003F56A5004C6EDF00244D + D7002C53D7002A51D6002951D600254DD400234BD3002F55D500FFFFFF00FFFF + FF00EFF2F900163FCA00153FCB00133DCA00FFFFFF00FFFFFF00193CAE000833 + C4000632C3004364D100000000000000000000000000B3C0EF006475B0007089 + DA002D52CE004E6CCF004F64AF005E77CC009CAEED0000000000000000009CAE + ED004C65BC005E78D1005C78D8005371D700607CD9006681DB006A85DC00758E + DF007A92E0006883DB003E539D0000000000000000004568DE000D3BD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3CD5000E3C + D5000E3CD5000C3AD5003F57A5000000000000000000ABBCF100435AA9005B78 + D9002E57E000345CE100385FE200385FE100385FE100385FE0008FA5EE00778B + CE007F93DA0088A2F600819BF50087A1F500899BDD00899BDD00A5B8F800819B + F50088A2F600A5B8F8004E68C3000000000000000000445CAF005073E700345C + E2004267E3006F8BE9006D89E800DAE1F900FFFFFF00FFFFFF00FFFFFF007A8F + D4002B4FC7002D54D900385DDA00F0F3FC00FFFFFF005771C8002147C8001C46 + D1001540D0004668D900000000000000000000000000000000004960AE0095A5 + D900113DCE002F55D4004B6CDA004D64B200455BA5004359A6004258A500485E + A6005269B9006480DE005A78DD00627EDE006E88E100728CE1007790E3008299 + E400869CE600718BE1004158A30000000000000000004D72EA002652E6002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56E7002A56 + E7002955E700224FE500465FB40000000000000000004E68C3007B8DCC006383 + EC003E65E6004469E700456AE700466BE700456AE600456AE60096ABF000798C + D0008699DD00A1B5F700A1B5F700B7C7F9006E82CB006E82CB00899CDE00A1B5 + F700A1B5F700B7C7F9004F6AC5000000000000000000465FB4005275EA003D64 + E7004D71E900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008296D800375A + CD003C62E100385EDF00BFCBF400FFFFFF00BBC6E900284BBE002D55DA002750 + D9001D48D600486BDD0000000000000000000000000000000000889CE2008090 + C5001F49D600244DD7003057D9005A79E0005A78DE005976D6005C78D600617F + E2006B86E300617FE2006B87E400708BE5007993E7007F97E800849BE80092A7 + EB0090A5EA007690E500455CAA0000000000000000005579F1003F68F000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0003761EF004C66BD000000000000000000475FB200B8C5EF005175 + ED004E73EB005376EC005376EC005376EC005477EC005376EB006F8CEE00A9B9 + F1006F84CD00C0CEFA00C0CEFA008FA0DF00A9B9F000A9B9F0006F84CD00C0CE + FA00C0CEFA008FA0DF00BFCDF60000000000000000004963B9005478EE00456B + EB00587BED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9C5EB004567D900486D + E700456AE60094A9F000FFFFFF00FFFFFF004D69C800365BD400395FE0003058 + DE00244EDB004A6DE100000000000000000000000000000000000000000098AB + EA0098ABED004066E600466BE7005376E900587AE9005D7DEA006987EC006E8B + EC00738FEC007E98EE00839CEF0089A1EF0094A9F10099ADF10098ADF100CCD5 + F400B2C2F5006886EB004C65B90000000000000000005D80F2006586F3007491 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97 + F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007B97F4007995 + F4006F8DF300597CF200516BC20000000000000000008095DE00A9BBF800577B + F2006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300708E + F4008AA3F5007F91D3007F91D300B4C3F4006F8DF2006F8DF2008AA3F4007D91 + D2007D8FD300AFBFF3006982D90000000000000000004D67BE00597CF2005579 + F1006E8DF3006B8AF0006785EA006585EE006686F3006384F2006082F1006888 + F100C0CDF800FFFFFF00FFFFFF00AEBBE7005074EA005074EC004D72EA00456A + E900345DE6004E72E90000000000000000000000000000000000000000000000 + 0000A2B0E0007E99F0004E73EC005F80EE006686EF006B89EF007692F0007B96 + F100809AF1008BA3F30091A8F30096ACF400A1B4F500A0B3F500A5B7F500677D + C800ABB9E8009BB0F4005069BF0000000000000000005E7DEA00718DEC007792 + ED007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95 + EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007A95EC007993 + ED007590EC006D8AEC00546EC500000000000000000099ACEE00B1C1F9007290 + F400839EF5007F9AF5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500BBCAFA00BBCAFA0097ADF7007F9AF5007D98F5007D98F500B0C0 + F800A5B8F7007995F400536ECA0000000000000000004E68BF005B7EF2005D80 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300A1B5F700EBF0 + FD00FFFFFF00FFFFFF00B4C0E9005370D0005C7EF0005B7EF000597CEF004E73 + ED003B63EB005074EC0000000000000000000000000000000000000000000000 + 00005A74C900B4C1EC00829DF4006C8BF3007391F4007995F400829DF40087A1 + F5008DA5F50098AEF6009DB2F600A3B6F700A1B5F700A5B8F700BECBF600617C + D8005A74C900A4B4E800546EC50000000000000000005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005A75D1000000000000000000A4B4EE00D3DCFB0087A1 + F50097ADF70092A9F6008EA6F6008AA3F6008AA3F6008AA3F6008AA3F6008AA3 + F6008AA3F60097ADF70096ACF70094ABF6008FA7F6008DA5F6008BA4F6007F9A + F5006C8BF3005B7EF2004760B90000000000000000004F69C0005D80F2006586 + F300849EF500829DF500819BF5007E99F50093AAF600C3D0FA00FFFFFF00FFFF + FF00FFFFFF009BABE1005E78D1006987ED006888F3006686F3006586F300597C + F200436AEF005277F00000000000000000000000000000000000000000000000 + 00000000000093A8ED006D82CE00B1C1F8008AA3F600829DF5009AAFF700A1B5 + F700A6B9F800ACBDF800A8BAF800AFC0F900B5C4F4007E93D6005A76D2000000 + 000000000000C1CDF6005771C900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000096AAEC00DFE6FC00D2DB + FB00B5C5F900B7C7F900B4C4F900ADBEF800AABCF800A6B9F800A0B4F700B3C3 + F800DCE3F900DDE4FC00B6C6F900B3C3F900AFC0F900AEBFF800ACBDF80097AD + F7007F9AF5006787F3004861B8000000000000000000516BC2006082F200708E + F4009AAFF700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D5DBF10098A8 + DC00758BD300859FF500839EF500829CF5007F9AF5007D98F5007B97F4006989 + F3004F74F1005579F10000000000000000000000000000000000000000000000 + 00000000000000000000BBC9F50095A6DE00C2CEF300B9C8F900A8BAF800A4B7 + F800A7B9F800B6C6F900C2CFFA00C1CEF800647CCD00647EDA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000798FD900DCE3FC00E6EB + FD00BECCFA00C1CEFA00C1CEFA00BBCAFA00B4C4F900ACBDF800A4B7F800A4B4 + EA0093A3DB00E7ECFD00D9E1FC00BBCAFA00BCCAFA00BBCAFA00B6C6F9009DB2 + F700839EF5006F8DF300516AC7000000000000000000526CC3005F81F200718F + F400A2B6F800FFFFFF00FFFFFF00E8EBF600D9DEF000B2BDE3008598D9008CA1 + E60092A9F40090A8F6008EA6F6008CA5F60089A2F60087A1F500859FF5006E8D + F3005075F1005579F10000000000000000000000000000000000000000000000 + 00000000000000000000000000007C93E400667FCC008799D900BDC9F100C0CD + F600C1CDF600A5B5EA008497DB00657DCD009DB1EF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000637AC700B8C7F800E6EB + FD00DDE4FC00C6D2FA00C3D0FA00BBCAFA00B3C3F900A5B8F800A7B8F3006177 + C4005068BE00E6ECFD00E7ECFD00E0E6FC00BCCAFA00BBCAFA00B6C6F9009BB0 + F700819BF5007B97F400657FD8000000000000000000536DC4006685EC006C8B + F300A3B6F800A4B5EE0092A1D30097A7DD0098A8E1009BACE700A2B6F800A1B5 + F7009FB3F7009BB0F70099AFF70097ADF70094ABF60091A8F6008CA5F6006B8A + F3005075F1005E7EEC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCDF600516AC3008699 + DD00DBE2FC00E7ECFD00E6ECFD00E4E9FD00D0DAFB00A6B6EB00536ECA000000 + 0000000000005C73C400A3B3EB00CBD6F900E2E8FD00E0E6FC00DEE5FC00C3D0 + FA008AA0EE006177C8000000000000000000000000007A92E5006079CC00728E + EE007794F400829DF5008AA3F6008DA5F6008DA5F6008BA4F60089A2F60088A2 + F60087A1F500839EF500829DF500819BF5007B97F4007693F4006C8BF3005E80 + F2006786ED005F78CC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600516B + C7008499DE009CAEEF00A7B8F2008BA0E7007489D100526AC000000000000000 + 000000000000839AE7004F69C2006D82CD0091A7EE009FB2F10094A9EF006C85 + D9005870C3005E79D300000000000000000000000000000000005974CF00617A + CD005F81F2006586F3006888F3006A8AF3006A8AF3006A8AF3006A8AF3006989 + F3006989F3006888F3006888F3006787F3006586F3006384F3006082F2005E7D + E5006079CD006984DD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005975D1005069C0004F69C000526CC7006680DA00D3DBF800000000000000 + 0000000000000000000000000000839AE7004F68BF004F68BF004F68BF005E79 + D5009FB0EF000000000000000000000000000000000000000000000000007C93 + E5005771C8005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C8005D76 + CC007C93E5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C200C0C0 + C000263159002631590026315900263159002631590026315900263159002631 + 5900263159002631590026315900263159002631590026315900263159002631 + 59002E3D7100C0C0C000D6D6D600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9005065A9005065A9005065A9005065A9005065A9005065A9005065A9005065 + A9002736660000000000000000000000000000000000C4C4C4004E63A6003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193003D5193003D5193003D5193003D5193003D5193003D5193003D51 + 93003D5193004E63A600DBDBDB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004F69BF000328A300FFFFFF00E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F6004F69 + BF002C3D7B0000000000000000000000000000000000000000003D57AE00435D + B30007299A0007299A0007299A0007299A0007299A0007299A0007299A000729 + 9A0007299A0007299A0007299A0007299A0007299A0007299A0007299A000628 + 9A00435DB3003D57AE0000000000000000000000000000000000000000000000 + 00005972C900374D9E0034499400425AAE00768DD80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000273465007287CC005971 + C3005971C3005971C3005971C3005971C3005971C3005971C3005971C3005971 + C3005971C3005971C3005971C3005971C3002734650000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506AC400042AAA00FFFFFF00E6EAF700E6EAF700E6EAF700E6EAF700E6EA + F700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700E6EAF700506A + C4002F40800000000000000000000000000000000000000000003E58AF004660 + B9000F32A4001032A4001032A4001032A4001032A4001032A4001032A4001032 + A4001032A4001032A4001032A4001032A4001032A4001032A4001032A4000D30 + A3004661B9003E58AF0000000000000000000000000000000000000000005C75 + CF00536CC2005B77D4005874D200566EC1004C60A100354A9300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3A73006B86E1001639 + AC001639AC001639AC001639AC001639AC001639AC001639AC001639AC001639 + AC001639AC001639AC001639AC002446B7002A3A730000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506BC800042CB100FFFFFF009397A5009397A5009397A5009397A5009397 + A5009397A5009397A5009397A5009397A5009397A500E6EAF800E6EAF800506B + C8003245860000000000000000000000000000000000000000003F59B0004863 + BF00173AAE0015359F0015349C0015349C0015349C0015349C0015349C001534 + 9C0015349C0015349C0015349C0015349C0015349C0015349C0015359F001538 + AE004A65C0003F59B000000000000000000000000000000000005E79D3005269 + B900345CE4001744DB000434D200254CCF004666D300586DB6008499DF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002C3E7B006984E1000328 + A4000328A4000328A4000328A4000328A4000328A4000328A4000328A4000328 + A4000328A4000328A4000328A400163AB2002C3E7B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000506ED200042FBF00FFFFFF00E6EBF800E6EBF800E6EBF800E6EBF800E6EB + F800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800E6EBF800506E + D200374B92000000000000000000000000000000000000000000415BB2004D6A + CA002649BF002343AC00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DF + DE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE00E0DFDE002343AC002246 + BE00506CCB00415BB200000000000000000000000000607AD1006881D5005176 + F1001344E8000639E3000537DD000434D2000433CE000935C900586EB700374A + 8D00849BE0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000033458900738DE7000A32 + B8000A32B800375BD2006B86E0006480DE00163CBC000A32B8000A32B8000A32 + B8000A32B8000A32B8000A32B8001C42C2003345890000000000000000003449 + 9100334589005E76C90000000000000000000000000000000000000000000000 + 00004F6ED6000431C500FFFFFF009398A6009398A6009398A6009398A6009398 + A6009398A6009398A6009398A6009398A6009398A600E6EBF900E6EBF9004F6E + D6003A4F99000000000000000000000000000000000000000000425CB3004F6D + D0002E52C8002949B300DCDBDA00F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F800DCDBDA00DCDBDA002949B300284D + C500526FD100425CB300000000000000000000000000455EB7007C96EA004D72 + F1002856EE001445E8000639E3000535D8000434D2000433CE004162D100596E + B700384A8E000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000364A91007E95E3002349 + C8002C51CF00607BD80044589B007A8CCE006884E200143CC300113AC200113A + C200113AC200113AC200113AC2001E45C800364A910000000000869BE100627C + D600607CDA004D62A40000000000000000000000000000000000000000000000 + 00004F6FDB000432CD00FFFFFF00E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9004F6F + DB003D539F000000000000000000000000000000000000000000435DB400516F + D5003559CF003050BA00D8D7D600F3F4F800F3F4F800F3F4F800F3F4F800F3F4 + F800F3F4F800F3F4F800F3F4F800F3F4F700D8D7D600D8D7D6003050BA002F54 + CD005573D700435DB4000000000000000000000000004A62B600859DEE005176 + F1003C65EF002856EE001445E8000537DD000535D8000434D2000935C9004162 + D1005A6FB800859BE00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005068BE00788DD3005B7A + E0005375E400586DB4006D85D6004559A0007F96E1004063D8001841CA001841 + CA001841CA001841CA001841CA001841CA0042579E00000000003D55A8003B60 + DB002F55D600607EE200BDC9F400000000000000000000000000000000000000 + 00005073E5000536D900FFFFFF009398A8009398A8009398A8009398A8009398 + A8009398A8009398A8009398A8009398A8009398A800E6EBFB00E6EBFB005073 + E500425AAC000000000000000000000000000000000000000000455FB6005676 + E0004367DD003D5DC700DDDDDC00BABED100F3F3F700F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700F2F3F700DDDDDC00DDDDDC003D5DC7003C61 + DB005B7AE100455FB6000000000000000000000000005570CB00859BE6007C97 + F4006384F3005075F1003C65EF001445E8000639E3000537DD000434D2000433 + CE000935C9005A70B9003A4D910096A7E1000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005D76CF006073 + BB00798ED200556FC70000000000BDCBF400576CB300859EF0002751DE002751 + DE002751DE002751DE002751DE002751DE00667CCB004058A8006B82D0002751 + DE002751DE003D63E3004E68C000000000000000000000000000000000000000 + 00005174EA00093BE200FFFFFF00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EB + FC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC00E6EBFC005174 + EA00465FB20000000000000000000000000000000000000000004660B7005778 + E5004B6EE3004463CC00E1E1E000858FAF00DBDEE800F2F3F700F2F3F700F2F3 + F700F2F3F700F2F3F700F2F3F700DBDDE700E1E1E000E1E1E0004463CC004368 + E2005D7DE6004660B7000000000000000000000000008197E5007386CE0091A8 + F6007693F4006384F3005075F1002856EE001445E8000639E3000535D8000434 + D2000433CE004162D100979DB700888786000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000738B + DD004760BA00BECCF5000000000000000000445CB0008AA1EC002F59E6002F59 + E6002F59E6002F59E6002F59E6002F59E6006A88EE00748DE1006A88EE002F59 + E6002F59E6003C63E800516CC700000000000000000000000000000000000000 + 00005579EF001344E800FFFFFF00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7EC + FC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC00E7ECFC005579 + EF004962B90000000000000000000000000000000000000000004761B8005A7B + EA005376E9004A69D000E5E4E4007C86A700838BAC00B7BBCF00F5F6F900FEFE + FE00FEFEFE00E2E5EC00B6BACD008089A900E5E4E400E5E4E4004A69D000496E + E7006080EB004761B800000000000000000000000000000000004D66BE0094A5 + E300829DF5007794F4006384F3003C65EF002856EE001445E8000537DD000535 + D8000434D2008794C700C5C5C500B3B3B300B0B0B00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005570CC008EA4EF00355FED00355F + ED00355FED00355FED00355FED00355FED003E67EF00456CEF003962ED00355F + ED00355FED00436AEF004761BA00000000000000000000000000000000000000 + 00005F81F2002856EE00FFFFFF00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD005F81 + F2004D66BD0000000000000000000000000000000000000000004963BA005E80 + F2006283F2005876DA00ECEBEB007780A2007780A1007780A100F1F2F600F1F2 + F600F1F2F600C1C6D500747E9F00737D9F00ECEBEB00ECEBEB005876DA00577B + F2006686F3004963BA00000000000000000000000000000000000000000090A4 + EA009AABE5009FB3F700849EF5006384F3005075F1003C65EF001445E8000639 + E3009BABE100CECECE00C4C4C400BBBBBB00B5B4B3008A898800B1B0B0000000 + 00000000000000000000000000000000000000000000000000006D87DD00637A + C7007087D8005D77D30000000000D2DBF8005B72C10089A2F300456CF000456C + F000456CF000456CF000456CF000456CF0007F98EA00647AC40090A3E400456C + F000456CF000587CF2005671CE00000000000000000000000000000000000000 + 00006485F300325EEF00FFFFFF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD006485 + F3004E67BF0000000000000000000000000000000000000000004A64BB006082 + F2006989F3005F7BDA00EFEFEE00747E9F00747E9F00737D9F00F1F2F600F1F2 + F600F1F2F600E8EAEF00717A9D00717A9D00EFEFEE00EFEFEE005F7BDA005E80 + F2006989F3004A64BB0000000000000000000000000000000000000000000000 + 0000556DC0009BABE5009FB3F7007794F4006384F3005075F1002856EE00A7B7 + ED00E7E7E700D7D7D700CECECE00C4C4C400C5C5C500B5B4B4008B8A89000000 + 00000000000000000000000000000000000000000000AEBEF2005B72C200869F + F0007B95EF00536CBF00D2DBF8007990E2007C8FD4007995F4004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1006C83CD005771CE00687DC7005277 + F1004C72F1006C8BF3007990E200000000000000000000000000000000000000 + 00006989F3003D66EF00FFFFFF00989DAA00989DAA00989DAA00989DAA00989D + AA00989DAA00989DAA00989DAA00989DAA00989DAA00EBF0FD00EBF0FD006989 + F3004F68C00000000000000000000000000000000000000000004B65BC006384 + F300718FF4006580DB00F2F1F100717A9D00717A9D00717A9C00F1F2F600F1F2 + F600F1F2F600F1F2F5006F7899006F789900F2F1F100F2F1F1006580DB006485 + F3006C8BF3004B65BC0000000000000000000000000000000000000000000000 + 000091A4EB00566FC1009CADE600849EF5007794F4006384F300B7C6F400F5F5 + F500EFEFEF00E0E0E000D7D7D700CECECE00BBBBBB00C5C5C500B5B5B500B1B1 + B1000000000000000000000000000000000000000000657FD9008195DD006F8D + F3007794F400738AD5005D78D300556DC10089A0EC006686F3005277F1005277 + F1005277F1005277F1005277F1005277F1005E75C300D2DBF8004F69C5007B97 + F4005E80F200879FEF00D2DBF800000000000000000000000000000000000000 + 00007391F4005277F100FFFFFF00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE007391 + F400516BC20000000000000000000000000000000000000000004D67BE006787 + F300809BF500728BDC00F7F7F6006C7697006B7597006B759600F0F1F500F0F1 + F500F0F1F500CDD1DC006972950069729400F7F7F600F7F7F600728BDC007290 + F400718FF4004D67BE0000000000000000000000000000000000000000000000 + 0000000000000000000091A5EB009DAEE6009FB3F700CCD5F300F8F8F800FAFA + FA00F9F9F900EFEFEF00E7E7E700E0E0E000CECECE00C4C4C400BBBBBB00B6B5 + B5008B8A8900000000000000000000000000000000004E68BF008FA6F3005B7E + F2006183F2007693F40094A9F300829CF5006485F3006183F2006183F2006183 + F2006183F2006183F2006183F2006A8AF3004E68BF0000000000000000004F68 + C1004E68BF006F89DF0000000000000000000000000000000000000000000000 + 00007794F4005C7FF200FFFFFF009DA1AC009DA1AC009DA1AC009DA1AC009DA1 + AC009DA1AC009DA1AC009DA1AC009DA1AC009DA1AC00EFF3FE00EFF3FE007794 + F400526CC30000000000000000000000000000000000000000004D67BF006989 + F30086A0F5007990DC00F9F9F900697295006972940068729400CDD0DC00F0F1 + F500F0F1F5006F77980067709100666F9100F9F9F900F9F9F9007990DC007894 + F4007491F4004D67BF0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C500D0D5E900F7F7F700F7F7F700F8F8 + F800FAFAFA00F5F5F500EFEFEF00E7E7E700D7D7D700CECECE00C4C4C400C7C7 + C700A6A6A500A9A9A9000000000000000000000000004F69C0008CA5F6006082 + F2006989F3006989F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006C8BF3004F69C00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007C97F4006787F300FFFFFF00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE007C97 + F400536DC40000000000000000000000000000000000000000004E68C0006B8A + F3008DA5F6007F95DD00FBFAFA0067709100666F9100666F9100656E9100656E + 9100646E9000646E8F00636D8F00636D8F00FBFAFA00FBFAFA007F95DD007F9A + F5007794F4004E68C00000000000000000000000000000000000000000000000 + 0000000000000000000000000000A2B2EC00BAB9B800ECECEC00F6F6F600F7F7 + F700F8F8F800F9F9F900F5F5F500EFEFEF00E0E0E000D7D7D700CECECE00C3C3 + C300BFBFBE00908F8F00000000000000000000000000506AC1008AA3F6006A8A + F3007D98F5007E99F5007B97F400708EF400708EF400708EF400708EF400708E + F400708EF4007A96F4007995F4007491F400506AC10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000849EF5007C97F400FFFFFF00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00849E + F500556FC6000000000000000000000000000000000000000000506AC100708E + F4009CB1F7008D9FDE00FDFDFD00616A8D00606A8C00606A8C005F698B005F69 + 8B005F698A005F688A005E6789005E678900FDFDFD00FDFDFD008D9FDE008BA4 + F6007C97F400506AC10000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7B7B700ECECEC00F7F7 + F700F6F6F600F8F8F800FAFAFA00F9F9F900EFEFEF00E7E7E700E0E0E000CECE + CE00D3D3D3009B9A99000000000000000000000000005B76D300526CC300526C + C300526CC300526CC300526CC3007388CF00A2B2E700B3C3F900A0B4F6008FA1 + E0006D82CC00526CC300526CC300526CC300607BD70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000088A2F600829DF500FFFFFF0058595C0074757A00F3F6FE0058595C007475 + 7A00F3F6FE0058595C0074757A00F3F6FE0058595C0074757A00F3F6FE0088A2 + F6005670C7000000000000000000000000000000000000000000516BC2007290 + F400A4B7F80093A4DE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFEFE0093A4DE0091A8 + F6007F9AF500516BC20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BEBCBB00EDEC + EC00F7F7F700F7F7F700F8F8F800FAFAFA00F5F5F500EFEFEF00E7E7E700DADA + DA00DADAD9009C9A990000000000000000000000000000000000000000000000 + 0000000000000000000000000000718AE0006178C900B5C4F500A0B3F300546D + C40092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000089A2F60086A0F500FFFFFF00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D + 7100F4F7FE00A5A4A2006C6D7100F4F7FE00A5A4A2006C6D7100F4F7FE0089A2 + F6005871C8000000000000000000000000000000000000000000526CC3007491 + F400ABBDF80099A9DE00E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5 + E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E50099A9DE0097AD + F700819BF500526CC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B8B8B700BEBD + BC00EDECEC00F6F6F600F7F7F700F8F8F800F9F9F900F5F5F500EFEFEF00E6E6 + E600CFCFCE009F9E9E0000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0006F84CF00A2B2E900A9BBF800AABCF7008C9F + DF00647ACA009FB1F00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007D97EE0091A7F1009AAEF200191918007F8FC200A1B4F300191918007F8F + C200A1B4F300191918007F8FC200A1B4F300191918007D8DC2009AAEF2007D97 + EE005872C9000000000000000000000000000000000000000000546EC5007491 + F400B7C7F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F900B9C8F90099AF + F700819BF500546EC50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B8B8B800EBEAEA00F6F6F600F5F5F500F7F7F700F9F9F900F9F9F900CDCC + CB00A4A4A3000000000000000000000000000000000000000000000000000000 + 0000000000005770C800A1B3EF009BB0F7009BB0F7009BB0F7009BB0F7009BB0 + F7009BB0F7008DA2EB005770C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005F5F5F004F5E92005872C9005F5F5F004F5E + 92005872C9005F5F5F004F5E92005872C9005F5F5F004F5E92005872C9005872 + C9005B76D2000000000000000000000000000000000000000000556FC6006D8C + F300A6B9F800AFC0F900B1C1F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2 + F900B2C2F900B2C2F900B2C2F900B2C2F900B2C2F900B1C1F900ADBEF800849E + F5007894F400556FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B6B4B300D7D5D500ECECEB00F6F6F600F8F8F700E6E5E500A7A6 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800A5B7F300A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F80095AAF1005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D2D1D0008080800000000000D2D1D0008080 + 800000000000D2D1D0008080800000000000D2D1D00080808000000000000000 + 00000000000000000000000000000000000000000000000000005670C7006382 + EA00849DEE00889FEE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0 + EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE008AA0EE00879FEE007B94 + ED006886EB005670C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B2B1B100A8A6A600BCBAB900B3B1B000A7A6A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDB008D9FDF00B4C4F900ADBEF800A8BAF800A6B9F800AABC + F800ACBDF800879ADC006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080009090900000000000808080009090 + 9000000000008080800090909000000000008080800090909000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006B85DE005A74CF005872C9005872C9005B76 + D2006B85DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D1D1D100CFCFCF00C9C9C900C7C7C700C5C5 + C500C5C5C500C5C5C50091A1D70029386D00C5C5C500C8C8C800D3D3D3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F200364A91004F63 + A5008793BC00A7B0CF00D9DFF300D9DFF400D9DFF400D9DFF400D9DFF400D9DF + F400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400D9DFF400DADF + F200A5AECE003A4D930000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000029396C00526297008494C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F448B002E3F7B002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B7800354B970000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BAE007182BB005C77 + D3007B90D7006979B200A3ADCF00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CB + EE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C0CBEE00C4CE + EF00CFD7F200A3ADD00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008093D9005466A5004059AA008393C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F2004F609F002C3D7B004E66B700506AC400506A + C400506AC400506AC400506AC400506AC400506AC400506AC400506AC400506A + C400506AC4002D3F7F0000000000000000000000000000000000000000000000 + 000000000000000000002E4696001F3376001F3376001F3376001F3376001F33 + 76001F3376001F3376001F3376001F3376001F3376002E469600000000000000 + 00000000000000000000000000000000000000000000354992008699DA004868 + D200607BD8008699DA005C6CA700B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4ED00B7C4 + ED00BCC8EE00CFD6EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B20036457A00324DAA00032597008494CC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC6F20031458D00526ECE002F4183000328A000042CB200042C + B200042CB200042CB200042CB200042CB200042CB200042CB200042CB200042C + B200506CC9003043850000000000000000008E8C8A00BBB9B700BBB9B700BBB9 + B700BBB9B700BBB9B70029429500042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB7004F6ED70029429500BBB9B700BBB9 + B700BBB9B700BBB9B700BBB9B7008E8C8A00000000003B509D008EA3E9005D7B + E0005D7BE0008EA3E9003B509D00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7EE00A7B7 + EE00A7B7EE00C4CEF00000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000045569000546C + BD004762BF007186CE002B4BB6008496D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374D9A002C459A000732C1006582E30035498F00042BAE000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2004F6DD300364B9300000000000000000093918F00D8D8D700D8D8D700D8D8 + D700D8D8D700D8D8D7002F4AA4001942CD001D46CE001E46CE001E46CE001E46 + CE001E46CE001E46CE001E46CE001C45CE005474E1002F4AA400D8D8D700D8D8 + D700D8D8D700D8D8D700D8D8D70093918F00000000003D54A40095A9ED006885 + E6006885E60095A9ED003D54A400A5B6F000A5B6F0001442D9001442D9001442 + D9001442D9001442D9001442D9001442D9001442D9001442D9001442D900A5B6 + F000A5B6F000C3CEF10000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003C54A300516CC7004F6B + C8007184C600344581007184C6009BABE0000000000000000000B9C6F1002E42 + 8800B9C6F100000000000000000000000000000000000000000000000000BDC9 + F4002E489F000833C5000D3AD0007791EB00374C9700042DB6000432CA000432 + CA000432CA000432CA000432CA000432CA000432CA000432CA000432CA000432 + CA004F6FD9003A4F9900000000000000000098969400F5F5F400F5F5F400F5F5 + F400F5F5F400F5F5F4003652B4003D63E300476BE300486CE400486CE400486C + E400486CE400486CE400486CE400466BE3005D7DEA003652B400F5F5F400F5F5 + F400F5F5F400F5F5F400F5F5F40098969400000000004058AB009EB1F200738E + EB00738EEB009EB1F2004058AB00A9BAF300A9BAF3001443DE001443DE001443 + DE001443DE001443DE001443DE001443DE001443DE001443DE001443DE00A9BA + F300A9BAF300C7D0F30000000000000000000000000000000000000000000000 + 0000CED7F60092A4E3006179C70033488F002D3C71005568AA004161CB007287 + CC00334687004A5EA40033468700A6B2DA0000000000BAC6F2002F4489004A5E + A4002F448900BAC6F2000000000000000000000000000000000000000000425A + AE005271D9005676E1006583E800859EEF003B509D00042EBC000434D1000434 + D1000434D1000434D1000434D1000434D1000434D1000434D1000434D1000434 + D1004F70DF003C53A100000000000000000099989600A3A19F00A3A19F00A3A1 + 9F00A3A19F00A3A19F003D5DC6007994ED0088A0EF00A6B7F200B5C4F500B5C4 + F500B5C4F500B3C2F400A2B4F200859EEF006382EB003D5DC600A3A19F00A3A1 + 9F00A3A19F00A3A19F00A3A19F0099989600000000004660B700B2C2F80094AB + F60094ABF600B2C2F8004660B700B0C0F800B0C0F80088A1F50088A1F50088A1 + F50088A1F500B0C0F80088A1F50088A1F50088A1F50088A1F50088A1F500B0C0 + F800B0C0F800CBD5F70000000000000000000000000000000000536BBE004C5F + 9F004A66C5003857C0002447BA007288D200344889004F6FDB004258A4004F67 + B9004A6BD800123DCC004A6BD8004F67B9003950A1004F67B9004A6BD800123D + CC004A6BD8004F67B9000000000000000000000000000000000000000000445C + AF000432CA000432CA000432CA000432CA000432CA000535D9000537E1000537 + E1000537E1000537E1000537E1000537E1000537E1000537E1000537E1000537 + E1004F73EA00445CAF0000000000000000000000000000000000000000000000 + 000000000000000000004C6BD2003F5EC8003F5EC8003F5EC8003F5EC8003F5E + C8003F5EC8003F5EC8003F5EC8003F5EC8003F5EC8004C6BD200000000000000 + 000000000000000000000000000000000000000000004962B900BFCDFA00ACBD + F800ACBDF800BFCDFA004962B900B4C4F900B4C4F9001647EC001647EC001647 + EC001647EC00B4C4F9001647EC001647EC001647EC001647EC001647EC00B4C4 + F900B4C4F900CED8F800000000000000000000000000000000003A4F96005A74 + C900042FC000042FC000042FC000728ADB003A4F96005273E200485FAF00536E + C4004B6EE3000535D8001240DA004B6EE300536DC4004B6EE3001240DA001240 + DA004B6EE300536EC40000000000000000000000000000000000000000004760 + B700063AE800073BE900073BE900073BE900073BE900073BE900073BE900073B + E900073BE900073BE900073BE900073BE900073BE900073BE900073BE900063A + E8005075EF004760B70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003C59BC00708CEB006683E6005374 + E1004F70DE005070DA004F6ED700314A9A000000000000000000000000000000 + 000000000000000000000000000000000000000000004A63BB00CAD5FB00BFCD + FA00BECCFA00CAD5FB004A63BB00B7C7F900B7C7F9001849EC001849EC001849 + EC001849EC00B7C7F9001849EC001849EC001849EC001849EC001849EC00B7C7 + F900B7C7F900D0D9F800000000000000000000000000000000004056A3005071 + DE000433CF000433CF000433CF00728DE4004056A3005779E9007F96E3004962 + B7005772CF001344E7000539E6001344E700476DED001344E7000539E6004C71 + ED005772CF00455EB70000000000000000000000000000000000000000004963 + BA000E41EC001042EC001143EC001143EC001143EC001143EC001143EC001143 + EC001143EC001143EC001143EC001143EC001143EC001143EC001143EC000E41 + EC005378F1004963BA0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000425FC3007893EE004C6EDE00355A + D6001C45CE00042FC0004F6FD900354DA0000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00D6DEF900DCE3 + F900DBE2F900D6DEF9004C66BD00C3D0FA00C5D1FA00305CEE00305CEE00305C + EE00305CEE00C5D1FA00305CEE00305CEE00305CEE00305CEE00305CEE00C5D1 + FA00C3D0FA00D6DEF900000000000000000000000000000000004A64BB006384 + F3004C72F1004C72F1004C72F10088A1F5004A64BB005E80F2003862EF005D80 + F2008CA2EC005E78D5005378F1001748EC001748EC001748EC005378F1004A64 + BE00BFCCF5000000000000000000000000000000000000000000000000004C65 + BC001F4FED002553EE002654EE002654EE002654EE002654EE002654EE002654 + EE002654EE002654EE002654EE002654EE002654EE002654EE002654EE001E4E + ED005A7DF2004C65BC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004360C5006C88E700738DE4006E88 + E2006781DE005A77D9005976D6003750A3000000000000000000000000000000 + 00000000000000000000000000000000000000000000536ECA004D67BE004D67 + BE004D67BE004D67BE004D67BE00C9D5FB00CBD6FB003E67F0003E67F0003E67 + F0003E67F000CBD6FB003E67F0003E67F0003E67F0003E67F0003E67F000CBD6 + FB00C9D5FB00D9E0F900000000000000000000000000000000004B65BD006F8D + F3006F8DF3006F8DF3006F8DF30095ACF7004B65BD006283F200466DF0006888 + F30092A7EC006780D7006787F300315DEF00315DEF00315DEF006686F3004C66 + C000BFCDF6000000000000000000000000000000000000000000000000004D66 + BE002755EE00305CEE00325EEF00325EEF00325EEF00325EEF00325EEF00325E + EF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF00325EEF002755 + EE005E80F2004D66BE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004F6DD3004360C500405DBC003F5A + B8003E58B4003B54AC003952A900435EB7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004F68BF00CFD9FB00D2DBFB004B71F1004B71F1004B71 + F1004B71F100D2DBFB00B1C1F900B1C1F900B1C1F900B1C1F900B1C1F900D2DB + FB00CFD9FB00DCE3F900000000000000000000000000000000004C66BE007995 + F40090A8F60090A8F60090A8F600A0B4F7004C66BE006586F3007391F40097AB + ED00536CC3007C97F400567AF2004C72F1004C72F1004C72F100567AF2006D85 + D9004E68C100BFCDF60000000000000000000000000000000000000000004E68 + BF00305CEE003B64EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66 + EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF003D66EF002F5B + EE006183F2004E68BF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200D9E1FC00DDE4FC006586F3006586F3006586 + F3006586F300DDE4FC006586F3006586F3006586F3006586F3006586F300DDE4 + FC00D9E1FC00E3E8FB00000000000000000000000000000000004E68C00089A0 + EC00AFC0F900B9C8F900B8C7F900ACBDF8004E68C0006C8BF3005E77CA006D86 + DA009CB1F700819BF50087A1F5009EB3F7007D93DE009DB2F70087A1F50088A2 + F60099AFF7006C85DA000000000000000000000000000000000000000000516A + C1004169F0005075F1005378F1005378F1005378F1005378F1005378F1005378 + F1005378F1005378F1005378F1005378F1005378F1005378F1005378F1004068 + F0006888F300516AC10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000526CC300DEE5FC00E1E7FD00E2E8FD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E2E8FD00E1E7 + FD00DDE4FC00E4EAFB00000000000000000000000000000000006681DA00768C + D400B5C5F900B9C8F900B4C4F900A7B9F8004F69C100718FF4006179CC007189 + DC00ACBDF800A1B5F700AFC0F9008397DF00536EC7008297DF00AEBFF800A1B5 + F700AABCF8006F89DC000000000000000000000000000000000000000000526C + C3004A70F0005A7DF2005E80F2005E80F2005E80F2005E80F2005E80F2005E80 + F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F2005E80F200496F + F0006B8AF300526CC30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400E2E8FD00E6EBFD00CDD8FB00CDD8FB00CDD8 + FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00CDD8FB00E6EB + FD00E2E8FD00E6EBFB0000000000000000000000000000000000000000006881 + DB00657BC9007388D2008196DB008EA5F000506AC2008FA7F600ADBCF0005D76 + CA00879CE000B4C4F900879CE0005D76CA00C1CDF600556FC800869ADF00B3C3 + F900879BE000556FC8000000000000000000000000000000000000000000536D + C4005075F1006485F3006989F3006989F3006989F3006989F3006989F3006989 + F3006989F3006989F3006989F3006989F3006989F3006989F3006989F3005075 + F1006E8DF300536DC40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600E7ECFD00EBF0FD0096ACF70098AEF70098AE + F70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF70098AEF700EBF0 + FD00E7ECFD00EBEFFD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871CF00A8B9F600AABC + F800B6C3F100677FCE00AEBEF000B3C3F9000000000000000000C1CDF6005874 + CF00C1CDF600000000000000000000000000000000000000000000000000566F + C600597CF2007290F4007D98F500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF5007D98F500587C + F200718FF400566FC60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005771C800E9EEFD00EDF1FE0095ACF7009EB3F7009FB3 + F7009FB3F700A0B4F700A0B4F7009FB3F7009FB3F7009EB3F7009BB0F700EDF1 + FE00E9EEFD00EDF1FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758BD200ACBC + F500A9BBF800C9D5FB0096ACF700A1B5F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005770 + C700567AF2006D8CF3007B97F400839EF500839EF500849EF500859FF500859F + F500859FF500859FF500849EF500849EF500839EF500819BF5007A96F4005479 + F1006F8DF3005770C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFDEDE00EFEE + EE00C9C8C7008C8A880000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C900EAEFFD00ECF0FE00EEF2FE00EFF3FE00EFF3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00ECF0 + FE00EAEFFD00EFF2FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006883DC00768B + D300A7B9F400849EF5007592F4009EB3F7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005871 + C8004A70F0005D80F2006989F3007290F4007491F4007491F4007491F4007491 + F4007491F4007491F4007491F4007491F4007290F4006F8DF3006888F300486F + F0006A8AF3005871C80000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009E9C9A009997 + 9500959391008B89870000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005B76D2005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A7ED009DAFEE0086A0F50094ABF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D2005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D20000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D76CA0096A8E7008DA5F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005B74CB008FA2E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C2008FA0D5003A4A + 7A003A4A7A00C0C0C000C1C1C100C7C7C700D5D5D500DCDCDC00000000000000 + 0000000000000000000000000000000000000000000000000000DEDEDE006B80 + C20027335F0026335D002A386D00C3C3C300C3C3C300C4C4C400D1D1D100D5D5 + D500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C7C7C700C0C0C0006679B80027325B0027325B0027325B0027325B002732 + 5B0027325B0027325B0027325B0027325B0027325B00273462007385C800C7C7 + C700D6D6D6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003A4B82004B5B + 94004B5A9300B2BFEE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C64B5004656 + 8A0098A5CE0098A4CD00828FB90031458A00DEE3F80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002A3A750003279E0003279E0003279E0003279E000327 + 9E0003279E0003279E0003279E0003279E0003279E00435DB6003F58B0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B8C6F2003D4E8E003F59B2000F30 + 9F000F309F004B5E9F003D4E8E00B8C6F2000000000000000000000000000000 + 00000000000000000000000000000000000000000000314792009BA8D200526D + C5002647B5002041B0001B3DAE00909ECB00293D7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D3D7A00092DA5006077C400768ACC00092DA5006077 + C40096A6D800092DA5006077C4008A9BD4000328A300435EBA004059B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C8F2003D5091004C5FA1000F31A3000327 + 9F0003279F003F5AB6004C5FA1003D5091000000000000000000000000000000 + 000000000000000000000000000000000000000000002E4285008FA0DB004A66 + C6003C5AC0003655BD003151BA00697FC9002B3E7C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002E407F00092EAA008C9DD700B5C0E600092EAA008C9D + D700C5CEEB00092EAA008C9DD700BDC7E800042AA900425EBD00415AB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DEDEDE00DEDEDE00CECECE00CECECE00C7C7C700C0C0C000C0C0 + C000C0C0C000C0C0C000C0C0C00092A2D700394B8A0093A2D800C0C0C000DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000003F5193004C61A500435EBB000328A3000328 + A3000328A3000F32A800435EBB004C61A500BBC8F20000000000000000000000 + 0000000000000000000000000000000000000000000030448A008296D9005D77 + D000516DCA004C68C8004764C6006079CC002D3F810000000000000000000000 + 00000000000000000000000000008196DC00293A7500293A740033478C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000334688000A31B5006E85D30091A2DD000A31B500607A + CF0098A8E0000A31B500607ACF0091A2DD00042CB4004361C700435CB4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007F92D8003E4C7E0093A5E4000000 + 000000000000BDC9F300374E9D004F68BC004A6FE800657ECF00455FBB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004153940041539400415394001338B100042A + AB00042AAB004360C1004153940041539400465CA90000000000000000000000 + 000000000000000000000000000000000000000000006D83D4005669A80092A4 + E300788FDC00758DDB00768DDA004B69CD0032468B0000000000000000000000 + 0000000000008398DE00505F9800A4B1DD003E5BBD003957BB005F77C7005160 + 9400647CCB000000000000000000000000000000000000000000000000000000 + 0000000000000000000035498E000A33BB0091A3E000B5C1EA000A33BB008C9F + DF00BDC8ED000A33BB008C9FDF00CDD5F100042EB9004362CA00445DB5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002E4185005467A7005068BB000000 + 0000000000003950A000506ABE004A6EE5006C8BF1007389D4004661BC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425596001439B500042B + B000042BB0004361C40042559600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAE005468 + A90097A9E50092A5E5008399E1003C5ECD003448900000000000000000000000 + 0000000000003B53A2009EABD5005B75CC003252BE002D4EBB002748B70094A2 + D000364A8D000000000000000000000000000000000000000000000000000000 + 00000000000000000000384B9300042FBF00042FBF00042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF00042FBF00042FBF004363CF00455EB6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008296DB0043528900516BBE00384C95000000 + 0000BDC9F400516BC1004A6EE600204EE800738AD500435DB600BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004D64B7004F65B20000000000000000000000000043569900143ABA00042D + B500042DB5004361C700435699000000000000000000000000004960AF00BAC9 + F300000000000000000000000000000000000000000000000000000000006E86 + D700384E9A00384E99004264D4004062D200374B950000000000000000000000 + 00000000000034488D0094A5DF005470CD004765C8004260C6003C5BC200788C + D000314384000000000000000000000000000000000000000000000000000000 + 000000000000000000003C529D000A36CA008CA1E600B5C3EF000A36CA008CA1 + E600B8C5EF000A36CA008CA1E600C1CCF2000432CA004365D7004760B8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000475994004D69C7000932BD00556DBD003E54 + A400556EC700204FEB006C8BF300758BD700BFCCF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + B5004665CC004559A0000000000000000000000000004559A0001C42C3000D36 + BF000D36BF004766CF004559A0000000000000000000000000004559A0005067 + B700445AA300BCCAF40000000000000000000000000000000000000000000000 + 0000000000003D54A400486BDF004669DC003C529F0000000000000000000000 + 0000000000003D55A5008294D3007F95E0006D86DA006882D700647FD6006982 + D60035498E000000000000000000000000000000000000000000000000000000 + 000000000000000000003F55A2000735D0000735D0000735D0000735D0000735 + D0000735D0000735D0000735D0000735D0000735D0004467DB004862B9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000566AB2003356CB000431C6005D78D7005570 + C9004C71ED006C8BF300758CD7004761BA000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C63B6005B70 + B6004969D300465AA300465AA300465AA300465AA300465AA300284DCA001A42 + C7001A42C7004D6CD300465AA300465AA300465AA300465AA300465AA3004666 + D200536ABB00445CA70000000000000000000000000000000000000000000000 + 0000000000004058A9004B6EE3004A6DE1003E55A50000000000000000000000 + 0000000000006F85D7005A6DB00094A7E6008197E2007E95E0007E95E0005673 + D400384C93000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A800103ED700A0B2EF00A0B2EF00103ED700A0B2 + EF00A0B2EF00103ED700A0B2EF00A0B2EF00103ED700486BE0004963BA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A8B7ED005470CF000E3ACC000434D1004268E800476D + ED002050ED00778CD8004862BC00BFCCF5000000000000000000000000000000 + 000000000000000000000000000000000000000000004D65B8005E72BA00516F + D5005472D8005C77D1005974D1005974D1005A74D1005C77D1002A50CF00274D + CD00274DCD005876D9005D78D1005A74D1005974D1005974D1005B75D100284E + CE004D6DD700556DBE00BDC9F400000000000000000000000000000000000000 + 000000000000435CAF004F72E8004D70E5004159AA0000000000000000000000 + 00000000000000000000465FB500586CB2009BADE80097A9E8008BA0E5004969 + D5003A5099000000000000000000000000000000000000000000000000000000 + 000000000000000000004760B3005B668B008895BE008996BF008B98C1008C99 + C2008D9AC3008F9CC500909DC600919EC7008B9ACB005073E9004B65BC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000AAB9EF004D61A5000D3CD7000537DE000539E600053AEB000C3F + EC005579F1006B85D8005F76C6004B65BE009DB0EE0000000000000000000000 + 0000000000000000000000000000000000004B63B7005574DC003A5FD9003C61 + D9004064DB003F63DB003F63DB003F63DB003F63DB003F63DB004064DB004064 + DB004064DB004064DB004064DB003F63DB003F63DB003F63DB003F63DB003F63 + DB003B60D900395ED900556FC3004B63B7000000000000000000000000000000 + 0000000000004862B9005579F0005578EE00465FB50000000000000000000000 + 000000000000000000000000000000000000BFCDF8004159A7005474E1005272 + DF004056A3000000000000000000000000000000000000000000000000000000 + 000000000000000000004A62B70039456E0054659F005566A0005869A300596A + A4005B6CA6005D6EA8005F70AA006071AB00919DC6005477ED004C66BD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005E77CC005971C5000537E1000539E800053AEB001244EC002654 + EE003B64EF007B97F40086A0F500839BEB006A80CB00526DCA00000000000000 + 0000000000000000000000000000000000004D65BA005777E2004266DE00486B + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6EDF004C6E + DF00486BDF004266DE005770C7004D65BA000000000000000000000000000000 + 0000000000004963BB00597CF200597CF2004963BA0000000000000000000000 + 00000000000000000000000000000000000000000000445CAD005878E5005676 + E3004259A9000000000000000000000000000000000000000000000000000000 + 000000000000000000004C66BD0036426A0051629B0052639C0054659E005667 + A0005768A1005A6BA4005B6CA5005C6DA6008E9AC200597CF1004D67BE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF8004D62AE005B79DF00053AEA00053AEB00093DEB002E5AEE00426A + F000567AF200809BF50093AAF600AEBFF8007287CE00546ECB00000000000000 + 000000000000000000000000000000000000BFCBF5005C76CB006381E7005274 + E3005778E5005475E4005274E3005274E3005374E3005677E5005979E5005979 + E5005979E5005979E5005677E4005374E3005274E3005274E3005475E4005576 + E4005374E3006381E7004A63B600BFCBF5000000000000000000000000000000 + 0000000000004A64BC005D80F2005C7FF2004A64BC0000000000000000000000 + 000000000000000000000000000000000000000000004760B3005D7DEA005B7B + E800455DAF000000000000000000000000000000000000000000000000000000 + 000000000000000000004F69C000333E63004A5A8F004B5B90004E5E93005060 + 9500516196005464990055659A0056669B008A95BB006283F2004F69C0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000546BBC005C7CE8001849EC001446EC002856EE003D66EF006D8CF3009BB0 + F700BDCBF9007487CE00536EC90091A5EB000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF5004D66BC005C77 + D0005F7FEC004C65B8004C65B8004C65B8004C65B8004C65B8007792EE00738F + EE00738FEE007994EF004C65B8004C65B8004C65B8004C65B8004C65B8005E7F + EC005C77D0004D66BC0000000000000000000000000000000000000000000000 + 0000000000004D67BE006485F3006485F3004D67BE0000000000000000000000 + 000000000000000000000000000000000000000000004C66BD006787F2006484 + F0004A63B9000000000000000000000000000000000000000000000000000000 + 00000000000000000000506AC100313C5F004857890049588A004C5B8D004D5C + 8E004F5E90005160920053629400546395008994B7006686F300506AC1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000647DD4003D66EF000A3EEB002F5BEE00446BF0006888F300BAC8F800A2B1 + E6006E83CD009FB1EF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCCF5004D66 + BF004F74ED004D66BB000000000000000000000000004D66BB007F9AF1007E99 + F1007E99F1007893F0004D66BB000000000000000000000000004D66BB005A76 + D2004D66BF00BFCCF50000000000000000000000000000000000000000000000 + 0000000000004E68BF006888F3006E8DF3005B73C4004E68C100839AE700BFCD + F60000000000000000000000000000000000000000004E68BF006B8AF3006989 + F3004D67BE000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC2002F395A004554840046558500485787004A59 + 89004B5A8A004E5D8D004F5E8E00516090008690B2006A8AF300516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006280E8002654EE002251ED005C7FF20094ABF600B7C6F6006E84CE005C77 + D400AEBEF3000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6005673D5004E68BF000000000000000000000000004E68BF0089A2F5008BA4 + F5008BA4F5007C97F4004E68BF000000000000000000000000004E68BF004E68 + C100BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000004F69C0006B8AF300849EF500B9C7F700A8B8ED00768AD1005C74 + C500536CC0007991E300AEBEF30000000000000000004F69C0006F8DF3006D8C + F3004F69C0000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC4002B3452003F4C7700414E790043507B004451 + 7C0046537E00485580004A5782004B588300838CAB007391F400546DC4000000 + 0000000000000000000000000000000000000000000000000000000000005972 + CA006183F2008FA7F600AABAF100637BCC006B84DD00D3DBF900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC1009FB3F700A4B7 + F800A4B7F80086A0F500506AC100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC2007290F400829CF500819BF500809BF5007E99F50089A2 + F6009BB0F700B4C4F900B7C7F900AEBEF200788ED600647BC8007C97F4007693 + F400516BC2000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC50029314E003C4870003E4A7200404C7400424E + 7600434F770046527A0047537B0049557D008189A6007794F400556EC5000000 + 00000000000000000000000000000000000000000000000000007C93E6007A8F + D700A2B4EF008699DA005C75CC00D3DBF9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC200516BC200516BC200ADBEF800B1C1 + F900B1C1F90091A8F600516BC200516BC2005973CE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000526CC3007391F40087A1F50086A0F500859FF500839EF500829D + F500829CF5007F9AF50086A0F50099AFF700B9C8F900C2CFFA008CA5F6007A96 + F400526CC3000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600272F49003B466C003B466C003E496F003F4A + 7000414C7200434E740045507600465177007E86A1007B97F400566FC6000000 + 00000000000000000000000000000000000000000000000000005872CA009BAC + E7005C75CC007C93E60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000627CD2005F7FEA00748FEC00B7C7F900BDCB + FA00BDCBFA00A7B9F8007E98ED006080EA00546FCA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006384F30093AAF6008FA7F6008BA4F60089A2F60088A2 + F60087A1F500849EF500839EF500829DF500819BF50087A1F500839EF5007F9A + F500536DC4000000000000000000000000000000000000000000000000000000 + 000000000000000000005871C800242B4400343D5C0038426200384262003943 + 63003B4565003D4767003F496900404A6A00787F99007E99F5005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF600536DC6006781DA00AEBFF800C2CF + FA00C3D0FA0094ABF6006E87DB00536DC6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009FB1F0005D77CF005771C700637CCF007993E90086A0 + F40095ACF70097ADF70092A9F6008FA7F6008DA5F6008BA4F6008AA3F60086A0 + F500556FC6000000000000000000000000000000000000000000000000000000 + 000000000000000000005872C90027304F00262D4400282E4400292F4500292F + 4500292F4500292F4500292F4500292F4500515870007794F4005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCDF600536EC70094ABF6009FB3 + F700A0B4F700718ADD00536EC700BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3DBF90093A7ED005874CD005C75 + C900647ED300879EEB008EA6F60099AFF70099AFF70094ABF60090A8F6008AA3 + F6005670C7000000000000000000000000000000000000000000000000000000 + 000000000000000000005872CA00879FF0008FA6F00093A9F20095AAF20095AA + F20095AAF20095AAF20094AAF20092A8F200849DF0007A93E7005872CA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C1CDF6006F88DC00829C + F500829CF500556FC700C1CDF600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CED8 + F800859CE9005771C9006179CC006680D60092A8F00097ADF7009EB3F70089A2 + F6005771C8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005874 + CF005874CF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBFF3007C93E4005771 + C8005771C9000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002A3B7700DBE0F100DDE2 + F200DEE3F300DFE4F300DFE4F300E0E5F300E0E5F300E2E7F400E3E7F500E3E7 + F500E3E7F500E5E9F600E5E9F600E6EAF600E8ECF700E8ECF700E8ECF700E8EB + F600E9ECF700EAEDF700000000000000000000000000D3D3D3005F5D5E005E5C + 5C0037363800B9B9B90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002D3F7F00D7DDF100C8D0 + EC00C9D1ED00CAD2ED00CBD3ED00CCD3ED00CDD4ED00CED5EE00D0D7EF00D1D8 + EF00D2D9EF00D3D9EF00D4DAF000D5DBF100D7DDF200D7DDF200D7DDF100D9DE + F200DADFF200E6EAF8000000000000000000000000007B7979008D8B8A007D7B + 7A006462620039383900CFCFCF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448600D6DCF200C3CC + EC003E5DC4003E5DC4003E5DC4003F5EC4003F5EC4003F5EC400C9D2EF00C9D2 + EF00CAD2EF00CBD3EF00CDD5F000CDD5F000CFD6F000D0D7F000D1D8F100D2D9 + F100D3DAF100E0E5F500000000000000000000000000858383009E9B9A00A19F + 9E00676564006462620039383900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000384C9700D7DEF500C6D0 + F1003F61D2003F61D2003F61D2003F61D2003F61D2003F61D200C4CEF000C4CE + F100C4CEF100C4CEF100C3CEF100C3CEF100C3CEF100C3CEF100C3CEF100C4CE + F100C4CEF100D7DEF50000000000000000000000000000000000D3D3D3008583 + 8200A19F9E007D7B7A006765640039383900CFCFCF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000687AB8007084C600566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566EBC00566E + BC00566EBC007084C60023336700000000000000000032479000304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 8900304589003045890030458900304589003045890030458900304589003045 + 89003045890030458900859AE00000000000000000003B519F00D9E0F700C8D2 + F4003F63DA003F63DA003F63DA003F63DA003F63DA003F63DA00C6D1F400C6D1 + F400C6D1F400C5D0F300C5D0F300C5D0F300C4CFF300C4CFF300C4CFF300C3CE + F300C3CEF300D6DDF7000000000000000000000000000000000000000000D3D3 + D3009E9B9A00A19F9E007D7B7A006462620039383900CFCFCF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004259A600344FA700405C + BB001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3FAF001D3F + AF003956B900344FA70027366E0000000000000000005C74C5005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0005873D0005873D0005873D0005873D0005873D0005873 + D0005873D0005873D0003D529A0000000000000000003F57A700DBE2F900CAD4 + F6004065E0004065E0004065E0004065E0004065E0004065E000C8D3F600C8D3 + F600C8D3F600C7D2F600C7D2F600C7D2F600C6D1F500C6D1F500C6D1F500C5D0 + F500C5D0F500D7DEF80000000000000000000000000000000000000000000000 + 0000858382009E9B9A00A19F9E00676564006462620039383900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425CB300032491003550 + AB001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3F + B2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2001C3FB2003251 + BA003550AB0003249100293972000000000000000000587BED001444E6000E2A + 8A001744DB000F2B8A001744DB000F2B8A000F2B8A000F2B8A000F2B8A001744 + DB000F2B8A000F2B8A000F2B8A001744DB000F2B8A000F2B8A001744DB000F2B + 8A001644DB000D2A8A005268B70000000000000000004761B700DEE5FB00D1DA + FA005176EF005075EF005075EF005075EF005075EF005075EF00D0DAFA00D0DA + FA00D0DAFA00CFD9FA00CFD9FA00CFD9FA00CED8FA00CED8FA00CED8FA00CDD7 + FA00CCD7FA00DAE1FB0000000000000000000000000000000000000000000000 + 000000000000D3D3D30085838200A19F9E007D7B7A006765640039383900CFCF + CF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435EBB000429A5000429 + A500324FB0002C4DBC00163BB500163BB500163BB500163BB500163BB5001235 + A8001235A800163BB500163BB500163BB500163BB500163BB5002C4DBC000327 + 9E000429A5000429A5002E3F7D0000000000000000006383EE002352ED006886 + EB00335EEF006A88EE00335EEF006985E2006985E2006985E2006986E600335E + EF006A88EE006A88EB006986E600335EEF005F71B0006883DF00335EEF006A88 + EE00325EEF006786EE00566EBE0000000000000000004963BA00E0E6FC00D4DD + FC00597CF200597CF200597CF200597CF200597CF200597CF200D4DDFC00D4DD + FC00D4DDFC00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D3DCFB00D2DBFB00D2DB + FB00D0DAFB00DDE4FC0000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D3009E9B9A00A19F9E007D7B7A00646262003938 + 3900CFCFCF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425FBF00042AAA00042A + AA000328A400304EB200294CBE001338B7001338B7001338B7001136AF000E2F + 9E000E2F9E001338B7001338B7001338B7001338B700294CBE00304EB200042A + AA00042AAA00042AAA003042820000000000000000006D8AEB00305CEE002B43 + 9400243D90003D63E300243D9000354C9800486CE400354C9800304896003960 + E300284192002C44940030489600385EDE007692EF005075F1003D66EF002841 + 92003960E300253E92005A70C10000000000000000004A64BB00E2E8FD00D8E0 + FC006283F2006283F2006183F2006183F2006183F2006183F200D8E0FC00D7DF + FC00D7DFFC00D7DFFC00D7DFFC00D7DFFC00D6DFFC00D6DFFC00D6DFFC00D5DE + FC00D4DDFC00DFE6FC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000858382009E9B9A00A19F9E00676564006462 + 6200393839000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004361C400052CB000062D + B100062DB100052BAC00304FB6001138B9001138B9001138B9000F31A3008598 + D8008598D8000E33B1001138B9001138B900264AC0002F4EB600042AAB00042B + B000042BB000042BB0003346870000000000000000007691ED00496FF0003D51 + 94006381E700394D91005D7DE6005D7DE600394D91005D7DE6005D7DE600394D + 91005D7DE6007483B3007483B3006583E6007483B3007483B3006280E4003C50 + 93005A7AE600374C93005F76C50000000000000000004D66BE00E6EBFD00DEE5 + FC007290F4007290F4007290F4007290F4007290F4007290F400DEE5FC00DEE5 + FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DDE4FC00DCE3 + FC00DAE2FC00E2E8FD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D30085838200A19F9E007D7B + 7A005A585700373A4600354A9200425BB3000000000000000000A6B6EC002C3F + 820000000000000000000000000000000000000000004967CD001A40C0002045 + C2002247C3002146C3002146C3003F5DC300284CC3001A3DB1007791E5004C6D + DC004B6CDB008C9EDD00183BAF003052C4001C41BF001D43C2001C42C2001C42 + C200193FC000133ABF00384C920000000000000000007A94EE005378F10092A7 + EE007693F40099AEF2007693F4007693F40099AEF2007693F4007693F40099AE + F2007693F40094A7E60095A8EA007995F40094A7E60095A8EA007995F40099AE + F2007391F4008DA4F1005871C40000000000000000004E68BF00E6ECFD00E1E7 + FD007A96F4007A96F4007A96F4007A96F4007A96F4007A96F400E2E8FD00E1E7 + FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00DFE6 + FC00DDE4FC00E4E9FD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D3009E9B9A008D8C + 8A00646262009E9D9D0034343C0052629D00899DE3006B82D2003B4D8D003A49 + 8000CED7F600000000000000000000000000000000004C6BD200254AC8002D52 + CA002F53CB002F53CB002F53CB00294DC5003B57B70091A3E0005878E1005777 + E0005777E0007993E70091A3E0003855B6002B50CA002B50CA002B50CA002A4F + CA00264BC9001C43C6003A50970000000000000000007B96EE00597CF2004B5C + 96004E5E93007D96E9004E5E93004E5E93007D96E9004E5E93004E5E93007D96 + E9004E5E93005A699A00576698007A94E8005A699A00576698007A94E8005060 + 9500718CE8003D519300536DC40000000000000000004F69C000E8EDFD00E3E9 + FD00829CF500829CF500829CF500829CF500829CF500829CF500E5EAFD00E5EA + FD009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009DB2F7009BB0 + F700E0E6FC00E6EBFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000858382008885 + 8500BBBAB900BBB9B7009E9D9D0032343D00485CA6004A5EA500556FC5004354 + 8E00A5B6EB00000000000000000000000000000000004E6DD6002F54CF003B5E + D2003F61D3003F61D3003E61D300274ABC0096A7E200849CEA006482E5006381 + E5006381E5006381E500839BEA0095A7E2003457CD003A5DD200395CD200395C + D2003257D000254CCD003D529D0000000000000000007B93E700819CF30092A9 + F600A3B6F800A4B7F800A6B9F800A8BAF800A6B9F800A8BAF800A8BAF800A6B9 + F800A8BAF800A9BBF800ABBDF800A6B9F800ADBEF800AABCF800A4B7F8009FB3 + F70094ABF60087A1F5005771C9000000000000000000526CC300EBF0FD00E7EC + FD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7EC + FD00E5EAFD00E8EDFD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C3CE + F20083838700F0F0F000CCCBCA00BBB9B70032343D002347BF000534D400556C + B6003B4D8F004057A8000000000000000000000000005575E0004669DD005877 + E0005D7BE1005373DE003759CA0098ACF0007B95EC007B95EC007B95EC007B95 + EC007B95EC007A95EC007A95EC007A95EC009EAEE7003457C9004E6FDD005777 + E0004B6DDD00375CDA00435AA70000000000000000005872CA00495891004A59 + 9100697EC8006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82 + CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006D82CF006C82 + CF006B82CE006980CE0093A8ED000000000000000000536DC400ECF0FE00E9EE + FD007693F4007693F4007693F4007693F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007693F4007693F4007693F400708E + F400E6ECFD00E9EEFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004660 + B9006A7CBD00CFCECE00F0F0F000CCCBCA009E9D9D002B3049000537DE004668 + D7005772CC00576CB300475EAE0000000000000000005878E4005072E2006683 + E6006885E5004162CF00A3B3E900879FEF00879FEF00879FEF00879FEF00869E + EF00869EEF00869EEF00859EEF00869FF0009EB1F200A1B1E8003E5FCE006683 + E6005979E4003F64DF00465DAE00000000000000000000000000000000008380 + 7E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546EC500EDF1FE00EBF0 + FD00809BF500809BF500809BF500809BF500809BF500809BF500809BF500809B + F500809BF500809BF500809BF500809BF500809BF500809BF500809BF5007794 + F400E8EDFD00EBF0FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004E69 + C6006A80CE0088888B00CFCECE00F0F0F00093919000383D55000539E8000534 + D4002F54D3005470CE005D74C60000000000000000005A7BE800597AE700728D + EA004D6DD700A4B4EA00ACBDF60093A9F20093A9F20093A9F20092A8F20092A8 + F20092A8F20091A7F20091A7F20091A7F20091A7F2009DB1F300A3B3EB00718D + EA006482E800476CE5004961B30000000000000000000000000000000000918F + 8F00908D8B00918E8C00928F8D0093908E0094918F0095929000979492009895 + 9300999694009B9896009C9997009D9A98009E9B99009F9C9A009B999800A09F + 9E00B6B4B400D6D6D6000000000000000000000000005770C700F0F3FE00EDF1 + FE00839EF5008AA3F6008CA5F6008EA6F6008FA7F6008FA7F6008FA7F6008FA7 + F6008FA7F6008FA7F6008FA7F6008FA7F6008DA5F6008CA5F6008AA3F6007693 + F400EAEFFD00ECF0FE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008FA1E00099AAE300848692004A6AD700305CEE001E4EED004B70 + EE005E77CB004A63BB000000000000000000000000005C7EEE006383F0005273 + E000B4C4F800ADBEF700ACBDF700ACBDF700ACBDF700ABBCF700ABBCF700ABBC + F700ABBCF700AABCF700AABCF700AABCF700A9BBF700A9BBF700A9BBF700A9B9 + EE00486BDF004D72ED004F68BE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005871C800F0F3FE00EDF1 + FE00F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F0F3FE00F0F3 + FE00F0F3FE00F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EEF2FE00ECF0 + FE00EAEFFD00EDF1FE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000A1B1EB009AAFF7007995F4005479F100436BF000305CEE003B64 + EF00617CD8004F69C4000000000000000000000000005C7FF200466BE500A6B6 + EF00ADBEF800AFC0F900B0C0F900B0C0F900B0C0F900B0C0F900B0C0F900AFC0 + F900AFC0F900AFC0F900AFC0F900AEBFF800ADBEF800ADBEF800ABBDF800AABC + F800A0B2ED003A61E400526CC300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C900F1F4FD00F1F4 + FD00F2F5FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6FD00F3F6 + FD00F2F5FD00F2F5FD00F2F5FD00F2F5FD00F1F4FD00F1F4FD00F1F4FD00F0F3 + FD00EFF2FD00EEF2FD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009FB0EF00B0C0F700ACBDF8009BB0F7006787F3005479F1005E80F200486F + F0005A7CED00566EC1000000000000000000000000005578EB0098ACEE0095AC + F7009AAFF7009DB2F7009EB3F7009EB3F7009FB3F7009EB3F7009EB3F7009EB3 + F7009EB3F7009EB3F7009DB2F7009DB2F7009CB1F7009BB0F70099AFF7008EA6 + F6008BA4F60092A7ED00546EC500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000839AE8005B76D3005B76D300536FCA009EB3F70093AAF6007086D1005B76 + D3005B76D3005B76D300000000000000000000000000617ACC005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C7005670C7005670C7005670C7005670C7005670 + C7005670C7005670C7005670C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF30095AAF200889EE600566FC8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007289D700637BCE0092A7EC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C9C9C900A1ADDA0058648C00545664005456640054566400545664005456 + 6400545664005456640054566400545664005456640053556300525E8800C2C2 + C200D4D4D4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C4003847 + 7D0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0027345E0027345E0027345E0027345E0027345E0027345E0027345E002734 + 5E0038477D00C4C4C40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C3CEF1005E607000999CA600B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1 + BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00B0B1BA00999BA600BEC9 + EE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002B3C + 78000328A30003208200E8E8E700E5E4E300E0DFDE00DBDAD900032082000328 + A3000328A3000328A3000328A3000328A3000328A3000328A3000328A300435E + BA002B3C78000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000060647500A6A9B60025377600253776002537760025377600253776006870 + 92007B819B002537760025377600253776002537760025377600253776006569 + 7A00000000000000000000000000000000000000000000000000000000000000 + 00000000000029386A005469AE005065AC005065AC005065AC005065AC005065 + AC005065AC005065AC005065AC005065AC005065AC005469AE00344686000000 + 0000000000000000000000000000000000000000000000000000000000002C3F + 7E00042AA90003218700E8E8E700EFEEED00EAE9E800E5E4E30003218700042A + A900042AA900042AA900042AA900042AA900042AA900042AA900042AA900425E + BD002C3F7E000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000063677800A2A4B400263877002638770026387700263877002C3D77005960 + 7A0059607A002638770026387700263877002638770026387700263877006367 + 7800000000000000000000000000000000000000000000000000000000000000 + 0000000000002B3C7800536CBF000328A0000328A0000328A0000328A0000328 + A0000328A0000328A0000328A0000328A0000328A000536CBF00354994000000 + 0000000000000000000000000000000000000000000000000000000000002F42 + 8300042BAF0003238C00DFDFDD00F3F3F100F3F3F200EFEFEE0003238C00042B + AF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF00042BAF004360 + C3002F4283000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000676B7C009FA2B20028397800283978002839780028397800283978003A42 + 63003B425C00283978002839780028397800283978002839780028397800676B + 7C00000000000000000000000000000000000000000000000000000000000000 + 0000000000002E3F7E00536DC3000429A8000429A8000429A80003279E000326 + 99000325970003269A0003279F000429A7000429A800536DC300374D97000000 + 0000000000000000000000000000000000000000000000000000000000003448 + 8E00042EBB0003259500CAC9C800E3E2E000E6E6E500EAEAE90003259500042E + BB0003279D00032595000325950003259500032595000325950003279D004262 + CB0034488E000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000000000 + 00006F738300A7ABBB002B3C7B003963EF00446BF000486FF000496FF000496F + F000496FF000496FF000486FF000476EF000325EEF00466DF0002B3C7B006F73 + 8300000000000000000000000000000000000000000000000000000000000000 + 00000000000034478B005470CD00042DB600042BAC000320800003208000586B + AB00ADB6D50003208000031F7E0003269B00042DB6005470CD003B519F000000 + 000000000000000000000000000000000000000000000000000000000000364B + 94000430C20003269B00C1C0BE00DAD9D800DEDDDC00E2E1E00003269B000430 + C20003269B0002175D0002175D000110410002175D0002175D0003269B004364 + D100364B94000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000000000000000 + 000073778700AAAFBF002C3D7C004068F000486FF000496FF000496FF000496F + F000496FF000496FF000496FF000496FF0003761EF00486FF0002C3D7C007377 + 8700000000000000000000000000000000000000000000000000000000000000 + 000000000000364A91005773D300042DB60003228A0003218700032187000321 + 870003238D00032187000321870003218500042CB4005773D3003C53A3000000 + 000000000000000000000000000000000000000000000000000000000000394F + 9A000633C80004289F00B5B4B200D2D1CF00D6D5D300DAD9D70004289F000633 + C70004289F00031860000318600002114300031860000318600004289F004365 + D500394F9A0000000000000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED0000000000000000000000000000000000000000000000 + 000075798A00AFB3C3002E3E7E003E67F000456CF000456CF000456CF000456C + F000456CF000456CF000456CF000456CF0003761EF00486FF0002E3E7E007579 + 8A00000000000000000000000000000000000000000000000000000000000000 + 000000000000394D98005875D8000429A5000324920003249200042AA900042C + B200042CB200032493000324920003249200042DB5005875D8003E56A6000000 + 0000000000000000000000000000000000000000000000000000000000003E55 + A4001E49D800193BAC00AFADAC00B3B1B000BAB8B600C1BFBD00193BAC00204A + D800193BAC00091743000D1E58000A194900091743000D1E5800193BAD004B6D + DF003E55A400000000000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F51940000000000000000000000000000000000000000000000 + 00007C819200B7BACA00304180003661EF003B64EF003B64EF003B64EF003B64 + EF003B64EF003B64EF003B64EF003B64EF00305CEE00466DF000304180007C81 + 9200000000000000000000000000000000000000000000000000000000000000 + 0000000000003F55A4005878E1000429A8000429A8000429A8000328A1000328 + A1000328A10003279F000429A8000429A800042FBD005878E100425BAE000000 + 0000000000000000000000000000000000000000000000000000000000004159 + AA002A54DF002649BB002445B3002445B3002445B3002445B3002649BB002D56 + DF002649BB002445B3002445B3002445B3002445B3002445B3002649BB004E71 + E4004159AA00000000000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A90000000000000000000000000000000000000000000000 + 000080849500BBBFCF0032428100315CED00355FED00355FED00355FED00355F + ED00355FED00355FED00355FED00355FED002B58EC00456CEF00324281008084 + 9500000000000000000000000000000000000000000000000000000000000000 + 0000000000004259AB005879E6002044BC00ADBBE7003C5BC400032699000326 + 99000326990003239000042DB800C9D2EF000431C6005879E600445DB1000000 + 0000000000000000000000000000000000000000000078767600D3D3D300445D + B000365EE5003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62 + E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6003B62E6005376 + E900445DB000D3D3D300807F7F0000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE0000000000000000000000000000000000000000000000 + 000084889800BDC2D200334482002D59EA00315CEA00315CEA00315CEA00315C + EA00315CEA00315CEA00315CEA00315CEA002855E900446BEC00334482008488 + 9800000000000000000000000000000000000000000000000000000000000000 + 000000000000455EB100597BEB000430C200042FBF00042FBF00032187000323 + 8D0003238D0003249100042FBF00042FBF000434D300597BEB00465FB5000000 + 00000000000000000000000000000000000000000000EBEBEB00AEADAC007979 + 7D00728EEE005D80F200567AF200567AF200567AF200567AF200567AF200567A + F200567AF200567AF200567AF200567AF200567AF200567AF2005C7FF2004F67 + BB0079797D00AEADAC007C7A790000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800395ED800395ED800395ED800FFFFFF00FFFF + FF00FFFFFF00395ED800395ED800395ED800395ED800395ED800395ED8003459 + D700224BD4005773D30000000000000000000000000000000000000000000000 + 00008B8F9F00C5C9D90035468400234FE2002551E2002551E2002551E2002551 + E2002551E2002551E2002551E2002551E2001F4CE2004066E600354684008B8F + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000004B64BB006082F2001445E9001240D700123FD600123FD600123F + D600123FD600123FD600123FD600113DD1001143EC006082F2004B64BB000000 + 00000000000000000000000000000000000000000000CFCECE00EBEBEB00AFAE + AD005F71B000829CF0006A8AF3006384F3006384F3006384F3005673D4004F6A + C2004F6AC2006283F0006384F3006384F3006384F3006A8AF300829DF5007979 + 7F00AFAEAD00EBEBEB007F7D7C0000000000000000005A77D8003057DA003E63 + DD004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569DF003E63 + DD002B53DA005975D70000000000000000000000000000000000000000000000 + 00008E92A300C7CCDD00374785001E4ADE00214DDF00214DDF00214DDF00214D + DF00214DDF00214DDF00214DDF00214DDF001B48DE003E64E400374785008E92 + A300000000000000000000000000000000000000000000000000000000000000 + 0000000000004C65BC006485F3001E4DED001D4CE9001C49DE007691EB00E8ED + FB00E8EDFB001C49DD001C49DE001D4CE9001949ED006586F3004C65BC000000 + 00000000000000000000000000000000000000000000807E7E00D0CFCF00EBEB + EB007E7E81006878B1008DA4F100708EF400708EF400708EF400A4B0D800E4E4 + E300D6D5D400627CD500708EF400708EF4007794F4008FA7F6006D80BF00B0AF + AF00EBEBEB00D0CFCF00D3D3D30000000000000000005C79DB00375EDF00486C + E3005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173E300486C + E3003058DE005B78DB0000000000000000000000000000000000000000000000 + 00009195A600CBD0E000384987001A47DB001B47DA001B47DA001B47DA001B47 + DA001B47DA001B47DA001B47DA001B47DA001744DB003D62E100384987009195 + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000004D66BD006888F3002856EE002957EE002956EC002854E5002854 + E5002854E5002854E7002956EC002957EE002150ED006888F3004D66BD000000 + 0000000000000000000000000000000000000000000000000000D3D3D3008584 + 8300EBEBEB00B2B1B10084848700A1B4F30090A8F6008AA3F600C9C8C600D4D3 + D100E0DFDD006F83C5008AA3F60090A8F6007E8EC00084848700B2B1B100D2D2 + D10085848300D3D3D3000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00536CBE00536C + BE00536CBE006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D50000000000000000000000000000000000000000000000 + 0000989CAC00D0D5E6003A4B8900113ED300123FD300123FD300123FD300123F + D300123FD300123FD300123FD300123FD3000F3CD3003A5FDB003A4B8900989C + AC00000000000000000000000000000000000000000000000000000000000000 + 0000000000004F68C0006E8DF3003E67F0004068F0004068F0004068F0004068 + F0004068F0004068F0004068F0004068F000335EEF006E8DF3004F68C0000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300D4D3D200EBEBEB00B3B3B2007C89B400ABBBF4009DB2F7009FA6C200C3C1 + BF00C9C7C5008598D8009DB2F700AEBFF80088878B00B3B3B200EBEBEB008B89 + 8700D3D3D300000000000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA0000000000000000000000000000000000000000000000 + 00009A9EAF00D3D8E9003B4C8A000D3AD0000E3BD0000E3BD0000E3BD0000E3B + D0000E3BD0000E3BD0000E3BD0000E3BD0000C39D000395ED9003B4C8A009A9E + AF00000000000000000000000000000000000000000000000000000000000000 + 0000000000005069C100718FF400F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00F1F4FE007290F4005069C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008B898800D5D4D400EBEBEB008B8A8E007E8BB400B4C3F40092A2D9008494 + C6008494C600A8BAF500B5C5F9008896C300B4B4B300EBEBEB00D5D4D4008684 + 83000000000000000000000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500EDF1FD00FFFF + FF00EDF1FD00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 00009DA1B200D6DBEC003C4D8B000835CC000936CC000936CC000936CC000936 + CC000936CC000936CC000936CC000936CC000835CC00375CD5003C4D8B009DA1 + B200000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC2007491F400F1E0CB00F1E0CB00F1E0CB00F1E0CB00F1E0 + CB00F1E0CB00F1E0CB00F1E0CB00F1E0CB00F5EADA007592F400516BC2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D3D3D300908E8D00EBEBEB00B7B6B50091919300CBD6FB00C3D0 + FA00C3D0FA00949FC50091909400B7B6B500D7D6D600908E8D0093918F009290 + 8F000000000000000000000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700FFFFFF00FFFF + FF00FFFFFF0096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 0000A3A7B800DBE0F1003F4F8D000431C5000431C5000431C5000431C5000431 + C5000431C5000431C5000431C5000431C5000431C500365AD1003F4F8D00A3A7 + B800000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4007E99F500F3E2CB00F3E2CB00F3E2CB00F3E2CB00F3E2 + CB00F3E2CB00F3E2CB00F3E2CB00F3E2CB00F5EADA007E99F500536DC4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300D8D7D700EBEBEB00B8B7B6009DA6C500CDD8 + FB00CDD8FB0094939600B8B7B600EBEBEB009391900099979500A5A4A200A5A4 + A200939291000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 0000A6AABA00DDE3F3003F518E000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2003558CD003F518E00A6AA + BA00000000000000000000000000000000000000000000000000000000000000 + 000000000000546EC500819BF500F0F3FE00F1F4FE00F1F4FE00F1F4FE00F1F4 + FE00F1F4FE00F1F4FE00F1F4FE00F1F4FE00F3F6FE00819BF500546EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000096949300D9D9D800EBEBEB0097979900919D + C500919DC500B9B8B800EBEBEB00D9D9D800D3D3D300A09E9C00CCCCCC00CCCC + CC00A09E9C00000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800E1E3E800F2F2 + F200E1E3E800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000A9ADBD00DFE5F60040518F003558CA003558CA003558CA003558CA003558 + CA003558CA003558CA003558CA003558CA003558CA003558CA0040518F00A9AD + BD00000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600829DF500F4E4CB00F5E4CB00F5E4CB00F5E4CB00F5E4 + CB00F5E4CB00F5E4CB00F5E4CB00F5E4CB00F6EADA00829DF500556FC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D3D3D3009B999800EBEBEB00BBBA + BA00BBBABA00DBDBDA009B999800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000AEB2C200E2E8F90042539000425390004253900042539000425390006776 + A6006776A600425390004253900042539000425390004253900042539000AEB2 + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000005871C800829CF500CACCD100CBCDD100CBCDD100CBCDD100CBCD + D100CBCDD100CBCDD100CBCDD100CBCDD100D9DBDF00829CF5005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D5D5D300DDDCDB00EBEB + EB00EBEBEB009D9C9B00D5D5D300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B0B4C400E3E9FA0043549100435491004354910043549100435491003543 + 740035437400435491004354910043549100435491004354910043549100B6BA + CB00000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C97F400A5A7AC00A5A7AB00A5A7AB00A5A7AB00A5A7 + AB00A5A7AB00A5A7AB00A5A7AB00A5A7AB00BEC0C4007D98F5005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A19F9D00DEDD + DC00DEDDDC00D5D5D50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000094A2D300D8DEEF0094A0C700445492004454920044549200445492004454 + 920044549200445492004454920044549200445492004454920094A0C70094A2 + D300000000000000000000000000000000000000000000000000000000000000 + 0000000000005872C9007C96EE008FA5F00094AAF20095AAF20097ACF20097AC + F20097ACF20096ABF20095AAF20093A9F200889FF0007C96EE005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C2CEF60096A3D400B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9 + CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA00B5B9CA0096A3D4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1D1D100CBCBCB00C7C7C700C5C5C5007C8FCD005368AF00354785003546 + 8100364783004358A100566CB5007F91D100C7C7C700C7C7C700C9C9C900DADA + DA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DDDDDD00C9C9C900C7C7C700C2C2C200B1BCE5003446 + 820029376700C0C0C000C0C0C000C5C5C500CDCDCD00DADADA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000ACACAC00A4A4A400A4A4A400A4A4A4008A8A + 8A008A8A8A00A4A4A400B3B3B300C7C7C7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008EA2E10031458B004B64B5004561C1002E4FBE00143AB9002347 + BF00143BBC002449C7002E53CD004566D4004B61AF003D56AA0097A9E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008297DD00485A9900415C + B9003654B7002E3F7C008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A4A40000000000000000002A3B7400354476003F518C004D66B7004F67 + B9004F68BA00485DA50040518D00374677007288CB0000000000C7C7C700A4A4 + A400000000000000000000000000000000000000000000000000000000000000 + 00005068BA00374885004B62AD002345B600082EAD00042AAB00617ACB008295 + D7005974CB00042DB600042EB9000832BF003E61D500506AC4004258A5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008297DE00304381003755BB000F34 + AE00082DAB004B60A4002F4180008297DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009494 + 940000000000B7C3EE0032427D004C61A5004E69C3004B69CE003F62D6004063 + D9004064DA004365D4004B69CF004F6AC6003A497D002C3E7B00AAB9EB00D3D3 + D30096969600D3D3D30000000000000000000000000000000000000000000000 + 0000415393004B65BE002E50BF00042CB300042CB2001B3FB7008194D6008194 + D5006179CA003353BE00042CB100042DB5000832C0002E53CE004C6ACF005B74 + C900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005169BD00394B89004D65B300082FB000042B + AF00042BAE003655BD004C61A700314483000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000096969600D3D3 + D30095A5DF00959392007D8294004464CE00385DD7004368E3005175EB005275 + EB005174EA004D72EA004469E5003B60DC004963B7007D81940091908F000000 + 0000000000009F9F9F000000000000000000000000000000000093A5E4003E52 + 96003256CD001D44C8002349C900274CCA008B9FE20091A4E4008B9FE100879B + DE008498DC006A82D2002245B800042AAB00042BAF00042CB400042EB9004D6A + CB004258A20095A9E7000000000000000000283870003551AE003552B000455F + B4004964B6004B65B800546EBB005E76BC005F78C000657DC200788DC500788D + C500788DC500788DC5007287C4005F78C0005E76BC005E76BC004B65B8004963 + B5004963B5003A56B1003E59B0002D3E75000000000000000000000000000000 + 00000000000000000000546CC1004C66BC002A4EC400042EB900042DB800042D + B800042DB700042DB7000830B8003657C50035488B00A8B7ED00000000000000 + 000000000000000000000000000000000000000000009A9A9A0000000000B7C4 + EF00C7C6C500E1E1E000F0F0F00094A0C8003D5DC9002D50C400183BAD001739 + A8001738A7001D40B300284BBF003757C300D1D0D000EDECEC00DDDCDB00B1AF + AE00A4B5E80000000000B3B3B3000000000000000000000000003A519D00546D + C1002D52D100365BD3003D60D500496AD8009DAEE9009CADE80096A8E60093A6 + E5008197DF002348C300052EB700042CB200042AAB00042BAD00042CB2002F53 + C9005069BF003D54A30000000000000000002A3C760003279F00032699001032 + A300032699001032A30003279F001032A30003279F000326990003279F000326 + 9C001033A800032699001032A30003279F0003279F0003279F0003279F000327 + 9F0003279F0003279F002947AD002A3C76000000000000000000000000000000 + 000000000000566FC3003F5396002B50C800042FBE00042FBE00042FBD00042F + BD00042EBC00042EBC00042EBB000831BC004F66B100384D9600BCC8F3000000 + 0000000000000000000000000000000000000000000000000000000000003344 + 8000E7E6E600F3F3F300F7F7F700BAB9B8007580A700233F9C00425AAB00425A + AA00455CA700334EA500203B9800747FA500EBEAEA00F9F9F900EFEFEF009EA3 + B7002F3E7300000000009A9A9A0000000000000000006D85D6004F64AD005272 + DB004668DA005070DD005373DE007D95E600A8B8EE00A6B6ED00A1B2EB009EAF + E9006782DC002248C800173EC2000B34BC00042BB000042AAB00042BAC000830 + B8003F60CD004C61A90000000000000000002D3E7C000328A400042695002545 + B000042695002545B0000328A4002545B0000328A400042695000328A4000426 + 95002545B000042695002545B0000328A4000328A4000F32A8003250B5003250 + B5000F32A8000328A4002949B2002D3E7C000000000000000000000000000000 + 00007A8FDC0041559B004E69C4000430C2000430C2000430C2000430C2000430 + C2000430C1000430C100042FC000042FC0003E5FCE004E63A900364D98000000 + 00000000000000000000000000000000000000000000000000007388CB003A49 + 7C00ADB9E100FAFAFA00EBEBEA00CCCAC900A5A3A100797F9800384677003543 + 7500324172003B4B8000797F9800A6A4A300DFDEDD00EEEEEE00FBFBFA004862 + B7003F4E82005D73BE009F9F9F0000000000000000004D63AB005F7DE1004D6F + E100758FE9007691E9007792E900BBC8F400BAC8F400B8C6F300B3C2F200B0BF + F000ACBCEF00496BDA003E61D5003156CF00163DC1000831B900042CB300042A + AB00082FB1004563C70098AAE90000000000324687000D33B3000D2B8F005670 + C9000D2B8F005670C9000E34B3005670C9000E34B3000D2B8F000E34B3000D2B + 8F005670C9000D2B8F005670C9000E34B3000E34B3001B399C00304AA400304A + A4001B399C001439B5002D4EBD0032468700000000000000000000000000BDCB + F400546DC000355AD6000A37CE000D3ACE000E3ACE000E3ACD000E3ACC000E3A + CC000E3ACC000E3ACC000E3ACC000D39CB000A36C9001841CC004C6ACF005871 + C7000000000000000000000000000000000000000000A4B2E5003A4879004C66 + BF005074EA004060CC0098A4CC00C5C3C100D3D2D000A1B3ED00000000000000 + 00000000000000000000A1B3ED00D3D2D000D5D3D20097A2C8003656C2003A5F + DD00506BC8003D4D8200A4A4A4000000000000000000566FC2005E7DE6006180 + E700859DED0088A0EE0088A0EE00C2CEF600C1CDF500C0CCF500BCC9F400B8C6 + F300B5C3F3007892E6004F6FDC004466D800294ECC001940C3000932BA00042B + AC00042BAC006B82D000617ACD000000000035488C002145BD001D378D00788E + D7001D378D00788ED7002549BF00788ED7002549BF001D378D002549BF001D37 + 8D00788ED7001D378D00788ED7002549BF002549BF001C368F006B7CB6006B7C + B6001C368F002549BF003858C50035488C000000000000000000000000004B61 + B4003C61DC001440D4001541D4001B46D5001C46D4001C46D4001D47D4001C46 + D3001C46D3001D47D3001D47D3001C46D2001641D100123ED000284FD300455A + A3008A9EE400000000000000000000000000000000005B71B70042538D004765 + C8005073E8003154CA002541A000D5D4D200A1B3ED0000000000000000000000 + 0000000000000000000000000000A1B3ED009CA3BB001F3A9600274ABE00466B + E7004565D000475A9C009F9F9F0000000000000000005D77CF006684E9007590 + EC0094A9F100A3B5F300B9C7F600CBD5F800C9D4F800C7D2F700C2CEF600C0CC + F500BCC9F400AFBFF1006582E3005575DE00395DD3002A4FCC001A41C300042C + B2003252BB008598D700465FB10000000000384C92003658C8002E4696008398 + DC002E4696008398DC003B5CCA008398DC003B5CCA002E4696003B5CCA002E46 + 96008398DC002E4696008398DC003B5CCA003B5CCA0029408C00828FB900828F + B90029408C003B5CCA004262CB00384C920000000000000000006680D5005067 + B300214CDB001D49DB00234DDB002A53DC002A53DC002A53DC002A53DB002A52 + DA002A52DA002A52DA002A52D9002A52D900244DD7001F49D6001944D500556E + C5003E57A800D1DAF8000000000000000000000000003A4E9000495DA1003D5E + CC004A6DE1002548BE003751AA007382B8000000000000000000000000000000 + 0000000000000000000000000000000000003D4C8100324CA3001B3EB0004D72 + EA004063D5005066B100A4A4A40000000000000000006F89E3007893EF0094AA + F200D6DEFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D5DDFA00D1DAF900CED8 + F900C7D2F800BAC8F50097ABEE00728DE8005776DF005372DB009BADE800133B + C0003354C300425FC200364A8B00000000003E539E005A77D9005A71BD00879C + E3005A71BD00879CE3006983DD00879CE3006983DD005A71BD006983DD005A71 + BD00879CE3005A71BD00879CE3006983DD006983DD006983DD006983DD006983 + DD006983DD006782DC005371D7003E539E0000000000526DC9005B75C800466B + E800345DE6003D64E6004368E700466BE700456AE600456AE600456AE6004469 + E500456AE5004469E4004469E4004469E4004469E4004065E300385FE1002F58 + E0005876DC004B61AF00000000000000000000000000222F59004F67B500385B + D1004063D7001D3FB100425AAB00D4D4D4000000000000000000000000000000 + 00000000000000000000000000000000000038477900425AAA001032A1005174 + E9004266DC00546DBF008A8A8A000000000000000000718BE5007E99F0009EB2 + F400DCE3FB00DDE4FB00DDE4FB00DDE4FB00DCE3FB00DAE1FA00D6DEFA00D4DD + FA00C4D0F800C8D3F800C2CEF60094A9EE006481E4007B94E600A1B2EB003D5F + CE004866CC003354C20036488A00000000004158A3005C7ADD00637CCD00849B + E6006A81CE00859BE600738DE100859BE500738DE1006A81CE00738DE1006A81 + CE00859BE5006A81CE00859BE500738DE100738DE100738DE100738DE100728C + E100718BE1006C86E0005372DB004158A300000000004E67BA006380E500365F + EA00456BEB004D72EB005276EC005376EC005477EC005376EB005376EB005376 + EB005376EA005376EA005376EA005376E9005376E9005073E900496EE7003059 + E300456AE6005972CC00000000000000000000000000232F59004F67B500385B + D1004164D8001E40B200425AAB00D6D6D6000000000000000000000000000000 + 00000000000000000000000000000000000039477900465DA8001133A2005174 + E9004266DC00546DBF008A8A8A000000000000000000728DE400819BF100A5B7 + F500D6DEFB00E2E8FC00E2E8FC00E2E8FC00E1E7FC00E0E6FC00DBE2FA00D8E0 + FA00CBD6F900CED8F900C9D4F800C3CFF600758FE8009CAEED00A8B8EE004062 + D2007C92DD007289D600364A900000000000455CA9003158D900375CDA00395E + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60 + DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003B60DA003A5F + DA00395EDA00365BDA003C61DB00455CA900000000005C75CC005579F100355F + ED005478F0005E80F0006182F1006182F0006182F0006182F0006182F0006182 + EF006182EF006182EF006081EE006181EE006181EE006080ED005A7CEC004268 + E900345DE7005677E400BFCCF5000000000000000000374577004E65B200385B + CE004467DB001E41B600435CAD0093A5DE000000000000000000000000000000 + 0000000000000000000000000000000000003C4B7C00425AAB001537A8005275 + EA003F63D900526BBC00A4A4A4000000000000000000647ED100849EF200A4B7 + F600D3DCFB00D5DEFB00E2E8FC00EAEFFD00E9EEFD00E8EDFD00E5EAFD00E1E7 + FC00DFE5FB00D7DFFA00CDD7F900CDD7F800C0CCF500BAC8F400B2C1F2009FB0 + EA008A9FE3006680D7006079CA0000000000BFCCF5004967CA00335BE3002651 + E100335BE200375EE300385FE3003960E3003960E3003960E3003960E3003960 + E3003960E3003960E3003960E3003960E300385FE300385FE300375EE3002C56 + E1002550E100335BE3004B64B900BFCCF500000000006583E9005A7DF2005C7F + F2007B97F4007E99F5007D98F5007D98F5007D98F5007D98F5007D98F5007D98 + F5007D98F500829DF50086A0F500859FF500809BF5007E99F5007B97F4006384 + F3004C71F000466DEF005773CE0000000000000000005D71B90045558F004664 + C7005275E9003356CB002642A2009C9A990096A8E20000000000000000000000 + 000000000000000000000000000096A8E2007A809800203B98002B4EC000476C + E6004666CF00495C9E00A4A4A40000000000000000005D74C2007E99F10099AE + F600D8E0FB00DCE3FC00DEE5FC00E7ECFD00ECF0FE00EBF0FD00DAE1FB00CBD6 + FA00CED8FA00DAE1FA00D6DEFA00D1DAF900C5D1F700BECBF500B6C4F300A0B1 + EB0094A7E7006983D70097A9E80000000000000000004E68BF00506DD000456A + E9004F73EA005578EB005578EB005578EB005578EB005578EB005578EB005578 + EB005578EB005578EB005578EB005578EB005578EB005578EB005578EB004268 + E800446AE900506DD000BFCCF50000000000000000006D8AEA006C8BF3007491 + F4008FA7F60092A9F6008EA6F6008AA3F6008AA3F6008AA3F60086A0F500849E + F500839EF50097ADF7009BB0F7009AAFF70093AAF6008FA7F6008AA3F600718F + F400587CF200436BF0004E68C10000000000000000009FAFE3003F4D7E004B66 + BD005174E9004464CF007985AD00BEBCBA009E9C9B0096A8E200000000000000 + 0000000000000000000096A8E2009E9C9B00ABA9A8007884AA003B5BC5003A5F + DB004F6BC80042518500ACACAC0000000000000000004D67C100728CE50091A8 + F500D8E0FC00E2E8FD00E3E9FD00E2E8FD00E4E9FD00EEF2FE00E4E9FC00DBE2 + FB00E3E8FC00DEE5FB00D9E0FA00D4DDFA00C9D4F800C1CDF500BAC8F400A0B1 + EC00A0B1EA00788CCF00000000000000000000000000BFCDF600516BC4005774 + D6005E80EF006A89F0006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8C + F1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006E8CF1006B8AF0005679 + EF005774D500516BC400000000000000000000000000718CEA008EA6F6008AA3 + F6009FB3F700A3B6F800A2B6F8009AAFF70097ADF70093AAF600859FF500829D + F5008AA3F600A7B9F800AABCF800ABBDF800A5B8F800A2B6F8009CB1F7007C97 + F4006183F2004A70F0004E68C00000000000000000000000000034467F004F63 + A5004163D20099A5CC00BFBEBE00C8C6C400BCBBB900B7B5B50093A5DE00D4D4 + D400D4D4D4006C7AB000B7B5B500BDBBB900D6D4D300C2C1C10098A4CB004061 + D0005067B20034447700C7C7C700000000000000000000000000536CC500738D + E000C0CEFA00DDE4FC00E8EDFD00EBF0FD00E9EEFD00E6ECFD00E4E9FD00EDF1 + FE00EAEFFD00E3E8FC00DFE5FB00D9E0FA00CED8F900C5D1F700B7C5F400A9B9 + EF007F93D500455DAA000000000000000000000000000000000000000000C1CD + F6005876DA005F7FEA006A87EB006D8AEB006D8AEB006D8AEB006D8AEB006D8A + EB006D8AEB006D8AEB006D8AEB006D8AEB006B88EB006986EB006281EA005771 + C900C1CDF600000000000000000000000000000000006882DA009DB2F700BDCB + FA00AEBFF800B4C4F900B5C5F900ACBDF800A0B4F7008CA5F600718FF400738C + E1006F87D600C8D4FB00BCCAFA00B3C3F900B8C7F900B4C4F900AEBFF8008AA3 + F6006888F3004E73F1005671CD00000000000000000000000000000000003646 + 8200B4B3B200E8E8E700F9F9F900ECEBEB009CA8D0002642A000425BAC00425A + AB00425AAB003550A800233E9B009CA8CE00F5F4F400F8F8F700E4E3E2007D83 + 97003242780000000000000000000000000000000000000000009CAEEE005B73 + C600AEBFF800CAD5FB00E2E8FD00EEF2FE00EDF1FE00EAEFFD00E3E9FD00E9EE + FD00EAEFFD00E6EBFD00E0E6FC00DBE2FA00CED8F900C1CDF600B0C0F300AFBD + ED00596DB20097A9E80000000000000000000000000000000000000000000000 + 00005771C9005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8005771C8005771C8005771C800C1CD + F60000000000000000000000000000000000000000006179CC00809AF300B9C8 + F900BAC9FA00B3C3F900B4C4F900A6B9F80096ACF7007D98F5006D8AED005F77 + C800556EC400BAC9FA00CCD7FB00BECCFA00B4C4F900B2C2F900ABBDF800859F + F5006082F200567AF2006882DB0000000000000000000000000000000000ACBB + ED00C4C3C200D8D7D600EBEAEA00BAC6ED004262CD003255CA001D40B300183B + AD00173AAC002245B9002F52C5003E5EC900F8F8F800E7E6E600D4D3D200ACAB + A900A6B5E8000000000000000000000000000000000000000000000000006883 + DC0096ABF100B3C3F900CCD7FB00EAEFFD00EEF2FE00EDF1FE00E6EBFD00E1E7 + FD00E2E8FD00E6ECFD00E1E7FC00DBE2FA00C9D4F900B9C7F600B0C0F3007485 + C400617AD0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005570CC006F87DA008EA6 + F600CBD6FB00C5D1FA00B5C5F9009EB3F700859FF5007894F400637CCD00617C + D8007993E200859CE800B1C1F900C7D3FB00BAC9FA00B0C0F900A7B9F8007995 + F4006082F2005F7EE700AEBEF3000000000000000000B3B3B300000000000000 + 0000C6C5C300C8C7C600DFDFDE004264D3005174EA005174E8004265D9003E61 + D5003E61D4004669DD004F72E5005376EA00A6B2DB00DDDCDB00C3C2C1008EA0 + D900000000000000000000000000000000000000000000000000000000000000 + 00006883DC005E76C9007992E400A9BBF800B8C7F900C9D5FB00D2DBFB00D0DA + FB00C9D4FA00C6D2F900CED8F900C3CFF800B7C6F700A2B1E5005C72BE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005772 + CC006E88DC007A94EA007D97ED006E89E5006A83D3005871C700000000000000 + 0000000000008FA4EA00556FC7006980CF007C96EB007A95EC00738EEB00617D + DA005D76C9006B84DA00000000000000000000000000000000009A9A9A000000 + 000000000000A6B6E90038487C005064AC004D68C0004361C7003A5DD1003E61 + D5003E61D5003F60CF004463CA004D68C50049598E0034447900A6B6E9000000 + 0000B3B3B300ACACAC0000000000000000000000000000000000000000000000 + 0000000000009CAFEE005871C9007B95E80091A8F400A1B5F700ABBDF800ABBC + F700A6B8F700BDCBF900C0CDF800BCCAF7008092D300536CC1009BADEC000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005E79D6005771C8005670C7005874CD006B84DD00D3DBF900000000000000 + 0000000000000000000000000000859BE9005670C7005670C7005670C700647E + D9009FB1F0000000000000000000000000000000000000000000D3D3D3009696 + 96000000000000000000000000003A497A00445487004A5C9B005068B600526A + B8005169B9005066AF004B5E9D00455588005E74BB000000000000000000B3B3 + B3009A9A9A000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C800677ECD007089DB0096AAEE009DB1 + F200A8B9F30093A6E70091A2DF006F84CD007A91E30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009F9F9F00BDBDBD0000000000000000008598D8005065AD00344478002A36 + 60002A3661003E4F87005065AD008598D8000000000000000000BDBDBD00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9B9B0092908F0086858500BFBFBF00C0C0C000C0C0C000C5C5C500C7C7 + C700C7C7C700DADADA00DBDBDB00DCDCDC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000DCDCDC00DADADA00CACACA00C5C5C500C0C0C000C0C0C000213166001521 + 490015214900C0C0C000C1C1C100C7C7C700D2D2D200DADADA00DCDCDC000000 + 00000000000000000000000000000000000000000000283B80004F6CCD00506C + CB00506ABE00506AC000516BC500475CA5002E46920000000000000000000000 + 00000000000000000000000000002E469200516BC500506BC300506ABE00506C + CB004F6CCD004F6CCD0000000000000000000000000000000000000000000000 + 0000A5A3A200C2C0BF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003349920035447C00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006C82CD001E306E002F3F740038509D004E66B60042548F003751 + AB003751AB001E3377004E66B60038509D003F4F88001E306E006C82CD000000 + 00000000000000000000000000000000000000000000293D8400042EBC00042E + BC00042EBC00042EBC00042EBC002A408B00BBC7F20000000000000000000000 + 0000000000000000000000000000BBC7F2001B389800042EBC00042EBC00042E + BC00042EBC00042EBC0000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D54A2006271A7003D54 + A200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000203372005264A0005268B30039497D003F518D005067B4001F3E + A6001F3EA6004C60A2003F518D0039497D004963B7005264A000203372000000 + 000000000000000000000000000000000000000000002B3E8600042FBF00042F + BF00042FBF00042FBF001D399C00BBC7F2000000000000000000000000000000 + 0000000000000000000000000000000000002C438E001D399C00042FBF00042F + BF00042FBF00042FBF0000000000000000000000000000000000000000000000 + 0000A5A3A200D1D0CF00AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000657ECC00647AC5004051 + 8D008397DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000031479600465A9E002948AE004E68BC003C58B5001638A7000328 + A0000328A0002443AC003C58B5004E68BC002948AE00465A9E00314796000000 + 000000000000000000000000000000000000000000002E428D000431C5000431 + C5000431C5000431C5002148CC003A4D9300869AE10000000000000000000000 + 0000000000000000000000000000BBC8F300566CB7003358D0000431C5000431 + C5000431C5000431C50000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A8B7ED005D78CF004664 + C9004F63A4000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006F86D200253C + 85002B429000455793004C66C000042AAA00042AAA00042AAA00042AAA00092E + AC00092EAC00042AAA00042AAA00042AAA001B3EB2004C66C00045579300344C + 9C00253C85007F95DB000000000000000000000000002F4590000432C9000432 + C9001F3EA5000432C9000432C9005671C8003B4F9600889CE200000000000000 + 00000000000000000000BDC8F300354B99003358D3000432C9000432C9001F3E + A5000432C9000432C90000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D0D8F700728AD900173E + C1005871C800A8B7EE0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D0D8F700263A8000566A + AE004B5FA1004C67C4001237B400042BAF00042BAF001F42B800506BC800506B + C800516BC2003D5BC1001F42B800042BAF00042BAF001237B4004C67C400485E + A900566AAE00263A8000000000000000000000000000324893000835CC002341 + A800334A9A002442A9000835CC00254DD2005A74CB003E539A00000000000000 + 000000000000BDC9F300374E9C005B71BD000835CC000835CC002442A900334A + 9A002341A8000835CC0000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007A8FD700123B + C500375ACE004359AD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004B64B800465A9C004B68 + C9003D5CC5001B40BB00042CB4000D34B6004160C600546DC000364886003345 + 84002E41810044599F00546DC0004160C600042CB400042CB4001B40BB00294C + BF004B68C900465A9C000000000000000000000000004159B0003B53A900BCC9 + F40000000000BCC9F400384FA0001945D6001945D6003359D9004358A1008A9E + E400BDC9F400647AC5004468DE001945D600324FB400324B9F0091A6EB000000 + 0000BCC9F4003B53A90000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006D83CD00355A + D8000433CF005B76D0004259A900D1DAF8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000435DB2004659 + 99000F38C1001039C2000F38C1005168B3002B428C00A7B6EC00000000000000 + 00000000000000000000A7B6EC002B428C004766CF000F38C1001039C2005673 + D30045589800435DB20000000000000000000000000000000000000000000000 + 00000000000000000000BDC9F4003956BA00224CDA00224CDA006B84D600465A + A5003D55A6004B6EE100224CDA00224CDA00354EA10091A6EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006E84CC003E63 + DF000737D6004468E0005A72C000556FC8000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A74C7004B61 + AC001A42C8001A42C8003155CD0033488D00A7B7ED0000000000000000000000 + 0000000000000000000000000000A7B7ED005B75CB003055CD001A42C8004E6D + D4004960AB005A74C70000000000000000000000000000000000000000000000 + 00000000000000000000000000003C53A700415DBE002B54DE004368E2007189 + D9006E84CD002B54DE002B54DE00415DBE0093A7EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000667DC700607F + E8001241DE002450E100607EE2005369B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000096A9E80030499C005A72 + C300244BCE00244BCE00506FD800506AC0000000000000000000000000000000 + 0000000000000000000000000000000000004D64AF004F6FD800234ACE003D60 + D4005871C30030499C0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BECAF4004059AD003B62E5003B62 + E5003B62E5004B67CA003B55AC0094A8EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7004C63B200455EB3005E77CE007189DA005973 + CC004762B90044579B00475DA7004862B6005C77D2005E7CE2006583E7006681 + D8005970C000425BB40000000000000000000000000000000000000000000000 + 00000000000000000000000000004A63BA004A63BA004A63BA005D74C2007995 + F3002855EC002855EC002C58EC006282EF007790E20000000000000000000000 + 000000000000000000000000000000000000000000005D78D5005273E0004669 + DD003A5FDB003A5FDB006481E200000000000000000000000000000000000000 + 0000000000000000000000000000000000003E549D006481E300355BDA00395E + DB004367DD004B6DDE002D459400000000000000000000000000000000000000 + 000000000000000000000000000000000000BECCF500455DB200446AE900446A + E900446AE9006C85DE005065B3008CA1E8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006886EB006D87E0005F7AD500546EC200546F + C8005A74CB004E6DD6003B5DCD002E52CA003E62D8004568DE005778E5007994 + F1007C97F4006881DB0000000000000000000000000000000000000000000000 + 00000000000000000000000000008BA1EA006F8BEB006E8BEB007993ED006C8B + F300325EEF00325EEF00325EEF00486FF000536CBF00D2DBF800000000000000 + 000000000000000000000000000000000000000000005E7AD8005676E3004E70 + E2004368E000466AE1006986E600000000000000000000000000000000000000 + 0000000000000000000000000000000000004157A2006B86E1003E63DF004267 + E0004A6DE1004F71E20030489900000000000000000000000000000000000000 + 0000000000000000000000000000BECCF500475FB5008396D9004B70EC004B70 + EC004B70EC006081EF00879CE5005369B6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A7006282EC00839DF3007C97F3006886EA005878 + E4004E6FDE001D45CB000D36C1000F38C200395ED6005071E0006583E700869F + F20087A1F5007791EA0000000000000000000000000000000000000000000000 + 00000000000000000000000000008DA3EE005378F100496FF0004C72F1004169 + F0003D66EF003D66EF003D66EF003D66EF007087D6005873D000000000000000 + 00000000000000000000000000000000000000000000455CA700556EBF00718B + E5004D70E5004A6EE500718DEA00AABAEF000000000000000000000000000000 + 000000000000000000000000000000000000485EA8006F8BEA00496DE5005677 + E6006D88E500546DBF003E58B300000000000000000000000000000000000000 + 00000000000000000000BFCCF5008DA0DF007C97F4005D80F2006A83D700455F + BB004962BB005D80F2005D80F200708EF400586FBD008FA3E900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A700879FF000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009FB3F600839BEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000008498DF007693F4005176F1005176F1005176 + F1005176F10091A7F00099ADF10096ABF1008EA5EF008DA0E100526CC7000000 + 0000000000000000000000000000000000000000000000000000667ED5005C75 + C7006081EE006383EF006A88EE00425BAC00ADBCF10000000000000000000000 + 0000000000000000000000000000ADBCF1007690E5006A89EF006383EF007994 + F1005872C600667ED5000000000000000000000000004E69C5004A65C000BFCC + F50000000000BFCCF5004D66BD00829DF5006686F3006686F3004761BC0098AB + F000BFCCF5007089D9006686F3006686F30098AAEB005970BF0090A3EA000000 + 0000BFCCF5004A65C00000000000000000000000000000000000000000000000 + 0000A5A3A200D2D1D000AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000798ED70090A8F6005D80F2005D80F2005D80 + F2005D80F2006B81CF00506AC100506AC100506AC100506AC100566FCD000000 + 00000000000000000000000000000000000000000000000000005370CB005D73 + BE006989F2006E8CF2006A89F2006982D6003E59B100ADBCF100000000000000 + 00000000000000000000ADBCF1003E59B2007C97F4006989F2006E8CF200849E + F4005970BC005370CB000000000000000000000000004761B8008296DA004862 + BB00BFCCF5004E67BE0096A6E1006E8DF3006E8DF300778DDB0098ABF0000000 + 0000000000004C65BD00778DDB006E8DF3007F9AF5009CAEEC005C73BF00BFCC + F5004862BB008296DA0000000000000000000000000000000000000000000000 + 0000A7A5A300D2D1D000AEACAB0089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F300A0B4F600849CEC0000000000000000000000000000000000000000000000 + 00000000000000000000000000007489D1009BB0F7006787F3006787F3006787 + F3006787F300859BE900516BC400000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000728BDD005069BA006F8B + EB006E8DF3007894F4007894F4007F9AF5006B84D700465FB300ADBCF1000000 + 0000000000005D79D100465FB3006781D5007491F4007894F4007894F4007290 + F4006A88EB004F68BA000000000000000000000000004963BA007F9AF50097AD + F700A0AFE40097ADF7007F9AF5008498DE004B64BF0098ABF000000000000000 + 00000000000000000000BFCCF5004F67BF007F9AF5007F9AF5008DA5F60091A2 + DE0097ADF7007F9AF50000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A70089A1F000A5B8F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C2003A5ED6005071E0006684E70091A8 + F3009DB2F600839CED0000000000000000000000000000000000000000000000 + 00000000000000000000000000005972C600B1C1F500839EF5007D98F5007D98 + F5007D98F5008BA4F600879EE900536DC6000000000000000000000000000000 + 00000000000000000000000000000000000000000000D2DBF800425CB6006983 + D9006A82D100809BF2007E99F5008DA5F60088A2F6008BA4F6008DA5F60086A0 + F50086A0F5008EA6F6008CA5F60088A2F6008BA4F600829CF500849EF200617C + D8006882D900425CB6000000000000000000000000004B64BB0087A1F50087A1 + F5009EB3F70087A1F50087A1F5004D66C00098ABF00000000000000000000000 + 0000000000000000000000000000BFCCF5008A9EE00087A1F50087A1F5009EB3 + F70087A1F50087A1F50000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A700849DF000A4B7F70093AAF5006D8AEA005A7A + E400476ADD002047CB000D36C0000F38C200385DD6004D6FDF006280E60089A1 + F20091A8F5007E98EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005973CF00AEBEF30094ABF60086A0F50086A0 + F50086A0F50089A2F60097ADF7006C83D2000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008EA2E9004460 + BC004964C100667DCA00849EF20097ADF70097ADF70097ADF70090A8F6008DA5 + F6008EA6F60094ABF60097ADF70097ADF70093AAF60089A2F300687FCA004E6B + C8004460BC008EA2E9000000000000000000000000004C65BC008FA7F6008FA7 + F6008FA7F6008FA7F60090A2E20098ABF0000000000000000000000000000000 + 000000000000000000000000000000000000526AC20090A2E2008FA7F6008FA7 + F6008FA7F6008FA7F60000000000000000000000000000000000000000000000 + 0000A5A3A200BFBDBC00AAA7A7007691EE009CB1F50091A8F4006D8AEB005979 + E4004669DD001F46CB00143CC3002147C7004567D8005D7BE1006885E7007994 + F1007B96F3007691EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D50099AAE800A5B8F80092A9F60092A9 + F60092A9F60092A9F6009AAFF7008EA4EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004965C2006E85D20094ABF6009BB0F7009EB3F700A2B6F800A2B6 + F800A2B6F800A1B5F7009EB3F7009DB2F70095ACF700748AD5004965C2000000 + 000000000000000000000000000000000000000000004E67BE00A1B5F700A1B5 + F700A1B5F700A1B5F700B3C3F8004E68C100BFCDF60000000000000000000000 + 0000000000000000000000000000BFCDF6009BABDE00B3C3F800A1B5F700A1B5 + F700A1B5F700A1B5F70000000000000000000000000000000000000000000000 + 0000817F7E00B9B8B600C1C0BE00787F9E007A93E7007994EF006A87EA006984 + E100647ED800576DB9005468A800475DA7006981D600748DDD00778DDF00546E + C800637BCD006C85DC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000859CE9008699DD00BAC9FA00A6B9F800A6B9 + F800A6B9F800A6B9F800A6B9F800A2B6F8005771C90000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004763BF006D87DB007C96ED006A80C8006D84D20099AEF200A0B4 + F7009EB3F7008399E3006D84D2006A7FC7007491F400718ADD00405DBC000000 + 000000000000000000000000000000000000000000004F69C000A9BBF800A9BB + F800A9BBF800A9BBF800A9BBF800A0ADDF00526CC70000000000000000000000 + 0000000000000000000000000000526CC700B9C8F900A9BBF800A9BBF800A9BB + F800A9BBF800A9BBF80000000000000000000000000000000000000000000000 + 0000BFBEBC00D9D8D700E3E2E1007A7877005974CF005F77C9005E74C000556B + B800516BC200899EE500C9D4F600000000000000000000000000000000000000 + 000092A7ED005874CD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000AFBFF3007D91D600B0C0F900A1B5F700A4B7 + F800A5B8F800A2B6F8009BB0F7008AA3F6006D84D4007C93E600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008197E5004862BC005971C2005974D0006B85DB006B84D6008AA3 + F60087A1F5004965C0006B85DB005974D000627BCF004862BC008197E5000000 + 00000000000000000000000000000000000000000000556FCC005069C0005069 + C0005069C0005069C0005069C0005069C000556FCC0000000000000000000000 + 0000000000000000000000000000556FCC005069C0005069C0005069C0005069 + C0005069C0005069C00000000000000000000000000000000000000000000000 + 0000CFCDCC00EBEBEA00F8F8F8007A7877000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3DBF9006F84D000A7B8F300B1C1F500B2C2 + F500B2C2F500B1C1F500B0C0F500AABAF30093A6E8005872CA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D2DBF8008197E50000000000000000005871C300728D + EA00708CEA009DAFEE0000000000000000006B85DC00D2DBF800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A9A00959392008C8A8900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DADA + DA002F417A002834600028346000283460002834600028346000283460002834 + 600028346000283460002834600028346000283460002834600028346000CACA + CA00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000092A1D7002635640026356300C3C3C300CACACA00D3D3D300000000000000 + 0000000000000000000000000000D5D5D50090A1D5002532600025326000C8C8 + C800DADADA0000000000000000000000000000000000C2C2C200C0C0C0003345 + 7F0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0034437B0034437B0034437B0034437B0034437B0034437B0034437B003443 + 7B0033457F00C0C0C000D6D6D600000000000000000000000000000000000000 + 00002A3970000525910004208000031D7300031D7300031D7300031D7300031D + 7300031D7300031D7300031D7300031D7300031D7300031D7300031D73000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B9C6 + F100405396003F5AB6003F5AB5002A3D7D00B9C6F10000000000000000000000 + 0000000000000000000000000000B7C5F1003F5291003E58AF003E58AF00283A + 7800B7C5F100000000000000000000000000000000000000000000000000364B + 99007E93D7007D92D7007D92D7007C91D7007C91D7007C91D7007B90D7007B90 + D7007B90D7007A8FD700798FD700798FD700788ED700788ED700778DD70099A9 + E100364B99000000000000000000000000000000000000000000000000000000 + 00002D407F00637BCA005771CB006684EA006684EA006684EA006684EA006684 + EA006684EA006684EA006684EA006684EA006584EA008AA1EF00032288000000 + 000000000000000000000000000000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B50026377400000000000000000000000000BAC6F2002C40 + 83003E5AB9000F32A8000F32A800415599002B3F8000B9C6F100000000000000 + 00000000000000000000B9C6F1002A3E7D003F5AB4000F31A0000F31A0004052 + 94002A3C7B00B7C5F1000000000000000000000000000000000000000000384F + 9D008398DC008398DC008297DC008297DC008297DC008196DC008196DC008196 + DC008196DD008095DC007F94DC007F94DC007E94DC007E94DC007E94DD009EAE + E500384F9D000000000000000000000000000000000000000000000000000000 + 000030438400667ECF00536ECB005D7EEB005D7EEB005D7EEB005D7EEB005D7E + EB005D7EEB005D7EEB005D7EEB005D7EEB005D7EEB00879FF00003238D000000 + 000000000000000000000000000000000000000000003753B2000F34AF001236 + AE00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AF00283A7C000000000000000000BAC6F2002E4288004358 + A0000F34AD00042AAA00042AA9003E5BBC0042569D002D418500000000000000 + 000000000000B9C6F1002C41820041569A000F32A7000328A1000328A1003F5A + B700415598002B3F7F0000000000000000000000000000000000000000003A51 + A2008A9EE100899DE100899DE100889DE100879CE100879CE100869BE100869B + E100869BE100859AE100859AE100859AE1008499E1008499E1008499E100A2B2 + E8003A51A2000000000000000000000000000000000000000000000000000000 + 000032478A006780D3004C68C8005477EA005477EA005477EA005477EA005477 + EA005477EA005477EA005477EA005477EA005477EA00829CF000032493000000 + 000000000000000000000000000000000000000000003C58B800173CB5001D40 + B6002244B6002345B7002345B6002446B7002446B7002446B7002446B7002446 + B7002446B7002446B7002446B7002446B7002345B6002345B6002345B7002144 + B7001E41B700183DB6002A3D810000000000000000006678B5004261C800183D + BC001036B7001036B7000F35B6000A31B4001338B700405EC40032468E00BAC7 + F200BAC7F2004459A4003F5DC2001035B200042BAD00042BAC00042BAC00042A + AB000F34AE003E5BBD002F428800000000000000000000000000000000003E56 + AA0097AAEC0097AAEC000633C9000633C9000633C9000633C9000633C9000633 + C9000633C90092A7EB0092A7EB0092A7EB0091A6EB0091A6EB0091A6EB00ABBB + F0003E56AA000000000000000000000000000000000000000000000000000000 + 0000374C96006883DB003C5CC6004268E9000434D2004268E9004268E9004268 + E9004268E9004268E9004268E9000434D2004268E9007893F00003279D000000 + 000000000000000000000000000000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5002B4BB5000626910003269B00677FCF004160C8003556C5003556 + C5003254C400284CC4002F448D0000000000000000007D8DC1007D93DC001C42 + C200183EBF001A40C000193FBF00143BBC001037BB00183EBD00465CA900344A + 9200344991003F5EC6001036B700042CB400042CB300042CB200042CB200042B + B0001035B400798ED40032478C00000000000000000000000000000000004159 + AE00A1B3F200A1B3F200A1B3F200A0B3F200A0B3F2009FB2F2009FB2F2009EB1 + F2009EB1F2009DB0F2009DB0F2009CB0F2009BAFF1009BAFF1009BAFF100B1C1 + F4004159AE000000000000000000000000000000000000000000000000000000 + 00003A509A006984DF003455C4003962EA000434D3003962EA003962EA003962 + EA003962EA003962EA003962EA000434D3003962EA00728FEF000328A1000000 + 000000000000000000000000000000000000000000004C6ACD003054CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC000728960003279F0003279F002343AD006D85D5004A68CE003F5F + CC003C5DCC003155CB00314792000000000000000000384E9A007F8FC4007F95 + DF001D44C5002147C7002248C7001E44C4001B42C300163DC1004564CD004860 + AD00485FAD00153CBE000831BA000730B900042DB700042DB700042DB7001037 + B9007A90D8007C8BBE00BAC7F20000000000000000000000000000000000425C + B300A9BBF600A9BBF6001541D3001541D3001541D3001541D3001541D3001541 + D3001541D3001541D3001541D3001541D3001541D3001541D300A3B6F600B8C7 + F800425CB3000000000000000000000000000000000000000000000000000000 + 00003C53A1006985E2002B4EC300305BEA000534D400305BEA00305BEA00305B + EA00305BEA00305BEA00305BEA000534D400305BEA006C8AF0000429A6000000 + 000000000000000000000000000000000000000000005471D4003C5FD2004969 + D3004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6AD2004B6A + D2003D5BC100072CA400072CA400072CA400072CA4002646B100758CD9004B6A + D2004969D2003C5FD100344A9700000000000000000000000000BDC9F4003C53 + A200839AE5002C52D2002A50D1003055D2002E53D1002C52D100264DCE002D52 + CF002B50CF001E46CB001C44CA001A42C900143DC600103AC500173FC700808F + C500394F9B00BCC8F3000000000000000000000000000000000000000000455F + B600B6C6F900B6C6F900244DD600244DD600244DD600244DD600244DD600244D + D600244DD600244DD600244DD600244DD600244DD600244DD600B1C1F900C0CE + FA00455FB6000000000000000000000000000000000000000000000000000000 + 00004259AD006987EA001B41C1001E4DEA000535D6001E4DEA001E4DEA001E4D + EA001E4DEA001E4DEA001E4DEA000535D6001E4DEA006081F000042BB0000000 + 000000000000000000000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1005571CF001435 + A2001035AF001035AF001035AF001035AF001035AF001035AF001035AF00859B + E3006C87E3005373E0003A51A30000000000000000000000000000000000BDCB + F4008393CD00859CE7003056D600375CD800365BD700355AD6003056D5002E54 + D4002C52D300274ED100254CD000234BD0001942CC001E46CE007E95E2003A52 + A000BDC9F4000000000000000000000000000000000000000000000000004660 + B700BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9FA00BAC9FA00B9C8F900B9C8 + F900B9C8F900B9C8F900B8C7F900B8C7F900B7C7F900B7C7F900B7C7F900C4D1 + FA004660B7000000000000000000000000000000000000000000000000000000 + 0000455EB2006987ED00133ABE00153CBF000535D7001546EA001546EA001546 + EA001546EA001546EA001546EA000535D7001546EA005A7DF100042DB6000000 + 000000000000000000000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900173496001336 + A9001336A900153AB500153AB500153AB500153AB500153AB5001439B1003250 + B4008B9FE3006885E8003C55A800000000000000000000000000000000000000 + 00004059AB008495D000869DEA003A5FDC003F64DD003D62DC003A5FDB00385D + DB00355BDA003157D7002E55D6002C53D600254DD4008097E5008292CB00BDC9 + F400000000000000000000000000000000000000000000000000000000004760 + B800C1CEFA00C2CFFA003358D7003358D7003358D7003358D7003358D7003358 + D7003358D7003358D7003358D7003358D7003358D7003358D700BCCAFA00C8D4 + FB004760B8000000000000000000000000000000000000000000000000000000 + 00004761B8006988F1000B34BD009DB2F6000535D7000C3FEA000C3FEA000C3F + EA000C3FEA000C3FEA000C3FEA000535D7000C3FEA005478F000042EBA000000 + 000000000000000000000000000000000000000000007591EF006887EE007B96 + F000819BF000819BF000819BF000819BF000819BF000819BF000142F8C00142F + 8C00142F8C001A3FBA001A3FBA001A3FBA001A3FBA001A3FBA002949B400142F + 8C00324B9D008DA3EB004058AE00000000000000000000000000000000000000 + 000000000000BECCF500455EB5006483EA005275E8004F72E7004B6FE600496D + E500466BE4004267E3004166E3004267E2007C8FD100425BB000BDCBF4000000 + 0000000000000000000000000000000000000000000000000000000000004962 + BA00CBD6FB00CBD6FB004164D8004164D8004164D8004164D8004164D8004164 + D8004164D8004164D8004164D8004164D8004164D8004164D800C7D3FB00CFD9 + FB004962BA000000000000000000000000000000000000000000000000000000 + 00004A64BC006989F300042DB6009AAFF3002242AE002245BA000538E4000538 + E4000538E4000538E4000538E4000434D2000538E4004F73EB00042EBC000000 + 000000000000000000000000000000000000000000007E99F500708EF400829D + F50094ABF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF7002448BF002448BF002448BF002448BF002448BF00B7C7F90099AF + F70091A8F6007E99F500445DB400000000000000000000000000000000000000 + 000000000000BFCCF5004861BA006887EE00597BEC00597BEC005578EB005275 + EA005074EA004C70E800496EE8004B6FE7005670CB00465EB400BFCCF5000000 + 0000000000000000000000000000000000000000000000000000000000004A63 + BB00D0DAFB00D1DBFB00D0DAFB00CFD9FB00CFD9FB00CFD9FB00CED8FB00CED8 + FB00CED8FB00CDD8FB00CDD8FB00CDD8FB00CCD7FB00CCD7FB00CCD7FB00D2DB + FB004A63BB000000000000000000000000000000000000000000000000000000 + 00004B65BD006989F300042CB4009AAEF2009BADEC009AAEF2000537E1000537 + E1000537E1000537E1000537E1000433D0000537E1004F73EA00042EBC000000 + 000000000000000000000000000000000000000000007C97F4006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F8002646B3002646B3002646B3002646B3002646B300BECCFA00A1B5 + F70095ACF700819BF500455EB600000000000000000000000000000000000000 + 0000BFCCF5004B65BE005975D300577AF0005E80F0006384F1005E80EF005C7E + EF00597CEE005477ED005276ED004E73EC00597BEC005973CF004861B9000000 + 0000000000000000000000000000000000000000000000000000000000004B64 + BC00D5DEFC00D5DEFC005070D9005070D9005070D9005070D9005070D9005070 + D9005070D9005070D9005070D9005070D9005070D9005070D900D0DAFB00D5DE + FC004B64BC000000000000000000000000000000000000000000000000000000 + 00004C66BD006989F300042CB2009AAEF1000433CE000537DE000537DE000537 + DE000537DE000537DE000537DE000433CE000537DE004F72E800042EBC000000 + 00000000000000000000000000000000000000000000ADBEF8009AAFF700A0B4 + F700A7B9F800ACBDF800ADBEF8009FB3F700A4B7F800A6B9F800A7B9F800A7B9 + F800A8BAF800223C9000223C9000223C9000223C9000223C9000C0CEFA009FB3 + F70093AAF600809BF5004660B70000000000000000000000000000000000BFCD + F6005B76D5006183F200577BF2007693F4007894F4007592F400718FF4006E8D + F3006B8AF3006888F3006586F3006384F3005277F1004A70F0005C7FF2004D67 + C000BFCDF6000000000000000000000000000000000000000000000000004D66 + BD00DDE4FC00DDE4FC005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7B + DA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA005F7BDA00D9E1FC00DBE2 + FC004D66BD000000000000000000000000000000000000000000000000000000 + 00004E68BF006989F300042BAD000535D9000432CA000535D9000535D9000535 + D9000535D9000535D9000535D9000432CA000535D9004F71E300042EBC000000 + 000000000000000000000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ABBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B900000000000000000000000000BFCDF6004E68 + C1006384F3005C7FF2006C8BF300829DF500819BF5007F9AF5007290F400718F + F4006F8DF3006F8DF3006F8DF3006C8BF3006485F300577BF2004E73F1005D78 + D6004E68C100BFCDF60000000000000000000000000000000000000000004E67 + BE00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6FC00E0E6FC00E0E6FC00E0E6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DEE5FC00DDE4FC00DDE4FC00DFE6 + FC004E67BE000000000000000000000000000000000000000000000000000000 + 00004F69C0006989F300042AAB000535D6000431C7000535D6000535D6000535 + D6000535D6000535D6000535D6000431C7000535D6005072E200042EBC000000 + 000000000000000000000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB000000000000000000BFCDF6004F69C2005C77 + D6005F81F2007290F400849EF5008CA5F60089A2F600829DF5006B8AF300A3B6 + F800A3B6F8006A8AF3007391F4007592F400718FF4006989F3005A7DF2005D80 + F2005A76D6004F69C20000000000000000000000000000000000000000004F68 + BF00E5EAFD00E5EAFD006D87DB006D87DB006D87DB006D87DB006D87DB006D87 + DB006D87DB006D87DB006D87DB006D87DB006D87DB006D87DB00E1E7FD00E1E7 + FD004F68BF000000000000000000000000000000000000000000000000000000 + 0000506AC1006989F300042AA9000434D3000431C5000434D3000434D3000434 + D3000434D3000434D3000434D3000431C5000434D3004F70DF00042EBC000000 + 000000000000000000000000000000000000000000007C97F4005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1005075F1005075F1005075F1005075F1005075F1005075 + F1005075F1005075F1004B65BC000000000000000000778EDB005B7EF2005579 + F10086A0F50098AEF700A0B4F70091A8F6007D98F5006888F3008FA1E000506A + C400506AC40095ACF7005B7EF2006B8AF300829CF500809BF5007995F4005378 + F1003E67F0005075F100506AC40000000000000000000000000000000000516A + C100EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E6EB + FD00516AC1000000000000000000000000000000000000000000000000000000 + 0000526CC3006989F3000328A4000433CE000430C1000433CE000433CE00B2C0 + F000B2C0F0000433CE000433CE000430C1000433CE004F6FDC00042EBC000000 + 00000000000000000000000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C10000000000000000008B9FE0008FA7F600577B + F20089A2F60099AFF7009EB3F700829CF5006C8BF3009AAFF700516BC400BFCD + F600BFCDF6008EA1E00095ACF7005D80F2007E99F500819BF5007A96F4005479 + F1003E67F00086A0F500516BC40000000000000000000000000000000000526B + C200EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00ECF0 + FE00ECF0FE00EBF0FD00EBF0FD00C8CCD800C8CBD600C8CBD600C8CCD700C6CA + D700526BC2000000000000000000000000000000000000000000000000000000 + 0000536DC4006989F3000328A2000432CB00042FBF000432CB000432CB000432 + CB000432CB000432CB000432CB00042FBF000432CB004F6FDA00042EBC000000 + 0000000000000000000000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC50090A2E1009AAF + F7007F9AF5008EA6F60091A8F6006E8DF3009BB0F7008FA2E100BFCDF6000000 + 000000000000526CC5008FA1E10095ACF7006F8DF3007693F400718FF4005378 + F1008DA5F6008D9FE100BFCDF60000000000000000000000000000000000526C + C300F0F3FE00F0F3FE00F0F3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00EFF3FE00EEF2FE00EEF2FE00CBCED800516BC100526CC300526CC300526C + C300526CC3000000000000000000000000000000000000000000000000000000 + 0000546EC5006989F3000328A0000431C800042EBC000431C8000431C8000431 + C8000431C8000431C8000431C800042EBC000431C800506FD800042EBC000000 + 000000000000000000000000000000000000000000008DA5F6006787F3006787 + F3006787F3006787F3006989F3008597D700546DC10091A5EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600536E + C7009DB2F7006082F2006082F20090A3E100536EC700BFCDF600000000000000 + 00000000000000000000BFCDF600536EC70095ACF7004F74F1004E73F10091A3 + E100536EC700BFCDF6000000000000000000000000000000000000000000546E + C500F4F7FE00F5F7FE00F5F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7FE00F4F7 + FE00F4F7FE00F3F6FE00F3F6FE00CFD1D800FAFBFF00FAFBFF00F5F7FD00536E + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005670C7006888F30003269C000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C200506ED400042EBC000000 + 00000000000000000000000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F60092A4E20092A9F60092A9F600556FC700C1CDF60000000000000000000000 + 0000000000000000000000000000C1CDF60090A3E2008DA5F6008CA5F600556F + C700C1CDF600000000000000000000000000000000000000000000000000556F + C600F5F7FE00F7F9FE00F7F9FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F5F7FE00F5F7FE00D0D2D800FAFBFF00F5F7FD00B7C2E800C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 00005771C8006586F30003269900042FC000042FC000042FC000042FC000042F + C000042FC000042FC000042FC000042FC000042FC0004F6DD2000430C2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005670C8008DA1E3008DA1E300C1CDF6000000000000000000000000000000 + 0000000000000000000000000000000000005670C8008DA1E3008DA1E300C1CD + F600000000000000000000000000000000000000000000000000000000005670 + C700F5F7FE00F7F9FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F7F9FE00D2D4D800F4F6FD00B7C3E8005670C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005771C8005D80F20003259700032597000325970003259700032597000325 + 970003259700032597000325970003259700032597003F57A6000536D9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005771 + C9005871C8005871C8005871C8005871C8005871C8005871C8005871C8005871 + C8005871C8005871C8005871C8005871C8005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005A73C9005A73C9005A73C9005A73C9005A73C9005A73 + C9005A73C9005A73C9005A73C9005A73C9005A73C9005A73C9005771C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C7C7C700C0C0C000AEBA + E40028345E0028345E0028345E0028345E0028345E0028345E0028345E002834 + 5E0028345E0028345E0028345E0028345E0028345E0028345E0028345E004053 + 9300AEBAE400C0C0C000D6D6D600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002A3B78002F448B00B9C6F1000000000000000000000000002F44 + 8B002A3B78002F448B0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C5CEF3006A7FC8002A3A75002433 + 6900243369002A3A7500364D95006A7FC8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E42 + 86002445B400042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042A + AA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00042AAA00586F + BA002D3F7F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000374887006D84CF005B73C7007286C800566EBE000E30A300334FB1008496 + D5006D84CF005D74C10000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000004256 + 9B008E9ED10095A7E2009FB0E900A1B1E9009DADE40099A9DF008E9ED3008999 + CD008595C7007C8BBB007785B5007381AF007180B2007A8ABF008191C3004256 + 9B00000000000000000000000000000000000000000000000000000000003043 + 8600042CB30003279D0003238F0003238F0003238F0003238F0003238F000323 + 8F0003238F0003238F0003238F0003238F0003238F0003238F0003238F00506C + CA00304386000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000364C98009EADDD008492C30031448600506CCA00042CB400314486008391 + C3009EADDD008291C30000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000002736 + 6E00708ADF007993E70091A7F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC8002736 + 6E00000000000000000000000000000000000000000000000000000000003448 + 8F00042FBD00E0E6F700DFE4F600DFE4F600DEE3F600DEE3F600DDE2F600DDE2 + F600DCE2F600DAE0F500DAE0F500DAE0F500D9DFF500D9DFF500D8DEF400506E + D10034488F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BAC7F20033478B00374D9C00BAC7F2004F6CCE00042EB90033478B00374D + 9C0033478B00374D9C0000000000000000000000000000000000000000000000 + 0000334686006E7AA6004C65B8000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000002A3A + 74006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4002A3A + 7400000000000000000000000000000000000000000000000000000000003B52 + 9F000433D000C5D0F400C4CFF400C2CDF300C1CDF300C0CCF300BECAF200BECA + F200BDC9F200BBC8F200BBC8F200B9C6F100B7C5F100B6C4F100DAE1F7005071 + DE003B529F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000384D9600384D9600384D9600384D9600384D + 9600384D9600384D9600384D9600384D96001F46CB000C37C600384D96000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100BCBFC900A6ABBA00808DB6001438AE00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB10000000000000000000000000000000000000000003042 + 8200718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4003042 + 8200000000000000000000000000000000000000000000000000000000003F57 + A8000536D900C6D1F600C6D1F600C4D0F600C4D0F600C3CFF600C1CDF500C0CC + F500BFCCF500BECBF500BDCAF500BCC9F500BAC8F500B9C7F500DCE3F9005073 + E5003F57A8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000617BD4001F44C1002C50C6005F79D3005F79 + D3005F79D3005F79D3005F79D3006079D3005A78DC00133ECD003754BA000000 + 0000000000000000000000000000000000000000000000000000A8B7ED005665 + 9800B2B6C300ADB1BF00A9AEBE004A63B7001439B200042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000000000003346 + 8800708ADF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE00415FC4003346 + 880000000000000000000000000000000000000000000000000000000000435B + B0000538E300CAD5F900C9D4F900A4A9BC00A3A8BC00A3A8BC00A2A8BC00C3CF + F800C2CFF800BFCCF700BECBF700BDCBF700BCCAF700BBC9F700DDE4FA004F73 + EB00435BB0000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E7CE0002C53D7003D52A0003D52A0003D52 + A0003D52A0003D52A0003D52A0003D52A0005670CA00163BB4003D52A0000000 + 0000000000000000000000000000000000000000000000000000455BAE00A2A9 + BF00B1B6C300B1B6C300B1B6C3008794C0004B65BB00153AB700042DB600042D + B600042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD000000000000000000000000000000000000000000364A + 8F007790E1007C95E90092A8F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002D4AAC00516CC800364A + 8F00000000000000000000000000000000000000000000000000000000004861 + B800053AEB00CFD9FB00CED8FB00A6ABBD00A6ABBE00A6ABBE00A4A9BD00A4A9 + BD00A3A9BD00A2A8BD00A2A8BD00A1A7BD00C1CEFA00C0CEFA00DFE6FC005075 + F1004861B8000000000000000000000000000000000000000000374E9B002C3F + 7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F7E002C3F + 7E002C3F7E00374E9B00000000004259AB008099EB005879E7004960AF000000 + 00000000000000000000000000000000000000000000788DD7008D98BA00CACE + D900C1C5D300C1C5D300C1C5D300C1C5D300BDC2D10097A4CE00274CC500173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000000000000000000000D1DA + F7003D529D003D529D003D529D003D529D003D529D003D529D003D529D003D52 + 9D003D529D003D529D003D529D003D529D003D529D003D529D003D529D00D1DA + F700000000000000000000000000000000000000000000000000000000004962 + BA00053AEB00D1DBFB00D0DAFB00CFD9FB00CED8FB00CDD8FB00CBD6FB00CAD5 + FB00C9D5FB00C7D3FB00C6D2FA00C6D2FA00C4D1FA00C3D0FA00E1E7FD005075 + F1004962BA00000000000000000000000000000000000000000032468C00506D + CF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506DCF00506D + CF00506DCF0032468C00000000004C66C0008195D8004462C700445DB0000000 + 000000000000000000000000000000000000000000004963B600B6BCD100CBCF + DB00C6CAD800C6CAD800C6CAD800C6CAD800C6CAD800C4C9D8006780D1003256 + CD00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B600000000000000000000000000000000005E77 + CD0092A4E00094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC00899A + D5008596CF007C8CC3007787BC007282B6007182BB007A8CC9008697D3005E77 + CD00000000000000000000000000000000000000000000000000000000004A64 + BB000E41EC00D5DEFC00D4DDFC00A8ADBD00A8ADBD00A8ADBD00A7ACBD00A6AC + BD00A6ACBD00A6ABBD00A5AABD00A5AABD00C8D4FB00C7D3FB00E3E9FD005479 + F1004A64BB000000000000000000000000000000000000000000384E99004F6F + DA000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB00384E9900000000005069C4003D5DC9003156D300466AE2000000 + 000000000000000000000000000000000000000000003D54A200D6D9E200CED2 + DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00CED2DF00A7B3DB007088 + D7003D60D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002C52D2003257D3003D54A20000000000000000000000000000000000435B + AC006F89DF007892E8008FA6F10096ABF1008AA0EA007E95E200657ED0005972 + C6004E68BC003751A5002B4498001F388C001C3792002D4AAC00506BC800435B + AC00000000000000000000000000000000000000000000000000000000004C66 + BD002553EE00DDE4FC00DDE4FC00ACB0BE00ACB0BE00ACB0BE00ABB0BD00ABB0 + BE00ABB0BE00A9AEBD00A9AEBD00A9AEBD00D1DBFB00D0DAFB00E7ECFD005E80 + F2004C66BD000000000000000000000000000000000000000000455EB5004F74 + EF0098ABEA005474DD005474DD00445EB400445EB4005474DD005474DD00435D + B100053AE900455EB50000000000516CC9008B9EDE00536FCE004B65BC000000 + 000000000000000000000000000000000000000000004158A600DFE2EB00D8DC + E900DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00DADEEA00D8DD + EA00B6C1E7005373DF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A600000000000000000000000000000000004A63 + BA00708AE000859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004361C4004A63 + BA00000000000000000000000000000000000000000000000000000000004D67 + BE00305CEE00E1E7FD00E0E6FC00DFE6FC00DEE5FC00DDE4FC00DCE3FC00DBE2 + FC00DAE2FC00D8E0FC00D8E0FC00D7DFFC00D6DFFC00D5DEFC00E9EEFD006485 + F3004D67BE0000000000000000000000000000000000000000004761B8005176 + F1009AADEC005575DE005575DE00455FB400455FB4005575DE005575DE00455F + B300073CEB004761B80000000000526DC9004D6BCE004366D9005577E8000000 + 00000000000000000000000000000000000000000000435BAB00E3E6EF00DCE0 + ED00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4EF00E0E4 + EF00DDE1EF008CA1E8005F7EE4005173E3005173E3005173E3005173E3005173 + E3004F71E3004267E000435BAB00000000000000000000000000000000004C66 + BD00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004461C4004C66 + BD00000000000000000000000000000000000000000000000000000000004E68 + BF003C65EF00E4E9FD00E4E9FD00B0B3BE00B0B3BE00AFB3BE00AFB3BE00AFB3 + BF00AEB2BE00ADB1BE00ADB1BE00ACB0BE00DAE2FC00D9E1FC00EBF0FD006989 + F3004E68BF0000000000000000000000000000000000000000004A63BA00567A + F200A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC00A0B1EC0094A2 + D2001546EC004A63BA00000000004D67BE0099AEF6007995F4005971C3000000 + 00000000000000000000000000000000000000000000475EB400E6E9F200E2E6 + F200E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8F300E5E8 + F300E5E8F300C3CDF00095A9EC006A87E9005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB400000000000000000000000000000000004D67 + BE00718BDF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C5004D67 + BE0000000000000000000000000000000000000000000000000000000000516A + C1005378F100EAEFFD00EAEFFD00B4B7BE00B3B6BE00B3B6BE00B2B5BE00B2B5 + BE00B2B5BE00B2B5BF00B2B5BF00B0B3BE00E2E8FD00E1E7FD00EFF3FE007491 + F400516AC10000000000000000000000000000000000000000004E67BE006283 + F2009FABD3006174B5006174B5006174B5006174B5006174B5006174B5005F73 + B500325EEF004E67BE0000000000556FCC005B76CE005573D9006382EA000000 + 000000000000000000000000000000000000000000007790E100A7B3DC00EBEE + F900EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0FA00EDF0 + FA00EDF0FA00EDF0FA00EBEFFA00D0D9F8007E99F1007390F0007390F0007390 + F0006988EF006E8CF0007790E100000000000000000000000000000000006680 + DA0096A7E4009EB0EB00A6B7F000A8B8F000A4B4EC00A0B0E80096A6DE0093A2 + D9008E9ED4008595CA008191C4007D8DC0007C8CC3008294CE00899BD8006680 + DA0000000000000000000000000000000000000000000000000000000000526B + C2005F81F200ECF0FE00ECF0FE00EBF0FD00EBF0FD00EAEFFD00E9EEFD00E8ED + FD00E7ECFD00E6ECFD00E6ECFD00E6EBFD00E5EAFD00E4E9FD00F1F4FE007995 + F400526BC20000000000000000000000000000000000000000005069C1006787 + F300B2C0ED008399E2008399E2006B7CB7006B7CB7008399E2008399E2006779 + B4004068F0005069C10000000000506AC100A5B8F70088A2F6005F76C6000000 + 00000000000000000000000000000000000000000000BFCDF6006C81CA00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4FD00F1F4 + FD00F1F4FD00F1F4FD00F1F4FD00EFF2FD00AFBFF8008AA3F500819BF5007E99 + F500718FF4007E98F100CED8F70000000000000000000000000000000000D3DB + F900516AC100516AC100516AC100516AC100516AC100516AC100516AC100516A + C100516AC100516AC100516AC100516AC100516AC100516AC100516AC100D3DB + F90000000000000000000000000000000000000000000000000000000000536C + C4006B8AF300EFF3FE00EFF3FE00EEF2FE00EDF1FE00EDF1FE00ECF0FE00EBF0 + FD00EBF0FD00EAEFFD00E9EEFD00E8EDFD00E7ECFD00E7ECFD00F3F6FE007E99 + F500536CC4000000000000000000000000000000000000000000526CC3006B8A + F300B8C5EE0090A3E40091A4E4007585B9007585B90091A4E40090A3E4006E7E + B5004A70F000526CC300000000005671CD009EADDF007086D000516BC2000000 + 00000000000000000000000000000000000000000000000000005975D100CAD1 + ED00F2F5FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DAE2FC00B6C6F90095ACF700829C + F500809BF500768DDD0000000000000000000000000000000000000000006882 + DB0094A6E40094A8EC009EB1F300A1B4F3009CAEED0098AAE8008EA0DC008A9B + D6008697D0007C8CC3007787BC007282B6007182BB007A8CCB008899D8006882 + DB0000000000000000000000000000000000000000000000000000000000556F + C600819BF500F2F5FE00F2F5FE00DADDE500D9DCE400D9DCE400D8DBE400D8DB + E400D8DBE400D7DAE400D7DAE400D6D9E400E0E4F000EDF1FE00F6F8FE0087A1 + F500556FC60000000000000000000000000000000000000000005670C7006A8A + F3005A7DF2006586F3006B8AF3006F8DF3006F8DF3006D8CF3006586F300597C + F200476EF0005670C70000000000546DC400B1C1F80098AEF700647BCA000000 + 000000000000000000000000000000000000000000000000000000000000607A + D700F4F6FD00F4F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F5F7FE00F4F7FE00E0E6FC009FB2 + F500758AD500607AD7000000000000000000000000000000000000000000546E + C5006A84DE00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004260C500546E + C500000000000000000000000000000000000000000000000000000000005670 + C70088A2F600F3F6FE00E9ECF3008E8C8D008986860089868600898686008986 + 860089868600898686008986860089868600BABBC100E5E8F300F7F9FE008BA4 + F6005670C70000000000000000000000000000000000000000005871C8006C8A + ED00809AEF00859EF000889FF00089A1F00089A1F00089A1F000849DF0007F99 + EF007A95EE005871C800000000005973CF00A8B5E0007F92D200556EC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D6DCF200F4F7FE00F5F7FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8 + FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F6F8FE00F3F6FE00ACBA + E800546FCA00000000000000000000000000000000000000000000000000556F + C6006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004562C500556F + C600000000000000000000000000000000000000000000000000000000005771 + C8008DA5F600F5F7FE00E1E3EA00EEEEEF00FDFDFD00FDFDFD00FDFDFD00FDFD + FD00FDFDFD00FDFDFD00FDFDFD00FDFDFD00A09FA100DFE2EA00F8FAFE008CA5 + F6005771C80000000000000000000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000005974CF007C8FD1007A91DC007D97EE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005C74C900D8DDF200F4F6FD00F6F8FE00F7F9FE00F8FAFE00F8FAFE00F8FA + FE00F8FAFE00F8FAFE00F8FAFE00F8FAFE00F6F8FE00F5F7FE00F4F6FD005B74 + C900BFCDF6000000000000000000000000000000000000000000000000005670 + C7006D88DF00859CEA0097ACF2009AAEF1008DA3EB008198E3006880D1005C75 + C7005069BC003851A5002C45990020398C001E399300324EAE004663C5005670 + C70000000000000000000000000000000000000000000000000000000000728C + E20093A8F0009BAFF20099ABE900B3B2B400B5B3B200ABA9A700ABA9A700ABA9 + A700ABA9A700ABA9A700ABA9A700B5B3B200919BBB0099ABE9009AAEF200748A + D8006B85DE000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B0C0F9009BB0F7005871C8005871C8005871 + C8005871C8005871C8005871C8005871C800B3C3F900A6B9F8005871C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900CDD4EF00F4F6FD00F6F8FE00F5F7FE00F5F7 + FE00F5F7FE00F5F7FE00F6F8FE00F5F7FE00CDD4EF007E91D300627DD9000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9006F89DF007993E70090A6F10098ADF1008CA2EB007F96E200667FD0005A73 + C6004F68BC003751A5002B44980020398C001D3892002F4CAD00556FC9005872 + C900000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C900A1A1A700EDECED00F4F4F300E8E8E700E8E8 + E700E8E8E700EBEBEA00F4F4F300EDECED006277BF005872C9005872C9006B85 + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000ABBCF400B9C7F600ACBBF000A5B6EF00A5B6 + EF00A5B6EE00A5B6EF00A5B6EF00A7B6EF00BAC9FA00A4B7F8007E97E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D5007489D100AFBBE500F3F6FD00F3F6 + FD00F3F6FD00F3F6FD00D5DCF200AFBBE5005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000006B85 + DE0096A7E5009DAFEB00A6B7F000A9B9F100A5B5ED00A1B1E80098A8E00094A3 + DA00909FD5008696CB008191C5007E8EC1007E8EC5008494CF008A9CDA006B85 + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B1B1B1009C999800ABABAA00EDECEC00E4E3 + E300E4E3E300D8D7D600ABABAA00959391000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900ABBCF400ABBCF4005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009F9E9D009F9C + 9B009F9C9B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA0098A8DC006075BD00455BA3003B4C8B003A4B + 8900394B88003849850042579C005C71B700C8C8C800D2D2D200DADADA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009BAFEC004B61AF007787C000A0ABD400BAC5EA00B5C1 + E700B1BDE500ACB9E20092A0CF006E7EB600465EB000A3B4EC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000859AE000344991003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F5190003F5190003F5190003F5190003F5190003F5190003F5190003F51 + 90003F51900030468E0000000000000000000000000000000000000000000000 + 0000465FB40095A1CD00DCE1F100BBC8F100AABAEE00A7B7ED009CAEE90094A7 + E8008CA1E500889DE4007991E0006882DC00C8D3F800CED7F500929EC90096A9 + E800000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBEED004C5D9500364E9D00364E9D00364E9D00364E + 9D00364E9D00A3B2E50000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004D64B6002A3B78002A3B + 7800344B960000000000344B96002A3B78002A3B78002A3B78002A3B78002A3B + 78002A3B78002A3B78002A3B78002A3B78002A3B7800344B9600000000002A3B + 78002A3B78002A3B7800000000000000000000000000344A96005C72BF00506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED300506ED300506ED300506ED300506ED300506ED300506ED300506E + D300506ED3005C72BF0000000000000000000000000000000000000000008EA2 + E800C5CAE000E9EDFA00D7DEF500C4CEF100BBC7EF00ADBCEC0092A5E500889D + E2007D94DF008096E0008096E0009CAEE900AFBFF400BAC8F600E3E8FA003E51 + 9400859AE1000000000000000000000000000000000000000000000000000000 + 000000000000B9C8F20040529200324FB0000C2FA10003279F0003279F000327 + 9F002947AD00788DD80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006E7CAC00ACB6DC00A8B5 + E0002D3F7F00000000002D3F7F00A5B3E100A4B2E000A4B2E000A4B2E000A3B1 + E000A3B1E000A3B1E000A2B0DF00A2B0E000A2B0E0002D3F7F0000000000A1B0 + E000A0AFDF00A5B1DA005067BA000000000000000000364C9700506FD8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C8000431C8000431C8000431C8000431C8000431C8000431C8000431 + C8000431C800506FD800000000000000000000000000000000009DAFED004860 + B200F2F4F900E2E7F500DBE0F400C4CEEE00B5C1EA00ADBBE9009FAFE50095A7 + E2008C9FE000879BDE007B91DC00ADBDF000BBC9F600D3DCF900D4DCF900B9C1 + DE003D50940096A9E80000000000000000000000000000000000000000000000 + 0000BAC7F300425496004C60A8000C31A9000429A6000429A6000429A6000429 + A600193CAE004C61B00000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000ACBAE800899DDF00A7B6 + E700546CC10000000000546CC100A5B4E600869ADE00869ADE008499DD008499 + DD008499DD008398DD008398DD008297DD006C7BAF00546CC100000000006B7A + AF00A0B0E5007F94DC0033478D0000000000000000003F57A7005072E4000535 + D9000535D9000535D9000535D9000535D9000430C3000430C2000430C2000430 + C2000430C2000430C2000430C2000430C3000535D9000535D9000535D9000535 + D9000535D9005072E400000000000000000000000000506BC80098A5CF00ECEF + FA00F0F1F600F0F1F400E5E8F100D2D8EC00C4CCE800B8C2E500A2B0DF0099A9 + DD0090A1DA00899BD900B4C2EE00C1CDF500DCE3F900D7DFF900BFCAED00A6B5 + E600C8D1F0008492C2000000000000000000000000000000000000000000BAC9 + F3005066B3003153C3000D34B9000A32B9000A32B9000A32B9000A32B9000A32 + B9000A32B9004E61A200889DE300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000AFBDEC008DA1E300AEBC + EC00000000000000000000000000B0BEEA008A9FE3008A9FE300889DE200889D + E200879CE200879CE300869BE200869BE2005667A60000000000000000005869 + A700AAB8E8008399E200374B95000000000000000000435CAF005074EA000638 + E1000638E1000638E1000638E1000E3EE2003C60D6000533CA000533CA000533 + CA000533CA000533CA000533CA003C60D6000638E1000638E1000638E1000638 + E1000638E1005074EA000000000000000000000000005B71B900DEE3F200DAE0 + F600E6E9F400EAECF000EBECF000D5DAE900CAD0E600C6CDE700C0C9E700B8C2 + E400B2BDE300AAB7E300CED7F600C6D1F500DDE3F900C1CBEC00AAB8E400A9B8 + E8007B91DA0097A7D90099ABEA00000000000000000000000000BCCAF400455A + A500395BCC00163EC400133BC300133BC300133BC300133BC300133BC300133B + C300133BC3004E66B700556DC200000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B2C0F00094A8EA00B0BF + EF005B74CA00000000005B74CA00AFBEEF0090A4E80090A4E8008FA4E8008FA4 + E8008FA4E8008EA3E8008CA1E7008CA1E7007381BA005B74CA00000000007483 + BB00AABAED00899FE7003A509C0000000000000000004760B700567AF0001445 + E9001445E9001445E9001445E9001B4AEA008199E900889EE900889EE900889E + E900889EE900889EE900889EE9008199E9001445E9001445E9001445E9001445 + E9001445E900567AF000000000000000000000000000AFBADD00D5DDF700CAD3 + F200D7DCEF00E0E4EF00E6E8EC00DDE0E900D9DDEA00C1C9E600627CD0005B75 + CC005771CA008FA1DC00D3DBF700E2E7F900C4CDED00B3BFE600B3BFE7007288 + D300516DCC007E93D8004C64B500000000000000000000000000445CA9006E82 + C7001E46CD001C45CD001C45CD001C45CD00274DCE006B86DE001E46CD001C45 + CD001C45CD00516DCE004A5FA700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BCCAF600A2B4F200A2B4 + F200BBC9F600BCC9F500BAC8F6009FB2F2009FB2F2009FB2F2009EB1F2009DB0 + F2009DB0F2009CB0F2009CB0F2009BAFF100AABBF400B7C6F600B8C6F600A7B8 + F30099ADF10099ADF1004259AD0000000000000000004C65BC006586F300335E + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345FEF00345F + EF00335EEF006586F3000000000000000000758BDE00C6D1F500AABAEE00BCC8 + EF00C4CDEB00C8CFE800CFD4E700ADB9E1006880CF00657FD300758CD900738A + D8006F87D6005B76CE004A66C4004C66BF00BCC5E4007A8DCC00697FC9005C76 + CC007189D7005673D5006D7EBA007288D9000000000000000000000000004E67 + BF00708BE700335ADE002D56DE00879DE7006679BE00475FB2006F89E6003159 + DE002D56DE003F64E1005C75CF004B62B9000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFCCF800A8BAF500A8BA + F500A7B9F500A7B9F500A6B8F500A5B7F500A5B7F500A5B7F500A5B7F500A4B6 + F500A4B6F500A3B6F500A2B5F500A2B5F500A1B4F500A1B4F500A0B3F500A0B3 + F5009FB3F5009FB3F500455EB40000000000000000004D67BE006C8BF300446B + F000456CF000456CF000456CF000456CF000456CF000456CF000446BF000446B + F000446BF000446BF000456CF000456CF000456CF000456CF000456CF000456C + F000446BF0006C8BF3000000000000000000516CC700B1C0F100A7B7ED00ADBC + EC00B8C3E800BBC5E500C9D0E6006880D0006780D4007B91DB006879B2005C6C + A7005B6BA5006E81C500637CCF004965C3008E9DCF008192CC006E83CB006B84 + D5007089DA006A85DD008E9DD4004E67C0000000000000000000000000000000 + 0000788CCD00738EEB006B89EC00596EBA00627BD400000000008093D6005779 + E900365EE6003860E600597AE800576CB8000000000000000000000000000000 + 00000000000000000000000000000000000000000000C3D0FA00B0C0F900AFC0 + F900AFC0F900AEBFF800AEBFF800ADBEF800ADBEF800ADBEF800ACBDF800ABBD + F800ABBDF800ABBDF800AABCF800AABCF800AABCF800A9BBF800A9BBF800A8BA + F800A7B9F800A7B9F8004962BA0000000000000000004F69C0007391F4005378 + F1005479F1005479F1005479F100829CF300819BEF007E98EE007E98EE007D97 + EE007D97EE007E98EE007E98EE00819BEF00718FF4005479F1005479F1005479 + F1005378F1007491F4000000000000000000435CB0009BADEC00A2B2EB00A0B0 + E900ABB9E500AFBBE300C5CDE7005E78CE007088D9007E90CE007189D800E0E6 + F900000000005668A2006D81C5005B76CE007085CC0098A7D9007B8FD3007990 + DB00728BDD007B93E200A4B3E4004159A9000000000000000000000000000000 + 00004D67C200798DD1008499DC0090A4EA0000000000000000005A71BF0089A0 + EC004A6FEE003E66ED005276EE006079D3000000000000000000000000000000 + 00000000000000000000000000000000000000000000CBD6FB00BBCAFA00BBCA + FA004068F0004068F0004068F0004068F0004068F0004068F000B8C7F9004068 + F0004068F0004068F0004068F0004068F0004068F000B5C5F900B5C5F900B4C4 + F900B4C4F900B4C4F9004C65BC000000000000000000536DC400809BF500708E + F4007592F4007A96F40096ACF4002750D900053AEB00053AEB007B97F4007A96 + F4007A96F4007995F4007894F4007894F400667DCB0097ACF4007D98F5007592 + F400708EF400809BF5000000000000000000445CAF008098E60092A6E800849A + E20094A5DF0099A9DD00B9C3E4005873D000758BD6005E6EA900000000000000 + 000000000000E0E6F9005C6CA7007088D6005873CB00B1BDE3008FA0DA008DA0 + E1007F96E1008CA1E600B2C0EC00445CAF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F6A + C5008A9EE1004F74F1004F74F1006586F3005873CE0000000000000000000000 + 00000000000000000000000000000000000000000000CED8FB00C1CEFA00C1CE + FA00496FF000496FF000496FF000496FF000496FF000496FF000BECCFA00BECC + FA00BDCBFA00BCCAFA00BCCAFA00BCCAFA00BCCAFA00BBCAFA00BBCAFA00BAC9 + FA00BAC9FA00B9C8F9004D67BE000000000000000000556EC500839EF5007A96 + F400859FF50099AFF700889ADE000D40EC000D40EC000D40EC00A2B6F800A1B5 + F7007D98F5007C97F4007B97F4007B97F400536FD000889BDE0098AEF700859F + F5007A96F400839EF5000000000000000000445CAE007690E400899EE5007C93 + DF008A9DDD008FA0DA00B1BDE3005470CE007289D4005D6EA800000000000000 + 000000000000000000005F6EA900738AD8005C76CD00B7C1E40099A9DE0096A8 + E300879CE30095A8E900B7C4ED00455EB1000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AEBE + F2005E75C4006686F300577BF2005D80F2005A72C200AEBEF200000000000000 + 00000000000000000000000000000000000000000000D1DBFB00C6D2FA00C6D2 + FA005176F1005176F1005176F1005176F1005176F1005176F100C4D1FA005176 + F1005176F1005176F1005176F1005176F1005176F1005176F1005176F1005176 + F100C0CEFA00BFCDFA004E68BF0000000000000000005770C700819BF5007491 + F4008FA7F6009DAFF0006078CB002553EE002553EE002553EE00B1C1F900B0C0 + F9002553EE002553EE002553EE002553EE002C58E9006078CB009EB0F000839E + F5007592F400839DF3000000000000000000445CAD006E88E2008198E300718A + DD007F94DA008497D800A8B5E0004F6BCA006B83D4006677B000000000000000 + 000000000000738ADA006B7BB400758CD900627CD000C0C9E700A4B2E1009FAF + E60092A5E6009EB0EB00BBC7EF00465FB3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006F89DF008DA5F4006686F3006082F2006C85D900546FCB00000000000000 + 00000000000000000000000000000000000000000000D8E0FC00D1DBFB00D1DB + FB006384F3006384F3006384F3006384F3006384F3006384F300CED8FB006384 + F3006384F3006384F3006384F3006384F3006384F3006384F3006384F3006384 + F300CBD6FB00CAD5FB00516BC200000000000000000093A8ED005872CA005872 + C9005872C9005A78DB00567AF200567AF200567AF200567AF200CBD6FB00CAD5 + FB00567AF200567AF200567AF200567AF200567AF200567AF2005A78DB005872 + C9005872C9005872CA000000000000000000516BC3007E95E3006580DB006B84 + D8007086D1006B81C9007F91CC005872C6004A66C400637CCE006878B0005F70 + AA006070AB008091CF007B91DB00647ED300C2CAE700C6CDE700B9C3E600AEBC + EA00AEBDED00A8B8EF00A7B4E0005471CC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000576FC600A0AFE7008BA4F6007D98F5007F95E300536DC6000000 + 00000000000000000000000000000000000000000000DBE2FC00D6DFFC00D6DF + FC006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF300D3DCFB00D3DC + FB00D3DCFB00D2DBFB00D2DBFB00D2DBFB00D1DBFB00D1DBFB00D1DBFB00D0DA + FB00D0DAFB00CFD9FB00526CC30000000000000000000000000000000000556E + C500C0CEFA006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300D6DFFC00D5DE + FC006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF3006F8DF300C3D0 + FA00556EC500000000000000000000000000748CDB008FA3E500506ED4006C84 + D5006980CB006B81CB0092A2D600B1BDE4004D68C0004A66C4006B83D4007088 + D600748BD8007088D9006780D4006880CF00DADEEB00CBD1E700C5CDE900B7C3 + EC00BDC9F100AABAEF008494CE007790E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009FB1EF00637AC800A4B4ED007A96F40086A0F500758AD5000000 + 00000000000000000000000000000000000000000000DEE5FC00DAE2FC00DAE2 + FC007592F4007592F4007592F4007592F4007592F4007592F400D8E0FC007592 + F4007592F4007592F4007592F4007592F4007592F4007592F4007592F4007592 + F400D5DEFC00D4DDFC00546DC400000000000000000000000000000000005770 + C700DCE3FC00DFE6FC00E0E6FC00E1E7FD00E0E6FC00E0E6FC00DFE6FC00DFE6 + FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DCE3FC00DCE3FC00D9E1FC00D7DF + F9005770C700000000000000000000000000BDCBF40097A7DD005772CE00617B + CF006B82CF00A3B1E000B1BDE500E3E8F800C5CEEE005D76CA004F6BCA00536F + CD005873D0005E78CF00667FD000ADB9E100DEE1EA00D6DBEA00D2D8ED00C6D0 + F000C4CFF200BDCAF3005D74C100BFCDF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006A7FCB0092A9F60086A0F5008BA3F100849B + E8000000000000000000000000000000000000000000E6EBFD00E2E8FD00E2E8 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E1E7FD00E0E6 + FC00E0E6FC00E0E6FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5 + FC00DEE5FC00DBE2FC005770C7000000000000000000000000000000000093A8 + ED005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + CA0093A8ED0000000000000000000000000000000000566AAC009EADDE00A0B0 + E500AEBCE800AAB8E600D2DAF500D5DDF800C3CFF500C4CFF200B1BDE400B1BD + E300BAC4E500C6CEE800C9D0E700D0D5E800E8EAEE00EDEEF200E6E9F200DDE2 + F600D9E0F700DFE4F500AABBF100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000778BD200ABBBEF009DB2F7008298 + E0005871C900C1CDF600000000000000000000000000E7ECFB00E5EAFD00E4E9 + FD00E5EAFD00E6EBFD00E5EAFD00E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9 + FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8FD00E2E8FD00E1E7 + FD00DFE6FC00DEE5FC005871C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004F69BE0093A0CC00C5CF + F000B0BEEA00D0D8F500D6DEF900C1CDF500C0CCF500A2B2E7008FA0DB008FA0 + DA0099A9DD00B0BCE400BCC6E600C8CFE900E2E6F100ECEEF200F2F3F600E4E9 + F700EAEEFB00A1AFDA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007C93E500687FCD00ADBCED008DA5 + F600788EDA005874CD000000000000000000000000009FAFE100E7ECFB00E8ED + FB00E8EDFB00E8EDFB00E8EDFB00E7ECFB00E7ECFB00E7ECFB00E7ECFB00E7EC + FB00E7ECFB00E6EBFB00E6EBFB00E6EBFB00E6EBFB00E5EAFB00E5EAFB00E5EA + FB00E4EAFB00E3E8FB006B85DE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D1DAF8004C62AA00B4BE + DE00C5D0F400D7DFF900D8DFF900BAC8F500BDCAF4008599DC00899CDD00899C + DD0094A5DF00ADBBE700BAC5EA00C6CFED00D9DEF100E8EBF600F2F3F800F4F6 + FB00CED3E9005972C70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000093A8ED005C75CC00A5B7 + F5008EA6F400778DD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000889D + E400CAD0E800DDE3F900B3C3F500BBC9F600879CE3007C93DF00778FDF007C93 + E000869BE300A0B1EA00AEBDED00BECAF100CCD5F400DCE2F800ECF0FB005C74 + C70092A7EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000AFBF + F3006B85DE005A74CF005B76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004A61AA0094A2D100D0D9F7009CAEED00637FDC00748DE100849AE500899E + E60093A7E900A3B4ED00A8B8EF00AABAEF00D6DEF800E2E7F600A4B1DC009FB1 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D1DAF800526AC0006175B500AEBCEB009CAEEA008BA0E7006E89E3007690 + E4008199E8009CAFEE00B3C2F300C7D2F600B7C2E6006E83CC005D78D5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF500778DDF005771CA005068BA005169 + BC00526BBE00546DC1005C77D2007A92E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C4C4C400B9B9B9004558 + 9700253159002531590025315900253159002531590025315900253159002531 + 5900253159002531590025315900253159002531590025315900253159004558 + 9700BDBDBD00DADADA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DCDCDC00DADADA00C7C7C7007486C4004659970028345F002835 + 5F0028355F0028345F002F3F770046599700C8C8C800D2D2D200DADADA000000 + 00000000000000000000000000000000000000000000A6A4A400E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2E200E2E2 + E200E2E2E200E2E2E200E2E2E200E2E2E200A6A4A400B6B5B500A09E9E000000 + 00000000000000000000000000000000000000000000000000002C3B75004B62 + AC0003279D0003279D0003279D0003279D0003279D0003279D0003279D000327 + 9D0003279D0003279D0003279D0003279D0003279D0003279D0003279D004B62 + AC002C3B75000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CED7F7003C54A200475B9D00455FB6003754B6001739AA001336 + A9001336A9001739AA002343AF003754B600475B9D00384881003C54A2000000 + 00000000000000000000000000000000000000000000A7A6A500E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A7A6A500D8D8D800B7B6B600D5D5 + D5000000000000000000000000000000000000000000000000002B3D7900435E + BB00546393005A6792005A6792000328A300546393005A679200546393000328 + A300546393005A679200546393000328A3005A6792005A67920054639300435E + BB002B3D790000000000000000000000000000000000B1BCE500465792003441 + 6E00333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 6800333F6800333F6800333F6800333F6800333F6800333F6800333F6800333F + 680034416E00485C9B0000000000000000000000000000000000000000000000 + 0000BAC6F2002D418600445796003352B8001337AE000429A8000429A8000429 + A8000B30AB000429A8000429A8000429A8003352B8004761B70044579600BAC6 + F2000000000000000000000000000000000000000000A8A7A600E2E2E200D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6 + D600D6D6D600D6D6D600D6D6D600D6D6D600A8A7A600ECECEC00D8D8D800A1A1 + A000D5D5D50000000000000000000000000000000000000000002D407F00435F + BF008190C2008194D4008194D400092EAC008190C2008194D4008392C300042A + AA007080B8008194D4007080B800092EAC008194D4008194D4008392C300435F + BF002D407F00000000000000000000000000000000002D3F7F0043548D004B60 + A8004A60A9004A60A9004A60A9004A60A9004A60A9004A60A9004A60A900495F + A700465BA000425698004256980042569800465BA000495FA7004A60A9004A60 + A9004B60A80044559000DBE2F800000000000000000000000000000000000000 + 000032468C004C61A700405DBE00042BAD00042BAD002245B700617ACC00677F + CD006B81CB00617ACC004360C1002245B700042BAD001B3FB600405DBE003246 + 8C00BAC6F20000000000000000000000000000000000AEACAB00E6E6E600DCDC + DC00DCDCDC00DCDCDC00DCDCDC00718BE400DCDCDC00DCDCDC00DCDCDC00718B + E400DCDCDC00DCDCDC00DCDCDC00718BE400AEACAB00EFEEEE00ECECEC00CDCD + CD00B6B5B400A3A1A1000000000000000000000000000000000032478A004261 + C800042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6008196DA008196DA008196DA00042DB600042DB600042DB600042DB6004261 + C80032478A00000000000000000000000000000000003E58B5001544DF000537 + E0001229760026387700042AAB00042AAB00042AAB00042AAB00182F7F004142 + 4A0079777700ADACAC00ADACAC00ADACAC007977770041424A00182F7F00042A + AB00042AAB001B3EB4003F51920000000000000000000000000000000000455C + AE004160C6001037BB00042DB7002F52C4005069BA003D509100859AE100A8B7 + ED00C1CCF200859AE1004B61B1003D5091006981D0002E51C300042DB7004160 + C600495DA200455CAE00000000000000000000000000B3B1B100ECECEC00E4E4 + E400E4E4E400E4E4E400E4E4E400758FE800E4E4E400E4E4E400E4E4E400758F + E800E4E4E400E4E4E400E4E4E400758FE800BCBBBA00B3B1B100B3B1B100B3B1 + B100B3B1B100B3B1B10000000000000000000000000000000000354890004262 + CD0055659D005A699B005A699B00042FBD0055659D005A699B0055659D00042F + BD008196DE008196DE008196DE00042FBD005A699B005A699B0055659D004262 + CD0035489000000000000000000000000000000000003555BE000839DD000537 + E000032187002A3B7500042CB200042CB200042CB200042AAA004D4B4C009493 + 92009492920043414200454344004341420094929200949392004D4B4C004C66 + C0004B67C7001439B70041548F00000000000000000000000000869BE1004255 + 96001C42C300042FBD00042FBD001038C0004161CA004D62A700BCC8F3000000 + 0000000000000000000000000000B4C2F0005264A2006B83D100294EC6001C42 + C3004966C70042559600000000000000000000000000B8B6B600F1F1F100EBEB + EB007892EB007892EB007892EB007892EB007892EB007892EB007892EB007892 + EB007892EB007892EB007892EB007892EB007B95EE007B95EE007B95EE00F1F1 + F100F1F1F100B8B6B60000000000000000000000000000000000384D96004364 + D3008192CB008197E1008197E1000934C5008192CB008197E1008494CD000934 + C50090A3E5008197E10092A5E5000934C5008197E1008197E1008494CD004364 + D300384D9600000000000000000000000000000000003555BE000537DE000537 + E000032187002C3C7600042DB700042DB700042DB600072AA0008F8E8D008483 + 82004342450024283900202537001E23360041404400848382008F8E8D004760 + B2004F6BCA00143BBC00455794000000000000000000000000003C54A3004F66 + B5000934C300153EC6004162D1000934C300143DC6004363CF00384E9B00BCC8 + F300000000000000000000000000000000005671C4005466A700647ED5000833 + C3003558CE004E66B600000000000000000000000000C0BEBD00F9F9F900F6F6 + F600F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F6007E98 + F100F6F6F600F6F6F600F6F6F6007E98F100F6F6F600F6F6F600F6F6F600F6F6 + F600F9F9F900C0BEBD00000000000000000000000000000000003C54A1004266 + DC000433D0000433D0000433D0000433D0000433D0000433D0000433D0000433 + D0000433D0000433D0000433D0000433D0000433D0000433D0000433D0004266 + DC003C54A100000000000000000000000000000000003555BE000537DE000537 + E000032187002F3F79000E38C6000E38C6000D34B500434757006D6B6B004242 + 4900333540002D2F3C00292C3B00262A3800313648002C303D006D6B6B004347 + 57000D34B5001B43C9004B5FA00000000000000000005B74CA005067B2004467 + D9002E54D4006882D700465BA300617DDC00214AD2001842D0004A6AD700556A + B5003D53A40000000000000000000000000000000000B7C5F100465BA3002B52 + D3001742D0004063D8006C83CF000000000000000000C2C1C000FBFBFB00F9F9 + F9007F99F2007F99F2007F99F2004E73EF004E73EF004E73EF004E73EF004E73 + EF007F99F2007F99F2007F99F2007F99F2007F99F2007F99F2007F99F200F9F9 + F900FBFBFB00C2C1C000000000000000000000000000000000003F58A8004368 + E1005669A8005B6CA5005B6CA5000535D8005669A8005B6CA5005669A8000535 + D8005669A8005B6CA5005669A8000535D8005B6CA5005B6CA5005669A8004368 + E1003F58A800000000000000000000000000000000003555BE000537DE000537 + E0000321870030417A001B44CE001B44CE00193EBA004E4C4C004D4B4C004243 + 4A00393B42003537400032333F002E313E0025293800222839004D4B4C004E4C + 4C00193EBA00264DD0004E62A40000000000000000004760B700556EC8003A5F + DB004266DD00657AC4004760B6006B7FC0006480E0002750D8002750D8004E6F + DC00566DB800BDCBF40000000000000000000000000000000000556DC1003F63 + DB001F49D600365CDB004E66BA000000000000000000C5C3C300FDFDFD00FCFC + FC00FCFCFC00FCFCFC00FCFCFC004F74F00099AEF50099AEF50099AEF5004F74 + F000FCFCFC00FCFCFC00FCFCFC00819BF400FCFCFC00FCFCFC00FCFCFC00FCFC + FC00FDFDFD00C5C3C30000000000000000000000000000000000425AAD004469 + E6008295D600819AEE00819AEE000A3ADE008295D600819AEE008598D7000A3A + DE008295D600819AEE008598D7000A3ADE00819AEE00819AEE008598D7004469 + E600425AAD00000000000000000000000000000000003555BE000537DE000537 + E0000321870032427C002951D6002951D6002448C0004F4D4E004F4D4E004545 + 4A006060650072737A0053555D00353741002B2F3D00272B3A004F4D4E005856 + 56002448C0003056D7005166AA0000000000000000004058A8005775D900375D + DD005576E3005D71B7008CA1E6004059AC006D81C4006883E300254FDB002D55 + DD004F70DF004159AC00BECCF5000000000000000000000000008CA1E6005374 + E300254FDB00335ADD00445BA8000000000000000000C8C7C600FFFFFF00FFFF + FF00829CF500829CF500829CF5005075F1005075F1005075F1005075F1005075 + F100829CF500829CF500829CF500829CF500829CF500829CF500829CF500FFFF + FF00FFFFFF00C8C7C600000000000000000000000000000000004862B9004A70 + F0001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4C + EC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC001C4CEC004C71 + F0004862B900000000000000000000000000000000003555BE000537DE000537 + E0000321870035457F004368E4004368E4003E60D1004F526000686666004E4C + 4D00959495008C8C8E008283880044444A00373944003A3C4400686666004F52 + 60003D5FD1004469E400586DB6000000000000000000455EB2006482E6004167 + E7006180E7005168B600C6D1F50000000000BECCF500465FB6006E8BEB003A62 + E700335CE5005577E8005D75C600465FB6000000000000000000C6D1F5005477 + EA003D64E7003B62E700455EB2000000000000000000CAC8C700FEFEFE00FEFE + FE00FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00829C + F500FEFEFE00FEFEFE00FEFEFE00829CF500FEFEFE00FEFEFE00FEFEFE00FEFE + FE00FEFEFE00CAC8C700000000000000000000000000000000004A64BB004E73 + F1006777AC006777AC006777AC006777AC006777AC006777AC006777AC006777 + AC006777AC006777AC006777AC006777AC006777AC006777AC006777AC005075 + F1004A64BB00000000000000000000000000000000003555BE000537DE000537 + E00003218700324176005275EB005275EB004D6FDE004F5C8B008F8D8D005452 + 530071707000969496006F6E710049494E003A3B4300514F51008F8D8D004F5C + 8B004D6FDE004E72EA005C72BB0000000000000000004861B7006885E8004B70 + ED005E7FEE00556CBC00AEBDF2000000000000000000BFCCF5007187D0006E8B + EE004067EB003F66EB005D7EEC00627ACB00BFCCF50000000000AEBDF2005A7C + EE003C64EB00446AEB004861B7000000000000000000C9C7C600FCFCFC00FBFB + FB00FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00809A + F300FBFBFB00FBFBFB00FBFBFB00809AF300FBFBFB00FBFBFB00FBFBFB00FBFB + FB00FCFCFC00C9C7C600000000000000000000000000000000004B65BC005075 + F10090A4E80099AFF70090A4E80090A4E80099AFF70090A4E80090A4E80099AF + F70090A4E80090A4E80099AFF70090A4E80090A4E80099AFF70090A4E8005479 + F1004B65BC0000000000000000000000000000000000465EB2001743D5001844 + D60019307D0039497A00809AF300657AC2006D84D1005D77D100908E8E007F7D + 7D00575555004F4D4D004D4B4D0047474A00545254007F7D7D00908E8E003E52 + 94004158A5004059AC005F75C10000000000000000004B65BC006F8BEB005075 + F0006384F2005B73C50090A4EB000000000000000000000000004B65BE00748C + DB007290F300426AEF00466DEF006081F0004B65BE00BFCDF50090A4EB006384 + F200466DEF004D72F0004F68BC000000000000000000BDBBBA00E8E8E800DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE + DE00E8E8E800BDBBBA00000000000000000000000000000000004D67BE00587C + F2004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72 + F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1004C72F1005E80 + F2004D67BE00000000000000000000000000000000005E79D0006B86E2006179 + CA005669AB005669AB007B97F4006279C4006B84D6007B97F4006879B2005959 + 5F00757373008F8E8D008F8E8D008F8E8D007573730059595F006879B2005669 + AB004D62AA004B62AE00617AD30000000000000000006580D9007087D2006A8A + F3005B7EF2006A87EA00536CC00000000000000000000000000000000000BFCD + F6005069C3007995F4005479F1005479F1006685F000667FD000536CC0006384 + F300587CF2006686F300778FDE000000000000000000AEADAC00D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2D200D2D2 + D200D2D2D200AEADAC00000000000000000000000000000000004D67BF005B7E + F2004D5B8B005563930055639300556393005563930055639300556393005563 + 9300556393005563930055639300556393005563930055639300556599006283 + F2004D67BF0000000000000000000000000000000000627ACE007592F4003E4E + 8000343D5D006071AB0089A2F60089A2F60089A2F60089A2F600829AEA007A8E + D5006A7191005A585800646262005A5858006A7191007A8ED500829AEA00829C + F5006D8CF3006F8CF1008EA3E90000000000000000009FB0EF005B74C5007B96 + F100567AF2006A8AF3006881D400000000000000000000000000000000000000 + 0000BFCDF6007D93DE007E99F5005F81F2006485F3007592F2008197E2006686 + F3006888F3007793F000B7C4F20000000000000000005263A1005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6FA8005F6F + A8005F6FA8005263A100000000000000000000000000000000004E68C0005F81 + F2002C3B6C003242790032427900324279003242790032427900324279003242 + 7900324279003242790032427900324279003242790039497E005B6894006787 + F3004E68C000000000000000000000000000000000005C75CC00728ADD00404F + 8100404C72006575AC0091A8F60092A9F60092A9F60093AAF60097ADF70099AE + F30095A9EB008C9EDD008C9EDD008C9EDD0095A9EB0098ADF30094ABF600819B + F5007390F2006983D80000000000000000000000000000000000516CC8008196 + DF005D80F2006283F2006C8AEF006681DA000000000000000000000000000000 + 000000000000526BC4007E94DF00849EF5007C97F400809BF5008FA7F6007592 + F4007D98F5007E94DF00000000000000000000000000556CBD005A79DF000536 + D900042EBB00042BAE00042EBB000536D9000536D9000536D9000536D9000536 + D9000536D9000536D9000536D9000536D900042EBB00042BAE00042EBB000536 + D9005A79DF00556CBD0000000000000000000000000000000000506AC1006686 + F30038446D003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C7A003E4C + 7A007982A2005C688F00737D9E004A5782003E4C7A003E4C7A00646F9400708E + F400506AC1000000000000000000000000000000000000000000000000008DA2 + E800536DC400536DC4004E66B8004B62B0004E66B800536DC400546DC0005870 + BF007D8DC6008D9BC7008E9BC7008D9BC7007789C5004F69BE00556EC100637A + CE008DA2E8000000000000000000000000000000000000000000000000005D78 + CF00819CF3006787F3006888F300718EEF006C85D6005770C40092A5EC00AEBE + F300C8D2F60092A5EC005671CE005A73C600A7B9F8009AAFF70095ACF7008FA6 + F400788ED6005D78CF00000000000000000000000000566FC6006A89F200053A + EA005574DB006886EB005574DB00053AEA00053AEA00053AEA00053AEA00053A + EA00053AEA00053AEA00053AEA00053AEA004D6CD3006482E7004D6CD300053A + EA006A89F200566FC60000000000000000000000000000000000516BC2006A8A + F3003D486E0044517A0044517A0044517A0044517A0044517A0044517A004451 + 7A009097B0007881A000848CA8007881A00044517A0044517A00687294007491 + F400516BC2000000000000000000000000000000000000000000000000000000 + 000000000000DAE1F900637BCE00556FC600637BCE00DAE1F9006C84D800607B + D9007D98F500AABCF800ADBEF800AABCF8007491F4005775D9006C84D8000000 + 000000000000000000000000000000000000000000000000000000000000D3DB + F900859AE100859FF5006D8CF3007491F4007A96F4007892EC00647CCC006078 + C8006078C800647CCC006D85D9007F99EC00A3B6F8009DB2F7008EA6F600899E + E200526CC500000000000000000000000000000000005771C8007794F4001C4C + ED0090A7F4007995F40090A7F4001E4EED001E4EED001E4EED001E4EED001E4E + ED001E4EED001E4EED001E4EED001E4EED0090A7F4007995F40090A7F4001C4C + ED007794F4005771C80000000000000000000000000000000000526CC3006D8C + F300434D6E00485378004A557B004A557B004A557B004A557B004A557B004A55 + 7B004A557B004A557B004A557B004A557B004A557B004A557B006F7896007995 + F400526CC3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A8B8F0005570 + CB00466BE300CFD8F800CFD8F800CFD8F8004165E300546ECA00A8B8F0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005871C800869AE2008AA3F4007995F4007A96F400819BF500829DF5007F9A + F5007F9AF500859FF50088A2F6008FA7F60099AFF70095ACF70099AEF5005871 + C800BFCDF600000000000000000000000000000000005872C900889FEB0091A6 + EC0097ABED0098ABED0098ABED0099ACED0099ACED0099ACED0099ACED0099AC + ED0099ACED0099ACED0099ACED0099ACED0099ACED0098ABED0097ABED0091A6 + EC00889FEB005872C900000000000000000000000000000000005670C6007794 + F400AABCF800ADBEF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ADBEF800A9BBF800829C + F500546EC5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D3DBF9006179D1008A9EE2009AAFF40099AFF70097ADF70097AD + F7009AAFF7009AAFF7009DB2F700A0B4F7008B9FE200687FCC005D78D5000000 + 000000000000000000000000000000000000000000005B76D2005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005B76D200000000000000000000000000000000005A74C7008CA3 + ED009BB0F700A6B9F800A9BBF800AABCF800AABCF800AABCF800AABCF800AABC + F800AABCF800AABCF800AABCF800AABCF800A9BBF800A5B8F80098AEF70092A7 + EF005972C6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005772CD00637BCC007A8FD90092A8F00098AD + F0009AAEF10092A8F000879DE6007A8FD9005772CD0092A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000728BDF007289 + D7009BAFF1009FB2F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3 + F200A0B3F200A0B3F200A0B3F200A0B3F200A0B3F2009EB1F2009AAEF1007389 + D700728BDF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F000728BE0005771C8005771 + C8005771C8005771C8005A75D100728BE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003044890030448900000000000000000000000000000000000000 + 0000000000003044890000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DBDBDB002E3F79002632 + 5B0026325B0026325B0026325B0026325B0026325B0026325B0026325B002632 + 5B0026325B0026325B002E3E7700C5C5C500C5C5C500C5C5C500C7C7C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000263569004F5E9400000000000000000000000000000000000000 + 0000536BBA002635690000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000027366E004F65 + AE004F64AC00485B9B004F64AC004F64AC00485B9B004F64AC004F64AC00485B + 9B004F64AC004F64AC002736680026335C0026335B0026335B0026335B002632 + 5D002E3F7900CBCBCB0000000000000000000000000000000000000000000000 + 00000000000029397200627DD900334992000000000000000000000000003349 + 92005E71B3002939720000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F58AD003D59B9003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003857BF003857BF003857BF003857BF003857BF003857 + BF003857BF003857BF003A5097005169BF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002C3D7A004F69 + BE000328A200032082001D3EAC000328A200032082001D3EAC000328A2000320 + 82001D3EAC004F69BE002C3D7A001D3EAC000328A200032082001D3EAC004F69 + BE002C3D7A000000000000000000000000000000000000000000000000000000 + 0000000000002C3C7700617DDA00445591007389D300000000007389D300495A + 9300526FD2002C3C770000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000283C82000730BA00042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB9003453B900283C820000000000364C9A002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E7D002C3E + 7D002C3E7D002C3E7D00000000000000000000000000000000002E407E004F69 + C200042AA900032187001D3FB100052AA900042288001E40B100052AA9000321 + 87001D3FB1004F69C2002E407E001D40B300062CAB00052389001F42B400506A + C4002F4180000000000000000000000000000000000000000000000000000000 + 0000000000002E3F7C00617DDB005872C70032478800CED7F70033478800647B + CB002447BB002E3F7C0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000027387A00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042BAD00042B + AD00042BAD00042BAD001035B10027387A00000000002F4284005872CB004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6BC8004F6B + C8004F6BC8005872CB0000000000000000000000000000000000304385004760 + B30005248C0006258D000E2C910009278D0009278D000F2D900009278D000827 + 8D000D2B90004760B300304385002346BC000E34B5000B2A91002548BD00516C + C900314487000000000000000000000000000000000000000000000000000000 + 00000000000032458600617EDF00173CBA005472D800435492005D7ADA001238 + B700042BAF003245860000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002A3C7E00042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB000042BB000042BB000042BB000042BB000042B + B000042BB000042BB000042BB0002A3C7E0000000000354A92005875D600BBC2 + DA00D0D8F400D0D8F400D0D8F400CED6F300CED6F300CED6F300CED6F300CCD5 + F200CDD6F300CED6F300CED6F300D0D8F400D1D9F400D1D9F300D3DAF400D5DC + F400E9EDFA005875D6000000000000000000000000000000000035498F00516E + CF001239BE00102F98002D50C600183EBF00133299002F52C600183EBF001231 + 99002B4FC600526FCF0035498F003256CE001F46C8001938A1003357CE005472 + D500384D95000000000000000000000000000000000000000000000000000000 + 00000000000034478B00627FE100042CB4002E53CB005B73C7002E53CB00042C + B400042CB40034478B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C408400042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB9002C40840000000000384E99005876DB00BDC4 + DC00D2DAF500D1D9F500D1D9F500D1D9F500D1D9F500D1D9F500CFD7F400CFD7 + F400CED7F400CED7F400CED7F400CED7F500CED7F500CED7F500CED7F500CED7 + F500E6EBF9005876DB0000000000000000000000000000000000374D94005371 + D4001840C50015359E003256CC001E45C70018379F003558CC001E45C6001736 + 9F003054CC005371D400374D94003A5ED600274ED100203FA8003A5ED6005574 + DB003B519D000000000000000000000000000000000000000000000000000000 + 000000000000374B8F006280E300042EB9000932BC004164D8000932BC00042E + B900042EB900374B8F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002F448C000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2000430C2000430C2000430C2000430C2000430 + C2000430C2000430C2000430C2002F448C00000000003C53A0005A79E000C0C7 + DE00D5DDF700D3DBF600D3DBF600D3DBF700D2DAF600D2DAF600D2DAF700D1D9 + F600D2DAF700D1D9F600D0D9F600D0D9F600D0D9F600CFD8F600CFD8F600CFD8 + F600E6EBFA005A79E0000000000000000000000000000000000039509A004B66 + C2001838A4001B3BA5002241A7001D3CA4001D3CA4002341A7001D3CA4001C3B + A4001F3EA6004B66C20039509A004064DC002F56DA002645AE004064DC005777 + E1003F56A4000000000000000000000000000000000000000000000000000000 + 0000000000003B509A00617FE5000430C4000430C4000430C4000430C4000430 + C4000430C4003B509A0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000354B9B000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D400042AAA00042A + AA00042AAA00042EB9000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D400354B9B0000000000435CAF006181EC00C2C9 + E000D8E0FA00D8E0FA00D7DFFA00D7DFFA00D7DFFA00D7DFFA00D6DEFA00D6DE + FA00D6DEFA00D6DEFA00D6DEFA00D5DDFA00D5DDFA00D4DDFA00D4DDFA00D4DD + FA00E9EEFC006181EC00000000000000000000000000000000003F56A5005676 + E1002951D9002545AF004468DE003259DA002847AF004669DE003259DA002645 + AE003F64DC005676E1003F56A5004F73EB003F66E8003352BA004E72EA00597B + EB00455FB3000000000000000000000000000000000000000000000000000000 + 0000000000003E539E006180E7000432C9000432C9000432C9000432C9000432 + C9000432C9003E539E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003850A3000537DD000537DD000537 + DD000537DD000537DD000537DD000537DD000537DD000537DD00C5C3C200C3C1 + BF00C0BEBC00042EBC000537DD000537DD000537DD000537DD000537DD000537 + DD000537DD000537DD000537DD003850A300000000004660B6006182F100C5CB + E100DAE1FB00DAE1FB00DAE1FB00D9E1FB00D9E1FB00D9E1FB00D8E0FB00D8E0 + FB00D8E0FB00D7DFFB00D7DFFB00D7DFFB00D6DEFB00D6DEFB00D6DEFB00D6DE + FB00EBF0FD006182F10000000000000000000000000000000000425AAA005778 + E5003058DF002A4AB300496DE300385FE0002D4CB3004D70E300385EDF002B4A + B200456AE2005778E500425AAA005579F000476DEE003A59BF005478F0005A7D + F1004963BB000000000000000000000000000000000000000000000000000000 + 0000000000004056A3006180E9000433CE000433CE000433CE000433CE000433 + CE000433CE004056A30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003B54AA000539E5000537E0000434 + D1000433CE000433CE000433CE000433CE000433CE000433CE00D9D8D700D7D5 + D400D4D2D100042BB0000433CE000433CE000433CE000433CE000433CE000433 + CE000434D3000538E2000539E5003B54AA00000000004962BA006283F200C7CD + E300DEE5FC00DDE4FC00DDE4FC00DCE3FC00DCE3FC00DCE3FC00DBE2FC00DBE2 + FC00DBE2FC00DAE2FC00DAE2FC00DAE2FC00D9E1FC00D9E1FC00D8E0FC00D8E0 + FC00EBF0FD006283F20000000000000000000000000000000000445DB100506E + D2002A4AB7002F4FB8003553B9003251B8003251B7003856BA003251B8003150 + B8003150B9004F6DD200445DB1005D80F2005075F100405EC1005B7EF2005C7F + F2004C66BD000000000000000000000000000000000000000000000000000000 + 000000000000455DAE006887ED001543DC001543DC001543DC001543DC001543 + DC001543DC00455DAE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003F59B000193BAD004565CF005D7D + EA006082F2006082F2006082F2006082F2006082F2006082F200D9D7D600D3D1 + D000CDCBCA00516DCD006082F2006082F2006082F2006082F2006082F2006082 + F2005B7BE5003959C2001646E9003F59B000000000004C65BC006B8AF300CCD1 + E300E3E9FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00E0E6FC00DFE6FC00DFE6FC00DFE6FC00DEE5FC00DEE5FC00DEE5FC00DDE4 + FC00EDF1FE006B8AF300000000000000000000000000000000004A64BB005A7D + F1004169EF003857BF005B7EF1004C71F0003D5BC0005E80F1004C71F0003B59 + BF005478F000597CF1004A64BB006684E8005F81F2004D68C2006482E8005E80 + F2004E68BF000000000000000000000000000000000000000000000000000000 + 0000000000004760B3006D8BF0001F4CE1001F4CE1001F4CE1001F4CE1001F4C + E1001F4CE1004760B30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000415AB1005E7CE2005579F100486F + F000466DF000466DF000466DF000466DF000466DF000466DF000F1F0F000EFED + ED00ECEBEA003B5DCC00466DF000466DF000466DF000466DF000466DF000466D + F000486FF000587CF2002247C400415AB100000000004D67BE006B8AF300CED3 + E300E5EAFD00E5EAFD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9 + FD00E2E8FD00E2E8FD00E2E8FD00E1E7FD00E1E7FD00E1E7FD00E0E6FC00E0E6 + FC00EFF3FE006B8AF300000000000000000000000000000000004B65BD005C7F + F200466DF0003E5CC1006183F2005176F100425FC1006586F3005176F100405E + C100597CF2005B7EF2004B65BD006D89E9006787F300536DC2006986E8005F81 + F2004F69C1000000000000000000000000000000000000000000000000000000 + 0000000000004A63B8006F8DF1002854E7002854E7002854E7002854E7002854 + E7002854E7004A63B8004A63B8004A63B8004A63B8004A63B800516BC7000000 + 000000000000000000000000000000000000425BB200597CF2005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1004766CD004766 + CD004766CD004B6CDA005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1004D68C400425BB200000000004E68BF006B8AF300CFD4 + E300E7ECFD00E6ECFD00E6ECFD00E6ECFD00E6EBFD00E6EBFD00E5EAFD00E5EA + FD00E5EAFD00E4E9FD00E4E9FD00E4E9FD00E3E9FD00E3E9FD00E3E9FD00E2E8 + FD00F0F3FE006B8AF300000000000000000000000000000000004C66BD005473 + D9003D5BC100425FC1004965C2004763C1004864C1004C67C3004763C1004561 + C100425FC2005372D9004C66BD00728DE9006F8DF3005871C3006E8AE8006082 + F200516BC2000000000000000000000000000000000000000000000000000000 + 0000000000004F69C0007894F4003D66EF003D66EF003D66EF003D66EF003D66 + EF003C65EF004F69C0003656C2005579F1005378F1007592F4004F69C0000000 + 000000000000000000000000000000000000445DB5006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8BF3006C8B + F3006C8BF3006C8BF3007491F400445DB50000000000516BC2006D8CF300D3D7 + E400EBF0FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E7ECFD00E7ECFD00E7ECFD00E6EC + FD00F2F5FE006D8CF300000000000000000000000000000000004E68BF005F81 + F200567AF2004C67C200718FF4006586F300516BC2007693F4006586F3004F69 + C2006888F3005D80F2004E68BF00829DF5007C97F4005D75C3007491F4005F81 + F200536DC4000000000000000000000000000000000000000000000000000000 + 000000000000506AC1007C97F400476EF000476EF000476EF000476EF000476E + F000466DF000506AC1003555C2005176F1005075F1007290F400506AC1000000 + 000000000000000000000000000000000000455EB6007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96F4007A96 + F4007A96F4007A96F4007A96F400455EB60000000000526CC3007491F400D6D9 + E400EDF1FE00EDF1FE00EDF1FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0 + FD00EAEFFD00EAEFFD00EAEFFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E8ED + FD00F4F7FE007491F400000000000000000000000000000000004F69C0006082 + F2005B7EF2004F6AC2007794F4006B8AF300566FC3007C97F4006B8AF300536D + C2006D8CF3005E80F2004F69C00086A0F5007995F400566FC3006989F3005C7F + F200556FC6000000000000000000000000000000000000000000000000000000 + 000000000000516BC200819BF5005075F1005075F1005075F1005075F1005075 + F1005075F100516BC2002A4DBF004169F0004068F0006B8AF300516BC2000000 + 0000000000000000000000000000000000004660B70086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0F50086A0 + F50086A0F50086A0F50086A0F5004660B70000000000546DC4007491F400D8DB + E400F0F3FE00EFF3FE00EFF3FE00EFF3FE00EEF2FE00EEF2FE00EDF1FE00EDF1 + FE00EDF1FE00ECF0FE00ECF0FE00ECF0FE00EBF0FD00EBF0FD00EBF0FD00EAEF + FD00F4F7FE007491F40000000000000000000000000000000000506AC1005775 + DA004D68C200546EC2005B73C4005A72C3005B73C3006077C4005B73C3005871 + C300526CC3005674DA00506AC1009CB1F70096ACF7007A91DC00819BEF006483 + EB005670C7000000000000000000000000000000000000000000000000000000 + 000000000000536DC40088A2F6006485F3006485F3006485F3006485F3006485 + F3006384F300536DC4000F35B6001546EC001546EC00577BF200536DC4000000 + 0000000000000000000000000000000000005570CD00A3B6F500A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4F700A0B4 + F700A0B4F700A0B4F7008798D6005570CD00000000005770C7007B97F4001B46 + D500254ED600274FD600274FD6002850D6002850D6002850D6002850D6002850 + D6002850D6002850D6002850D6002850D6002850D600274FD600274FD600214A + D5001B46D5007B97F40000000000000000000000000000000000526CC3006283 + F2006989F3005D75C300859FF5007E99F500657BC3008DA5F6007F9AF5006279 + C4007A96F4006082F200526CC300375EE5003159E4002551E3005771C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000546DC4008BA4F6006F8DF3006F8DF3006F8DF3006F8DF3006F8D + F3006E8DF300546DC400042BB0000538E5000538E5005075EF00546DC4000000 + 000000000000000000000000000000000000000000004963BA004963BA004963 + BA004963BA004963BA004963BA003D5BC300042EBC003B57B9004963BA004963 + BA004963BA004963BA003B57B900042EBC004963BA004963BA004963BA004963 + BA004963BA004963BA005670CE0000000000000000005871C800829CF5003E67 + F0005176F1005579F100577BF200597CF200597CF200597CF200597CF200597C + F200597CF200597CF200597CF200597CF200587CF200577BF2005579F1004A70 + F0003E67F000829CF50000000000000000000000000000000000536DC4006283 + F2006C8BF3006077C3008AA3F600839EF5006B80C40092A9F600849EF500657B + C3007C97F4006183F200536DC4005771C8005771C8005771C8005A76D2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556EC6008FA7F6007995F4007995F4007995F4007995F4007995 + F4007995F400556EC600042AA9000434D3000434D3005073E900556EC6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004A64BB000430C4004760B300000000000000 + 000000000000000000004760B3000430C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005872C90089A1F00093A9 + F2009DB0F2009FB2F400A0B3F400A1B4F400A1B4F400A1B4F400A1B4F400A1B4 + F400A1B4F400A1B4F400A1B4F400A1B4F400A0B3F400A0B3F4009FB2F40098AD + F20093A9F20089A1F00000000000000000000000000000000000546EC5005876 + DA00566FC3006379C4006C81C5006E82C4007083C5007587C6006E82C400687D + C4005B73C4005775DA00546EC500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005770C8009DB1F3008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F600697ECB0003269B00042AAA000930B3005D78D6005770C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516ABE002049D4004862BD004D66BD004D66 + BD004D66BD004D66BD004862BD002049D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005670C7005D80 + F200587CF2005972C3008EA6F60093AAF600798AC500A3B6F80087A1F5005B73 + C3006989F3005B7EF2005670C700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000647EDA0095A8E80097ADF70096ACF70096ACF70096ACF70096AC + F70096ACF700758AD4001A36940003269B002042B3005E78CF005874CF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000536CC0006481E4000B39D4000434D3000434 + D3000434D3000434D3000B39D4006D88E3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005771C8006583 + EB00809AEE007B92DD009BB0F700AEBFF8009FAEDF00B2C2F9009EB3F7007C92 + DD00809AEE006382EB005771C800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000093A8ED007086D2009DB2F70098AEF7009CB1F7009DB2F7009AAF + F70095ACF70096A9EB005E74BF0016349A004D6ACB00657BC5007C93E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006680D9007489D400879FF200829DF500829D + F500829DF500829DF500879FF2007489D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005A76D2005771 + C8005771C8002A4DBF00425FC100566FC3005B73C3005A72C3004360C100294C + BF005771C8005771C8005A76D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C900647EDB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005A76D2005771C8005771C8005771C8005771C8005771C8005771C8005771 + C8005A76D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031458E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008196DC002F42 + 820056659A002F4282008196DC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DADADA00CECECE00C0C0C000C0C0C0009EACDC00273360002631 + 590026315900384987008D9DD300C0C0C000C0C0C000CECECE00D3D3D3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000859AE000364C98004C5D99005F79CD003D5C + C4002447BD003D5CC4005F79CD00697CBD00364C9800859AE000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002B3F800030458B0000000000000000000000 + 00000000000000000000000000004055A3007085D00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CED7F6002A3D7D0056669F004B5989002A3A + 73002A3A73007381AE005264A4002A3A73000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D66 + BC007D94DF007B94E7007F97E7008098E7008199E7008199E7008199E7008199 + E7008199E7008199E7008199E7008199E7008098E7007F97E7007C94E5006377 + BB004D66BC000000000000000000000000000000000000000000000000000000 + 00000000000000000000A9B9EE005062A1006E81C300627CD300294EC600294E + C600294EC600294EC600294EC6004161CD006E81C3005062A10039509E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008196DB002E4187005366A6003F4E84007287D200000000000000 + 0000000000000000000090A3E30039487D003F4E84002E4187008196DB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004F65B600213783007181B600A3B4EB000000 + 000000000000354B97007281B300213783000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D2DBF8004E66 + B7006686F3006888F3006F8DF3007592F4007693F4007693F4007693F4007693 + F4007693F4007693F4007693F4007693F4007391F4006F8DF3006888F3007F99 + F0004E66B700D2DBF80000000000000000000000000000000000000000000000 + 000000000000627ACE00465A9E006882DB004A6AD6003E61D3003E61D3002E53 + CF002E53CF002E53CF002E53CF003257D0005674D900748CDD006E82C600627A + CE00000000000000000000000000000000000000000000000000000000000000 + 0000364C980047578E005568AB003C58B800576CAF0030428500000000000000 + 0000000000000000000030468D005568AB004B65BB005568AB0047578E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002F428600324CA4004F5E9300000000000000 + 000000000000A5B6EC004F5E9300324CA4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000AEBDF100556C + BB00617FE30040508500576AAB00819BF500819BF500435180005D70B000829C + F500829CF5005A6CAB005C6FAF00819BF500425080005669AA005469AF007B97 + F400556CBB00AEBDF10000000000000000000000000000000000000000000000 + 00005469B1008BA0E8005E7CE2005A6DB400445AA9004D67C0006F83C8007590 + EA004469E3003A60E1004E67BE00445DB200445AA9005A6DB4007388CF009FB0 + EA005469B100ABBBF00000000000000000000000000000000000000000000000 + 0000A8B7ED00495A96006A81CF00042DB6001C41BD005771C500BAC7F2000000 + 000000000000374B9400576FBE002045BE000E35B8006880CF004D5E9B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000334689002440A30033468900000000000000 + 00000000000000000000334689001C399F000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000008FA3E900627A + CD004862BC0036488600445BA9006283F2006283F20031417700445BA9006283 + F2006283F200445BA900445BA9006283F20031417700445BA900445BA9007290 + F400627ACD008FA3E900000000000000000000000000000000004B66BF00435C + B4008F9FDA005878E0005B71BD009DAFED0000000000000000004860B5008299 + E7005B7DEC004E6EDD00455EB40000000000000000009DAFED00516AC600859C + E60092A3DB004761BA004B66BF00000000000000000000000000000000000000 + 000000000000455EB2006B7DB900042FBF00042FBF003C5DCC00465EB2000000 + 0000000000005267AE004161CE00042FBF004363CE007081BD00455EB2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000465EB100364A8F002B49AB00364A8F00000000000000 + 000000000000364A8F00364A8F001D3CA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000768EE1006079 + CD003955B3002F458F003751A8005075F1005075F100273975003751A8005075 + F1005075F1003751A8003751A8005075F100273975003751A8003751A8006183 + F2006079CD00768EE10000000000000000000000000000000000455FB600A4B4 + E900708CE9006076C4005169BB00000000000000000000000000627CD500798F + DC006A89F2005471D500627CD5000000000000000000000000004E67C5006076 + C400708CE9006E82CB00455FB600000000000000000000000000000000000000 + 000000000000D1DAF70044589E002048CD000431C7000E39CA00485CA000899D + E300A9B9EF005772D1001740CB000431C7007189D70044589E00BDC9F3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000394D9500394D95003350B300394D9500000000000000 + 0000000000003953AE00394D95001E3EAC000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007790E100657E + D3002844A200243D8E002C48A7003E67F0003E67F0001E3274002C48A7003E67 + F0003E67F0002C48A7002C48A7003E67F0001E3274002C48A7002C48A7005075 + F100657ED3007790E100000000000000000000000000000000004861B8008CA3 + EF004F74F100607EE0004A63BC00000000000000000000000000AEBDF200657A + C400839EF500586FBF00AEBDF200000000000000000000000000BFCCF5008DA1 + E800839EF500587CF2004861B800000000000000000000000000000000000000 + 0000000000000000000000000000778DD7002C55DE000536D9004D6FE100576D + BA005369B4000D3DDA000536D9002751DE00455DB00000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003E53A1003E53A1004260C2003E53A100000000000000 + 0000000000004260C2003E53A1002143B8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC2005E7A + D8000D257600112D8A00123095001A45D6001A45D6000C216800123095001A45 + D6001A45D60012309500123095001A45D6000C2168001230950012309500335B + E1005E7AD800516AC200000000000000000000000000000000004962B9008FA4 + EF005E7DE500516ABD0090A4EA00000000000000000000000000D2DBF8006076 + C20087A1F500576FBF00D2DBF800000000000000000000000000000000005970 + C0008CA1EC00849EF5004962B900000000000000000000000000000000000000 + 00000000000000000000000000005C71BD006886EA000E3FE200204EE5005A78 + DE00607BDA000538E2000A3CE3005E7EEA00758CDE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004157A7004157A7004A66C9004157A700000000000000 + 0000000000004A66C9004157A7002246BD000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D66BA005E7A + D80003185F0005207B00062489000833C3000832BD0004195F00062489000833 + C3000832BD0005218000062489000833C30004195F0005218000062489001A43 + CE005E7AD8004D66BA00000000000000000000000000000000004A63BA0092A8 + F0005971C4007790E2000000000000000000000000000000000000000000546C + BF0091A7F2005068BD0000000000000000000000000000000000000000007790 + E200697EC90091A7F2004A63BA00000000000000000000000000000000000000 + 00000000000000000000000000005570CC00768DD9004068EF00073BEA003560 + EE003A63EE00073BEA003963EE00778EDD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000445CAD00445CAD00516ED000445CAD00000000000000 + 000000000000516ED000445CAD002449C4000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004960B2005D7D + EA0002175D000216580002165800042CB300042BAC0002175D0002175D00042C + B300042BAC000216580002175D00042CB30002175D000216580002165800173E + C2005D7DEA004960B200000000000000000000000000000000004C65BC007A8D + D000000000000000000000000000000000000000000000000000000000004C65 + BC009AAEF1004C65BC0000000000000000000000000000000000000000000000 + 000000000000526CC9004C65BC0000000000000000005F7FE9006381E9006382 + E9006483E9006483E9006483E9006784EA006A87EA006484EE001A4AED001A4A + ED001A4AED002654EE006484EE006986EA006583E9006483E9006483E9006483 + E9006382E9006381E9004A64BB00000000000000000000000000000000000000 + 000000000000000000004963B9004963B900607CDC004963B900000000000000 + 000000000000607CDC004963B9003458D2000000000000000000000000000000 + 000000000000000000000000000000000000000000003C4E9300405190000D26 + 7800031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F7D00031F + 7D000D2678003C4E8C00879DE200000000000000000000000000536ECA004F6A + C50000000000000000000000000000000000000000000000000000000000536E + CA009DB0F200536ECA0000000000000000000000000000000000000000000000 + 00000000000000000000536ECA000000000000000000587CF2001949ED001D4D + ED002050ED002150ED002150ED002352ED002352ED002352ED002352ED002352 + ED002352ED002352ED002352ED002352ED002251ED002150ED002150ED001F4F + ED001D4DED001949ED004B65BC00000000000000000000000000000000000000 + 000000000000000000004C66BD004C66BD006782E0004C66BD00000000000000 + 0000000000006782E0004C66BD003C60D7000000000000000000000000000000 + 000000000000000000000000000000000000000000007A93E4003F64E0004569 + E0004A6DE0004C6EE0004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6F + E1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004D6FE1004C6EE000486B + E0004569E0004266DD004C64B700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000546ECB006177C5006177 + C5007893ED006177C5006177C5005C73C4000000000000000000000000000000 + 000000000000000000000000000000000000000000005B7EF2001F4FED002453 + EE002957EE002A57EE002B58EE002D5AEE002D5AEE002D5AEE002D5AEE002D5A + EE002D5AEE002D5AEE002D5AEE002D5AEE002C59EE002B58EE002A57EE002755 + EE002453EE001F4FED004C66BD00000000000000000000000000000000000000 + 000000000000000000004D67BE004D67BE006E88E2004D67BE00000000000000 + 0000000000006E88E2004D67BE004365DA000000000000000000000000000000 + 000000000000000000000000000000000000000000007290F4006A8AF3006888 + F300708EF4007290F4007290F4007391F4007391F4007391F4005771CE00354A + 940032458D007391F4007391F4007391F4007290F4007290F4007290F4006E8D + F3006888F3006A8AF3005771C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC005069C0005069 + C000A9BAF3005069C0005069C0005069C0000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF005870C300829AEB00426AF000426A + F000426AF0004D72F100849CEE005870C3004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF00546FCB00000000000000000000000000000000000000 + 000000000000000000004F69C0004F69C000879EE9004F69C000000000000000 + 000000000000879EE9004F69C0005171DE000000000000000000000000000000 + 000000000000000000000000000000000000000000005872CA005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9003C53A3005072 + E2000535D7005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C90093A8ED00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C100B0C0F600516AC10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005975D1007B90DA007592F4004D72F1007794 + F4007995F4004D72F1007592F4007D92DD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000506AC100506AC1009AAEF0005D75C600000000000000 + 0000D3DBF9009AAEF000506AC1005977DF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000425AAF004F73 + EB000538E3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000092A7EC00526B + C200A0B3F400526BC20092A7EC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006278C800869EF2005F81F2006989F300A1B3 + EE00A3B3ED00567AF2005C7FF200859EF20092A5EC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000516BC200516BC200A3B2E7008396D900000000000000 + 0000607BD700A3B2E700516BC200607DE1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004760B8005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB1F000BDCAF6009FAE + E3007287CF00A6B4E400CAD5F800798DD2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A92E4008CA4F4006D8CF3006A8AF30099ABEA00556F + CB00556FCB00859FF5006A8AF3006D8CF3007389D3007A92E400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000546DC400546DC400718AE0007388CF00C9D3F500C9D3 + F500B2C0EC00718AE000546DC4006E89E4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004C65BD005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000627DD8009AAAE1005973 + CF00D3DBF9005973CF00A4B2E300C0CBF1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005971C80086A0F5007592F4007C97F4006B81CC009FB1 + F000AEBEF300A7B9F5007F9AF5007592F40092A7EE005D75C800D3DBF9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000556EC500556EC500000000009FB1F000556EC500556E + C5005D78D50000000000556EC5007892E6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004E68BF005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000566FC7007085CF00D3DB + F90000000000D3DBF9007488D100C7D1F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006983DD007E92DA007F9AF5007F9AF5009AAFF7005D78D5000000 + 0000000000008DA0DF009CB1F7007F9AF50094ABF6008195DC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000566FC600566FC6000000000000000000000000000000 + 00000000000000000000566FC6008AA0EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000516AC1005075 + F100053AEB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000647EDA00B1BEE8005B76 + D200D3DBF9005B76D200AAB8E800A5B5ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000647EDA0090A3E4009DB2F70093AAF600AABCF7008497D900000000000000 + 0000000000007C93E5008497D900A9BBF7008BA4F60097ADF70093A6E8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000647EDA008B9FE2005B76D200AFBFF300000000000000 + 0000000000005B76D2008C9EDF00A2B2E7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005971C7005075 + F1001345EC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009FB2F000D3DCF900B2BF + E9007B8FD400AEBCE700CDD7F800798ED5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005B76D2008195D900AEBDF100A0B4F700A3B4ED005A74CF00000000000000 + 000000000000000000005A74CF00A1B1EC00ACBDF700A2B2EC00778CD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF600BFCBF200A2B1E600778BD3005872C9005872 + C9005872C900A0AFE300BCC9F2006F84D0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005972CB006A86 + E4006A86E4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000758AD300BFCA + EF00D7DFF900C1CBEF00758AD3006B85DE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007C93E6005C75CC00A5B6EF006F84D0009FB2F000000000000000 + 000000000000000000009FB2F0006F84D0008296DA005872CA00879CE9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000677ECE00A0B0E400C8D3F600CAD4F500CAD4 + F500CAD4F500A6B5E8006F85D00093A8ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000093A8ED005872 + CA005872CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A62004656900000000000000000000000000000000000000000000000 + 00000000000000000000DADADA00C1C1C1002C3C720025315900253159002531 + 590025315900253159002531590025315900C1C1C100C8C8C800DADADA000000 + 0000000000000000000000000000000000000000000000000000798CD2001926 + 54001F2E65002233700024367500243675002436750024367500243675002436 + 7500243675002436750024367500243675002436750024367500243675000000 + 0000000000000000000000000000000000000000000000000000000000002E3E + 79002A396C0090A1D600C8C8C800B6C3EC00667CC4003D559D0025356A002535 + 6A00243468003C5198006277BD00ABB9E500C3C3C30090A1D6002A396C002E3E + 7900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA00000000000000000000000000000000000000 + 00000000000000000000000000000000000027387100425CB10013339E001333 + 9E0013339E0013339E001F3DA300425CB1000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001A2755002231 + 6A003655BD001C41BA00042CB300042CB300042CB300042CB300042CB300042C + B300042CB300042CB300042CB300042CB300072FB400193EB9003656C200273A + 7D00667DCD000000000000000000000000000000000000000000000000003B51 + 9F0003279F0022377D002F3F79003C56AA002F4CAF001F3FA9000F31A3000F31 + A3000F31A3001F3FA9002F4CAF003C56AA002F3F790022377D0003279F003B51 + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B200000000000000000000000000000000000000 + 000000000000000000000000000000000000293A7500435DB60003279E000327 + 9E0003279E0003279E001334A300435DB6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001B2957002333 + 6D003555BF00042DB700042DB700042DB700042DB700042DB700042DB700042D + B700042DB700042DB700042DB700042DB700042DB700042DB7003556C500AAAF + BE00293D80000000000000000000000000000000000000000000000000005871 + C1001C368C00374986003F57A9001639AD001034AB002344B1003553B7003553 + B7003553B7002344B1001034AB001639AD003F57A900374986001C368C005871 + C100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B200000000000000000000000000000000000000 + 0000000000000000000000000000000000002C3D7B00435EBB000328A4000328 + A4000328A4000328A4001336AA00435EBB000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001D2A5A002435 + 70003656C300042EBB00042EBB00042EBB00042EBB00042EBB00042EBB00042E + BB00042EBB00042EBB00042EBB00042EBB00042EBB00042EBB003658C800B6BB + C8002A3E84000000000000000000000000000000000000000000000000008297 + DE003C4E8D003C58B6002244B6002849B8005C73C1009EA8C800CCCCCC006C6C + 6C00CCCCCC009EA8C8005D74C200294AB9002244B6003C58B6003C4E8D008297 + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F800000000000000000000000000000000000000 + 000000000000000000000000000000000000314486004361C500042CB100042C + B100042CB100042CB1001439B6004361C5000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001F2D5F002839 + 77003658C9000430C3000430C3000430C3000430C3000430C3000430C3000430 + C3000430C3000430C3000430C3000430C3000430C3000430C3003559CF00BEC3 + D1002E438D000000000000000000000000000000000000000000D0D8F7003C4E + 91002348C300163DBE004B66C100DFDEDE00F5F5F500F8F8F800F9F9F900FAFA + FA00FAFAFA00FBFBFB00F8F8F800E2E2E2004D68C300163DBE002348C3003D50 + 9300D0D8F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000033478C004362C900042DB700042D + B700042DB700042DB700143BBC004362C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000203063002A3B + 7B00375ACD000633C8000633C8000633C7000633C7000633C7000633C7000633 + C7000633C7000633C7000633C7000633C7000633C8000633C800375BD300C3C8 + D600314691000000000000000000000000000000000000000000566FC400455C + A900113AC3004765CB00B1B4BB00E2E2E200F5F5F500F6F6F600F7F7F700F8F7 + F700F8F8F800F9F9F900F9F9F900FAFAFA00B7BAC1004967CD00113AC300455C + A900566FC4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F80000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000364A91004363CF00042FBE00042F + BE00042FBE00042FBE00143CC3004363CF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000213164002B3D + 7E003D5FD1000F3BCD00103CCE00123ECF00123ECF00123ECF00123ECF00123E + CF00123ECF00123ECF00123ECF00123ECF00103CCE000F3BCE003D61D700C6CB + DA003248940000000000000000000000000000000000D1DAF7003F539C004463 + CA003156CF00A2AAC700E1E1E100EEEDED00D6D6D600F3F3F300F4F4F400F5F5 + F500F6F5F500F7F6F600F7F7F700F8F7F700E9E9E900A8B1CE003055D0004463 + CA003F539C00D1DAF70000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000003B519C003B519C003B51 + 9C003B519C003B519C003B519C003B519C003B519C004366D8000432CB000432 + CB000432CB000432CB00143FCE004366D8003B519C003B519C003B519C003B51 + 9C003B519C003B519C003B519C004B63BA00000000000000000025356A002E41 + 8400496BDA00214BD900244ED9002750D9002750D9002750D9006985E5006985 + E5006985E5002750D9002750D9002750D900244ED900204AD800486BDF00CFD4 + E400364D9C0000000000000000000000000000000000556EC7004B68C700385E + DD009CA5C800E5E4E400E9E8E800EAEAEA00EBEAEA00E1E0E000EEEDED00EBEB + EB00EFEFEF00F1F0F000F1F1F100F2F1F100F3F3F300F1F0F000A5AED100385E + DD004B67C700556EC70000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000004F6ED500516FD5005270 + D6005270D6005270D6005270D6005270D6005370D600496CDE000E3CD4000E3C + D4000E3CD4000E3CD400113ED4004A6DDF005270D6005270D6005270D6005270 + D6005270D6005270D600506ED4003E55A300000000000000000027366E003044 + 88004E6FDE002A53DE002E57DF00325ADF00325ADF005878E500112B8400112B + 8400112B8400325ADF00325ADF00325ADF002E57DF002A53DE004F72E400D3D8 + E8003951A000000000000000000000000000000000004960B3004C6DDB003A61 + E300C8C9D000E7E6E600E6E6E600E6E5E500E7E6E600E8E7E700BEBEBE00D2D2 + D200D5D4D400EDECEC00EEEDED00EEEEEE00F0EFEF00F1F0F000CFD1D8003960 + E2005473D9004660B7000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 00000000000000000000000000000000000000000000476BE300244FDD002852 + DE002953DE002953DE002953DE002953DE002A53DE00224DDD001C48DC001C48 + DC001C48DC001C48DC001C48DC00224DDD002953DE002953DE002953DE002953 + DE002953DE002852DE00496DE3004058AA000000000000000000283870003246 + 8C005475E200335BE300385FE3003C62E3003C62E3005268B000607FE8007792 + EC007792EC00607FE8003C62E3003C62E300385FE300325BE3005476E700D6DB + EC003B52A50000000000000000000000000000000000455EB2005474E0004369 + E900E0E0E000EFEEEE00EDECEC00EAE9E900E9E8E800E7E6E6007B7979006A68 + 68007F7D7D00E9E8E800EAE9E900EBEAEA00ECECEC00EDECEC00DEDDDD004268 + E8005878E100455EB2000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000005175ED00325CEA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA003760EA003760EA003760EA003760EA003760EA003760 + EA003760EA003760EA00577AEE00465FB50000000000000000002B3B7500354A + 9400607FE800446AEA004A6FEB004F73EB004F73EB0042548F0042548F004F73 + EB0042548F0042548F004F73EB004F73EB004A6FEB004369EA006081EE00DFE4 + F5003F58AD00000000000000000000000000000000004A64BB006E8BEE005A7D + F200E9E9E900F9F8F800F8F8F800F6F6F600F5F5F500F4F4F4009F9E9C009290 + 8E009F9D9B00EDECEC00EBEBEB00EAE9E900E7E6E600E6E5E500D7D6D600587C + F2007490EE004A64BB00000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000005579F1003E67EF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446BEF00446B + EF00446BEF00446BEF005C7FF2004963BA0000000000000000002D3E7800384D + 97006685EC004C71EF005377EF00597CF000597CF00044569100364B90008BA3 + F400364B900044569100597CF000597CF0005377EF004B70EF006686F100E3E9 + FA00415BB10000000000000000000000000000000000526CC100819BEF006384 + F300DBDDE200FCFCFC00FBFBFB00FAFAFA00F9F9F900F9F8F800E0DFDF005856 + 5500DEDDDD00F3F3F300F2F1F100F1F0F000EEEDED00EDECEC00CCCDD2006183 + F20089A1F100526CC100000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000597CF2004B71F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1005277F1005277F1005277F1005277F1005277F1005277 + F1005277F1005277F1006183F2004A64BB0000000000000000002E407A003A50 + 9A006B89EE005277F1005B7EF2006384F3006384F300394D91003B57B400223C + 90003B57B400394D91006384F3006384F3005B7EF2005277F1006C8BF300E6EC + FD00445DB400000000000000000000000000000000005F79D2008DA1E6006D8C + F300BEC5DE00FAFAFA00FDFDFD00FDFCFC00FCFCFC00FCFBFB00FBFAFA007674 + 7300F9F9F900F8F7F700F7F7F700F6F6F600F4F4F400F0EFEF00B7BDD6006B8A + F30092A5E7005F79D200000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000587CF2005479F1006183 + F2006888F3006888F3006888F3006A8AF3006E8DF3006D8CF3006D8CF3006D8C + F3006D8CF3006D8CF3006D8CF3006E8DF3006A8AF3006989F3006888F3006888 + F3006686F3006183F2006082F2004C66BD00000000000000000030417B003C51 + 9C007792EF006283F2006C8BF3007592F4007592F4007592F400294190002941 + 9000294190007592F4007592F4007592F4006B8AF3006183F2007693F400E6EC + FD00465FB70000000000000000000000000000000000919FD0005C74C500A6B8 + F3009FB3F700C5CADA00EFEFEF00FFFFFF00FFFFFF00FFFEFE00FEFEFE008785 + 8400FEFEFE00FDFDFD00FDFDFD00FCFCFC00ECECEC00C4C9D9009DB2F600A3B5 + F3005D75C5008A97C600000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A7BE9006987EA006E8A + EA00728EEA00738EEB00738EEB00748EEB007994EB00849EF5007B97F4007B97 + F4007B97F4007B97F4007C97F4008CA5F600748EEB00738EEB00738EEB00728E + EA00718DEA006E8AEA005E7EE9004D67BE00000000000000000031427C003D53 + 9C007C96F0006A8AF3007491F4007E99F5007E99F5007E99F5007E99F5007E99 + F5007E99F5007E99F5007E99F5007E99F5007491F4006888F3007C97F400E6EC + FD004761B800000000000000000000000000000000007F7E7D008390C10092A3 + DD0091A8F600B2C1F300C2C3C700FFFFFF00FFFFFF00FFFFFF00FFFFFF009D9B + 9A00FFFFFF00FEFEFE00FEFEFE00EBEBEB00C0C1C500B1C1F3008DA5F50091A2 + DD00818FBE008785840000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF004E68BF004E68BF007391F40087A1F50087A1 + F50087A1F50087A1F5008BA4F600829DF5004E68BF004E68BF004E68BF004E68 + BF004E68BF004E68BF004E68BF00546FCB00000000000000000032437D003E53 + 9E007F99F000708EF4007B97F400849EF500849EF500849EF500849EF500849E + F500849EF500849EF500849EF500849EF5007A96F4006F8DF300819BF500E6EC + FD004862B90000000000000000000000000000000000B2B0AF009A9CA6005E76 + C70096ACF700A3B6F800B8C4EC00E5E5E500FBFBFB00FFFFFF00FFFFFF00D7D6 + D600FFFFFF00FFFFFF00FBFBFB00E5E5E500B7C3EC00A0B4F70092A9F6005E76 + C7009498A100B5B4B30000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA004863C0004D68 + C1004D68C2004D68C2004D68C2004D68C2004D68C2004C66C1004964C1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000506AC1007290F400A2B6F800A3B6 + F800A3B6F800A3B6F8009FB3F700859FF5000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034447F004056 + A00088A0F1007B97F40086A0F50091A8F60094ABF60095ACF70095ACF70095AC + F70095ACF70095ACF70094ABF60091A8F600849EF5007A96F40089A2F600E6EC + FD004A64BB0000000000000000000000000000000000BDBCBB00A3A1A0007978 + 77007B90D300BAC8F600A9BBF800C9D5FB00D1D8F200D0D3DE00CECECE006D6D + 6D00CECECE00D0D3DE00D1D8F200C8D4FB00A5B8F800B8C6F6007B90D3007372 + 71009B999800B5B4B300000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00607EE4005D7C + E2005E7DE3005E7DE3005E7DE3005E7DE3005E7DE3005D7CE2006B87E5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000516BC2007693F400B0C0F900B1C1 + F900B1C1F900B1C1F900ABBDF8008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000034457F004156 + A1008DA4F2007F9AF50088A2F60094ABF60097ADF70098AEF7009AAFF7009AAF + F70099AFF70098AEF70097ADF70094ABF60087A1F5007E99F5008DA5F600E6EC + FD004C65BC0000000000000000000000000000000000B4B3B200908E8D007D7B + 7A006C7BAA00758AD200B8C6F200B8C7F900C1CEFA00CED8FB00D5DEFC00D5DE + FC00D5DEFC00CDD8FB00BFCDFA00B6C6F900B6C4F200748AD200707DAE007371 + 700089888700B1B0AF000000000000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00728DEA0094A9 + ED0096AAEC0096AAEC0096AAEC0096AAEC0096AAEC0093A8ED007B95EB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000526CC3007A96F400BDCBFA00BDCB + FA00BDCBFA00BDCBFA00B5C5F9008FA7F6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000354681004157 + A2008FA6F100819BF50089A2F60093AAF60096ACF70097ADF70098AEF70098AE + F70098AEF70097ADF70095ACF70093AAF60087A1F5007F9AF5008FA7F600E6EC + FD004D66BD0000000000000000000000000000000000A9A8A600898887006E6C + 6B008C8B8B00919BBC00637BCB00C6D1F700C0CEFA00BECCFA00BAC9FA00BAC9 + FA00B7C7F900BCCAFA00BECCFA00C4D0F700627ACB0097A1C200989796006F6E + 6D00817F7E00ADABAA00000000000000000000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC5007C97F400CBD6FB00CDD8 + FB00CDD8FB00CDD8FB00C0CEFA0093AAF6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000364882004156 + 9D006984E30097ADF7009AAFF7009DB2F7009EB3F7009FB3F7009FB3F7009FB3 + F7009FB3F7009EB3F7009EB3F7009DB2F70099AFF7009CB0F3007B8FD500E6EC + FD004F69C00000000000000000000000000000000000B3B3B300A19F9D00CBCA + CA00F2F1F100DEDEDE00B9B9B9007D808B008891B2006B81D3005771C8005771 + C8005771C8006681D8008A93B4007D808B00A8A8A800D1D1D100F2F2F200D6D5 + D500A9A8A6009F9F9F000000000000000000000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000546EC5007995F400C7D3FB00CCD7 + FB00CDD8FB00CAD5FB00B7C7F9008EA6F6000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004459A7003D4F + 91005366A900506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC1006E82CB00E6EC + FD005069C0000000000000000000000000000000000000000000B4B4B400AAA9 + A700E4E4E400D2D1D100BAB9B900A09F9D00A0A09F0000000000000000009896 + 94000000000000000000B4B4B400A09E9D00B1B0B000C9C9C900E1E0E000B1AF + AE00A0A09F000000000000000000000000000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000556FC6006F8DF300B2C2F900BECC + FA00C0CEFA00B6C6F900A2B6F800829CF5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B9C6F2003B4F + 950097A0C200C9D0E900E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00CCD3 + F000506AC3000000000000000000000000000000000000000000000000000000 + 00009F9D9B00A9A7A500A1A09E00C8C8C800000000000000000092918F009896 + 940092918F000000000000000000D5D5D5009F9D9B00A9A7A5009F9D9B00C8C8 + C800000000000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A76D2005771C8005771C8005771 + C8005771C8005771C8005771C8005771C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3D3D300C0C0 + C0004153940034458000344580009FADDD00C0C0C000C0C0C000C0C0C000C0C0 + C000C0C0C000C0C0C000CBCBCB00CECECE00CECECE00DADADA00DEDEDE00DEDE + DE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B8C5 + F1002338820014309000143090002F407C00A8B8E80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BECCF4003D56AA003A57 + BC008CA2EB008695CC008695CC002650DD003A57BC003D56AA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCDCDC00C4C4C400C1C1 + C1003E5194003E5194003E5194003E5194003E5194003E5194003E5194003D50 + 92003B4D8B003647800034447C00324177002C3B6C002A38670029366200B1BC + E500C4C4C400DDDDDD0000000000000000000000000000000000000000000000 + 0000D4D4D400C5C5C50030428100273567002735670027356700273567002735 + 670027356700273567002735670027356700273567002F428100D1D1D1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BB5004967CD003761 + EE008A9AD4004964C1004964C10095ABF5003761EE004967CD00BECCF5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000637A + CC0091A4E50095A9EC0095A9ED0091A6ED008EA4ED008BA2ED00849CEB008199 + E9007E96E400788FDB00758CD7007187D1006A7FC500687CC0006F7FB700455A + A300000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002D4188008895C1008895C1008895C1008895C1008895 + C1008895C1008895C1008895C1008795C1006474A9002D438D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC9004068F00097AC + F5004A65C20000000000000000008E9DD6009EB2F600476EF000455DB700BECC + F500000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000405A + B4008CA5F60089A2F60089A2F6007C97F4007391F4006989F300567AF2004C71 + ED004469E6003157D600274DCD001D43C3000A2FAE000328A3003652AF002636 + 6A00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F200283C8200283C8200283C8200283C8200283C + 8200283C8200283C8200283C8200283C82002E479500BAC6F200000000000000 + 0000000000000000000000000000000000000000000028387100283871002838 + 7100283871002838710028387100283871002838710028387100283871002838 + 7100293C7A000000000000000000000000000000000000000000000000000000 + 0000000000004B62B100283871000000000000000000A5B6EF006283F200697F + CC00000000000000000000000000000000004C67C30095A4D9006888F3006E86 + D8004861BA000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000435D + B500A3B6F800ACBDF800A2B6F8008DA5F600829DF5007894F4006283F2005679 + EE004B6FE700365BD7002C51CE002146C4000B30AE000328A30003269B002838 + 6D00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002B408A00283C7E00283C7E00283C + 7E00283C7E00283C7E00283C7E002B408A000000000000000000000000000000 + 000000000000000000000000000000000000000000004862B8004E67BA005069 + BB004D66BA004C66BA004A64B8004660B700435EB600435DB6007D8FCC00929D + C00033447F000000000000000000000000000000000000000000000000000000 + 0000A3B4EB0035447D003446820000000000000000009AAADC00A6B9F8007591 + F1004D67C4000000000000000000000000009BAFEC004159B200B2C2F8007391 + F4006F85D0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000455F + B700A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A39 + 6D00000000000000000000000000000000003A53A7002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E002D438E002D438E002D438E002D438E002D43 + 8E002D438E002D438E002D438E003A53A700000000004F69BF002948B1002F4D + B3002B4AB2002646B0002142AF001739AB001033A9001538AA00929EC4003749 + 8600ACBBEB000000000000000000000000000000000000000000000000000000 + 000033488F0051629F00445CA90000000000000000004F67BD00B9C4EA00B1C1 + F9006F85CF004E69C50000000000465EB6006177C1005266B10095A3D300839E + F50099ACEC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004761 + B800A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F4006283F2000000 + 0000829BEF00365BD7002C51CE002146C4000B30AE000328A30003269B002A3A + 6F00000000000000000000000000000000002F44910094A7E90099ABEA009BAD + EA009BADEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA009BAD + EA009AACEA0099ABEA008CA1E7002F449100000000005C76CC004C68C7005570 + CA004B67C7004562C500405EC4003454C000546FCA006E80BC00B1BFED000000 + 0000000000000000000000000000000000000000000000000000000000004455 + 92004964BF006980CC00B4C3EF00000000000000000000000000BFCCF5005169 + BF00C5D1FA00A5B7F6007D91D3007A8DCB00A5B8F7006485F3005872C5004357 + 9F008796CD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B65 + BC00A9BBF800ADBEF800A2B6F8008DA5F600829DF5007894F40013192E000000 + 0000171C2C00365BD7002C51CE002146C4000B30AE000328A30003269B002D3D + 71000000000000000000000000000000000032499900617EE100708AE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400718BE400718BE400718BE400718BE400718BE400718BE400718B + E400718BE400708AE4009CAEEC003249990000000000607AD1005873CF00627C + D2005873D000526ECD004D6ACC004261C9004F6CCC00586FBA00000000000000 + 0000000000000000000000000000000000000000000000000000556EC3004D67 + BC003F5FC8008596D0000000000000000000000000000000000000000000BFCC + F500C4CCEC00C8D4FB00A9BBF700425DB90097A7DD00A4B7F8005E80F1005A73 + C7003B519C000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D67 + BE00A8BAF800ADBEF800A2B6F8008DA5F600829DF5007894F4001F1F1F000C0C + 0C001F1F1F00365BD7002C51CE002146C4000B30AE000328A30003269B002F3E + 720000000000000000000000000000000000334B9D005D7BE1006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3006683E3006683E3006683E3006683E3006683E3006683 + E3006683E3006683E3009BAEED00334B9D00000000006580D700637ED6006F88 + DA00647FD700607BD6005A76D4004E6CD1004766CF005C77D2005871C5000000 + 000000000000000000000000000000000000CCD6F700455EB10044599E003255 + CA00385ACB008392C20000000000000000000000000000000000000000000000 + 0000536BC100C4CCEC00C8D4FB008E9ED8004F67BA0098A7DE006485F3005E80 + F1005B74C800BCC8F30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F69 + C000A5B8F800ACBDF800A2B6F8008DA5F600829DF5007894F4003C4257003333 + 330041465600365BD7002C51CE002146C4000B30AE000328A30003269B002F3F + 740000000000000000000000000000000000354DA1005474E1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7AE1005B7A + E1005B7AE1005B7AE10099ACEE00354DA100000000006C86E0007891E300889E + E6007E96E4007992E300748EE2006984E0006480DE005977DC006580D8005269 + B900485EA600445BAA004359A600455BA5005570CC004F6FDA003459D5002F55 + D40095A5D9004960AE0000000000000000000000000000000000000000000000 + 000000000000BFCCF500556DC300D5DCF600D5DCF6008E9DD6009AA9E000A4B7 + F8006485F3005D76CA0040549E002D44910019379D002D438F00374B90000000 + 000000000000000000000000000000000000000000000000000000000000536D + C60090A8F6009AAFF7009DB2F7008FA7F60086A0F5007E99F5006C8BF3006383 + F000597AE9004769DA003E60D2003457C9002244B6001C3DAC003652AF003141 + 7600000000000000000000000000000000003952A9004065E000466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE100466AE100466AE100466AE100466AE100466AE100466A + E100466AE100466AE10093A8EE003952A900000000006E89E5007E96E70094A8 + EB008BA1EA00869DE8008199E8007690E600718BE5006B86E3006683E3006B86 + E300607EE2005270D3005A76D5005A78DE004A6CDE003158D900264FD8006D88 + E2008090C500879CE10000000000000000000000000000000000000000000000 + 00000000000000000000D2DBF8005873CE005873CE00657FD9004E68C1009AAA + E200A4B7F8005E80F1005E77CB003E55A3006A84D8000D37C2002846AA00BDC9 + F40000000000000000000000000000000000000000000000000000000000718A + E1008CA3EE0093A8F00096ABF00093A8F00091A7F1008FA5F00089A1EF00879F + ED00849BE8007E94DF007B91DA00788DD4007286C9007083C5007283BE004F66 + B400000000000000000000000000000000003B55AC00385FE0003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62E1003C62 + E1003C62E1003C62E10091A7EF003B55AC00000000006D89E7007C96EA0097AB + EE009DB0F00093A8EE008DA3ED00839BEC007D97EB007792E9006D89E8006381 + E7006482E700607FE6005E7DE6005072E3004065E1003D62E100335ADF00A8B6 + E400566BB8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF600506A + C3009BABE2006485F3005E80F1005F78CC008C9CD100839BE9001543DA00475F + B300BFCCF5000000000000000000000000000000000000000000000000000000 + 00005771C800888C9C0094939200888C9C005771C8005771C8005771C800556E + C400516ABD004B62AE00485EA7006D717D006C6B6B005E616D003A4A83000000 + 0000000000000000000000000000000000003C56AE002E56DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE003259DE003259DE003259DE003259DE003259DE003259 + DE003259DE003259DE008EA4EE003C56AE00000000005F80EE00A0B3F500ACB9 + E700B9C6F100A5B7F500A0B3F5009DB1F40097ACF40092A9F400869FF200819B + F1007D97F100728FF0006C8AF0006786EF005B7DED005074EC007F99F0005C76 + CC00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006F89 + DF00516DCC009EADE400A4B7F8006485F3006C80C5004E67BF0093A3DD003761 + EF005270D600516AC30000000000000000000000000000000000000000000000 + 00000000000080808000C6C6C600808080000000000000000000000000000000 + 0000000000000000000000000000808080004646460080808000000000000000 + 0000000000000000000000000000000000003D57AF001C47D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49D8001E49 + D8001E49D8001E49D80089A0EB003D57AF0000000000859FF400A6B6E8005E76 + C700768BD200BDCAF600A4B7F700A8BAF700A4B7F7009FB3F60094ABF6008EA6 + F50088A1F500809BF5007A96F4007592F4006384F300839DF400B3C1ED00D3DB + F900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B75 + D2006B87E6005A72C800A0AFE500AEBFF8007F93D7009FB1EF005671CD009FB3 + F600496FF0005E7AD900BFCDF600000000000000000000000000000000000000 + 00000000000080808000CBCBCB00808080000000000000000000000000000000 + 0000000000000000000000000000808080004C4C4C0080808000000000000000 + 0000000000000000000000000000000000003E58B0001340D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D5001441D5001441D5001441D5001441D5001441D5001441 + D5001441D5001441D500869DE9003E58B00000000000A3B3E8006078C800B4C1 + F2005974CF007D91D600BBC9F800A2B6F800AEBFF800ACBDF800A1B5F7009CB1 + F70097ADF7008BA4F600859FF5007E99F50097ADF700B6C2EE006A80CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005B76 + D3009AACED006C85D8005770C7008598D9005872CA0000000000000000009AA8 + DF00A8BAF700597CF200526BC400000000000000000000000000000000000000 + 00000000000080808000D0D0D0007F7F7F000000000000000000000000000000 + 0000000000000000000000000000888888005050500080808000000000000000 + 0000000000000000000000000000000000003F59B1000B39D3000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39D2000B39 + D2000B39D2000B39D200839AE8003F59B1000000000000000000000000000000 + 00000000000000000000647EDA0096A8E300C1CEF800C3D0FA00B1C1F900A9BB + F800A5B8F800ABBDF800BAC9F900C1CCF400627BCE00BBC9F500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005972C800A9BBF8007995F2007389D6000000000000000000000000000000 + 00005872CF009AAAE3008FA4EB005C77D4000000000000000000000000000000 + 00000000000080808000D4D4D40082828200C6C6C60000000000000000000000 + 00000000000000000000C6C6C600969696006060600086868600000000000000 + 000000000000000000000000000000000000415BB2000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE000433CE000433CE000433CE000433CE000433CE000433 + CE000433CE000433CE008299E600415BB2000000000000000000000000000000 + 00000000000000000000000000005874CF00657DCD008497DB00B9C7F300C1CD + F600C0CDF600A7B6E700889AD900667FCC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000C1CDF600BDC8EE00B4C4F90089A2F4005973CF0000000000000000000000 + 00005973CF00899DDE00B1C0F1005D78D5000000000000000000000000000000 + 00000000000090909000C0C0C0008B8B8B008A8A8A0000000000000000000000 + 000000000000000000008A8A8A00B1B1B1006A6A6A0096969600000000000000 + 000000000000000000000000000000000000415BB3000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB000432CB000432CB000432CB000432CB000432CB000432 + CB000432CB000432CB008198E400415BB3000000000000000000000000000000 + 0000000000000000000000000000000000009FB1F0006B85DE005771C8005771 + C8005771C800647EDA0093A8ED00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005D74CA00C4CDEF00BECCFA008297DB005974CF00000000005974 + CF008297DB009CB0F5009DACE100718AE2000000000000000000000000000000 + 000000000000B0B0B000A4A4A400ADADAD008A8A8A0086868600000000000000 + 000000000000868686008F8F8F00A4A4A40076767600BBBBBB00000000000000 + 000000000000000000000000000000000000425CB4000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9000432C9000432C9000432C9000432C9000432C9000432 + C9000432C9000432C9008198E300425CB4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C1CDF6005F76CC00C8D4FB00A9BBF7009BACE400A9BB + F700C8D4FB00C7D0F000C1CDF600000000000000000000000000000000000000 + 00000000000000000000D3D3D300D6D6D600DFDFDF00CECECE00ADADAD009C9C + 9C0097979700BBBBBB00C0C0C000B4B4B400D3D3D30000000000000000000000 + 000000000000000000000000000000000000445EB5000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4000430C4000430C4000430C4000430C4000430C4000430 + C4000430C4000430C4008197E200445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF600C7D0F000CED8FB00B7C7F900CED8 + FB00C7D0F0005F76CD0000000000000000000000000000000000000000000000 + 000000000000000000000000000080808000B3B3B300E1E1E100F3F3F300EEEE + EE00E8E8E800CBCBCB00A6A6A600808080000000000000000000000000000000 + 000000000000000000000000000000000000445EB500889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889BDB00889B + DB00889BDB00889BDB00889BDB00445EB5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005D75CC00A1B0E200CED7F400A1B0 + E2005D75CC00C1CDF60000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B0B0B0008A8A8A00808080008080 + 8000808080008A8A8A00B0B0B000000000000000000000000000000000000000 + 0000000000000000000000000000000000004C67C400445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB500445EB500445EB500445EB500445EB500445E + B500445EB500445EB500445EB5004C67C4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000C7C7C70045599A0026336000B2BDE500C7C7C700D2D2D200000000000000 + 0000000000000000000000000000DADADA00C2C2C200475C9D002633620096A6 + DB0000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029387000364FA0008697D0002C3E8000758AD60000000000000000000000 + 0000000000000000000000000000000000002E4286004359A5008596D0002739 + 78007185D0000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000263A7E007082BE00505F92003A53A60033478E0000000000000000000000 + 000000000000000000000000000000000000294091007789C700505F94002942 + 96003B529E000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 0000243E92006676A8005169BB007488CD002E459600576EC300000000000000 + 0000000000000000000000000000A4B3EB00526CBF005F6EA4005B72BF003A54 + A9002F407C000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F100000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB10000000000000000000000000000000000000000000000 + 00005C6FB200354A9100A3B3EB004258A100657ECF002F4CB000000000000000 + 00000000000000000000708ADA003953A6005668A70098AAE90000000000586D + B800374C9100000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC001338B100CFD6 + EE00FFFFFF001338B100042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB1000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB10000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000000000000000 + 00006373AC00435BA8005A72C600647ED1004A63B7001F48D1007D93DE000000 + 000000000000D1DAF800455BAC00294EC700445CAD000000000098AAE9007485 + C100485FB2000000000000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100CFD6EF00FFFF + FF00FFFFFF00CFD6EF001439B600042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB1001439B600CFD6 + EF00042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF00FFFFFF00FFFFFF00042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000000000000000 + 00004B5EA0007A8DCC004157A1004760B3003D5BBD003158DC004A62B800D2DB + F800000000005671CB00425EBF003058DE00465CA9006680D400435DB3006778 + B3008699DF000000000000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600143ABA00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D0D7F100143ABA00042DB600042DB600042DB600042D + B6002B4EC2004C62AD0000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600D0D7F100FFFF + FF00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C62AD00000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD700000000000000000000000000000000000000 + 0000D1DAF8004D64B2008596D3007E98EC00819BEF006D8BEE0098AAEA00536D + C4004F4E4E008699DD00728FF2006D8BF0007994EC008FA4EB008C9EDD008CA0 + E6000000000000000000000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00264BC800173FC400173FC400173F + C400153DC400395BCD00788DD7000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400264BC800D2D9F300FFFFFF00FFFF + FF00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B600000000000000000000000000000000000000 + 000000000000BFCCF5005F79CD006E82C900788DD7008297DE00667DCC00BCC5 + E300D7D6D6005F75C3008095DA008A9EE4007689D1006278C300526BC1000000 + 000000000000000000000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00D4DBF400FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4DBF4002F54CE00234ACB00234A + CB002148CB003357CF004963B60000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB002F54CE00D4DBF400FFFFFF00FFFFFF00FFFF + FF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B60000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D2002E53D2002E53D2002E53D200FFFFFF00FFFF + FF00FFFFFF00FFFFFF002E53D2002E53D2002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A200000000000000000000000000000000000000 + 0000000000000000000000000000AEBEF300859BE900788DD900CAD1E900EEEE + ED00EBEAEA00C2C6D6007382B6007289D900AFBEF300D3DBF900000000000000 + 000000000000000000000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53CF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D6DDF5002E53D2002E53 + D2002D53D2003257D3003D54A20000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200D6DDF500FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002E53 + D2002D53D2003257D3003D54A20000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A600000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A6A5006E6D6D00DAD9 + D900E8E7E700BFBDBC009A9897009D9D9D000000000000000000000000000000 + 000000000000000000000000000000000000000000004158A600627CD900365C + DC004569DF004569DF004569DF004569DF004569DF004569DF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF004569DF004569DF004569DF004569DF004569DF004569 + DF004468DF003A5FDC004158A60000000000000000004158A600627CD900365C + DC004569DF004467DC00B6C2EA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569 + DF004468DF003A5FDC004158A6000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000807E7E00ACABAA00A0A0 + 9F00F1F0F000BCBAB900AEACAB0082807F000000000000000000000000000000 + 00000000000000000000000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E3005173E3005173E3005173E3005173E300FFFFFF00FFFF + FF00FFFFFF00FFFFFF005173E3005173E3005173E3005173E3005173E3005173 + E3004F71E3004368E100435BAB000000000000000000435BAB006681DE003F64 + E1005173E3004764C7004C66BA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E1E7FB005C7CE8005C7C + E800597AE8005375E700475EB400000000000000000000000000000000000000 + 0000000000000000000000000000000000009796960094929100BFBDBC00EAEA + E9008A898900C0BEBC00A8A6A400989694000000000000000000000000000000 + 00000000000000000000000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7CE800FFFFFF00FFFF + FF00FFFFFF00FFFFFF005C7CE8005C7CE8005C7CE8005C7CE8005C7CE8005C7C + E800597AE8005375E700475EB4000000000000000000475EB4006C86E0005275 + E7005C7CE8005B7BE5004E69C300DCE1F100FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C7C + E800597AE8005375E700475EB40000000000000000007790E100687FCD006E8C + F0007491F1007491F100738FEE00677DC500E0E5F300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007D98F2007491F1007491F1007491 + F1006988EF006E8CF0007790E100000000000000000000000000000000000000 + 00000000000000000000000000008B8A8900ABAAA900BAB9B800CBCAC9008786 + 860000000000D2D2D100E7E6E500B6B5B4008987870000000000000000000000 + 000000000000000000000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF00FFFFFF007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1006078C900677DC500E0E5F300FFFFFF00FFFF + FF007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1006988EF006E8CF0007790E1000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5006B82CD007084C700E2E6F400FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E7ECFD00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F700000000000000000000000000000000000000 + 00000000000000000000000000009F9E9D00C0BFBE00E5E4E4008F8D8C000000 + 0000000000008F8F8D00E2E2E100E4E3E3009E9C9B00B3B1B100000000000000 + 00000000000000000000000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF5007E98F1006B82CD007084C700FFFFFF00FFFF + FF00819BF500819BF500819BF500819BF500819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F7000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F60089A2F3007489CD00788AC800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00E9EEFD0092A9F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C8C8C700DFDFDF00F2F2F100C7C7C6000000 + 000000000000D3D3D300A3A2A100F2F2F200C1C0BF00908E8D00000000000000 + 00000000000000000000000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600FFFFFF00FFFF + FF00FFFFFF00FFFFFF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD00000000000000000000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F60089A2F3007489CD00E3E7F400FFFF + FF008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A0B3F4008998C900E7EA + F400FFFFFF00A8BAF800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD70000000000000000000000000000000000000000000000 + 000000000000000000009A989700F8F8F800C9C8C80094949400000000000000 + 000000000000000000000000000098979700F8F8F800E2E2E2009F9E9C000000 + 000000000000000000000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD7000000000000000000000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F8008898CF00A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD70000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF80091A0D000929F + CA00DBE0F300AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 00000000000095959400C6C5C400E3E3E20092918F0000000000000000000000 + 000000000000000000000000000000000000E9E9E900EEEEEE00C5C5C4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF8008B99C7008B99 + C7008B99C700AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B6C5F600A1AE + D900B6C5F600B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 0000C7C7C700A8A7A500DDDDDC009C9A9900D3D3D30000000000000000000000 + 0000000000000000000000000000000000009C9B9900F3F2F200DFDFDE00BDBD + BD00000000000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A19F9D00EBEBEA00C0BFBE00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A6A5A500C4C3C200A2A0 + 9E00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A4A2A000D2D1D0009A999800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C9A9900A5A3 + A100000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9A99009D9B9A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009C9A + 9900000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000808080007D7D7D009D9D + 9D00C5C5C500C5C5C500C5C5C500C5C5C500C7C7C700C7C7C700C8C8C800CECE + CE00CFCFCF000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293462002530 + 5800253058002934620032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B0B0B000A6A6A600F9F8 + F800838382009E9E9E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046589700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004658970035447A004259A7000000 + 0000000000000000000000000000000000000000000026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0026366D0026366D0026366D0026366D002636 + 6D0026366D0026366D0026366D0031458D0000000000354A88002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D70002E3D + 70002E3D70002E3D7000D2D2D20000000000000000000000000086868600DCDC + DC00ACABA9008988870080808000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F100000000000000000000000000000000000000000003269B000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A90000D2A + 90000D2A90000D2A90000D2A9000293973000000000030438600E6EAF700E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9F600E5E9 + F600E5E9F600E5E9F60000000000000000000000000000000000000000008F8F + 8F00DCDCDB00A5A4A2008A898800D3D3D3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002F4284004D5F9E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F100000000000000000000000000000000000429A8002E3F7E000000 + 00004F70DE004F70DE004F70DE004F70DE004F70DE0039509D00354A9100506E + D400506ED400506ED400506ED400506ED400000000003A51A1005475E2005979 + E3005979E3005878E3003A51A1000000000000000000354A9200E5EAF8004364 + D2000430C2000430C2003659CE000430C2000430C2000430C2000430C2000430 + C2000430C2003659CE000430C2000430C2000430C2003659CE000430C2000430 + C2004364D200E5EAF80000000000000000000000000000000000000000000000 + 0000CECECE00EBEBEA00C0BFBE008A8988007E7E7E00D3D3D300000000000000 + 0000000000000000000000000000B6C3F0003E55A10000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046589A00475FB100000000000000000000000000082EAE00314284000000 + 00005073E8000537DE000537DE000537DE005073E8003E55A900394F9B004F6F + DB000432CD000432CD000432CD004F6FDB00000000004058AF005F80EF002A56 + E9002A56E9002855E9004058AF000000000000000000384E9800E5EAF9004162 + D1000432C9000432C900365BD3000432C9000432C9000432C9000432C9000432 + C9000432C900365BD3000432C9000432C9000432C900365BD3000432C9000432 + C9004365D600E5EAF90000000000000000000000000000000000000000000000 + 00007E7E7E00CECECE00EBEBEA00A5A4A2008A8988007E7E7E00000000000000 + 00000000000000000000B6C3F000273872002E417F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100A0AFE100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E000000000000000000000000001137B800334689000000 + 00004F74EF00053AE900053AE900053AE9004F74EF00425CB2003D55A5005072 + E3000535D8000535D8000535D8005072E30000000000435CB4006A8AF300426A + F000426AF0003F68F000435CB40000000000000000003B519F00DADFED004A64 + B9000937D0000A38D0003B60D9000A38D0000A38D0000A38D0000A38D0000A38 + D0000A38D0003B60D9000A38D0000A38D0000A38D0003A5FD9000A38D0000836 + D0004467DB00E6EBFA0000000000000000000000000000000000000000000000 + 0000D3D3D3007E7E7E00CECECE00C0BFBE00A5A4A2008A898800D3D3D3000000 + 000000000000B6C5F100283873006472A000364E960000000000000000000000 + 0000000000000000000000000000000000000000000000000000455BAE004C62 + AD00042DB600042DB600042DB600042DB600042DB600042DB600042DB600042D + B600042DB60003279F00FFFFFF009FAFE200042DB600042DB600042DB600042D + B6002B4EC2004C62AD000000000000000000000000002248C800384D95000000 + 00005B7EF2001D4DED001D4DED001D4DED005B7EF200455FB600455FB6005075 + F100053AEB00053AEB00053AEB005075F10000000000455FB6007592F4006686 + F3006686F300597CF200455FB60000000000000000004159AB00E5EAFB007E98 + ED003958C0001D48D700496DE5001D49DA001A41C3002F4FBA00B8C4EB003B5B + C6001D49DC00496DE5001E4BDF001E4BDF001E4BDF00496DE5001D4ADF001543 + DE00496DE500E5EAFB0000000000000000000000000000000000000000000000 + 00000000000000000000D3D3D300CECECE00EBEBEA00C0BFBE00706F6E005C5C + 5C009DADE2006979AE008192CC007E8EC7006077C40000000000000000000000 + 00000000000000000000000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC40012329D00FFFFFF00FFFFFF00A6B6E800173FC400173FC400173F + C400153DC400395BCD00788DD70000000000000000002B51D0003C519B000000 + 00006485F300305CEE00315DEF00305CEE006485F3004760B7004760B7005075 + F100053AEB00053AEB00053AEB005075F100000000004760B7007590EC008BA2 + EE008BA2EE00849DEE004760B7000000000000000000445DB100E6EBFC004A6F + EA00C7D1F2004260C6004868D3003656BF008FA1DE00D4DCF90089A1F200B0BD + E8002D52CC005074EB002854E6002854E6002854E6005074EB002854E6001C4A + E5004B70EA00E6EBFC0000000000000000000000000000000000000000000000 + 00000000000000000000000000007E7E7E00CECECE00EBEBEA00737271006367 + 74003D5093008195D7005871C3007A8CCA00A2B3E90000000000000000000000 + 000000000000000000000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB001C3BA300FFFFFF00FFFFFF00FFFFFF00ABBAEB00234ACB00234A + CB002148CB003357CF004963B60000000000000000003459D7003E54A1000000 + 00006C8BF300446BF000456CF000446BF0006D8CF3004861B9004861B9005075 + F100053AEB00053AEB00053AEB005075F100000000005069C7004861B9004861 + B9004861B9004861B9005069C70000000000000000004761B700E6ECFD004D72 + EF006D8BF100CAD4F40090A1DA00D5DDFA0099AEF600476DEE00325DED00ADBE + F70092A3DD00577AF000325DED00325DED00325DED00577AF000325DED002351 + EB004E73EF00E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3D3D3007E7E7E00A7A7A70081859400455B + A6007084C7005A75D2004F6AC7008496D300B7C5F10000000000000000000000 + 000000000000000000000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002B4FC700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53 + D2002D53D2003257D3003D54A20000000000000000004368E300445CAD000000 + 00007D98F5006989F3006D8CF3006A8AF3007D98F5004A64BB004A64BB005176 + F100083CEB00083CEB00083CEB005176F1000000000000000000000000000000 + 000000000000000000000000000000000000000000004B65BC00E6ECFD007290 + F4006283F2006586F3006586F3006586F3006586F3006586F3006586F3006586 + F3008CA5F600667FD2006586F3006586F300607FE6005874D1005975D400577B + F2007592F400E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2B1E600788ED9008CA4 + F5006B8AF0005071DF003257D000123ABF004E5F9B00465CAC00000000000000 + 000000000000000000000000000000000000000000004158A600627CD900365C + DC004569DF004569DF003854B200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008BA1 + EB004468DF003A5FDC004158A60000000000000000004D71E9004760B3000000 + 0000829DF5007794F400829CF5007894F400829DF5004C65BC004C65BC00587C + F2001647EC001647EC001647EC00587CF2000000000000000000000000000000 + 000000000000000000000000000000000000000000004C66BD00E6ECFD005277 + F1004B71F1005075F1006D8CF3005075F1005075F1005075F1005075F1005075 + F1005075F100C5CEEC004667D600496CDF00657DCE00B5C1E9009EAEE1003862 + EF00567AF200E6ECFD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004862BC0095ACF7007C97 + F400718FF4003D63E3000534D1000431C600556EC200475890004F67B7000000 + 00000000000000000000000000000000000000000000435BAB006681DE003F64 + E1005173E3005173E300415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173 + E3004F71E3004368E100435BAB0000000000000000005579EF004A63B9000000 + 0000829CF5007592F40086A0F5007592F400829CF5004D66BE004D66BE005E80 + F2002453EE002453EE002453EE005E80F2000000000000000000000000000000 + 000000000000000000000000000000000000000000004E68BF00E6ECFD005479 + F1005479F100597CF2007491F400597CF200597CF200597CF200597CF200597C + F200597CF200CDD7F90099A9DD007E92D500CED8FB00ACBDF800C4D0F900365A + D200587CF200E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BD007E92DA008AA3F600859F + F5007E99F5002250E9000F3FDD000534D1002146C400556FC20042538B000000 + 00000000000000000000000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE8004963B900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C2CEF6005C7C + E800597AE8005375E700475EB40000000000000000006787F3004F68BF000000 + 00004F69C0004F69C0004F69C0004F69C0004F69C000556FCC004F69C0006A8A + F3004068F0004169F0004068F0006B8AF3000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC100E6ECFD00577B + F2006586F3006D8CF300829CF5006D8CF3006D8CF3006D8CF3006D8CF3006D8C + F3006D8CF300829CF5007491F4006D8CF3006D8CF300829CF5006C8BF300D2DB + FA008094D700DFE5F60000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF500889BDD00AFC0F900B4C4F900D1DBFB00B6C6 + F9006A8AF300476EF000345FEF002250E9000534D1000431C6003356C900394C + 8E00B9C6F200000000000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1005C73C000FFFFFF00FFFFFF00CAD5F9007491F1007491F1007491 + F1006988EF006E8CF0007790E10000000000000000006F8DF3005069C1000000 + 0000000000000000000000000000000000000000000000000000516AC100718F + F4004E73F1004F74F1004E73F100718FF4000000000000000000000000000000 + 00000000000000000000000000000000000000000000526CC300E6ECFD007995 + F400819BF50088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2 + F60088A2F60088A2F60088A2F60088A2F60088A2F60088A2F60087A1F500839E + F500D8E0FC00E8EDFD0000000000000000000000000000000000000000000000 + 000000000000000000004F6BC600B9C5EF00ABB9E9008E9FD9006F83CB0096A6 + DD00B2C2F8005579F100466DF000345FEF001040DD000534D1000935C8005B6F + B2003A4D8F00CED7F700000000000000000000000000BFCDF6005971C3007E98 + F1007E99F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500677CC400FFFFFF00FFFFFF00819BF500819BF500819BF5007E99 + F5007290F4007E98F100CED8F70000000000000000007894F400516BC2000000 + 0000000000000000000000000000000000000000000000000000526CC3007894 + F4005C7FF2005D80F2005C7FF2007894F4000000000000000000000000000000 + 00000000000000000000000000000000000000000000536DC400E6ECFD00597C + F2006F8DF3007C97F4008FA7F600819BF500819BF500819BF500819BF500819B + F500819BF5008FA7F600819BF500819BF500819BF5008EA6F6007A96F4005075 + F1005F81F200E6ECFD0000000000000000000000000000000000000000000000 + 00000000000000000000546FCB005975D1006580D9007990E300BFCDF600546F + CB008FA0DA007491F4005479F100466DF0002250E9001040DE000534D1004161 + CC00596BAC0037488700314075003C539C0000000000000000005975D100768D + DD00829CF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6006F83C500FFFFFF00D4DDFC008BA4F6008BA4F6008BA4F600829C + F500809BF500768DDD0000000000000000000000000088A2F600546DC4000000 + 0000000000000000000000000000000000000000000000000000546EC500839E + F5007794F4007A96F4007894F400839EF5000000000000000000000000000000 + 000000000000000000000000000000000000000000005670C700E6ECFD005378 + F100577BF2006384F3007F9AF5006E8DF3006E8DF3006E8DF3006F8DF3006F8D + F3006F8DF300829DF5006E8DF3006E8DF3006C8BF3007E99F5006082F2003F68 + F000587CF200E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007488CF00B1BFF000829DF500466DF000345FEF002250E900042D + B600082BA100788AC60040539300B8C5F200000000000000000000000000607A + D70095ABF50092A9F600A0B4F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F8008E9FD800A2B6F800A2B6F800A2B6F800A2B6F8009FB3F70094AA + F500758AD500607AD70000000000000000000000000092A9F600556EC5000000 + 0000000000000000000000000000000000000000000000000000566FC60087A1 + F500829CF50087A1F500829DF50087A1F5000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00496F + F0005A7DF2005E80F2007E99F5006183F2006183F2006283F2006283F2006283 + F2006283F2007F9AF5006283F2006183F2006183F2007D98F5005D80F2005378 + F1004B71F100E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007991E400687DCA00B3C1F1005277F100466DF000345FEF001035 + B200788CCF009CA8CF00BAC7F300000000000000000000000000000000000000 + 000090A2E2009CB1F7009CB1F700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A9BBF8009CB1F7008EA1 + E300546FCA00000000000000000000000000000000009AAFF700566FC6000000 + 00000000000000000000000000000000000000000000000000005770C7008AA3 + F60088A2F60096ACF7008AA3F6008AA3F6000000000000000000000000000000 + 000000000000000000000000000000000000000000005771C800E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E6ECFD00E6ECFD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000092A7EC006179CA009CB1F7004F74F100385CD2008196 + DA009FACD6004F67B50000000000000000000000000000000000000000000000 + 00005870C70092A5E300A3B6F700ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900ACBDF800A2B6F800A1B5F7005870 + C700BFCDF60000000000000000000000000000000000A8BAF8005872C9000000 + 00000000000000000000000000000000000000000000000000005872C9007D97 + EE0090A7F10097ACF20090A7F1007D97EE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005670C700647ED2008A9DDC005B74 + CA00C1CDF6000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE300A0B3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700879BE300677ECC00627DD9000000 + 00000000000000000000000000000000000000000000AFBFF5005872C9000000 + 00000000000000000000000000000000000000000000000000005B76D2005872 + C9005872C9005872C9005872C9005872C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C8008EA0DF00A5B2DD00C1CD + F600000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000879DE7007B90D9005E79D500AFBFF300000000000000 + 000000000000000000000000000000000000000000005872C9005B76D2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005771C800A3B0DE005C75CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004A60B0002839760026356C00283976004A60B000A3B3EA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCDC + DC00DADADA00C9C9C900C7C7C700C7C7C700C0C0C000C0C0C000A4B1DD00333F + 6900303A6200465690000000000000000000CBCBCB0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0025325F0025325F0025325F0025325F0025325F002532 + 5F0025325F0025325F0026346600CBCBCB000000000042579E0036457D002E3C + 6D00283868008D9DD300C0C0C000C0C0C000C0C0C000C0C0C000C2C2C200CECE + CE00CECECE00CECECE00DEDEDE00DEDEDE00DEDEDE0000000000000000000000 + 00000000000000000000000000000000000000000000000000003B53A4002840 + 93001A3FBA003453BC003F5CBD003453BC001A3FBA000C31B0003B53A4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D5DCF600384C8A00445698002D49 + A7004D67C1006780D300627ACA0000000000000000003855B5003A56B5003B57 + B5003C57B4003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58 + B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003D58B5003C58 + B5003B57B5003A56B5002637740000000000000000003F59B0005A78DE004D67 + BE00334279002A3C780000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005069C0002E47A2000734 + C8005069BC00475AA20043579D00475AA2005069BC002D52CE002E47A2005069 + C000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000394D8C0043569800435CB0004E69 + C1006982D500768FE2004962B20000000000000000003753B2000F34AF001337 + AF00163AB000173AB000173AB000173AB000173AB000173AB000173AB000173A + B000173AB000173AB000173AB000173AB000173AB000173AB000173AB0001539 + B0001337AF000F34AE00283A7C000000000000000000415BB2006F8DF3002F58 + E2003C57B1002A38700000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003F56A9001843D5003059 + E1004059AC008A9FE600000000008A9FE6004059AC005A70BC001843D5003F56 + A900ACBCF1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5DCF60044579900425BAF00324DAA008196 + DB0097AAE900889FED004961B2000000000000000000415EBF001F44BC00274A + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4E + BD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002D4EBD002C4E + BD00284BBD001F44BC002D41860000000000000000004A65BF00657DCF00899F + E800647ED800536DC1003F57A700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003B61DF002A57EE006076 + C20000000000000000000000000000000000000000008FA3E9002A57EE003B61 + DF00445DB6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D5DCF6003E508F0046589A00314CA9005670C4008297DB00AFBF + F3008DA5F400607ACD00D8E0F80000000000000000004764C600284CC4003254 + C4003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003556C5003556C5003556C5003556C5003556C5003556C5003556C5003556 + C5003254C400284CC4002F448D000000000000000000BFCCF5004862BC006A81 + D000556FC5003355C700506CCC004E65B40090A3E20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000486CE8003C65ED00556C + BC000000000000000000000000000000000000000000000000003963EF004A6E + E600445DB4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003F519100475A9C00435CAF005771C5008297DB00A6B6EB00849E + F2005C76CE004C63AF000000000000000000000000004C6ACD003155CB003C5D + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5FCC003F5F + CC003C5DCC003155CB0031479200000000000000000000000000BFCCF5004A64 + BD008FA4E8005670C400647DD100425596003645760035498F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006080EB004A6FEE005168 + BB00000000000000000000000000000000000000000000000000476EF0006080 + EB00455EB5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D5DCF700475A9C00425BAF00324DAA008297DB00A8B8EC00A8B9F2005E79 + CF004F65B000D8E0F8000000000000000000000000005C79DA004668D8005674 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005876DA005876DA005876DA005876DA005876DA005876DA005876DA005876 + DA005674DA00486AD900374E9D00000000000000000000000000000000000000 + 00004F68C1007087D40095A8E9004462C8005570CA00465AA00032458600B8C5 + F100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008397DB006888F3006F88 + DF0000000000000000000000000000000000C9D4F8004A64BD006886EC007F92 + D100607AD3000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D3D3 + D300485584004B63B4004A65C000758CD800ABBBF2008FA6F400607BD100D8E0 + F80000000000000000000000000000000000000000006581E1005273E000627F + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006682E1006682E1006682E1006682E1006682E1006682E1006682E1006682 + E1006380E1005474E0003A51A300000000000000000000000000000000000000 + 0000BFCDF600506AC3007288D500637AC5004563C8003B5BC800394A86003142 + 7D00A4B3EA00293B7B00283871002E4185000000000000000000000000000000 + 000000000000000000000000000000000000000000006076C20096ACF4007391 + F4004C64BE0090A4EA000000000090A4EA004C64BE009DACDE00A0B3F3005E73 + BB004159AB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A2A2A2007A7978006B6969006A6867006B6969007A797800C5C5C5007371 + 710072737D005366A8007088D7007F96E30089A2F400667FD300526AB5000000 + 000000000000000000000000000000000000000000006D89E8005D7DE7006F8B + E800748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900748FE900748FE900748FE900748FE900748FE900748FE900748FE900748F + E900718CE900607FE7003C55A800000000000000000000000000000000000000 + 000000000000BFCDF600536CC50098AAE900637AC6004566D4003954B1003A49 + 7E0035406900576EB900566DBA00556BB400374E9900CED7F700000000000000 + 000000000000000000000000000000000000000000005C76D2008295D6009EB2 + F500859BE400697EC9006076C200697EC900859BE400A9BBF800A0AEDF004362 + CC002D4FC300BDCBF40000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000A3A2 + A200AAA9A900DAD9D900EDEDEC00E7E7E700EBEBEB00D8D7D60078767500706E + 6D007D7B7A005567A300637AC4007B95EB00647ED400546CB700D8E0F8000000 + 000000000000000000000000000000000000000000007C97F400708EF400829D + F4008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6F5008EA6 + F50088A1F5007794F400425CB300000000000000000000000000000000000000 + 00000000000000000000000000005770C800748BD900879DE8004D5D97004E65 + B4004A6AD3000430C2000430C2000430C2004162D1005971C00046589B000000 + 0000000000000000000000000000000000000000000000000000000000005D77 + D3009CABE200BECBF500BCCAF600BECBF5009CABE200687CC600798FDA0086A0 + F5004B71F1002E50C400435BAE00BDCBF4000000000000000000000000000000 + 000000000000000000000000000000000000000000008C8B8B00A7A5A500ECEB + EB00BFBDBC00AAA8A700A09E9D009A9897009F9D9C00A8A6A500CFCECD00E6E5 + E500A4A3A200BABABA009C9EAD006C80C200D8E0F80000000000000000000000 + 000000000000000000000000000000000000000000007E99F500708EF400829D + F50093AAF60097ADF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AFF70099AF + F70091A8F6007E99F500445DB400000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005872CA006F85D000516BBE004A6C + DC00123ED2000433D0000433D0000433D0000937D2002F56D8005775D700455E + B500BDCBF4000000000000000000000000000000000000000000000000000000 + 0000657FD9004C65BF004C65BC004C65BF00657FD900AEBEF2004C65BF007A90 + DB0086A0F5001848EB002F51C500445CAE000000000000000000000000000000 + 00000000000000000000000000000000000000000000A2A1A000EDECEC00D1CF + CF00A09E9D00B1B1B000BEBDBC00C3C2C200C2C2C200B6B5B400AFADAC00CAC8 + C800E6E5E50087858400A19F9D00D5D5D3000000000000000000000000000000 + 000000000000000000000000000000000000000000007D98F5006989F3007995 + F40088A2F6008FA7F60098AEF700A3B6F800A3B6F800A3B6F800A3B6F800A3B6 + F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A3B6F800A0B4 + F70096ACF700819BF500455EB600000000000000000000000000000000000000 + 000000000000000000000000000000000000AEBEF3005E6FAD004B6FE7001242 + E0000537DE000537DE000537DE000537DE000537DE000537DE001B49E1005E76 + CA00455DB2008DA2E80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004D66 + C0007A90DB004B71F1001848EB003052C500BDCBF40000000000000000000000 + 00000000000000000000000000000000000000000000EDEDED00D7D6D500B4B2 + B100B9B8B700B9B8B700B7B6B500B7B7B600BCBABA00C1C0C000A19F9E00AEAC + AB00CFCECD0088868500C8C8C800000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005C79DA002E55D6002E55 + D6002E55D6002E55D6006D87E0008DA5F60094ABF60097ADF7009AAFF7009AAF + F7009AAFF7009AAFF7009AAFF7009AAFF7009AAFF70099AFF70097ADF70090A8 + F60086A0F5007794F4004761B800000000000000000000000000000000000000 + 0000000000000000000000000000000000004963BC006A87E8002553EE002553 + EE002553EE007C97F4007F9AF1007C97F4002553EE002553EE002553EE002553 + EE004A70F0006983DB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCDF6007B91DC0086A0F5004B71F1003153C700475EB100BDCBF4000000 + 00000000000000000000000000000000000088878700D9D7D700ADABAA00B2B1 + B100C1C0BF00C3C3C200C3C2C200C0C0BF00BFBFBF00BBBABA00BCBCBB00B4B3 + B200A8A6A500DCDBDB0088878700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007391F400456CF000456C + F000456CF000456CF0003A60E000A8BAF800ACBDF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800ABBD + F800A7B9F800A2B6F8004962B900000000000000000000000000000000000000 + 0000000000000000000000000000000000004A64BB00718DEB003E67F0003E67 + F0006888F300667CC5005A71C100667CC5006888F3003E67F0003E67F0003E67 + F000486FF000718CE90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004F69C3007B92DC0086A0F5001848EB003154C700485FB2000000 + 00000000000000000000000000000000000085848300D0CECD00A3A1A000C4C3 + C300CECDCD00D0D0D000D1D0CF00CAC9C900C7C6C600C2C2C000B6B4B400BCBC + BC009F9D9C00EBEBEB0085848300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007894F4004B71F1004B71 + F1004B71F1004B71F1004B71F100365BD700365BD700365BD700365BD700365B + D700365BD700365BD700365BD700365BD700365BD700365BD700365BD700365B + D700365BD700365BD7004A63BB00000000000000000000000000000000000000 + 0000000000000000000000000000000000004F69C4007892E700567AF200567A + F20091A3E4009DB0EE00000000009DB0EE0091A3E400567AF200567AF2005D80 + F2007794F4006B83D40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600506AC4007C92DD004B71F1001848EB003254C800BFCB + F400000000000000000000000000000000008C8A8800CBCAC9009E9D9C00CBCA + CA00D8D7D700DBDBDB00DDDDDD00D7D7D600CFCFCE00C7C6C600B9B7B600B8B8 + B8009A989700E7E7E6008C8A8800000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000819BF5005579F1005579 + F1005579F1005579F1005579F1005579F1005D80F2007E99F500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5004C66BD00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000556FCC0096ACF7007995 + F4005971C4000000000000000000000000005D75C500809AF10087A1F500728A + DB004F69C200BFCDF60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFCDF6007D93DD0086A0F5004B71F1003355 + C9004A62B400BFCBF50000000000000000008F8D8D00D1D0CF00A4A2A100D2D2 + D100E7E7E700EDEDED00F0F0F000ECEBEB00E4E4E400DADADA00C2C0BE00B6B6 + B500A09E9D00EDEDEC008F8D8D00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000849EF5005B7EF2005B7E + F2005B7EF2005B7EF2005B7EF2006384F300829CF5007E91D5004E67BE004E67 + BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67BE004E67 + BE004E67BE004E67BE004E68C100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3DBF9009AACEA008FA7 + F600647BC800000000000000000000000000657BC800859FF5009CB1F700516A + C400BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000536DC6007E94DE0086A0F5001848 + EB003456CA004B63B500000000000000000093929100DCDADA00AFADAD00C5C5 + C400EBEBEB00F0F0F000F6F6F600F2F2F200E8E8E800DFDEDE00C2C2C200AFAD + AC00AAA8A700E2E1E00093929100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000088A2F6006183F2006183 + F2006183F2006183F2006183F200839EF5008195D600536CC000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006278C900A2B4 + F3008A9EE2009FB1F000000000009FB1F000869BE3009BB0F700788FDD00BFCD + F600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF600536CC500859AE0004B71 + F1001848EB003457CA00BFCBF50000000000ACACAC00EAE9E900C6C4C400A7A5 + A400EBEBEB00F0F0F000F6F6F600F3F3F300E9E9E900DFDFDF00C3C2C200A09F + 9D00BFBDBC00C4C3C200ACACAC00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000008EA6F6008EA6F6008EA6 + F6008EA6F6008EA6F6008EA6F600546DC10091A5EB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005974 + CF0098AAE400B2C2F900B4C4F900ADBEF8007D93DF00566FC700C1CDF6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000566FC8008295D400A1B1E500798F + DD0086A0F5004B71F1005E78D1005169BE0000000000BFBEBD00F2F2F200D7D6 + D600A8A7A600CDCCCC00E6E6E600E9E9E900DDDDDD00C3C2C100B3B1B000D1CF + CF00ECEBEB00ADACAC0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC10091A5EB000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F6005C75CC00C1CEFA00B9C8F900B7C7F9005771C900C1CDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005874CF008DA0DF00C4CEF100657B + C5008B9FE30086A0F5006781DB00556DC600000000009F9E9D00C7C6C500F2F2 + F200C6C4C400AFADAD00A4A2A1009E9C9C00A3A1A000ADABAA00D7D6D500EDEC + EC00C6C5C4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000093A8ED009CAEE900A0B2EF008195DB00C1CDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C1CDF6005874CF00556EC300B0BD + E7007A8CCA008399E1005872CA00C1CDF6000000000000000000A09F9F00C5C3 + C200EAE9E900DCDADA00D1D0CF00CBCAC900D0CECD00D9D7D700F0F0F000C4C3 + C100A09F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000C1CDF6005770 + CA00BFCCF5000000000000000000000000000000000000000000000000000000 + 0000B0AFAF00A19F9F00A9A7A500B0AEAC00A9A7A500A19F9F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D3D3D300C2C2C2003B4E + 91003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E8E003B4E + 8E003B4E9100C2C2C200000000000000000000000000D6D6D600566AB0002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667002836670028366700283667002836670028366700283667002836 + 6700283667005468AB00DEDEDE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B6C3F000414F800023316200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000455CA5002F3E + 7100475CA400445BA800435AA700435AA600435AA600435AA500435AA500435A + A500445AA5004359A3004359A3004359A2004359A1004359A1004358A0004353 + 8C002D3A660043589F0000000000000000000000000000000000000000003850 + A3000536DB000536DB000536DB000536DB000536DB000536DB000536DB000536 + DB000536DB000536DB000536DB000536DB000536DB000536DB000536DB004368 + E4003850A3000000000000000000000000000000000000000000293C8000042D + B6000000000000000000042DB6006780D3006780D3005B75CF005772CE00536F + CC004765C9004765C9003F5EC7003758C5003758C5000931B800000000000000 + 0000042DB600293C800000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCD6 + F60022357800435BAA0023336900000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006279C90030427E004660 + B400072BA3000328A1000328A00003279F0003279F0003279F0003279D000326 + 9C0003269C0003269A0003269A00032699000325970003259700032596002643 + A300495EA5002E3D710000000000000000000000000000000000000000003851 + A1000535D8000535D8000535D8000535D8000535D8000535D8000535D8000535 + D8000535D8000535D8000535D8000535D8000535D8000535D8000535D8004368 + E1003851A10000000000000000000000000000000000000000002A3E8200042D + B7000000000000000000042DB7003052C4003052C4003052C4003052C4003052 + C4003052C4003052C4003052C4003052C4003052C400042DB700000000000000 + 0000042DB7002A3E820000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002F43 + 840043538C00425CB00025356D00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000283C8000495EA8002748 + B5000429A7000429A7000429A6000429A5000328A4000328A3000328A2000328 + A1000328A00003279F0003279F0003279E0003279D0003269C0003269B000326 + 9A002745A800485B9B000000000000000000000000000000000000000000384F + 9F000534D4000534D4000534D4000534D4000534D4000534D4000534D4000534 + D4000534D4000534D4000534D4000534D4000534D4000534D4000534D4004367 + DF00384F9F0000000000000000000000000000000000000000002B3F8400042E + B900042EB900042EB900042EB900395AC800395AC800395AC800395AC800395A + C800395AC800395AC800395AC800395AC800395AC800042EB900042EB900042E + B900042EB9002B3F840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000046589600405B + B8000F33A900435EBA002A3B7700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3D81004361C700042C + B300042CB200042CB100042BB000042BAF00042BAE00042BAD00042BAC00042A + AB00042AAA00042AAA00042AA9000429A8000429A7000429A6000429A6000328 + A4000328A300435EBB000000000000000000000000000000000000000000384E + 9B000634CD000735CD000735CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000735CD000735CD004366 + D900384E9B0000000000000000000000000000000000000000002D418700042E + BC00042EBC00042EBC00042EBC004C6ACF004C6ACF004C6ACF004C6ACF004C6A + CF004C6ACF004C6ACF004C6ACF004C6ACF004C6ACF00042EBC00042EBC00042E + BC00042EBC002D4187000000000000000000000000000000000090A3E3003B51 + A2002F4385002F4284002E4284002E4183002E4183002E408100405DBD000F34 + AF00042AAA00425EBD002C3E7D002B3D7C002B3C7A002B3C7A002B3C79002A3C + 7800344A95008196DC000000000000000000000000002D4185004362CA00042D + B800042DB600042DB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00042AAA00042A + AA00042AA900425EBD000000000000000000000000000000000000000000384E + 98000E3ACB000F3ACB000F3ACB000C2FA3000C2FA3000C2FA3000C2FA3000C2F + A3000C2FA3000C2FA3000C2FA3000C2FA3000C2FA3000F3ACB000F3ACB004567 + D600384E980000000000000000000000000000000000000000002F438A00042F + BE000000000000000000042FBE005673D3005673D3005673D3005673D3005673 + D3005673D3005673D3005673D3005673D3005673D300042FBE00000000000000 + 0000042FBE002F438A00000000000000000000000000546CC100405498004D66 + B7004261CA004362CA004362C9004261C7004361C7004361C7001036B600042C + B100042BB0003655BE00425FC1004360C100425FBF00425EBE00435FBE004661 + B9004B60A8003B4C87000000000000000000000000002F438A004363CE000530 + BE00042EBC00042EBB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0003259600042B + AE00042BAE00425FC1000000000000000000000000000000000000000000384D + 9800153FCA001740CA001740CA001740CA001740CA001740CA001740CA001740 + CA001740CA001740CA001740CA001740CA001740CA001740CA001740CA004868 + D500384D9800000000000000000000000000000000000000000030448C00042F + C0000000000000000000042FC0005F7AD7005F7AD7005F7AD7005F7AD7005F7A + D7005F7AD7005F7AD7005F7AD7005F7AD7005F7AD700042FC000000000000000 + 0000042FC00030448C00000000000000000000000000506AC100294FD0000C38 + CA000D38C8000C37C6000C37C6000934C3000833C2000833C1000631BF00052F + BD00042EBC00042EBA00042EB900042DB800042DB600042DB600042DB500042C + B300042CB2002346BB00354B96000000000000000000334993004A6BD800143E + CA00153EC900143DC800123CC8000C30A8000A2FA700092EA700062BA4001437 + A9001437A9000328A1000328A1000328A00003279F0003279F0003279F00042D + B800042DB8004362C90000000000000000000000000000000000000000003A50 + 9B00254CCF00274ECF00274ECF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00274ECF00274ECF004D6D + D8003A509B000000000000000000000000000000000000000000324790000430 + C3000430C3000430C3000430C300718ADD00718ADD00718ADD00718ADD00718A + DD00718ADD00718ADD00718ADD00718ADD00718ADD000430C3000430C3000430 + C3000430C300324790000000000000000000000000004B6BD7001440D1001641 + D1001943CF001943CF001842CE00153FCB00143ECA00133DC900103AC7000E38 + C5000D37C4000B35C2000933C1000832BF000630BD00052FBC00052FBB00042E + B900042DB8000831B90033468A000000000000000000354B98004E6FDC001D46 + D1002149D1001F48D0001D46CF001A43CD001841CC001640CB002148CC00D1D9 + F400D1D9F4000B36C5000A35C4000833C3000530C1000530C100042FBF00042F + BE00042FBD004363CD0000000000000000000000000000000000000000003B51 + 9C002D53D2003055D2003055D2002745A9002745A9002745A9002745A9002745 + A9002745A9002745A9002745A9002745A9002745A9003055D2003055D2005070 + D9003B519C000000000000000000000000000000000000000000334893000430 + C4000430C4000430C4000430C4007B92E0007B92E0007B92E0007B92E0007B92 + E0007B92E0007B92E0007B92E0007B92E0007B92E0000430C4000430C4000430 + C4000430C40033489300000000000000000000000000496CE1001945D800214B + D800264FD800254ED700234CD500214AD3001F48D1001E47D1001B44CE001A43 + CD001841CC00163FCA00143DC800133DC800103AC5000F39C4000E38C3000A34 + C0000933BF000630BD00364A90000000000000000000384F9D005172E000264F + D8002C53D7002A51D6002951D600254DD400234BD300214AD200D3DBF500FFFF + FF00FFFFFF00254CCF00153FCB00133DCA000F3AC8000E39C7000C37C7000833 + C4000632C3004364D10000000000000000000000000000000000000000003C53 + 9D003358D400375CD400375CD400375CD400375CD400375CD400375CD400375C + D400375CD400375CD400375CD400375CD400375CD400375CD400375CD4005271 + DA003C539D000000000000000000000000000000000000000000354A95000532 + C70000000000000000000532C700859BE300859BE300859BE300859BE300859B + E300859BE300859BE300859BE300859BE300859BE3000532C700000000000000 + 00000532C700354A95000000000000000000000000004E72EA002B56E5003961 + E6003D64E5003B62E3003A61E300375EE100365DE000355CDF003259DD003057 + DC002F56DB002C54D9002B53D8002A52D700274FD500264ED400244CD3002149 + D1001E47D0001640CD003A519B0000000000000000003C54A7005879E800375E + E2004267E3004065E2003F64E2003B61E0004569E100D9E0F800FFFFFF00FFFF + FF00FFFFFF00FFFFFF00D6DDF700365BDA00264ED600244DD600224BD4001E47 + D2001742D0004B6CDB0000000000000000000000000000000000000000003E55 + A1004366D900486AD900486AD900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00486AD900486ADA005776 + DC003E55A1000000000000000000000000000000000000000000394F99000D39 + CB000D39CB000D39CB000D39CB009CAEEA009CAEEA009CAEEA009CAEEA009CAE + EA009CAEEA009CAEEA009CAEEA009CAEEA009CAEEA000D39CB000D39CB000D39 + CB000D39CB00394F99000000000000000000000000005176EE00335DEB00436A + EB00486DEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002C53 + D8002850D7001E48D4003E54A00000000000000000003F58AB005C7DEC003F66 + E7004D71E9004B6FE700496EE7005073E600DBE2F900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00D8DFF8003158DC002F56DB002D55DA002951 + D900204AD6004E6FDE0000000000000000000000000000000000000000004056 + A2004A6CDB005171DD005171DD00405AB000405AB000405AB000405AB000405A + B000405AB000405AB000405AB000405AB000405AB0005171DD005070DD005977 + DD004056A20000000000000000000000000000000000000000003B519B00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113DCE00113D + CE00113DCE003B519B000000000000000000000000005378F1003B64EF004D72 + F0005277EF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00385E + DF003259DD00264FDA004157A6000000000000000000415AB1006081F000486D + EC00587BED005679EC005477EC00DDE4FA00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005F7EE6003A60E000395FE000335A + DE002952DC005173E20000000000000000000000000000000000000000004157 + A5005272DD005978DE005978DE005978DE005978DE005978DE005978DE005978 + DE005978DE005978DE005978DE005978DE005978DE005978DE005978DE005D7B + E0004157A50000000000000000000000000000000000000000003E539E001641 + D1001641D1001641D1001641D100728CE300728CE3006783E0006480E000607D + E0005574DD005574DD004D6EDC004568DA004568DA001641D1001641D1001641 + D1001641D1003E539E00000000000000000000000000587CF2004A70F0006283 + F2006989F3006888F3006787F3006485F3006384F3006183F2005F81F2005D80 + F2005C7FF200597CF100587BF100567AF0005478EF005276EE005074EC004E73 + EB00486DEA00365FE700465FB3000000000000000000455EB6006787F300597C + F2006E8DF3006D8CF3006B8AF3005B77D5005772CF005570CD00FFFFFF00FFFF + FF00FFFFFF004C69CB004A68CB004866CA004563C9004564CA004D71E700486D + E9003A62E700597BEA000000000000000000000000000000000000000000435A + A800617FE2006A86E3006A86E300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006A86E3006985E300617E + E100435AA80000000000000000000000000000000000000000004258A2001E48 + D50000000000000000001E48D5004E6FDE004E6FDE004E6FDE004E6FDE004E6F + DE004E6FDE004E6FDE004E6FDE004E6FDE004E6FDE001E48D500000000000000 + 00001E48D5004258A2000000000000000000000000005A7DF2005176F1006C8B + F3007592F4007491F4007290F400708EF4006E8DF3006D8CF3006A8AF3006989 + F3006787F3006485F3006384F3006283F2005F81F2005E80F2005C7FF100597C + F0005176EF003D65EC004962B80000000000000000004660B7006B8AF3006183 + F2007A96F4007894F4007693F4007391F400718FF4006F8DF300FFFFFF00FFFF + FF00FFFFFF005671CE006384F3006082F1005C7EF0005B7EF000597CEF005276 + EE004269EB005C7EEE000000000000000000000000000000000000000000445B + AA006985E300728CE500728CE5005A6FB7005A6FB7005A6FB7005A6FB7005A6F + B7005A6FB7005A6FB7005A6FB7005A6FB7005A6FB700728CE500718BE5006481 + E300445BAA0000000000000000000000000000000000000000004359A500234C + D700234CD700234CD700234CD7005978E0005978E0005978E0005978E0005978 + E0005978E0005978E0005978E0005978E0005978E000234CD700234CD700234C + D700234CD7004359A5000000000000000000000000005D80F200587CF2007693 + F400809BF500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006485 + F3005B7EF200456CF0004C66BD0000000000000000004761B8006E8DF3006A8A + F300849EF500829DF500819BF5007E99F5007C97F4007A96F400FFFFFF00FFFF + FF00FFFFFF005E78CF006D8CF3006C8BF3006888F3006686F3006586F3005E80 + F2004B71F0006082F1000000000000000000000000000000000000000000465D + AB00708BE5007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94 + E8007A94E8007A94E8007A94E8007A94E8007A94E8007A94E8007892E6006683 + E400465DAB000000000000000000000000000000000000000000455BA8002750 + D9002750D9002750D9002750D9006481E4006481E4006481E4006481E4006481 + E4006481E4006481E4006481E4006481E4006481E4002750D9002750D9002750 + D9002750D900455BA8000000000000000000000000006183F2006586F30088A2 + F60096ACF7007F92D2007D90D1007C90D2007A8ED1007A8ED100778CD100758A + D000758AD1007288D1007086D0007086D1006E85D0006C83CF006B82D0007B97 + F4006E8DF3005277F1004F69C00000000000000000004963BA007491F4007995 + F4009BB0F70099AFF70097ADF70093AAF60091A8F60090A8F600FFFFFF00FFFF + FF00FFFFFF007187D100839EF500829CF5007F9AF5007D98F5007B97F400718F + F400597CF2006686F3000000000000000000000000000000000000000000485F + AF007F98EA008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0 + EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB008AA0EB0089A0EB006A86 + E500485FAF0000000000000000000000000000000000000000004A60AD003058 + DE0000000000000000003058DE007A94EA007A94EA007A94EA007A94EA007A94 + EA007A94EA007A94EA007A94EA007A94EA007A94EA003058DE00000000000000 + 00003058DE004A60AD000000000000000000000000006183F2006A8AF3008FA7 + F600A2B6F800A0B4F7009FB3F7009CB1F7009BB0F70099AFF70097ADF70095AC + F70094ABF60091A8F60090A8F6008EA6F6008CA5F6008AA3F60089A2F600849E + F5007693F400577BF200506AC10000000000000000004B64BB007693F4007D98 + F500A6B9F800A4B7F800A2B6F8009FB3F7009DB2F7009BB0F700FFFFFF00FFFF + FF00FFFFFF007B8FD1008EA6F6008CA5F60089A2F60087A1F500859FF5007995 + F4005F81F2006888F30000000000000000000000000000000000000000004960 + B000879EEB0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8ED0093A8 + ED0093A8ED0093A8ED0093A8ED007D8EC9007D8EC9007D8EC9007B8DC9005A73 + C4004960B00000000000000000000000000000000000000000004C62AF00355C + E0000000000000000000355CE000849CEC00849CEC00849CEC00849CEC00849C + EC00849CEC00849CEC00849CEC00849CEC00849CEC00355CE000000000000000 + 0000355CE0004C62AF000000000000000000000000006183F2006989F30091A8 + F600ADBEF800ACBDF800AABCF800A7B9F800A6B9F800A5B8F800A2B6F800A1B5 + F7009FB3F7009CB1F7009BB0F7009AAFF70097ADF70096ACF70094ABF6008CA5 + F6007A96F4005A7DF200516BC20000000000000000004C65BC007C96EF007F9A + F500ADBEF800AFC0F900ADBEF800AABCF800A8BAF800A6B9F800A3B6F800899A + D3008798D2008496D2009AAFF70098AEF70094ABF60092A9F60090A8F6007B97 + F4006283F200718EEE0000000000000000000000000000000000000000004B62 + B2008EA4ED009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAEEF009BAE + EF009BAEEF009BAEEF009BAEEF008494CC00485EAB00485EAB00485EAB005167 + B0004B62B20000000000000000000000000000000000000000004F64B1003960 + E2003960E2003960E2003960E2008FA5EF008FA5EF008FA5EF008FA5EF008FA5 + EF008FA5EF008FA5EF008FA5EF008FA5EF008FA5EF003960E2003960E2003960 + E2003960E2004F64B1000000000000000000000000006581E0006183F200708E + F400A2B6F800A9BBF800ACBDF800ABBDF800AABCF800AABCF800A8BAF800A6B9 + F800A5B8F800A2B6F800A1B5F700A0B4F7009CB1F70099AFF70093AAF6007B97 + F4006283F2005D80F2005570CB0000000000000000007990E3005F77C8008AA2 + F1008AA3F60091A8F60094ABF60094ABF60093AAF60093AAF60090A8F6008EA6 + F6008DA5F6008AA3F60088A2F60086A0F500829DF500809BF5007995F4007391 + F4007D97EF005D74C70000000000000000000000000000000000000000004D65 + B6009BAEF000ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBBF200ABBB + F200ABBBF200ABBBF200ABBBF20092A0CF00C7D2F600AEBEF200718CE7004C65 + B900BFCCF5000000000000000000000000000000000000000000536AB7004267 + E6004267E6004267E6004267E600A2B4F300A2B4F300A2B4F300A2B4F300A2B4 + F300A2B4F300A2B4F300A2B4F300A2B4F300A2B4F3004267E6004267E6004267 + E6004267E600536AB7000000000000000000000000005C75CB006282EC006686 + F3007995F400829CF500849EF50086A0F500859FF500849EF500839EF500829D + F500829CF500809BF5007F9AF5007E99F5007B97F4007894F4007290F4006586 + F3006183F2006583EC007A92E500000000000000000000000000546FCB006078 + C9007C97F400809BF500829DF500839EF500829DF500829DF500819BF500819B + F500809BF5007F9AF5007E99F5007E99F5007B97F4007A96F4007794F400718B + E6005E75C8006680D90000000000000000000000000000000000000000004E66 + B80097ABEF00AEBEF300B1C1F300B2C1F300B2C1F300B2C1F300B2C1F300B2C1 + F300B2C1F300B2C1F300B1C1F30096A3CF00A6B7F100738EE800546DC200BFCC + F500000000000000000000000000000000000000000000000000546BB900466B + E7000000000000000000466BE700AABBF400AABBF400AABBF400AABBF400AABB + F400AABBF400AABBF400AABBF400AABBF400AABBF400466BE700000000000000 + 0000466BE700546BB9000000000000000000000000006983DD006079CB00627E + E0006586F3006888F3006A8AF3006B8AF3006B8AF3006B8AF3006B8AF3006B8A + F3006B8AF3006A8AF3006A8AF3006A8AF3006989F3006888F3006586F3006A88 + EC006380E0005D77CC0000000000000000000000000000000000000000007991 + E3005069C0005069C0005069C0005069C0005069C0005069C0005069C0005069 + C0005069C0005069C0005069C0005069C0005069C0005069C0005069C000506A + C3007991E3000000000000000000000000000000000000000000000000004F67 + BA00879FEE009DB0F100A5B6F100A8B9F200A8B9F200A8B9F200A8B9F200A8B9 + F200A8B9F200A7B8F100A5B6F1008898CD006986E7005770C4004F67BD000000 + 0000000000000000000000000000000000000000000000000000576DBB00496E + E9000000000000000000496EE900B2C2F500B2C2F500B2C2F500B2C2F500B2C2 + F500B2C2F500B2C2F500B2C2F500B2C2F500B2C2F500496EE900000000000000 + 0000496EE900576DBB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000516A + C000516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516ABD00516A + BD00516ABD00516ABD00516ABD00516ABD00516AC000BFCDF500000000000000 + 00000000000000000000000000000000000000000000000000007790E100546B + BE005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71C1005A71 + C100546BBE007790E10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F1006177C500273773002534 + 6A0025346A0027377300364D96006177C5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002D4085003A4A7D0047589300556AB000556A + B000556AB000556AB0004F62A100475893002D4085008195DB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005B74C7004455 + 94004F64AD005062A1004057A900000000000000000000000000000000000000 + 00006780CF005369B3004F64AD005062A1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008297DD00334580005467A7003351B7001134AA002444B1004E68BF004E68 + BF004E68BF004E68BF003C59B9002444B1003351B700506ABE005467A7008297 + DD00000000000000000000000000000000000000000013131300121212001111 + 1100111111001111110011111100111111001111110011111100111111001111 + 1100111111001111110011111100111111001111110011111100121212001212 + 120013131300141414001111110000000000031D3D00093C7B00093C7B00093C + 7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C + 7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C7B00093C + 7B00093C7B00093C7B00010D1D00000000000000000000000000374E9E005671 + CE000B206700435FBF0041569C002A3B75002A3B75002A3B75002A3B75002A3B + 7500364C960010266E000B206700435FBF00D1DAF80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00003A4B8900566DB800415EC100294AB900546FC70093A3DB00E7EBF700E7EB + F700B9BCC600E7EBF700C2CBEA0093A3DB00294AB9001136B100415EC1003A4B + 89005068BB00000000000000000000000000000000003B3B3B003C3C3C003C3C + 3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C + 3C003C3C3C003C3C3C003C3C3C003D3D3D003D3D3D003D3D3D003D3D3D003D3D + 3D003D3D3D003D3D3D001B1B1B00000000000C458B001D54AB001E54A9001E54 + A9001E54AA001E54AA001E54AA001E54AA001E54AA001E54AA001E54AA001E54 + AA001E54AB001E54AB001E54AB001E54AB001E54AB001E54AB001D54AB001D54 + AB001D54AB001C54AE000D468C000000000000000000000000003E58AE00274F + D600021C7100153EC700455DAE000E2D9A000E2D9A000E2D9A000E2D9A000E2D + 9A003A54AE00031E7900021C7100153EC7000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000859A + E0005971C1003253C2000D34B6008999CC00CACFDF00E6EAF800E6EAF800E6EA + F800C9CDD900E6EAF800E6EAF800E6EAF8008999CC00415FC5000D34B6005971 + C1003D4F8F00859AE0000000000000000000000000002A2A2A002E2E2E003939 + 39003939390039393900393939003939390039393900393939003A3A3A003A3A + 3A003A3A3A003A3A3A003A3A3A003A3A3A003A3A3A003A3A3A003A3A3A003A3A + 3A003B3B3B00323232001F1F1F00000000000F47910014439D0014439D001544 + 9E0015449E0015449E0015449E0015449E0015449E0015449E0015449E001544 + 9E0015449E0015449E0015449E0015449E0015449E0015449E0015449E001544 + 9E0015449E003E8AD8000C458B00000000000000000000000000000000006983 + DA00435CB300516CCA0000000000000000000000000000000000000000000000 + 000000000000435CB300435CB3003754B7000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003B53A3005A70 + BB000934C5004B6AD300E1E6F800E5EAF800DADFEC00E5EAF800E5EAF800E5EA + F800E5EAF800E5EAF800E5EAF800E3E8F600E5EAF800E5EAF800E1E6F8000934 + C5004162D1005A70BB0000000000000000000000000032323200343434003C3C + 3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C3C003C3C3C003D3D3D003D3D + 3D003D3D3D003D3D3D003D3D3D003D3D3D003D3D3D003D3D3D003D3D3D003D3D + 3D003E3E3E003838380012121200000000000F47920015459F001546A0001546 + A0001647A1001647A1001647A1001647A1001647A1001647A1001647A1001647 + A1001647A1001647A1001647A1001647A1001647A1001647A1001647A1001647 + A1001647A1001D55AF000C458B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000003F56A6001939A600869BE10000000000000000000000 + 000000000000000000000000000000000000000000008A9DE4004E61A8005271 + D8002A50D100CDD6F500E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EA + F900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF900E5EAF9002A50 + D100123DCD005271D8008A9DE4000000000000000000272727004E4E4E004040 + 40003F3F3F003F3F3F003F3F3F003F3F3F003F3F3F003F3F3F00404040004040 + 4000404040004040400040404000404040004040400040404000404040004040 + 4000424242004B4B4B0005050500000000000F4892001749A300184CA600194D + A7001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4F + A9001A4FA9001B4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4F + A9001B51AB00448EDA000C458B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007A8FDB002D469B004E66BC0000000000000000000000 + 00000000000000000000000000000000000000000000425AAE005B75CA003359 + D9008497D600D2D7E400E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EA + FA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA00E5EAFA008497 + D6000938D3003359D900425AAE00000000000000000000000000121212002C2C + 2C00686868006161610055555500464646004646460046464600464646004646 + 46004646460046464600464646004747470049494900535353005E5E5E004A4A + 4A00303030001313130000000000000000000F4893001A4EA8001B51AB001C54 + AE001E57B1001E57B1001E57B1001E57B1001E57B1001E57B1001E57B1001E57 + B1001E57B1001E57B1001E57B1001E57B1001E57B1001E57B1001E57B1001E57 + B1001E57B1004C92DC000B448A000000000000000000465EB3006279C300607C + D900617EDE00617EDE00627EDE00637FDF00637FDF00637FDF00637FDF00637F + DF00627EDE00617EDE00607DDE005F7CDE004F64AB008A9EE500000000000000 + 000000000000000000000000000000000000000000005871C8004268E7000537 + DF00E5EAFB00DFE4F500E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EAFB00E5EA + FB00809AEE000537DF005871C800738BDD000000000000000000000000000202 + 02002F2F2F003C3C3C00525252006A6A6A004F4F4F00494949004A4A4A004A4A + 4A004A4A4A004A4A4A004A4A4A00515151006D6D6D0058585800434343001C1C + 1C0002020200000000000000000000000000104894001A4EA8001B52AC001C55 + AF001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58 + B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58 + B2001E58B2001E58B2000B448A0000000000000000004057A6006B85DC00355B + DA002F54CE003D62DC00365BD3003E63DB00365AD2003357CF00365AD2003256 + CE003E63DC003055CE003A5FDC002B50CD00647CCB00556FC700000000000000 + 000000000000000000000000000000000000000000005C78D8002A56EA000539 + E600E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00E5EBFC00E5EBFC00D5DAE6009C9B9D00E5EBFC00E5EBFC00E5EBFC00E5EB + FC00C2CFF8000539E6005C78D800536ECA000000000000000000000000000000 + 0000020202000F0F0F001E1E1E003A3A3A0065656500585858004D4D4D004D4D + 4D004D4D4D004D4D4D00606060006A6A6A0033333300202020000F0F0F000000 + 000000000000000000000000000000000000104894001A4EA8001B52AC001C55 + AF001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58B2001E58 + B2001E58B2001E58B2001E58B2001E58B200053D8200053D82000D418700053D + 8200053D8200053D8200053D820003254F00000000005066B100758FE600476B + E300032597004A6AD700082A9C004B6BD700082A9C0003259700082A9C000325 + 97004B6BD700032597004768D600032597007B93E100485FAE00000000000000 + 000000000000000000000000000000000000000000005C7CE9001849EC00053A + EB00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00E6ECFD00C5CA + D900B8BDCA00C9CCD6009B989800B8B9BF00E6ECFD00E6ECFD00E6ECFD00E6EC + FD00E8EDFD00053AEB005C7CE9004862BC000000000000000000000000000000 + 0000000000000000000000000000000000000101010031313100545454005454 + 5400545454004646460026262600010101000000000000000000000000000000 + 000000000000000000000000000000000000114995001A4EA8001C53AD001D56 + B0001F59B3001F59B3001F59B3001F59B3001F59B3001F59B3001F59B3001F59 + B3001F59B3001F59B3001F59B3001F59B3001C54AE003D5978006C715C003458 + 88001C54AE001C54AE001A4FA900053D820000000000657BC5007F9AF1007490 + F0000328A000607DDD000328A000607DDD000328A0000328A0000328A0000328 + A000607DDD000328A000607DDD000328A0007D98F200758BD8005C76D2000000 + 000000000000000000000000000000000000000000006683E9002C59EE001B4B + ED00CBD0DD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00E9EEFD00ADAB + A9009C999700E0E4F100E8EDFD00E8EDFD00E8EDFD00E8EDFD00E8EDFD00CBD0 + DD00BABECB001B4BED006683E9004A63BB000000000000000000000000000000 + 0000000000000000000000000000000000000000000028282800595959005959 + 590059595900444444001B1B1B00000000000000000000000000000000000000 + 000000000000000000000000000000000000114A9600194FA9001C53AD001D57 + B1001F5AB4001F5AB4001F5AB4001F5AB4001F5AB4001F5AB4001F5AB4001F5A + B4001F5AB4001F5AB4001F5AB4001F5AB4001C54AE003F463C0032372C003B45 + 42001A4FA9001A4FA9001A4FA900053D8200000000006C83D3008AA3F500859F + F4000328A4006D87E1000328A4006D87E1000328A4000328A4000328A4000328 + A4006D87E1000328A4006D87E1000328A4007A95F00094A9EF00526AC0000000 + 000000000000000000000000000000000000000000006A88EB003761EF002755 + EE00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00CACA + CB00C3C1C000E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EEFD00E9EE + FD00D8DDEA002755EE006A88EB004B64BC000000000000000000000000000000 + 000000000000000000000000000000000000040404003F3F3F005D5D5D005D5D + 5D005D5D5D005A5A5A003B3B3B00030303000000000000000000000000000000 + 000000000000000000000000000000000000114A97001A4FA9001D54AE001E58 + B200205BB500205BB500205BB500205BB500205BB500205BB500205BB500205B + B500205BB500205BB500205BB500205BB5001C54AE0043586C00D3D6B6003956 + 7B001A4FA9001A4FA9001A4FA900053D820000000000748AD6008DA5F60095AC + F7000328A4007891E3000328A4007891E3000328A4000328A4000328A4000328 + A4007891E3000328A4007891E3000328A4006E88E20095ACF7006A80CB000000 + 00000000000000000000000000000000000000000000708BEB00426AF000335E + EF00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD008D8A8800EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEFFD00EAEF + FD00D4D8E600335EEF00708BEB004C66BF000000000000000000000000000000 + 000000000000000000000000000000000000434343005F5F5F00636363006363 + 6300636363006363630060606000333333000000000000000000000000000000 + 000000000000000000000000000000000000114B97001A50AA001D55AF001E59 + B300205CB600205CB600205CB600205CB600205CB600205CB600205CB600205C + B600205CB600205CB600205CB600205CB6005495DE003786D500327DCE00327D + CE00327DCE00327DCF002D77C400032F6500000000007A91E200839EF50094AB + F6000328A4007D94E2000328A4007D94E2000328A4000328A4000328A4000328 + A4007D94E2000328A4007D94E2000328A4007991E20090A8F60098ACF0000000 + 000000000000000000000000000000000000000000006D85D8007391F4004C72 + F100EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1 + FE0098959300EDF1FE00EDF1FE00EDF1FE00EDF1FE00EDF1FE00E9EDFA00EDF1 + FE007588C8004C72F1006D85D8007990E3000000000000000000000000000000 + 0000000000000000000000000000020202004E4E4E0065656500666666006666 + 6600666666006666660066666600414141000000000000000000000000000000 + 000000000000000000000000000000000000124B98001A4FA9001D55AF001F59 + B300215CB600215CB600215CB600215CB600215CB600215CB600215CB600215C + B600215CB600215CB600215CB600215CB600215CB600215CB600215CB600215C + B600215CB6006EA7E8000B4489000000000000000000829BED007290F400849E + F5003C5BC30095AAF2003454BE008EA4ED00173AAF000328A4000D31A9000328 + A4007D94E2000328A4007D94E2000328A4007891E30088A2F60090A8F60092A7 + EC000000000000000000000000000000000000000000647AC700819CF3005E80 + F200C1C6D400CCCFDA00E2E6F100EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2 + FE009E9B9900EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00EEF2FE00C1C6 + D4005370D2005E80F2006479C700BFCDF6000000000000000000000000000000 + 0000000000000000000000000000131313005151510068686800696969006969 + 69006969690069696900696969004A4A4A000000000000000000000000000000 + 000000000000000000000000000000000000124C99001A50AA001D56B0001F59 + B300215DB700215DB700215DB700215DB700215DB700215DB700215DB700215D + B700215DB700215DB700215DB700215DB700215DB700215DB700215DB700215D + B700215DB70070A9EA000B44890000000000000000008098E700859FF5008CA5 + F6009AAFF70092A9F60094ABF6008CA5F600859EF1008099EC006E89E100617C + D8009EB3F7003E5DC30095AAF200294AB9007D97EB007D98F5007D98F500617C + D8000000000000000000000000000000000000000000526CC8008399E4007D98 + F5007582AE00D7DAE400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3 + FE00A8A5A400EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE00EFF3FE007582 + AE006282EE007E99F500526CC800000000000000000000000000000000000000 + 0000000000000000000000000000222222005B5B5B006F6F6F00707070007070 + 7000707070007070700070707000585858000000000000000000000000000000 + 000000000000000000000000000000000000134C99002661B5003071C2003479 + C900377DCD00377DCD00377DCD00377DCD00377DCD00377DCD00377DCD00377D + CD00377DCD00377DCD00377DCD00377DCD00377DCD00377DCD00377DCD00377C + CD00387ECE002360B9000B448A00000000000000000000000000AFBFF300AFBF + F3007C92E5007C92E5007C92E5005E79D5005E79D500566FC700687ECD006A80 + CD006A80CD00768BD9007B91DB007F97E4008098E600809AEF007893EE006077 + CA0093A7ED000000000000000000000000000000000000000000536EC900889D + E4007F9AF5006377B900D1D5E100F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5 + FE00DCDDE200F2F5FE00F2F5FE00F2F5FE00F2F5FE00F2F5FE00D1D5E1007F9A + F50095ACF7008A9FE20000000000000000000000000000000000000000000000 + 00000000000000000000000000001D1D1D005A5A5A0072727200737373007373 + 7300737373007373730073737300555555000000000000000000000000000000 + 000000000000000000000000000000000000134C9A002D6ABC00377ACB003B81 + CF003D84D2003D84D2003D84D2003D84D2003D84D2003D84D2003D84D2003D84 + D2003D84D2003D84D2003D84D2003D84D2003D84D2003D84D2003D84D2003D84 + D2003D84D20074ABEB000B448A00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1CD + F600AFBFF300859BE9007C93E5007C93E5005E79D6005E79D6005770C8004D6A + CC00647EDA000000000000000000000000000000000000000000BFCDF6006178 + C9009DB2F700869FF1006878B100DDE0E700C8CAD100ECEFF700F3F6FE00F3F6 + FE00F3F6FE00F3F6FE00F3F6FE00F3F6FE00DADDE400C0C5D6006878B1009DB2 + F7009EAFEE005C74C70000000000000000000000000000000000000000000000 + 00000000000000000000000000000D0D0D005E5E5E0075757500767676007676 + 7600767676007676760076767600565656000000000000000000000000000000 + 000000000000000000000000000000000000134D9B001E57B1006AA0E30070A6 + E700225FB90074ABEB0074ABEB00225FB90074ABEB0074ABEB00225FB90074AB + EB0074ABEB00225FB90074ABEB0074ABEB00225FB90074ABEB0074ABEB00225F + B90074ABEB0074ABEB000C458A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006B85DE002C57 + E700647CCD00647CCD005A72CB000000000000000000000000000000000092A7 + EC00A7B8F300A6B9F80094AAF2008A92AF00C9CCD500F4F7FE00F4F7FE00F4F7 + FE00D4D6DD00F4F7FE00F4F7FE00F4F7FE008A92AF007182BB0094AAF200ABBB + F4006279C90092A7EC0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000039393900696969007C7C7C007C7C + 7C007C7C7C008181810067676700191919000000000000000000000000000000 + 0000000000000000000000000000000000001A529A007FB5F200337ECF003481 + D1003786D5003786D5003786D5003786D5003786D5003786D5003786D5003786 + D5003786D5003786D5003786D5003786D5003786D5003786D5003786D5003786 + D5003786D5007FB5F2000C458B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005872 + C9005872C9005872C9005872CA00000000000000000000000000000000000000 + 000092A7EC005F77CA009AABE600B5C5F900AEBEF40096A5D7007985AD007985 + AD007985AD007985AD008694C00096A5D700B6C6F900B3C3F8009AACE70092A7 + EC00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000002020200494949008F8F8F008A8A + 8A00898989007070700044444400020202000000000000000000000000000000 + 0000000000000000000000000000000000000D468B001A4FA9001A4FA9001A4F + A9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4F + A9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4FA9001A4F + A9001A4FA9000C458B00010D1C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000C1CDF6005872CD00A0B0EB00B9C8F900BECCFA00BBCAFA00BCCA + FA00BCCAFA00BBCAFA00BDCBFA00BFCDFA00A1B2EB007489D3005872CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000007070700525252005D5D + 5D005D5D5D003535350007070700000000000000000000000000000000000000 + 000000000000000000000000000000000000031C3B000D468B000D468B000D46 + 8B000D468B000D468B000D468C000D468C000D468C000D468C000D478C000D46 + 8C000D468C000D468C000D468C000D468C000D468C000D468C000D468C000D46 + 8C000D468C000D468C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005874CD007287D1008B9FE100ACBCF400ACBC + F500ADBDF500ACBCF4009DAEEA008C9FE1005874CD0093A7ED00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000319F700032A07100319F + 700031A07000319F710032A0710032A0700031A0710032A07000D58F6A00D58F + 6A00D58F6A00D58F6A00D58F6A00D58F6A00D58F6A00000000001560BC001560 + BD001560BD001660BD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000101000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BD8B6B00D39E7A00D39E + 7B00D39E7A00D39E7A00D39E7A00D49E7A00D49E7A00D49E7A00D49E7A00D49E + 7A00D49E7A00D49F7A00D49F7A00D49F7A00D49F7A00D59F7A00D59F7A00D59F + 7A00D59F7A00D59F7A0073513D000000000000000000CC886500EEA97A00EEA9 + 7A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A001361DF001361 + DF001361DF001361DF000F3EB000EEA97A00EEA97A00EEA97A00EEA97A00EEA9 + 7A00EEA97A00EEA97A00CC88650000000000000000000DC9920013B98C0013B9 + 8C0013B98C0013B98C0013B98C0013B98C000EC992002FA17100D58F6A00EBA5 + 7D00E19D7900E19D7900E19D7900E19D7900D58F6A00000000001661BE00076E + E600076EE6000578EA0000000000000000000000000000000000000000000000 + 00000000000000000000000000002A9C75002A9C75002A9C7500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000C2937200F5C49C00F3BD + 9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD + 9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD9400F3BD + 9400F3BD9400F5C49C00D09775000201010000000000CC886500EEA97A00E59E + 7500DF977200DF977200DF977200DF977200DF977200DC936F000353DC000353 + DC000352DB000353DB000F3FB100DD946F00DF977200DF977200DF977200DF97 + 7200DF977200E59E7500CC88650000000000000000000DCA930013B98C000DCA + 93000DCA93000DCA94000DCA930013B98C000DCA93002FA27200D58F6A00ECA5 + 7D00E29E7900ECA57D00ECA57C00E29E7900D58F6B00000000001662C000057A + EB000388F000057BEA0000000000000000000000000000000000000000000000 + 000000000000040F0B000000000035CD980015B0810038D19B000D3427000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DDAB8600C5967400F5C9 + A300E8B69000E8B69000E8B69000E8B69000E8B69000E8B69000E8B69000E8B6 + 9000E8B69000E8B68F00E8B68F00E8B68F00E8B68F00E8B68F00E8B68F00E8B6 + 8F00F5C9A300CF9D7A00D09775000202010000000000CD896500EEA97A00DF97 + 7200DF977200DF977200DF977200DF977200DF977200DB916E000455DC000455 + DC000454DC000454DC000E40B300DC926E00DF977200DF977200DF977200DF97 + 7200DF977200DF977200CD89650000000000000000000DCB950013BA8D000DCB + 95000DCC94000DCB94000DCB940013B98C000ECB94002EA27300D68F6A00ECA5 + 7E00E39E7A00ECA67D00ECA67D00E39E7A00D5906B00000000001764C300057C + EB000389F000057CEB0000000000000000000000000000000000000000000000 + 000002090600000000002A9C750013B0820013B0820017B6870025977100030C + 0900000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F4C49B00F0C19800E7B8 + 9100F7D3B400EBBD9600F5C89F00F5C79E00F5C79E00F5C79E00F5C79E00F5C7 + 9E00F5C79E00F5C79E00F5C79E00F5C79E00F5C79E00F5C79E00EBBC9600D8A6 + 8200ECB89000F2BD9400D09775000202010000000000CE8A6600EEA97B00E19A + 7400ECA77F00ECA77E00ECA77E00ECA87F00ECA87E00E09873000657DE000657 + DE000657DF000657DF000E42B700E2997400ECA77F00ECA77F00ECA77F00ECA7 + 7F00ECA87F00E1997400CE8A660000000000000000000DCD970013BD8F000ECE + 97000ECE97000DCE97000ECE980013BC8E000ECD97002CA57500D6906B00EDA7 + 7F00E5A17B00ECA77E00ECA77E00E6A17B00D6906B00000000001A66C7000581 + ED00038DF1000581ED0000000000000000000000000000000000000000000000 + 00002A9C750032D59F0014B1830010CF9E0010CF9D0012C1910031D39D0023A0 + 78000D3225000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F5C89E00F5C89E00F4C7 + 9D00D3A58200F8D9BC00F5CAA100F5CAA100F5CAA100F5CAA100F5CAA100F5CA + A100F5CAA100F5CAA100F5CAA100F5CAA100F5CAA100F5CAA100F8D9BC00F1BE + 9600F4C19800F4C19800D09775000202010000000000CF8A6700EEA97C00E39C + 7600EDA98100ECA98000ECA98000ECA98000ECA98000DE9671000759E0000759 + E0000759DF000759E0000D44BA00E0977200ECA88000EDA98000ECA98000EDA9 + 8000EDA98000E39C7600CF8B670000000000000000000ECF990012C090000ECF + 98000ECF99000ECF99000ECF990012BF8F000ECF99002BA67500D6906C00EDA8 + 7F00E7A27C00ECA87F00ECA87F00E7A27C00D6906B00000000001A68CB000482 + ED00038EF1000483EE0000000000000000000000000000000000000000000223 + 1A002BD19C0014B2840013B2840016D2A10011D09E0010D09E0016B6870027CB + 9900259670000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F5C89E00F5C89E00F5C8 + 9E00F3C59C00DBAD8800F9DFC500F2C59D00F2C59D00F2C59D00F2C59D00F2C5 + 9D00F2C59D00F2C59D00F2C59D00F2C59D00F2C59D00F9DFC700E2B38D00F4C4 + 9B00F4C49B00F4C49B00D09775000302010000000000D08B6800EEA97D00E49F + 7800EEAA8100EEAB8200EDAA8200EDAB8200EDAA8200DC936F00095AE100095A + E100085AE100095AE1000D45BD00DD947000EEAB8100EDAA8200EEAA8100EDAB + 8200EEAA8100E49F7800CF8B670000000000000000000ED09A0011C392000ED0 + 9A000ED09A000ED09A000ED09A0011C191000FD09A002AA67700D7906C00EDA9 + 8000E8A47D00EDA98000EDA98000E8A47D00D7906B00000000001B6ACD000486 + EF00038FF2000486EE000000000000000000000000000000000001150F002AA0 + 750015B3840013B283000FCE9B0080EFD0006EE5BF000FD19E0013B7880024C9 + 96001FB78A000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F6CDA400F6CDA400F6CD + A400F5CCA300F5CCA300F5CCA300FBE8D400E9B79000E9B79000E9B79000E9B7 + 9000E9B79000E9B79000E9B79000E9B79000ECBF9700F5C89F00F5C89F00F5C8 + 9E00F5C89E00F5C89E00D09775000302010000000000D28E6900EFAE8200ECA9 + 8100F0B08600F0B08600F0B08600F0AF8600F0AF8600D68A68000D60E4000D60 + E4000D60E4000D60E5000E4DC800D78B6900F0B08600F0B08600F0B08600F0AF + 8600F0AF8600ECAA8100D28D6900000000000000000013D59F0010CB97000ED3 + 9C000FD39D000ED39D000ED39D0010C9960014D5A00027AA7800D7916D00EDAB + 8100EBA88000EDAA8200EEAA8200ECA88000D8926C00000000001E6ED200048C + F1000391F300048BF1000000000000000000000000002AA078001BD09D001DD2 + 9F000FD09E0016D4A3005DE7BF0040AC890033A37E0055DCB3000FD29F0011C0 + 90001ACC99002598710002090700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F6D0A700F6D0A700F6D0 + A700F6CFA600F6CFA600F6CFA600FDF2E600FDF4EA00FBEBD900FBEBD900FBEB + D900FBEBD900FBEBD900FDF4EA00FDF4EA00F5CBA200F5CBA200F5CBA200F5CA + A100F5CAA100F5CAA100D09775000302010000000000D38E6900EAA77D00E8A5 + 7E00EBA88000EBA88000EBA88000EBA88000EBA88000D38564000E62E6000E62 + E6000E61E5000E62E6000E50CC00D3866500EBA88100EAA98100EBA88000EBA8 + 8000EBA88000E8A57D00D38E6A00000000000000000016D7A20010CE9A000FD4 + 9E000ED59E000FD59E000ED49E0010CC990017D7A20026AA7900D8926D00EDAB + 8300EDAC8200EEAC8200EEAB8300EEAC8200D8926D00000000001F6FD400038E + F1000393F200038EF10000000000000000000001010018CF9C001CD4A00010D3 + A00016D5A3005CE8C00046CFA80000000000071E1600269F770047E4B9000FD3 + A0000FD3A0001DB78A001B725500000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7D3AA00F7D3AA00F7D3 + AA00F6D2A900F6D2A900F6D3AA003786A9000685C4000685C5000299E8000299 + EC000299EF00038FE300038FE3004FA4D400F6D0A800F6CEA500F6CEA500F6CD + A400F6CDA400F6CDA400D09775000302010000000000D48F6A00DB926E00DA90 + 6E00DB926E00DB926E00DB926E00DB926E00DB926E00CE7F5F001064E7001064 + E7001064E7001064E7001054D000CE806000DB916E00DB926E00DB926E00DB92 + 6E00DB916E00DB926E00D48F6B0000000000000000001AD9A5000FD29D000ED5 + A0000FD5A0000FD6A0000FD69F0010D19C001BD9A60025AC7A00D9936D00EEAE + 8400EDAC8300EEAC8300EEAC8300EEAC8300D9926D00000000002071D7000393 + F3000393F3000393F30000000000000000002AA379001AD5A10010D4A1000FD4 + A1005BEAC1004CD7B1002CAA7F000000000000000000071E160051DCB30044E4 + B8000FD3A1001DD3A10023A178000C2F23000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7D5AD00F7D5AD00F7D5 + AD00F7D7B100F9E2CA000C8ABA00069AD60004AFF20003AFF50003ACF60002AA + F60002A8F60002A3F60001A2F70001A0F700019DF700F9E2CA00F2D7B600F7D3 + AA00F7D3AA00F7D3AA00D09775000302010000000000D6916C00CC7C5D00CC7C + 5D00CC7C5D00CC7C5D00CC7C5D00CC7C5D00CC7C5D00CC7C5D001368E9001368 + E9001367EA001367EA00125BD900CC7C5D00CC7C5D00CC7C5D00CC7C5D00CC7C + 5D00CC7C5D00CC7C5D00D6906C00000000000000000022DDAB000ED9A3000FD9 + A3000FD9A3000ED8A3000ED9A2000FD8A30025DFAC0022B07E00D9946E00F0B2 + 8A00EFAE8500EEAE8500EFAE8400EFAE8400D9946E00000000001584EA005DC7 + FB005DC7FB005DC7FB00000000000000000006140F003BCDA1003EE2B60056E9 + C0002EAF830000020100000000000000000000000000000000000820180027A4 + 7A004DDCB2000FD5A10015D5A1001CB88B000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7D5AD00F7D5AD00F7D5 + AD00F8DFC3000997CA000999CE0005B5F40005B5F50004B4F50004B1F50003AE + F50003ACF60002A8F60002A7F60002A5F60001A0F700019FF700F8DFC300F7D8 + B200F7D5AD00F7D5AD00D09775000302010000000000F4B78D00F5B88D00F4B8 + 8D00F4B78D00F4B78D00F4B88D00F4B88D00F4B88D00F0AF86001469EB001469 + EB00166BEB001369EB00135EDD00F2B28900F4B78D00F4B78D00F4B88D00F4B8 + 8D00F4B88D00F5B78D00F5BC9300D7916C000000000027E0AE000EDAA4000EDA + A5000FDBA4000FDAA4000FDAA5000FDAA40029E0AE0022B17F00D9946E00EFB4 + 8C00EFAF8600EEAF8500EFAF8500EFAF8600DA936E0000000000000000001584 + EA001584EA001584EA00000000000000000000000000259E760087EBCD00FFFF + FF00010504000000000000000000000000000000000000000000000000000821 + 180027A67A0036E0B30010D5A20013D4A1000C2E230000000000000000000000 + 00000000000000000000000000000000000000000000F7D5AD00F7D5AD00EED2 + B0000B9BCA000AA5D60009AFE40006B9F50006B8F50005B6F50005B5F50004B2 + F50004B1F50003ACF50002ABF60002AAF60002A5F60002A3F60001A2F700F5D7 + B500F4D6B400F7D5AD00D09775000302010000000000F5B98F00EFB08700EFB0 + 8700EFB08700EFB08700EFB08700EFAF8700EFB08700E8A57E00146BEC00146B + EC002073EE00156AEC001462E000EAA78000EFB08700EFB08700EFB08700EFB0 + 8700EFB08700EFB08700F5BD9400D8926D00000000002CE2B1000FDBA6000FDC + A5000FDBA6000FDBA6000FDCA6000FDCA6002EE3B10021B38100DA946E00F0B7 + 8F00EFAF8600EFB08600EFB08600EFB08600DA946F0000000000000000000000 + 0000000000000000000000000000000000000000000004100C0028A1790028A2 + 7A00000000000000000000000000000000000000000000000000000000000000 + 00000822190049DCB10033E0B2000FD6A300259C740002090600000000000000 + 00000000000000000000000000000000000000000000F1D3B300F5D8B700C9A5 + 8A0035C4E7000BC3F4000BC3F4000AC1F40009C0F40008BEF40007BCF50006B9 + F50006B8F50005B5F50004B4F50004B2F50036AAD700A89D9000C3A28900E1B5 + 9300F5D8B700F5D8B700DFB090000302010000000000F7C79F00F2B58C00F6BB + 9000F6BC9000F6BB9000F6BB9100F6BB9000F6BB9000EAA78000176DEE00176D + EE005196F400176EED001568E700EAA78000F6BB9000F7BB9100F6BB9100F6BB + 9100F6BB9000F6BB9000F7C7A000D9936E000000000037E6B5000FDEA9000FDE + A8000FDEA9000FDEA90010DEA9000FDEA90039E6B60020B88500DB956F00F1BD + 9400F0B18800EFB18800EFB18700EFB18700DB956F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000008231A0027A77E0046DDB10010D6A30026A97E000C2E22000000 + 00000000000000000000000000000000000000000000E8C2A200E6BA9600E0B2 + 90009EA5980055D2EA000CC5F3000BC3F4000BC3F4000AC2F40009C0F40008BD + F40007BCF50006B8F50005B6F5000AB6F300BE9F8800CDA88C00DEB59300E8BB + 9700E8BC9700E8BC9700C39071000000000000000000F8CCA600F3B78D00F6BC + 9100F7BC9100F7BC9100F7BC9100F6BC9100F6BD9100EAA88100176EEE001970 + EE0069A8F700176FEE00166BEA00E6A27C00F7BC9100F7BD9100F7BC9100F6BC + 9100F6BC9200F6BC9100F8CCA600DA946E00000000003DE8B8000FE0A9000FDF + AA000FDFAA0010E0A9000FE0AA000FDFA9003EE8B9001FB98600DB957000F2C0 + 9700F0B18800F0B18700EFB28800F0B18800DB956F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000009241B0028AA7F002BDFAF0014D09E0027A177000000 + 00000000000000000000000000000000000000000000DAA88600ECCAAC00E7BB + 9800D7AE9000B3A7930074D9EA000CC5F3000BC3F3000BC3F4000BC3F4000AC1 + F40009C0F40007BCF40021B7E60097A49D00D8B29200E4B99600E9BD9900E9BE + 9900E9BE9A00EECFB100564235000000000000000000F9DFC700F7BE9300F7BE + 9300F7BE9300F7BE9300F7BE9300F7BE9300F7BE9300E7A47E00186FEF00277A + F1007AB4F900186FEF00186EEE00E7A47E00F7BE9300F7BE9300F7BE9300F7BE + 9300F7BE9300F7BE9300FAE8D800DA946F000000000041E9BA000FE1AB000FE1 + AC000FE0AB0010E0AB0010E1AB000FE1AB0043EABB001EBB8800DC956F00F2C2 + 9900F0B28800EFB38900EFB28800F0B28800DC956F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000009241B0044DDB10028DFAF001DBC8E000000 + 000000000000000000000000000000000000000000000000000055413400DAA8 + 8600EAC09B00E9BE9900E5BB98009CE8F30011CDF2000FCAF3000DC8F3000CC5 + F3000EC9F400C1A78F00DAB59500E8BF9C00ECC29D00ECC29D00ECC39D00F2D6 + B900DEAE8D0056423500000000000000000000000000DA957000AE8989003648 + 99001E359200454C910061517800B67E6200BF82600095654A00146BEC00146B + EC00146BEC00146BEC00BF82600095654A00B67E63008C6B70007F708E00203E + 9A001A3B9B00374E9D00DA9570008D654A00000000004CECBE0010E3AE000FE3 + AD0010E2AE000FE2AD000FE3AE0010E3AD004EECBF001DBE8B00DC967000F5F9 + F700F7E1BA00F7E1BA00F7E1BA00F7E1BA00DC96700000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A261C002AAC7F0040DCB00029A4 + 7A00020806000000000000000000000000000000000000000000000000005541 + 3400F2D8BD00ECC19E00EBC19C00CBB99E00AFEEF80012CEF20010CCF30013CE + F3005CBFC800E3BD9A00ECC39E00EEC59F00EEC59F00EEC59F00EEC5A000DFB0 + 8E00574335000000000000000000000000000000000017234F000E33A0001F5D + CE000D46BB000B4ECB000A44BB000C2890001C3796005B568400062E9E00062E + 9E00062E9E00062E9E00947272005C5984000F379E000D3FAD000C4CC4000E48 + BE001662DF002063D400615A7500000000000000000051EDC0000FE3AF0010E4 + AF0010E4AE0010E4AF0010E3AF0010E4AE0053EDC1001DC18D0054392B00D796 + 7000F2AF8500F3AE8500F2AE8500F2AE850035261D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000A271D002BAC800026C1 + 94001B7256000000000000000000000000000000000000000000000000000000 + 0000DCAA8800F5DBC100EDC59F00ECC39D00CDC2A600BFF1FA0015D3F2005AC7 + CE00DCB99800EEC7A100EEC7A100EFC8A200EFC8A200EFC8A200F4DBC0005844 + 360000000000000000000000000000000000000000000C317F001653C5003880 + ED000E50CC000C5FE3000448CE000E35A5000E34A4000D35A600103CAD004990 + F1004990F100103CAD001345B2000E36A3000E35A5000E35A5000D40B5000E50 + CC00387BEC003880ED000C317F00000000000000000056EEC20010E5AF000FE5 + B00010E5B00010E4AF0010E5B00010E5B00058EEC2001CC28F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000A271D003ADB + AD002BB285000B2C210000000000000000000000000000000000000000000000 + 00000000000058443600DDAD8B00F0CAA300F1CBA400F1CBA400F0CBA400F1CC + A400F2CCA500F2CDA500F2CDA500F3CEA600F5DDC300E1B593005B4637000000 + 000000000000000000000000000000000000000000000B317F00215BCA005195 + F8000C5BDD000C5FE3000E60E3002672E6002A6CDD00124FCB00123AA300173F + A5001241AE001241AB000E45B6000D4CCB00206CE4002270E7000E60E3000C5B + DD005091F6005195F8000B317F0000000000000000005FEFC40010E7B10010E7 + B10010E6B10010E7B10010E6B10010E6B10061EFC5001CC59100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000A29 + 1E002CAF840032C0930000000000000000000000000000000000000000000000 + 000000000000000000005A453700F7DFC600F7DEC200F7DEC200F7DEC200F7DE + C200F7DFC200F7DFC300F7DFC300F8DFC300E2B695005D473800000000000000 + 00000000000000000000000000000000000000000000092869002158C700579B + FD001C6CE6003781EC00478AEB000D48C8000D40B8000D34A000000001000000 + 00000000000000000200061B48000F3EA5000D49C8002464D800478AEB001C6C + E6005698FC00579BFD0009286900000000000000000063F0C50010E7B20010E7 + B20010E7B20010E7B20010E7B20010E7B20065F0C5001CC79200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000B291F002CB1850013392C00000000000000000000000000000000000000 + 0000000000000000000000000000B28B6F00E8BC9800E8BC9800E8BC9800E8BD + 9800E8BD9900E8BE9900E8BE9900E9BE99005E48380000000000000000000000 + 00000000000000000000000000000000000000000000061C4A001B50BE00599C + FD0097C3FA001859D4000D47C7000D36A4000820620000030B00000000000000 + 000000000000000000000000000001040B000F40A9000E46BC000D48C70097C3 + FA009BC8FD00599CFD00061C4A00000000000000000068F0C70010E7B20010E7 + B20010E7B20010E7B20010E7B20010E7B20068F0C7001DC89400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000B2B20002FAE8400020806000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000092963001143 + B8000C329600071C570001030C00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000001040C000C3A + 9A000E42B0001249BB000000020000000000000000001BCB970020CA970021CB + 980021CB980021CB980021CB98001FCB970018C3900000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000B2B20002EAE83000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009D9E9E009D9E9E009D9E + 9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E + 9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E9E009D9E + 9E009D9E9E009D9E9E0000000000000000000000000000000000000000000534 + 6A0012589F0012589F0012589F0012589F0012589F0012589F0012589F001258 + 9F0012589F0012589F0012589F0012589F0012589F0012589F0012589F001258 + 9F0005346A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4003569DC003569DC003569DC003569DC00173BB60006338400093889000938 + 8900093889000C3C8F0006338400173BB6003568DC003568DC003568DC003568 + DC002E54D40000000000000000000000000000000000CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC0000000000000000000000000000000000000000000534 + 6A000F509400073B7500073A7400073973000739720007387100063770000637 + 6F0006376F0006366E0006356D0005356D0005356C0005346B0005346B000E50 + 940005346A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D400366DDD00366DDD00366DDD00366CDD00173BB6000633840013469D001346 + 9D0013469D000E3E920006338400173BB600366CDD00366CDD00366CDD00366C + DD002E54D40000000000000000000000000000000000CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCCCC00CCCC + CC00CCCCCC00CCCCCC0000000000000000000000000000000000000000000534 + 6A000F519500F6DDB600F6DDB500F6DDB400F6DDB400F6DCB300F6DCB300F6DC + B300F6DCB200F6DCB200F6DCB200F9E9C100FAEDD200F9E9CD00F7E1BD000F51 + 950005346A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002E54 + D4005799EB005799EB005799EB0072B7FF00173BB600063384001548A0001448 + A00014489F001142970006338400173BB6005799EB005799EB005799EB005799 + EB002E54D40000000000000000000000000000000000CDCDCD00CCCCCC00DF98 + 7100EBA27900EBA27900EAA27900EAA27900EAA27900EAA27900EAA27900FCC8 + A500EAA27900EAA27900EBA27900EAA27900EAA27900EAA27900EAA27900DF98 + 7100CCCCCC00CCCCCC0000000000000000000000000000000000000000000534 + 6A0011549900F6DFB900F6DFB800F6DEB700F6DEB700F6DDB500F6DDB400F6DD + B400F6DDB400F6DDB400F6DDB400F6DDB400F8E5BB00FCF5D300FDF6DD001154 + 990005346A0000000000000000000000000000000000BD846200E8A97F00EEA9 + 7A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA9 + 7A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00EEA97A00D595 + 7000140E0B000000000000000000000000000000000000000000000000000000 + 0000D4D4D400BFBFBF00BFBFBF00BFBFBF009C9C9C0006338400194FA700184E + A700184EA700184EA500063384009C9C9C00BFBFBF00BFBFBF00C3C3C300B3B3 + B3000000000000000000000000000000000000000000CECECE00CDCDCD00DE97 + 7100EBA37A00EBA27A00EAA37A00E9A17800EAA17900EBA37A00EAA27A00FCC8 + A500EAA27A00EAA27900EBA37900EBA27A00EAA37A00EBA37A00EBA27A00DF98 + 7100CDCDCD00CDCDCD0000000000000000000000000000000000000000000535 + 6B0011559B00F6E0BB00F6DFB900F6DFB800F6DEB800F6DEB700F6DDB600F6DD + B600F6DDB500F6DDB400F6DDB400F6DDB400F6DDB400F7DFB700FBF1CC001155 + 9A0005356B0000000000000000000000000000000000B57D5B00F6BB9100E09B + 7300D5916A00D6926B00D8946C00D8956D00D9956D00DA966F00DB976F00DB97 + 6F00DB976F00DD997100DE997100DE997100E09A7200E09A7200E09B7300E09C + 7400B07C5E000000000000000000000000000000000000000000000000000000 + 0000D4D5D500BFBFBF00CBCBCB00CDCDCD009C9C9C0006338400093889000938 + 8900093889001951AA00063384009C9C9C00CBCBCB00CBCBCB00BFBFBF00B3B3 + B3000000000000000000000000000000000000000000CFCFCF00CECECE00DB94 + 6E00EBA37A00EAA37A00E8A17800DC977000E0997100E8A07900EAA37A00FCC8 + A500EBA47A00EBA37A00EBA37B00EBA37A00EBA37A00EBA37A00EAA47B00DF98 + 7100CECECE00CECECE0000000000000000000000000000000000000000000535 + 6C0012569D00F6E0BC00F6E0BB00F6E0BA00F6E0BA00F6DFB900F6DEB700F6DE + B700F6DEB700F6DDB600F6DDB500F6DDB500F6DDB500F6DDB500F6DEB5001256 + 9D0006356C0000000000000000000000000000000000B67E5C00FDEFE200EDAC + 8300E9A37A00E9A37A00E9A37A00E9A37A00E9A37A00E9A37A00E9A37A00E9A3 + 7A00E9A47A00E9A47A00E9A47B00E9A47B00E9A47B00E9A47B00E9A47B00E19C + 7400D3946F000000000000000000000000000000000000000000000000000000 + 0000D6D6D600C3C3C300D3D3D300D6D6D6009C9C9C00063384001D58B0001D57 + B0001D57AF0011449800063384009C9C9C00D6D6D600D3D3D300BFBFBF00B3B3 + B3000000000000000000000000000000000000000000D1D1D100D0D0D000CC87 + 6300D18C6800CF896500CA856200CE9B8100C7825F00D18C6800EBA47B00FCC8 + A500ECA57C00ECA57C00E8A37B00E9A27A00EBA57C00EBA57C00ECA57C00DF9A + 7300D0D0D000D0D0D00000000000000000000000000000000000000000000637 + 6F001359A000F7E2C000F7E2BF00F7E2BE00F7E2BE00F6E0BD00F6E0BB00F6E0 + BB00F6E0BB00F6DFBA00F6DFB900F6DFB900F6DFB900F6DEB800F6DEB8001359 + A10006366F0000000000000000000000000000000000B67E5D00F4C19600EDB1 + 8700E19C7400EAA57C00EAA57C00EAA67D00EAA67D00EAA67D00EAA67D00EAA6 + 7D00EAA67D00EBA77D00EBA77E00EBA77E00EBA87E00EBA87E00EBA87E00EAA7 + 7E00E6A57B00C88D6B0000000000000000000000000000000000000000000000 + 0000D9D9D900D0CFCF00D8D8D900D8D9D9009C9C9C0006338400215EB800205D + B700205EB7001952A900063384009C9C9C00D9D8D800D9D8D800C4C4C400B3B3 + B3000000000000000000000000000000000000000000D2D2D200D1D1D100D7A7 + 8E00C7836000CD8E6F00DBBCAC00E4E2E100D49E8100C9846100E59F7800FBC7 + A400EBA67D00E6A27900DE9A7300DC977000EAA57D00ECA67D00ECA67D00DF9A + 7300D1D1D100D1D1D10000000000000000000000000000000000000000000737 + 7000135AA300F7E3C100F7E2C000F7E2C000F7E2C000F7E2BF00F7E1BE00F7DF + BC00F7E0BA00F7E1BB00F7E0BA00F7E0BA00F7E0BB00F7E0BA00F7E0BA00135B + A3000737710000000000000000000000000000000000B7805E00F3C29700CC8F + 6900E19E7600EAA67D00EBA87E00EBA87E00EBA87E00EBA87F00ECA97F00ECA9 + 7F00ECA97F00ECA97F00ECAA8000ECAA8000ECAA8000ECAA8000EDAA8000EDAB + 8100E9A77E00DB9C760000000000000000000000000000000000000000000000 + 0000DADADA00D6D6D600DADADA00DADADB009C9C9C00063384003786D5003786 + D5003786D5001E5AB200063384009C9C9C00DADADA00DADADA00CCCCCC00B3B3 + B3000000000000000000000000000000000000000000D3D3D300D2D2D200E6E4 + E300DFC4B500E6E4E300E6D6CC00E8BBA100E5DED900CE906F00DA956F00F5BF + 9D00EAA57D00D9946D00CB876300CA866300E8A37A00EBA77E00ECA77E00E09B + 7400D2D2D200D2D2D20000000000000000000000000000000000000000000738 + 7200145BA400F8E3C300F7E3C200F7E3C100F7E3C100F7E2C000F7E2BF00F7E1 + BD00F6DFBA00F7DFBA00F7E1BB00F7E1BC00F7E1BC00F7E0BB00F7E0BB00145C + A5000738720000000000000000000000000000000000B77F5E00F3C39700C286 + 6100E8AB8200E5A47A00ECAA8000EDAA8000EDAB8100EDAB8100EDAB8100EDAB + 8100EDAC8200EDAC8200EDAC8200EEAC8300EEAD8300EEAD8300EEAD8400EEAD + 8400EDAD8300E9AA800000000000000000000000000000000000000000000606 + 0600DCDBDB00DCDCDB00DBDCDB00DBDBDC009C9C9C00063384002260BA002260 + BA002260BA002260BA00063384009C9C9C00DBDBDB00DBDBDC00D3D3D300ADAD + AD002C2C2C0000000000000000000000000000000000D5D5D500D4D4D400E19C + 7500ECA98000ECA98000EDA98000EDA98000ECAA8200E9DAD100CA866200CE8D + 6B00CB876400E4D5CE00E9E5E300DFBFAE00D08D6800E29F7700ECA87F00E09C + 7500D4D4D400D4D4D4000000000000000000000000000000000000000000073A + 7600155EA900F8E5C400F8E4C300F8E4C300F8E4C300F8E4C300F7E3C200F7E2 + C100F6E1BE00F5DAB400F5DCB300F6DEB900F7E3C000F7E2BF00F7E2BE00155F + A900083A760000000000000000000000000000000000B7806000F2C49900CC90 + 6A00EEC49900EBAC8300EDAD8400F0B08600F0B18700F0B18700F1B18800F1B1 + 8800F1B28800F1B38800F1B38900F1B38900F1B48900F1B48900F2B48A00F2B4 + 8B00F2B48B00F3B58B00936A5000000000000000000000000000000000001935 + BF009F9F9F00D4D4D500DEDFDE00DFDEDE009C9C9C003786D5003786D5003786 + D5003786D5003786D5003786D5009C9C9C00DEDEDF00DEDEDF00D1D0D000A3A3 + A3001226AD0000000000000000000000000000000000D7D7D700D6D6D600EBB1 + 8F00FCC9A600FCC9A600FCC9A600FCC9A600FCC9A600F9CAAB00DEB49D00C887 + 6500D6A99100EBCDBA00F4C4A600ECE7E400CC8B6900DCA07E00F3BD9B00EBB1 + 8F00D5D5D500D5D5D5000000000000000000000000000000000000000000083B + 78001660AB00F8E5C700F8E5C500F8E5C400F8E5C400F8E4C300F8E4C300F8E4 + C300F8E3C200F5DFB700F5DBB200F5DCB400F7E1BE00F7E3C000F7E3C0001660 + AB00083C780000000000000000000000000000000000B8816000F2C79A00D195 + 6E00E5B28700EFC09400ECAF8500F2B48A00F2B48A00F2B48B00F3B58B00F3B6 + 8B00F3B68B00F3B68B00F3B68C00F3B68C00F4B78D00F4B78D00F4B78D00F4B8 + 8E00F4B88E00F4B88E00CA926F00000000000000000000000000000000001935 + BF00A1A1A1009F9F9F00D5D5D500E0DFDF00DFE0E000E0DFE0002A8F60000CC7 + 90002A8F6000E0E0E000E0DFE000E0E0DF00DFE0E000D2D2D2009C9C9C004275 + DB001226AD0000000000000000000000000000000000D8D8D800D7D7D700E19E + 7700EDAB8200EEAB8200EEAB8200EDAB8200EDAB8200EDAB8200EEE9E700E7D1 + C300ECE3DE00EBA98100EDAB8200EBB99A00D29B7E00CA866300DB977200E19E + 7700D7D7D700D7D7D7000000000000000000000000000000000000000000093C + 7A001662AD00F8E6C900F8E5C800F8E5C700F8E5C700F8E5C500F8E4C400F8E4 + C300F8E4C300F8E1BF00F5DFB800F4DAB000F5DFBA00F7E1BF00F7E3C2001661 + AD00093D7A0000000000000000000000000000000000B8826100F1C89B00D69A + 7200D79B7300F0C99C00F2B58B00F4B78D00F4B88D00F4B88E00F4B88E00F4B9 + 8E00F4B98E00F5B98F00F5B98F00F5BA8F00F6BA9000F6BB9000F6BB9000F6BB + 9000F6BB9000F6BB9000E8AD8500624836000000000000000000000000001935 + BF004275DB00A2A2A2009F9F9F00E1E1E100E1E1E100E1E1E1000CC790002A8F + 60002E54D4002A8F6000E1E1E100E1E1E100D2D2D2009D9D9D00A4A5A5004A8D + EB001226AD0000000000000000000000000000000000DADADA00D9D9D900E19F + 7800EEAD8400EEAD8400EEAD8400EEAD8400EEAD8400EEAD8400EEAD8400FCC8 + A500EEAD8500EEAD8400EEAD8400EEAD8400EFD7C800ECD9CF00CA866300DA98 + 7200D9D9D900D9D9D90000000000000000000000000000000000000000000A3F + 7E001864B200F8E7CB00F8E7CA00F8E7CA00F8E7CA00F8E6C900F8E5C800F8E5 + C800F8E5C800F8E5C500F8E4C400F8E2C100F6DBB400F5DBB300F7E0BD001864 + B1000A3F7E0000000000000000000000000000000000B8836200EFC99C00DFA3 + 7B00DFA37B00E2A77F00FFFAF100FDF1DF00FDEFDB00FDEDD900FCEAD200FBE9 + CF00FAE7CC00F9E2C400F9E1C100F8DFBE00F8DDBA00F7DCB800F7DCB800F6DB + B700F6DAB600F6DAB600F5D9B500D7A481000000000000000000000000001935 + BF003562DA005092EF004275DB00A0A0A000D8D9D900E4E3E300154BA300F1B1 + 8700F1B18700E4E4E300E3E3E300D5D5D500A4A4A5004275DB004B8EEC001934 + BF001226AD0000000000000000000000000000000000DBDBDB00DADADA00E2A0 + 7900EFAE8500EEAE8500EFAE8500EEAE8500EFAE8500EFAE8500EEAE8500FCC9 + A600EEAE8500EFAE8500EEAE8500EFAE8500ECAE8700F2E4DC00E5C7B500D28E + 6A00DADADA00DADADA0000000000000000000000000000000000000000000A41 + 81001965B300F8E8CC00F8E7CB00F8E7CB00F8E7CB00F8E7CA00F8E6C900F8E6 + C900F8E6C900F8E5C800F8E5C700F8E5C700F6E0BB00F5DAB300F6DCB6001865 + B3000A40810000000000000000000000000000000000B9836300EFCA9C00E3A8 + 7F00E3A87F00E3A87F00E7AE8700E9AF8500E9AF8500E9AF8500E9AF8500E9AF + 8500E9AF8500E9AF8500E9AF8500E9AF8500E9AF8500E9AF8500E9AF8500DBA0 + 790091674E008A624A00886149003D2C21000000000000000000000000000C17 + 3A002E54D4003563DA005699F100A1A1A300A0A0A000DADAD900154BA300F1B1 + 8700F1B18700E5E5E500D5D5D6009D9D9D004275DB004B8EEC002447CA001226 + AD00060E340000000000000000000000000000000000DCDCDC00DBDBDB00E2A1 + 7900EFAF8600EEAF8600EEAE8500EFAF8600EFAF8600EFAF8600EFAF8600FCC9 + A600EEAE8600EEAF8600EFAF8600EFAF8600EFAF8600ECB58F00F5EFEB00CC88 + 6400DBDBDB00DBDBDB0000000000000000000000000000000000000000000B41 + 82001966B500F8E8CE00F8E8CD00F8E8CC00F8E8CC00F8E7CB00F8E7CA00F8E7 + CA00F8E7CA00F8E6C900F8E5C800F8E5C800F8E2C300F6E0BC00F5DDB5001967 + B5000B42820000000000000000000000000000000000B8846300EFCA9D00E8AD + 8400EFB58A00EFB58B00EFB58B00EFB48A00EEB48A00EEB48A00EDB38900EDB3 + 8900EDB38900ECB28800ECB18800ECB18700EBB08600EAB08600EAAF8600DCA0 + 790017100B000000000000000000000000000000000000000000000000000000 + 00001935BF002E54D4003664DA004275DB00A1A1A300A0A0A000063384000633 + 840006338400D6D6D6009D9D9D00A4A5A5005093EF00244ACB001934BF00060E + 33000000000000000000000000000000000000000000DEDEDE00DDDDDD00E3A1 + 7A00EFB18700EFB18800EFB08700EFB08800EFB18700EFB18700EFB18800FCCA + A700EFB18700EFB18700EFB18800F0B18800EFB18800EFB08800EFB08800F5EA + E300DDDDDD00DDDDDD0000000000000000000000000000000000000000000C44 + 87001B69B900F9E9D000F8E9CF009B9280009B9280009B927F009B927F009B92 + 7F009B927E009B917E009B917D009B917D009B917D00BFB29900F8E5C7001B69 + B8000C44870000000000000000000000000000000000BA866500EECC9F00F6BC + 9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC + 9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100E2A7 + 7F00140E0A000000000000000000000000000000000000000000000000000000 + 0000000000000B1535001935BF003664DB00579BF2004275DB00A0A0A000DBDC + DB00D8D7D800A3A4A7004275DB00579AF100878CA6001226AD00060D2F000000 + 00000000000000000000000000000000000000000000DFDFDF00DEDEDE00E3A3 + 7B00EFB28800F0B18800EFB28800F0B18800EFB18800EFB18800F0B28800FCCA + A700EFB28800F0B18800EFB28800EFB28900F0B18800EFB18800F0B18800EFD1 + BD00DEDEDE00DEDEDE0000000000000000000000000000000000000000000D45 + 8A001B6AB900F9EAD100F9E9D000565544005755450057554400575644005755 + 44005655440057554500575544005756440086806C009B917D00F8E7CA001B69 + BA000D45890000000000000000000000000000000000BC886700EDCC9F00F6BC + 9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100FADDB800FADD + B800FADDB800FADDB800FADDB800FADDB800FADDB800FADDB800FADDB800D198 + 7300050302000000000000000000000000000000000000000000000000000000 + 000000000000000000000B1432002E54D4003664DB00589BF200A0A1A400A0A0 + A0009D9D9D004275DB00579BF200061D9400ABABAB00050C2D00000000000000 + 00000000000000000000000000000000000000000000E1E1E100E0E0E000E2A3 + 7B00EFB28900F0B28900F0B28900F0B28900F0B28800F0B28900EFB28900FCCA + A700F0B28900EFB28900EFB28900EFB28900EFB28900EFB28900F0B28900E9B7 + 9800DFDFDF00DFDFDF0000000000000000000000000000000000000000000D47 + 8C001C6BBB00F9EAD200F9EAD100908974009089740090897400908974009089 + 7400908974009089740090897400908974005A5A48009B917E00F8E7CB001C6A + BB000D468C0000000000000000000000000000000000BF8A6900EDCD9F00F6BC + 9100F6BC9100F6BC9100F6BC9100F6BC9100F6BC9100F3D2AE00DDAC8E00DDAC + 8E00DDAC8E00DDAC8E00DDAC8E00DDAC8E00DDAC8E00DDAC8E00DDAC8E003B2B + 2000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000001935BF002E54D4003664DB004275DB009FA1 + A5009D9FA700589CF200061D9400A0A5BF00ABABAB0000000000000000000000 + 00000000000000000000000000000000000000000000E3E3E300E2E2E200E3A3 + 7C00E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00EBB2 + 9000E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00E3A37C00E3A3 + 7C00E2E2E200E2E2E20000000000000000000000000000000000000000000E49 + 90003786D5003786D5003786D500F5F6EF00E3E5D200D3D6B600D3D6B600D3D6 + B600D3D6B600D3D6B600D3D6B600DDDFC70064634F002F5B83003786D5003786 + D5000E4990000000000000000000000000000000000087634C00D9A68600D89D + 7800D69C7700D69B7700D69B7700D49A7500C18B6900271C1500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000A122E001935BF003563DA0072B7 + FF0072B7FF001934BF00ABABAB00CCCCCC00ABABAB0000000000000000000000 + 00000000000000000000000000000000000000000000E4E4E400E3E3E300E3E3 + E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3 + E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3 + E300E3E3E300E3E3E30000000000000000000000000000000000000000000B39 + 71000E4A93000E4B92000F4A920068675400686754006867540072725E007272 + 5E0072725E0072725E006868540068675400455C6D00183A5E000E4B92000F4A + 92000B3971000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000009112C002E54D4003F82 + E6003F82E6001226AD00ABABAB00CCCCCC00ABABAB0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006C6B5700646351006463 + 510064635100646351006D6C5800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001935BF003F82 + E6003F82E600050A2600ABABAB00E4EBEB00ABABAB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004545380073725D007372 + 5D0073725D0073725D0045453800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000509 + 1800020616000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000030448900BECAF4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000026366A007D94E1004256 + 9C00687FCF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3E90029396C003B4A7E0043549300485C9E00485C + 9E00485C9E00435493003B4B80002A396E00A3B3E90000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CCCC + CC003E5291002B3767002A386800445799004D60A1005166AC005267AC005166 + AE005267AB005064A8004E63A7004A5D9B002F3D6E0029366400293665009FAD + DC00D3D3D3000000000000000000000000000000000034343300232323002222 + 220022222200212121002121210020202000202020001F1F1F001F1F1F001E1E + 1E001E1E1E001D1D1D001D1D1D001D1D1D001C1C1C001C1C1C001B1B1B001B1B + 1B001B1B1B001A1A1A0034343300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000028387000869FF1007D95 + E6004A5DA0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003E55A3002F3E7400455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF002F3E74003E55A300000000000000 + 0000000000000000000000000000000000000000000000000000CBCBCB0093A2 + D800475891005166B1004E60A2004E69C0003B58BA003856B9003B58B9003754 + B7003653B6003552B300304DAF003551AE003545790047568D004C60A3002A37 + 670092A1D7000000000000000000000000000000000036363500F4E0BD00F7E2 + BF00F7E2BE00F7E2BE00F7E1BD00F7E1BC00F7E1BC00F7E0BB00F7E0BB00F7E0 + BA00F7E0BA00F7E0BA00F7E0BA00F7E0BA00FAEFCC00F9EED000F7EBCF00F5E5 + C900F2DFC000F2DAB60034343300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000002B3B75008BA1EB00829A + EA006A87EB003349900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000293D85003D4E8900465FB0000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA100465FB0003D4E8900293D85000000 + 0000000000000000000000000000000000000000000000000000000000004860 + B200506BC8003B5BC4005570CA005E78D1003D5DC8004664CA004563C9004563 + C9004361C7003F5DC3003B5AC0003151BA0049598E004E67B800324EAE004A5A + 93004157A4000000000000000000000000000000000039393700F7E3C100F7E3 + C100F7E2C000F7E2BF00F7E2BE00F7E2BE00F7E2BE00F7E1BD00F7E1BC00F7E0 + BB00F7E0BB00F7E0BA00F7E0BA00F7E0BA00F8E3BC00FCF3CE00FDF7D800FEF9 + E400FEF9E700F3DEBB0034343300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000304180009CAEED007F96 + E1004B67C7004368E40030418000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002D41 + 8A003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9002D41 + 8A00000000000000000000000000000000000000000000000000000000003C52 + 9E005978E100617FE4006F8BE800859DED006D89E9006E8AEA006C89E9006B88 + E8006986E7006481E300617EE1005C7ADE007F93D4005270D3004362CB005971 + C10033458400000000000000000000000000000000003E3D3B00F8E4C400F8E4 + C400F7E4C300F7E4C300F7E3C200F7E3C100D8C7A9008C817100F7E2BF00F7E2 + BE00F7E2BE00B4A48C00756C5D00736A5C00F5DEBA00F7E0BB00F7E0BB00FCF5 + D300FDF7DB00F8EBD00034343300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000334486009EB0EE007F96 + E1004B67C7004468E40033448600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000445DAE004154 + 9500082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004154 + 9500445DAE00000000000000000000000000000000000000000000000000435B + AD006E8CEF007994F1007C97F3008DA5F500819BF400829CF500809AF4007F9A + F4007C97F3007692EF00738FED006F8BEB007F98E9005F7DE0005876DB006079 + CC00384C90000000000000000000000000000000000040403C00F8E5C700F8E5 + C700F8E4C500F8E4C400F7E4C300F7E4C300B7AA940026262600F7E3C100F7E2 + C000F7E2C0001D1D1D001C1C1C001F1F1E00615A4E00F5DFBB00F7E1BC00F7E1 + BC00FBEFCC00FAF1D20034343300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000035488B009FB1EE007F96 + E1004B67C7004468E40035488B00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000A7B6EC00384987004863 + BE00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004863 + BE0038498700A7B6EC0000000000000000000000000000000000000000004862 + B9007A96F4008AA3F6008EA6F60092A9F60093AAF60093AAF60092A9F60091A8 + F6008EA6F60088A2F600839DF400809AF4007591EF006F8BEB006784E700637E + D5003D539C000000000000000000000000000000000042423E00F8E6C900F8E6 + C900F8E5C800F8E5C700F8E4C500F8E4C400B9AB950029292900F7E4C300F7E3 + C200E2D0B20025252400C9B79D00EDD9B7001B1B1B00AA9C8500F7E2BE00F7E1 + BD00F7E1BC00F9E9C30034343300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003A4F9700A0B2EE007F96 + E1004B67C7004469E5003A4F9700000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000394B8E004A67C800133A + BF000C35BE000C35BE000C35BE00FFFFFF00FFFFFF00A2B2E5000C35BE000C35 + BE000C35BE00A2B2E500FFFFFF00FFFFFF000C35BE000C35BE000C35BE001239 + BE004A67C800394B8E0000000000000000000000000000000000000000006F89 + DE00859FF5009FB3F700B2C2F900B7C7F900B8C7F900B9C8F900B7C7F900B5C5 + F900B3C3F900ABBDF800A6B9F800A0B4F70094ABF6008CA5F6007894F400617A + CE006B85DA000000000000000000000000000000000047474200F8E7CC00F8E7 + CC00F8E7CB00F8E7CB00F8E6CA00F8E6C900BBAF9A0030303000F8E5C700F8E4 + C500F8E4C500F7E4C300F7E4C300F7E4C30022222200766E6100F7E3C100F7E2 + C000F7E2BF00F7E2BF0034343300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000003D539E00A0B2EE007F96 + E1004B67C7004469E5003D539E00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004A5DA500395BCD00153D + C400173FC400173FC400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173F + C400173FC400FFFFFF00FFFFFF00FFFFFF00173FC400173FC400173FC400153D + C400395BCD004A5DA5000000000000000000000000000000000000000000D3DB + F8007C95E8009DB2F700B2C2F900C9D5FB00BAC5E800AEB8D800A1AAC900A0A9 + C8009DA7C8009AA6CE009CAAD700A1B1E6009FB3F7008CA5F6007E99F500556E + C200D2DBF800000000000000000000000000000000004A494400F8E8CE00F8E8 + CE00F8E7CD00F8E7CC00F8E7CB00F8E7CB00BCB09D0033333300F8E6C900F8E5 + C800F6E3C50056524C00BDAF9900C9B9A10026262600AB9F8B00F7E4C300F7E3 + C200F7E3C100F7E3C10034343300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004056A300A1B3EE007F96 + E1004B67C7004569E5004056A300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005169BD003357CF002148 + CB00234ACB00234ACB00234ACB009DA9D000FFFFFF00FFFFFF00ABBAEB00234A + CB00ABBAEB00FFFFFF00FFFFFF009DA9D000234ACB00234ACB00234ACB002148 + CB003357CF005169BD0000000000000000000000000000000000000000000000 + 00005E76C700869DE9009CB1F700A2AFD900ADB5CF00D6D9E100EDECEB00ECEB + EA00ECEBEA00E4E4E800D2D5E100A2ACCE0097ADF70088A2F6007791E70092A5 + EC0000000000000000000000000000000000000000004C4C4600F9E9CF00F9E9 + CF00F8E8CE00F8E8CE00F8E7CD00F6E5CA00BDB19F0037373700F8E7CB00F8E6 + CA00F8E6CA002E2E2E002D2D2D002C2C2C006E685E00F7E3C300F8E4C400F7E4 + C300F7E4C300F7E4C30034343300000000000000000000000000000000000000 + 0000000000000000000000000000000000004962B9006B82CC00B4C4F900A7B9 + F80098AEF7007692F2006279CA00465EB3000000000000000000000000000000 + 000000000000000000000000000000000000000000005D78D5002D54D500365B + D700395ED800395ED800395ED800395ED8003353BE00A4AFD400FFFFFF00FFFF + FF00FFFFFF00A4AFD4003353BE00395ED800395ED800395ED800395ED800385D + D8002E54D5005F79D50000000000000000000000000000000000000000000000 + 000000000000CED8F7006B84DB005C72BD00C7CBDB00CDCBCA00A19F9E009997 + 960099989600B8B7B500D1D0CE00CACEDE005972C5006B84DB00CED8F7000000 + 0000000000000000000000000000000000000000000051514900F9EAD200F9EA + D200F9E9D100F9E9D100F9E9D000464544003E3E3E003D3D3D00F8E8CE00F8E7 + CD00F8E7CD00353535009E948500E2D3B900E2D2B800F3E2C400F8E6C900F8E5 + C800F8E5C700F8E5C70036363400000000000000000000000000000000000000 + 0000000000000000000000000000516AC4006980CD0087A0F3009DB1F3008AA3 + F4007993ED005C7AE0006081EE006078CC00BFCCF50000000000000000000000 + 00000000000000000000000000000000000000000000607BD800365CDC004266 + DE004569DF004569DF004569DF004569DF004569DF003D5CC300FFFFFF00FFFF + FF00FFFFFF003D5CC3004569DF004569DF004569DF004569DF004569DF004468 + DF003A5FDC006681DB0000000000000000000000000000000000000000000000 + 000000000000000000000000000093A7ED006475AC0083879400ACAAA900C3C1 + C000C7C5C4009896950081879B006879B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000053534B00F9EBD400F9EB + D400F9EAD300F9EAD200F9E9D100E1D3BD005D5B570041414100F9E9CF00F8E8 + CE00F8E8CE0039393900383838003636360033333300CBBDA700F8E7CB00F8E6 + CA00F8E6C900F8E6C90036363500000000000000000000000000000000000000 + 0000000000000000000000000000677FD0007A95F1008CA1E80096ACF500839D + F100728DEA004F6ED7004667D4005276EC004D65BE00BFCDF600000000000000 + 00000000000000000000000000000000000000000000657FDC003F64E1004D70 + E3005173E3005173E3005173E3005173E3005173E300BCC9F400FFFFFF00FFFF + FF00FFFFFF00BCC9F4005173E3005173E3005173E3005173E3005173E3004F71 + E3004368E1006C85DE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009D9D9D005D5C5C00A9A7A500AFAD + AB00B7B5B300C0BEBD00646363009D9D9D000000000000000000000000000000 + 0000000000000000000000000000000000000000000053534B00F9ECD500F9EC + D500F9EBD400F9EBD400F9EAD300F9EAD200DACEB900504F4D00F9E9D100F9E9 + D000F9E9D0006B6760006A66600069655F0067635C00D7C9B100F8E7CC00F8E7 + CB00F8E7CB00F8E7CB0038383600000000000000000000000000000000000000 + 000000000000556FCD00637CD1006B85D9008096E1009CAEED0088A1F3007792 + EC006582E4004363CF003354C3002446B5003C63E8005B75CF00506AC3000000 + 000000000000000000000000000000000000000000006680D6006080EC006080 + EB006886EC006886EC006886EC00C5D1F800FFFFFF00FFFFFF00B2BBDA005670 + C400B2BBDA00FFFFFF00FFFFFF00C5D1F8006886EC006886EC006886EC006181 + EB006181EC006780D60000000000000000000000000000000000000000000000 + 000000000000000000000000000059595900ACABAA00C2C1C000BDBCBA00B7B6 + B400AFADAB00A8A6A500B7B5B400AEADAC000000000000000000000000000000 + 0000000000000000000000000000000000000000000058584F000C5DDD000B5C + DC000A5ADA000959D9000958D8000855D6000754D5000653D4000551D2000550 + D100044FD100034DCF00034DCE00024CCE00024BCD00024BCD00024BCD00024B + CD00024BCD00024BCD003A3A3800000000000000000000000000000000000000 + 00005671CD00637CD1005C7DEC006E86D7008A9FE500A1B3F000819BF000718C + E9005F7DE1003D5ECB002D4EBD001F41B0001033A500375FE7005C76D000BFCD + F60000000000000000000000000000000000000000006279C8006E8CF0006887 + EF007491F1007491F1007491F100FFFFFF00FFFFFF00FFFFFF00657FD3007491 + F100657FD300FFFFFF00FFFFFF00FFFFFF007491F1007491F1007491F1006988 + EF006E8CF0006279C80000000000000000000000000000000000000000000000 + 00000000000000000000000000007E7E7D00D1D0D000D2D2D100CDCCCB00C7C6 + C500BFBDBC00A8A6A400A8A6A400B9B7B600AAAAAA0000000000000000000000 + 000000000000000000000000000000000000000000005A5A50000C5EDE000C5D + DE000B5BDC000A5ADB000A59DA000957D8000856D7000755D6000653D4000652 + D3000551D200044FD000044ED000034DCF00024CCE00024BCD00024BCD00024B + CD00024BCD00024BCD003C3C3900000000000000000000000000000000000000 + 0000607AD1005375EB004D69C8007990DD0094A8EA00A0B3F3007B96EE006A86 + E6005977DD003758C600284AB9001A3CAB0004248F000C2E9F00375FE700526C + C500BFCDF600000000000000000000000000000000005169BB007E97F0006F8D + F300819BF500819BF500819BF500FFFFFF00FFFFFF00BAC2DC00819BF500819B + F500819BF500BAC2DC00FFFFFF00FFFFFF00819BF500819BF500819BF5007290 + F4007E98F1005169BB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000C2C1C100E0DFDE00E1E0E000DBDBDA00D5D4 + D300CCCBCA00B4B3B100A6A4A300ACAAA8006969690000000000000000000000 + 000000000000000000000000000000000000000000005D5C52000D5FE0000D5F + DF000C5DDD000B5CDD000B5BDC000A59DA000958D9000857D8000754D6000753 + D5000652D4000550D200044FD100044ED000034DCE00034CCE00024BCD00024B + CD00024BCD00024BCD003E3E3B000000000000000000000000005973CF005F79 + D2003251B7003F5BB8005772C9008DA2E700A1B3F10092A9F4006F8BE8005D7B + E0004C6CD5002C4DBC001E40AF001031A00003238D0003238D0003238D00375F + E7005E78D200536EC700000000000000000000000000AEBDF200586EBF00869E + F0008FA7F60096ACF70096ACF7008497D8008497D80096ACF70096ACF70096AC + F70096ACF70096ACF7008497D8008497D80096ACF70096ACF70091A8F60089A1 + F000586FBF00AEBDF20000000000000000000000000000000000000000000000 + 0000000000000000000000000000A9A9A8004D4D4D00F7F6F600F1F1F100EBEA + EA00E2E1E000C8C7C600B9B7B60070706F004D4D4D0000000000000000000000 + 00000000000000000000000000000000000000000000626156000E61E1000E61 + E1000D60E0002A70E4003D79E6003270E0000B5BDC000A5ADB000958D9000857 + D8000856D7000753D5000652D4002769DF003B77E500306CDD00044ECF00034C + CE00024BCD00024BCD0043433F0000000000000000005973CF005F78D3004068 + EE003B59BF00516DCB006882D8009CAFEE00A3B5F40091A8F400708CE900607E + E3005070DA003255C7002447BC00183BB1001033A6001033A6001033A600193E + B8003B64ED005F78D300C1CDF6000000000000000000000000005C76D2006980 + CE008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F7008FA7F6006F85 + D0005C76D2000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00FDFDFD00F8F8F800F2F1 + F100E9E8E800CFCECD00B9B7B6004D4D4D004D4D4D0000000000000000000000 + 00000000000000000000000000000000000000000000646458000E61E1000E61 + E1001F6BE4002E65D00013389600133896002A5CBF000B5CDC000A5ADA000959 + D9000957D8000855D6001B62DC002D63CE0017327100133896002A5EC500034D + CF00034CCE00024CCE004545400000000000000000005F79D3003C65EE00426A + F0006183F2007491F40088A2F600B3C3F900ADBEF8009EB3F700829CF5007491 + F4006787F3004F74F100446BF0003B64EF003761EF003761EF003761EF003761 + EF003761EF003B64ED005872CD00000000000000000000000000000000004E68 + C30094ABF60097ADF700A8BAF800AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF70095ACF7004E68 + C300000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D4D4D004D4D4D00BCBCBC00E6E6E600CBCB + CB00BABAB9009A9999007A7A79004D4D4D006969690000000000000000000000 + 0000000000000000000000000000000000000000000067665A000E61E1000E61 + E1001565E200133CA000526D9700506C9700163A8B000C59D5000B5BDC000A5A + DB000A59DA000957D800115BD900123BA0004774C500506C97001742A400044E + D000034ECF00034DCF004848420000000000000000003761EF000936CC00214A + D4005475E4006E8AE900869EEF0098ADF50088A1F5007B96F0005C7BE2004E6E + DA003F60CF002648B900193BAB000E2F9E000324930003269A000328A000042B + AD00042DB500042EBB005872C900000000000000000000000000000000000000 + 00004F6AC500758AD3009EB2F400A8BAF800B2C2F900B7C7F900BCCAFA00BCCA + FA00BBCAFA00B6C6F900B1C1F900A7B9F80098ADF2006F85D1004F6AC5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000515151004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 000000000000000000000000000000000000000000006B6B5D00579BF000579B + F000579BF000579BF00046453D0048473F00345E98004C89D600579BF000579B + F000579BF000579BF000579BF000579BF0003D3C360048473F00345E9800579B + F000579BF000579BF0004B4B45000000000000000000486CE800496DE8005477 + EA006D8AED007994EE00849DF0008BA2F000849DF0007E98EE00708DED006A88 + ED006483EB005678EA005174EA004C70E800486CE800486CE800486CE800486C + E800486CE800486CE8005872C900000000000000000000000000000000000000 + 0000000000005E79D3005F76C5009FB3F500A3B6F800A4B7F8009FB3F7009FB3 + F7009FB3F700A3B6F800A0B4F7009FB3F5005F76C5005E79D300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D004D4D4D000000000000000000000000000000 + 000000000000000000000000000000000000000000006E6D5F004078AF002380 + E4002380E4002380E4003D3C36003D3C3600164883001F6EC5002380E4002380 + E4002380E4002380E4002380E4002380E4003D3C36003D3C3600164883002380 + E4002380E4003770A9004F4E470000000000000000005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005872C9005872C9005872C9005872C9005872C9005872 + C9005872C9005872C9005B76D200000000000000000000000000000000000000 + 00000000000000000000AEBEF2005C74C500768CD500859AE40090A6F10091A7 + F10090A6F100839AE500758AD5005C73C400AEBEF20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000AAAAAA004D4D4D004D4D4D004D4D + 4D004D4D4D004D4D4D004D4D4D00AAAAAA000000000000000000000000000000 + 000000000000000000000000000000000000000000006E6D5F006C6C5E006B6B + 5D006A695C0069685B00A9A98A00B8B9980032363F0052544F00636257006261 + 5600626156005F5F54005E5E53005E5D5300D4D4AB00B8B998002C313B005858 + 4F0058584F0057564E0079786D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000051504400515044000000000000000000000000000000 + 0000000000000000000000000000000000006867580051504400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CDD6F6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000038477E0041486200404761003E455F003D44 + 5F003C435E003B435D003B425D003A415C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000B6C3F0002939 + 740027366B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002737730027377300B6C5F0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6C5F00027377300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000474E6A007A8ABF0013339F0013339F001333 + 9F0013339F0013339F0013339F007988BD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B7C5F1004A5B99003E59 + B1003E59B1002C3B73008195DB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000273770003F519200283B7A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B7C5F1002B3E7C004E5E9400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000048516E007B8BC10003279E0003279E000327 + 9E0003279E0003279E0003279E007B8BC0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B9C6F1002E4281003F5AB6000F31 + A3000F31A3004A5D9E002D3E79008196DC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002A3C7800435EB90040549800B9C6F10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002E4282004B5D9F004961B100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004B5472007C8CC3000328A2000328A2000328 + A2000328A2000328A2000328A2007B8BC3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B9C6F100304285004C5FA1000F33A9000328 + A4000328A4003E5AB9004C5FA1002F417E000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000304486004260C5001E42BA00445AA50032468E00BAC7F2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC7F200354990003F5EC4001E42BA004A65BD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000515978007D8EC800042AAB00042AAB00042A + AB00042AAB00042AAB00042AAB007B8CC7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC7F2004E62AA003E5CC2001035B400042BB000042B + B000042BB000042BB0001035B4003E5CC200344688008499DF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000034488E004363CC00143BBF003F5FCB00455DAC00354A95000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BCC8F300384D97004F66B1001038BF00143BBF004C67C400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000535C7C007C8ECB00042CB100042CB100042C + B100042CB100042CB100042CB1007B8DCA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC7F200374B94003F5EC7001037B900042DB600042DB600042D + B600042DB600042DB600042DB6001037B9004F65AF0036498C00859AE1000000 + 00000000000000000000000000000000000000000000374C9500374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004364D300143DC700103AC6003E60D1004760B300BDC9 + F400000000000000000000000000000000000000000000000000000000000000 + 00003A519D005169B8003E60D1000430C300143DC7004D6AC900374C9500374C + 9500374C9500374C9500374C9500374C9500374C9500374C9500374C9500374C + 9500374C9500374C95004259AC00000000000000000000000000000000000000 + 0000000000000000000000000000555E7F007D8FCE00042DB600042DB600042D + B600042DB600042DB600042DB6007C8ECD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BCC8F300394F98005167B200153CC0000932BC000932BC000932BC000932 + BC000932BC000932BC000932BC000932BC004161CC005167B200394C91000000 + 000000000000000000000000000000000000000000004D6DD6001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001441D8001441D8000838D5000535D5000535D500103ED7004C67 + C1003F57AA00BECCF50000000000000000000000000000000000BECCF5004159 + AB003E63DE00103ED7000535D5000535D5000838D5001441D8001441D8001441 + D8001441D8001441D8001441D8001441D8001441D8001441D8001441D8001441 + D8001441D8001F4AD9003E55A500000000000000000000000000000000000000 + 00000000000000000000000000005A6488007E92D400042FBF00042FBF00042F + BF00042FBF00042FBF00042FBF007C90D2000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BDC9 + F400536BBC00496AD7002C51D000284ECE002A50D0002048CD001C44CC001C44 + CC001C44CC001C44CC001C44CC002A50D000254CCE002C51D000496AD7003D52 + 9C00899EE400000000000000000000000000000000004F70DD000637DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD004167 + E6004F6AC700435BB100000000000000000000000000BECCF500455EB2005871 + CB001141DF000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DD000738DD000738DD000738DD000738DD000738DD000738DD000738 + DD000738DE001544DF004259AD00000000000000000000000000000000000000 + 00000000000000000000000000005E678B007F92D5000531C4000531C3000531 + C3000531C3000531C3000531C4007D91D4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003D56 + A500506ED2005370D2005673D3005B77D4005A78DC002B52D400254DD300254D + D300254DD300254DD300244CD3005A78DC005974D3005673D3005370D2005D72 + B9004056A000D1DAF8000000000000000000000000005677E4001848E7001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8002552 + E9004B70ED00536FCE00BFCCF50000000000000000004962BA005C77D2004A6F + ED001C4BE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4CE8001D4C + E8001C4BE8002653E900455EB500000000000000000000000000000000000000 + 0000000000000000000000000000606A8F008295D800113CCB00153FCC00153F + CC00153FCC00153FCC00123DCC008094D7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004B62 + AF003F56A5003F56A5003F56A5003F56A5005D79D8002A52D9002F56DA002F56 + DA002F56DA002F56DA002951D9005D79D7003F56A5003F56A5003F56A5003F56 + A5003F58AA00000000000000000000000000000000006785EA00496FF0005479 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005176 + F1004B71F1005A7DF2004A64BD0000000000000000005E79D600577BF200466D + F0005479F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005579F1005579F1005579F1005579F1005579F1005579F1005579F1005579 + F1005479F1005176F1004A64BB00000000000000000000000000000000000000 + 0000000000000000000000000000657097008C9EE000365CDB003F64DC003F64 + DC003F64DC003F64DC00365CDB008A9DDF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000445DB100607DE000375FE5004167E6004167 + E6004167E6004167E600375FE500607DE0000000000000000000000000000000 + 000000000000000000000000000000000000000000006E8AEA005E80F200708E + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF4006989 + F3006E8DF300607AD600BFCCF50000000000000000004E67C0006681D9006A8A + F3006E8DF300718FF400718FF400718FF400718FF400718FF400718FF400718F + F400718FF400718FF400718FF400718FF400718FF400718FF400718FF400718F + F4006F8DF3006586F3004B65BC00000000000000000000000000000000000000 + 00000000000000000000000000006973990091A4E300466AE1005475E4005475 + E4005475E4005475E400466AE1008FA1E1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004760B5006381E5003E65EA004A6FEB004A6F + EB004A6FEB004A6FEB003E65EA006280E5000000000000000000000000000000 + 00000000000000000000000000000000000000000000738EEB006D8CF30087A1 + F5008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008BA4F6007F9A + F500657FD7004C66C000000000000000000000000000BFCDF6004F68C2006C86 + D9007E99F50089A2F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5F6008CA5 + F600849EF5007391F4004C66BD00000000000000000000000000000000000000 + 00000000000000000000000000006B769E0096A8E5005879E7006684E9006684 + E9006684E9006684E9005879E70094A5E4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004964BB006683E800466DEE005478F0005478 + F0005478F0005478F000456CEE006582E8000000000000000000000000000000 + 000000000000000000000000000000000000000000006985E300738EEB007C96 + EC00829BED00829BED00829BED00829BED00829BED00829BED00829BED00829B + ED00839CED0096ABEF00B8C7F900C5D1FA00C1CEFA00ACBDF8008CA5F6004F69 + C200BFCDF600000000000000000000000000000000000000000000000000BFCD + F6006D86DA0086A0F500A0B4F700C3D0FA00C1CEFA00B4C4F800869EED00839C + ED00829BED00829BED00829BED00829BED00829BED00829BED00829BED008099 + ED007B95EC00728EEB004F69C00000000000000000000000000000000000717F + AF00889FE90091A6EA009AACEB00A8B8ED00B0C0F4008BA3F20087A0F20087A0 + F20087A0F20087A0F200849EF200AFBFF4009DAEE90097AAE90090A4E8008E9A + C200616D9500CDD7F70000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BE006B88EA005479F1006686F3006686 + F3006686F3006686F3005479F1006A87EA000000000000000000000000000000 + 00000000000000000000000000000000000000000000506AC100506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC1009BB0F700BDCBFA00B5C5F90096ACF7006882D800BFCD + F600000000000000000000000000000000000000000000000000000000000000 + 0000536CC5006E87DB0088A2F600B9C8F900B2C2F9009DB0F000506AC100506A + C100506AC100506AC100506AC100506AC100506AC100506AC100506AC100506A + C100506AC100506AC100506AC30000000000000000000000000000000000BAC6 + F40093A2D8008BA4F5007693F30092A9F500A0B4F6009AAFF60098AEF60098AE + F60098AEF60098AEF60097ADF6009FB3F6007E99F4007592F3008CA4F5006571 + 9900869CE0000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004D67BF006D8AEA005C7FF200708EF400708E + F400708EF400708EF4005C7FF2006D8AEA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC20088A2F600A3B6F80098AEF7006F87DA00516BC4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFCDF600536DC6006E88DB0095ACF70092A9F6008AA1EE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007684B5009BA9D90099AFF7009AAFF700A6B9F800A7B9F800A7B9F800A7B9 + F800A7B9F800A7B9F800A7B9F800A6B9F80087A1F50099AFF70092A0D100879C + E100000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004E68C000708CEA006485F3007995F4007995 + F4007995F4007995F4006485F300708BEA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000536DC4006A8AF3007693F400536DC600BFCDF600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600708ADD006C8BF300708CEC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BAC6F4007683B400B3C3F900B2C2F900BDCBFA00C0CEFA00C0CE + FA00C0CEFA00C0CEFA00BDCBFA00B2C2F9009DA9D5006A76A000889CE2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000506AC1007590EC007491F4008CA5F6008CA5 + F6008CA5F6008BA4F6007491F400748FEC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000556FC600577BF200657FDB00BFCDF60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005770C8006B85DD006181EB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BAC6F400A1AEDA00B2C2F900B6C6F900CBD6FB00CBD6 + FB00CBD6FB00C8D4FB00B8C7F900B2C2F9006C77A100889DE200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000516BC2007892EC007B97F40095ACF70095AC + F70095ACF70095ACF7007B97F4007691EC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000005670C7005B78DA005670C8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C1CDF6005871C9006D86D800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007482B2009EABD900B4C4F900D1DBFB00D5DE + FC00D5DEFC00C5D1FA00B6C6F9009AA8D5008A9DE30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000526CC3007994EC00829CF5009EB3F7009EB3 + F7009EB3F7009EB3F700819BF5007993EC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BAC6F4007381B200C1CEFA00C1CE + FA00C1CEFA00A7B2D900717DA7008A9EE3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000546EC5007A94ED00829CF500B0C0F900B0C0 + F900B0C0F900A9BBF800829CF5007993ED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BAC6F300A6B1DA00B3C3 + F900B3C3F900737EA8008B9EE400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000556FC600738FEC007693F400A3B6F800A6B9 + F800A6B9F80098AEF7007693F400728EEC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007181B0009DAA + D8009CA9D7008B9FE40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005670C7006D88E5007590ED00859DEE00869E + EE00869EEE00829AEE007691ED006C88E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000CED8F7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008D8B8B00918F8D00918F8D00918F8D00918F8D00918F + 8D00918F8D00918F8D00918F8D00918F8D00918F8D008D8B8B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A3B3EA002F3E73003F4F840044579700495DA100495D + A100495DA100445797003F4F86002F3F7400A3B3EA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000082807F00F7F7F700B2B2B200B2B2B200B2B2B200B2B2 + B200B2B2B200B2B2B200B2B2B200B2B2B200F7F7F70082807F00000000000000 + 000000000000000000000000000000000000000000000000000000000000AEBD + EC007A87B4008E9ED100808EBC00F0EFEF00EFEEEE00EDEDEC00EBEAEA00E9E9 + E800E8E7E700E5E5E400E4E3E3008E99BE008E9AC3008E9AC300808EBC008293 + CC008293CC008293CE0000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004159A70035447A00455EAF002F4BAB001E3DA400032699000326 + 9900032699001E3DA4002F4BAB00455EAF0035447A004159A700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030458D0025356E004B494900717170007171700071717000717170007171 + 700071717000717170007171700071717000717170004B49490025356E000000 + 0000000000000000000000000000000000000000000000000000BAC6F2002E42 + 8700798ED2002446B60003228900031E7B000322890003228900BCBAB900B7B5 + B400B2B0AF00A7A5A400A2A09E00031E7B00032289000322890003228900042A + AB00042AAB008194D50000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002E42880042538E004760B1000B2EA10003279F0003279F0003279F000327 + 9F0003279F0003279F0003279F000B2EA1004760B10042538E002E4288000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000029386E00283564004D4C4B00767675006261600062616000626160006261 + 600062616000626160006261600062616000767675004D4C4B0028356400768C + CF000000000000000000000000000000000000000000BAC6F20031458C006A79 + B2001B40B8001D41B90003238D00031F7F0003238D0003238D00CAC8C700C5C3 + C200C0BEBD00B6B4B300B1AFAD00031F7F0003238D0003238D0003238D00042C + B100042CB1008195D70000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F00000000000000000000000000000000000000000000000000000000003147 + 8F003654B900082DA9000429A8000429A8000429A8000429A8000429A8000429 + A8000429A8000429A8000429A8000429A8000429A800082DA9003654B9003147 + 8F000000000000000000000000000000000000000000344892004358A100425F + BF00425FBF0041528C0076757500ACACAC00ACACAC00ACACAC00ACACAC00ACAC + AC00ACACAC00ACACAC00ACACAC00ACACAC00ACACAC007675750041528C00425F + BF00425FBF004358A10000000000000000000000000034488F00879BDD00264B + C3001038BD00284CC4000D2D98000C2888000D2D98000D2D9800E0DFDF00DDDB + DB00D9D7D700D1CFCE00CDCBCA000C2888000D2D98000D2D98000D2D98001038 + BD001038BD00869ADE0000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB1000000000000000000000000000000000000000000475FB1004658 + 9A00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00082EAE004658 + 9A00475FB10000000000000000000000000000000000324588004260C5001036 + B600042CB200021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A + 6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00021A6B00042C + B2001036B6004260C500000000000000000000000000364B9400889DE100183F + C300183FC3002F53CA0013339C00112D8C0013339C0013339C00EBEAE900E7E6 + E600E3E2E200DCDBDA00D8D7D600112D8C0013339C0013339C0013339C00183F + C300183FC300889DE100000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED00000000000000000000000000A8B7ED003E508E004964 + BF00042CB100042CB100042CB100042CB100042CB100042CB100042CB100042C + B100042CB100042CB100042CB100042CB100042CB100042CB100042CB1004964 + BF003E508E00A8B7ED00000000000000000000000000354A8F004362CB00042E + B900042EB900042EB900042EB900042EB900042EB900042EB900042EB900042E + B900042EB900042EB900042EB900042EB900042EB900042EB90003269C000325 + 940003269C004362CB00000000000000000000000000394F99008A9FE3002047 + CA002047CA003559CF001938A100173391001733910017339100F4F3F300F1F0 + F000EDEDEC00E6E5E500E3E2E100173391001938A1001938A1001938A1002047 + CA002047CA008A9FE3000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE00FFFFFF00FFFF + FF00FFFFFF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F5194000000000000000000000000003F5194004966C8001139 + BF000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35 + BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE000C35BE001139 + BF004966C8003F5194000000000000000000000000003C529D004C6CD8002048 + CE00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF00234A + CF00234ACF00234ACF00234ACF00234ACF00234ACF00234ACF002243B2002343 + AC001F41B1004B6BD8000000000000000000000000003E55A30091A6EA003157 + D6003157D6004668D8003350B2002D4BAE002D4BAE002D4BAE002D4BAE002D4B + AE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE002D4BAE003350B2003157 + D6003157D60090A5EA000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400FFFFFF00FFFF + FF00FFFFFF00173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000004D62A9003659CC00123B + C300173FC400173FC400173FC400173FC400173FC400173FC400173FC400173F + C400173FC400173FC400173FC400173FC400173FC400173FC400173FC400123B + C4003558CC004D62A9000000000000000000000000004157A4005373DE00385D + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61D9003C61 + D900365BD8005272DE000000000000000000000000004058A90094A9ED003A5F + DD003A5FDD004669DF004E70E0004E70E0004E70E0004E70E0004E70E0004E70 + E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0004E70E0003A5F + DD003A5FDD0093A8ED000000000000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00FFFFFF00FFFF + FF00FFFFFF00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE000000000000000000000000005069BE002E53CE001D45 + CA00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234A + CB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB00234ACB001D45 + CA002D52CE005069BE00000000000000000000000000445BAB005B7BE4005072 + E2005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3005676E3005676E3005676E3005676E3005676E3005676E3005676E3005676 + E3004C6FE1005979E400000000000000000000000000435CAF0097ACF0004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E3004368E3004368E3004368E3004368E3004368E3004368E3004368 + E3004368E30097ACF0000000000000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D3000000000000000000000000005774D4002850D5003459 + D700395ED800395ED800395ED800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00395ED800395ED800395ED8003459 + D700224BD4005773D3000000000000000000000000004C65BA006A89EF007E99 + F100A4B6F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BA + F500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF500A8BAF50090A7 + F3007A95F1006786EF000000000000000000000000004862B9009EB2F600587B + F000587BF0005070D9004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6E + D7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED7004F6ED700587B + F000587BF0009DB2F6000000000000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D7000000000000000000000000005A77D8003057DA003E63 + DD004569DF004569DF003E5EC800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004569DF004569DF004569DF003E63 + DD002B53DA005975D700000000000000000000000000506AC1006F8DF30090A7 + F5008C90A3006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A + 6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A006C6A6A00B6C6 + F8008AA3F5006B8AF3000000000000000000000000004A64BB00A1B5F7006183 + F2006183F2005876DA00BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9 + F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F100BDC9F1006183 + F2006183F200A0B4F7000000000000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB000000000000000000000000005C79DB00375EDF00486C + E3005173E3005173E3004967CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005173E3005173E3005173E300486C + E3003058DE005B78DB00000000000000000000000000526CC3006C8BF3009CB1 + F700959392009593920095939200959392009593920095939200959392009593 + 920095939200959392009593920095939200959392009593920095939200C6D2 + FA0092A9F6006787F3000000000000000000000000004B65BC00A4B7F8006A8A + F3006A8AF300607CDA00C4CEF1009DAEE8009DAEE8009DAEE8009DAEE8009DAE + E8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8009DAEE8006A8A + F3006A8AF300A3B6F8000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC00FFFFFF00FFFF + FF00FFFFFF006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D5000000000000000000000000005C78D5005074EA005477 + EA006886EC006886EC006886EC006886EC006886EC006886EC006886EC006886 + EC006886EC006886EC006886EC006886EC006886EC006886EC006886EC005477 + EA004A6FE9005D78D500000000000000000000000000000000005974CF006782 + DB009C9A9900A09D9C0096939200969392009693920096939200969392009693 + 9200969392009693920096939200969392009693920096939200A09D9C007A94 + ED006681DB005974CF000000000000000000000000004D67BE00AABCF8007C97 + F4007C97F4006F88DC00D1D9F400B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0 + EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC00B2C0EC007C97 + F4007C97F400A9BBF8000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F100FFFFFF00FFFF + FF00FFFFFF007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA000000000000000000000000005D76C900597CEE005578 + EE007390F0007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F1007491F1007491F1007491F1007491F1007491F1007390F0005679 + EE005377EE005D77CA0000000000000000000000000000000000000000005A75 + D1006B6968009D9A9900615F5F00BFBFBE00BCBCBB00BAB9B800B4B3B200B1B0 + AE00ADACAB00A6A5A400A2A1A0009F9D9C0097959300615F5F009D9A99005771 + C8005A75D100000000000000000000000000000000004E68BF00ADBEF800849E + F500849EF500778EDC00D7DEF400BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8 + EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00BCC8EE00849E + F500849EF500ACBDF800000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500FFFFFF00FFFF + FF00FFFFFF00819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC200000000000000000000000000566FC2006685EE00567A + F1007C97F400809BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF500819BF500819BF500819BF500819BF5007D98F500587B + F1006081ED00566FC20000000000000000000000000000000000000000000000 + 000074727100A3A09F0067656500E2E1E100DFDFDE00DDDCDC00D7D7D600D5D4 + D300D1D1D000CBCAC900C8C7C600C4C3C200BCBBBA0067656500A3A09F000000 + 000000000000000000000000000000000000000000004F69C000B0C0F9008DA5 + F6008DA5F6007F95DD00DDE2F600C6D0F000C6D0F000C6D0F000C6D0F000C6D0 + F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F000C6D0F0008DA5 + F6008DA5F600AFC0F900000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF700798AC500798A + C5007F92D10096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF300000000000000000000000000AEBEF3005B73C5006886 + EC007391F40088A2F60093AAF60096ACF70096ACF70096ACF70096ACF70096AC + F70096ACF70096ACF70096ACF70096ACF70095ACF7008AA3F6007693F4006B89 + ED005B72C500AEBEF30000000000000000000000000000000000000000000000 + 000085838200AFADAB0073717000F2F2F200F1F1F000F0EFEF00EDECEC00EBEB + EA00E9E9E900E5E5E500E3E3E200E1E0E000DCDBDB0073717000AFADAB000000 + 00000000000000000000000000000000000000000000516BC200B5C5F9009EB3 + F7009EB3F7008EA0DE00E5EAF700D5DCF200D5DCF200D5DCF200D5DCF200D5DC + F200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF200D5DCF2009EB3 + F7009EB3F700B4C4F90000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000607AD600647D + D0006384F3007F9AF50093AAF600A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F80095ACF700829CF5006686F300657E + D200607AD6000000000000000000000000000000000000000000000000000000 + 00008E8C8A00B5B3B10079777600F6F6F600F5F5F500F5F5F400F3F3F300F2F2 + F200F1F0F000EEEEEE00ECECEC00EBEAEA00E7E7E60079777600B5B3B1000000 + 00000000000000000000000000000000000000000000526CC300B8C7F900A7B9 + F800A7B9F80096A6DF00E9EDF800DCE1F400DCE1F400DCE1F400DCE1F400DCE1 + F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400DCE1F400A7B9 + F800A7B9F800B6C6F9000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA0000000000000000000000000000000000000000000000000000000000536F + CA006989F3006A8AF300849EF500A8BAF800ADBEF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800ADBEF800A9BBF80087A1F5006D8CF3006B8AF300536F + CA00000000000000000000000000000000000000000000000000000000000000 + 0000908F8E00959391007F7D7C00F7F7F700F7F7F700F7F7F700F6F6F600F6F6 + F600F5F5F500F4F4F400F3F3F200F2F1F100EFEFEF007F7D7C00959391000000 + 00000000000000000000000000000000000000000000536DC400BAC9FA00B0C0 + F900B0C0F9009DADDF00EDF0F900E3E8F600E3E8F600E3E8F600E3E8F600E3E8 + F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600E3E8F600B0C0 + F900B0C0F900B9C8F90000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005570CB006780D400718EEE00819BF50090A8F6009FB3F700AFC0F900B1C1 + F900AFC0F900A1B5F70093AAF600849EF5007490ED006981D4005570CB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008B898800EBEBEA00EDECEC00EEEEED00F1F1F100F3F2 + F200F4F4F400F6F6F600F7F7F700F7F7F700F7F7F7008B898800000000000000 + 00000000000000000000000000000000000000000000556FC600BECCFA00C0CE + FA00C0CEFA00ADB9E100F4F6FA00EDF0F800EDF0F800EDF0F800EDF0F800EDF0 + F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800EDF0F800C0CE + FA00C0CEFA00BDCBFA0000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000627DD8006179CA007A95F1007D98F500849EF5008BA4F6008EA6 + F6008BA4F60086A0F5007F9AF5007D97F1006179CA00627DD800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000918F8D00E4E4E300E6E5E400E7E7E600EAEAE900ECEB + EB00EDEDEC00F0EFEF00F1F1F100F3F2F200F5F5F500918F8D00000000000000 + 000000000000000000000000000000000000000000005670C700A6B9F800C1CE + FA00C3D0FA00BCC8EE00F9FAFE00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6 + FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00F4F6FC00C3D0 + FA00C0CEFA00A4B7F80000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000AFBFF3005E77CA006881D4006B85E2007691ED007792 + ED007691ED006C86E2006881D4005E77CA00AFBFF30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000908F8E00959391009593910095939100959391009593 + 91009593910095939100959391009593910095939100908F8E00000000000000 + 000000000000000000000000000000000000000000005771C9005771C8005771 + C8005771C8005771C800ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8 + E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E300ABB8E3005771 + C8005771C8005771C80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000339F7000339F7000339F7000339F7000339F7000339F + 7000339F7000339F7000339F7000339F7000339F7000339F7000000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E332400339F + 70000E3324000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DEDE + DE00D3D3D300CECECE00CECECE00C0C0C00097A7D7005769A700293662002531 + 5800253158002633600032427B005769A700C0C0C000C7C7C700CECECE00D6D6 + D600DEDEDE00DEDEDE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000032A0720012BC8E0012BC8E0012BC8E0012BC8E0012BC + 8E0012BC8D0012BC8E0012BC8D0012BC8E003CD7A70032A17200000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424003AD6A60013BA + 8C003AD6A6000F34240000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004259A70046599700455EAF002F4BAB001333A0000326 + 9900032699001333A0001E3DA4002F4BAB004659970035457A004259A7000000 + 00000000000000000000000000000000000000000000000000007E7E7E003C3C + 3C007B7B7B008A8A8A00D8D8D800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000031A1720012BD8E0012BC8E0012BD8E0012BC8E0012BD + 8E0012BC8E0012BD8E0012BD8E0012BD8E003CD7A70031A17200000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34240032A1710013BA8C0013BA + 8C0013BA8C0031A071000F342400000402000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B9C6F1002E42880042538E002B49AE000B2EA10003279F0003279F000327 + 9F0003279F0003279F0003279F0003279F002B49AE004760B10042538E00B9C6 + F1000000000000000000000000000000000000000000000000009E9E9E005959 + 5900333333006B6B6B0088888800C6C6C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000030A2730011C090000DCB95000CCA94000DCB94000CCB + 95000CCB94000CCB95000CCA95000CCB95003CD7A70030A27300000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34240030A1720035D5A50011BE8E0012BD + 8E0013BB8D0035D5A50030A172000F3424000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002F4284004D609E00415CB7000328A3000328A3000328A3000328A3000328 + A3000328A3000328A3000328A3000328A3000328A3001336A900415CB7002F42 + 8400B9C6F1000000000000000000000000000000000000000000000000007676 + 76003C3C3C00ADACAC00C4C3C2008D8D8D0080808000B0B0B000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002DA5750011C291000CCD97000DCD97000CCC96000CCC + 96000CCC97000DCC96000DCC96000DCC97003BD7A7002EA57400000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34240030D4A30012BD8E0012BD8E000DCB95000DCB + 96000DCB950012BD8E0012BD8E0030D4A3000F34240000040200000000000000 + 000000000000000000000000000000000000000000000000000000000000475F + B100415DBD00082EAE00042BAC00042BAC00042BAC00042BAC00042BAC00042B + AC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00042BAC00415D + BD0046599A00475FB10000000000000000000000000000000000000000000000 + 0000E0DFDF00CECCCC00C0BEBD00A09E9D00605F5E006F6F6E0027377200B6C3 + F000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002CA6760011C392000DCE98000DCE98000DCD97000DCE + 97000DCD98000DCE98000DCD97000CCE97003BD7A7002CA67600011C14000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000F3424002DA5750012BE8F0012BE8F000ECC97000ECC96000DCC + 96000ECC96000ECD970012BE8E0012BF8F002DA575000F342400000000000000 + 0000000000000000000000000000000000000000000000000000A8B7ED003E50 + 8E001439B600042CB100042CB100042CB100042CB100042CB100A0AFE100A0AF + E100042CB100042CB100042CB100042CB100042CB100042CB100042CB1001439 + B6004964BF003E508E0000000000000000000000000000000000000000000000 + 0000CBCACA00DAD9D900C7C6C500767574007777760071737A003E508B002738 + 7300B6C5F0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000002BA7760010C492000DCE98000DCF99000DCF99000DCE + 98000DCF99000DCE99000DCE99000DCF99003AD7A6002BA87700000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000F3424002CA676002AD3A20011C090000ECD98000ECD98000ECE97000ECD + 98000DCE97000ECE98000ECD980011C190002AD4A1002CA676000F3424000000 + 0000000000000000000000000000000000000000000000000000455CAE004C63 + AD00042DB600042DB600042DB600042DB600042DB600042DB600FFFFFF00FFFF + FF009FAFE200042DB600042DB600042DB600042DB600042DB600042DB600042D + B6002B4EC2004C63AD0000000000000000000000000000000000000000000000 + 00009A999900E3E2E200C8C7C6009291910085888F001F3A95003E57A9003E50 + 8B00283873000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000028AA790010C794000DD19B000DD19B000ED19B000DD1 + 9B000ED19B000DD19B000ED19B000DD19A0038D7A60028AA7900000E0B000000 + 0000000000000000000000000000000000000000000000000000000000000F34 + 240024D4A10010C9950010C995000ED09B000ED09A000ED09A000ED09B000ED0 + 9A000ED09A000ED09A000ED09A000ED09A0010C9960010C9950024D4A1000F34 + 24000000000000000000000000000000000000000000788DD7004F63AA00395B + CD00173FC400173FC400173FC400173FC400A6B6E800FFFFFF00FFFFFF00FFFF + FF00FFFFFF00A6B6E800173FC400173FC400173FC400173FC400173FC400173F + C400153DC400395BCD006C83D400000000000000000000000000000000000000 + 0000B0B0B00093929200B3B2B2006883E0005070DC003B5CCB00092A99000F2D + 93003E57A900293A7500B6C5F100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000027AC7A0010C795000DD29C000ED29C000ED29C000ED2 + 9C000ED29C000DD29D000DD29D000DD29C0037D6A60026AB7A00000E0B000000 + 00000000000000000000000000000000000000000000000000000F34240027AB + 7A000FCC98000FCC97000ED19C000ED19C000ED19C000ED19B000FD19C000ED2 + 9C000ED19C000ED29B000ED19C000ED29C000ED19B000FCB97000FCC980027AA + 7A000F342400000000000000000000000000000000004963B600546DC0003357 + CF00234ACB00234ACB00234ACB00ABBAEB00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00ABBAEB00234ACB00234ACB00234ACB00234ACB00234A + CB002148CB003357CF004963B600000000000000000000000000000000000000 + 0000000000006F75900091939D006E8CF2006A88EC005574DD002143B300092A + 99000F2D930040528C002A3B7500B6C5F1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000025AD7B0011C996000ED39D000DD39D000ED39E000DD3 + 9E000ED39D000DD39E000ED39D000DD49D0036D6A60025AD7B00000E0B000000 + 000000000000000000000000000000000000000000000F34240026AC7B001ED4 + A1000FCF9A000ED39D000ED39D000ED29D000ED39D000ED29D000FD39D000ED3 + 9D000ED29D000ED39D000ED39D000ED39D000FD29D000ED39C0010CE99001ED4 + A10026AC7A000F3424000000000000000000000000003D54A2005C76D0003257 + D3002E53D2002E53D2002E53D200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00AFBEEE002E53D2002E53D2002E53D2002E53 + D2002D53D2003257D3003D54A200000000000000000000000000000000000000 + 000000000000BECCF500455FB900829DF5007B97F4006C89EC003B5CCB002143 + B300092A99003E57A90040528D002A3C76000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000022B17E0010CB98000ED6A0000ED69F000ED6A0000ED6 + A0000ED6A0000ED6A0000ED6A0000ED6A00033D7A60022B07D00000000000000 + 0000000000000000000000000000000000000F342400D0F5EB0057E7BE0057E7 + BE0056E9BF0057EABF00CEF5EB000ED59F000ED5A0000ED5A0000ED5A0000ED6 + A0000ED5A0000FD6A0000ED59F000ED59F0023DBA900CEF5EB0056EABF0057E7 + BE0057E7BE00D0F5EB000F34240000000000000000004158A600627DD900365C + DC004569DF003C5BC200B4BFE200FFFFFF00FFFFFF00FFFFFF003D5CC3003854 + B200B4BFE200FFFFFF00FFFFFF00FFFFFF00B8C6F2004569DF004569DF004569 + DF004468DF003A5FDC004158A600000000000000000000000000000000000000 + 00000000000000000000000000004762BB00627BD4007D98F5006B89EC005574 + DD003B5CCB00092A99000F2D93003E57A9002C3D7800B6C5F100000000000000 + 00000000000000000000000000000000000020B27F0021B27F0021B27F0021B2 + 7F0020B27F0021B27F0021B27F0010CC99000ED7A2000ED7A1000FD7A1000ED7 + A1000ED8A1000ED7A1000ED7A1000ED7A10031D7A60021B27F0020B27F0021B2 + 7F0020B27F0020B27F0021B27F000000000021B17E0021B17F0021B17F0020B1 + 7F0021B17F0021B17F0019B885000FD7A2000ED7A1000ED7A1000FD7A1000FD6 + A1000FD7A2000FD6A1000FD7A1000ED7A10027DEAC0018B9850021B07E0021B1 + 7F0021B17E0021B17E0021B17F000000000000000000435BAB006681DE003F64 + E1005173E3004764C700415CB600FFFFFF00FFFFFF00BECBF5005173E3004764 + C700415CB600FFFFFF00FFFFFF00FFFFFF00FFFFFF00BCC9F4005173E3005173 + E3004F71E3004368E100435BAB00000000000000000000000000000000000000 + 0000000000000000000000000000BFCCF5004963BC00627CD5007894F4006D8A + EC005574DD002143B300092A99000F2D930042548E002C3E7900B6C5F1000000 + 00000000000000000000000000000000000005291D0042E6B8003EDCB0003EDC + B0003EDCB0003EDCB0003EDCB00011CE9B000ED9A3000ED8A2000ED8A3000ED8 + A3000ED8A2000ED8A2000ED8A3000FD9A2003EDCB0003EDCB0003EDCB0003EDC + B0003EDCB00038E3B40005291D00000000000000000000000000000000000000 + 0000000000000000000017BB87000FD8A3000FD8A3000FD8A3000FD8A2000FD9 + A3000FD8A2000FD8A2000ED9A3000ED8A3002CE0AE0017BA8700000000000000 + 00000000000000000000000000000000000000000000475EB4006C86E0005275 + E7005C7CE8005C7CE800526ECB00BCC5E500C2CEF6005C7CE8005C7CE8005C7C + E800526ECB00BCC5E500FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0CCF5005C7C + E800597AE8005375E700475EB400000000000000000000000000000000000000 + 000000000000000000000000000000000000BFCCF5004A64BD007E99F5007E99 + F5006D8AEC003B5CCB002143B300092A99003E57A90042548F002D3E79000000 + 0000000000000000000000000000000000000000000005291D001CB7830052EB + C0000FDAA5000EDBA5000EDAA4000FDBA5000EDBA5000FDAA5000EDBA5000FDB + A5000FDBA5000EDBA5000FDBA5000FDBA5000FDBA4000EDBA5000EDBA50049E9 + BC001CB7830005291D0000000000000000000000000000000000000000000000 + 0000000000000000000014BD8A000FDBA5000FDBA6000FDBA6000FDBA6000FDA + A5000FDBA6000FDBA5000FDAA6000FDBA50035E4B40014BD8A00000000000000 + 000000000000000000000000000000000000000000007790E100687FCD006E8C + F0007491F1007491F1007491F1007491F1007491F1007491F1007491F1007491 + F1007491F100657FD3005C73C000C3CBE800FFFFFF00FFFFFF00FFFFFF007491 + F1006988EF006E8CF0007790E100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004D67C0006C85 + D80088A2F6006D8AEC005574DD003B5CCB00092A99000F2D93003E57A9002E40 + 7B00B6C5F100000000000000000000000000000000000000000005291D001AB8 + 84000FDCA6000FDCA6000FDCA6000EDCA7000EDCA6000FDCA6000FDCA6000FDC + A6000EDCA6000FDCA6000EDDA6000FDCA6000FDCA6000FDCA6000FDCA6001AB8 + 840005291D000000000000000000000000000000000000000000000000000000 + 0000000000000000000013BF8B000FDCA7000FDCA7000FDCA7000FDCA7000FDC + A6000FDCA60010DCA7000FDCA6000FDCA70039E6B70013BF8B00000000000000 + 00000000000000000000000000000000000000000000CED8F7005971C3007E98 + F1007D98F500819BF500819BF500819BF500819BF500819BF500819BF500819B + F500819BF500819BF5007088D600677CC400FFFFFF00FFFFFF00CFD9FA007E99 + F5007290F4007E98F100CED8F700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFCDF6004E68 + C1006D85D9007E99F5006D8AEC005574DD002143B300092A99000F2D93004354 + 8D004C526E00AFBEEE0000000000000000000000000000000000000000000529 + 1D0060F0C7000FDDA7000EDDA7000FDDA7000FDDA7000EDDA7000FDEA7000FDD + A7000FDDA7000EDDA8000FDEA7000FDDA7000FDDA7000EDDA8005AEEC4000529 + 1D00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000012C08C000FDDA8000FDDA80010DDA8000FDDA8000FDD + A8000FDDA8000FDEA8000FDEA8000FDDA8003DE7BA0012C08C00000000000000 + 00000000000000000000000000000000000000000000000000005975D100758C + DD007F9AF5008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4F6008BA4 + F6008BA4F6008BA4F6008BA4F6007A8FD700C9D0E800D4DDFC008BA4F600819B + F500809BF500768DDD0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFCD + F6004F69C2007E99F5007894F4006B89EC003B5CCB002143B300092A99007B7E + 8F00686769005557690000000000000000000000000000000000000000000000 + 000005291D0017BD87006FF3CD000FE0AA000FDFAA000FE0AA000FDFA90010DF + AA000FDFAA000FDFA9000FE0A9000FE0A9006AF2CB0017BD880005291D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000010C28D0010E0AB0010E0AB000FE0AB000FE0AA0010E0 + AA0010E0AA000FDFAA000FE0AB000FDFAA0045EBBD0010C28D00000000000000 + 000000000000000000000000000000000000000000000000000000000000607A + D7008CA4F4008BA4F6009DB2F700A2B6F800A2B6F800A2B6F800A2B6F800A2B6 + F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F800A2B6F8009CB1F70092A9 + F400758AD500607AD70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000516BC4006881D9007D98F5006C89EC005674D700949AAF00F4F4 + F400E3E2E200B1B2B800697CC200000000000000000000000000000000000000 + 00000000000005291D0015BE880010E0AA000FE0AA000FE1AB000FE0AA000FE1 + AB000FE0AA0010E1AB000FE1AA000FE1AB0015BE880005291D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000FC38E000FE1AC000FE1AB000FE1AC0010E1AC000FE1 + AC000FE1AC000FE1AB0010E1AB000FE1AC004AECC0000FC38E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008599E00094ABF60097ADF700AEBFF800AEBFF800AEBFF800AEBFF800AEBF + F800AEBFF800AEBFF800AEBFF800AEBFF800AEBFF800A5B8F80095ACF7008CA0 + E100546FCA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFCDF600536DC6006882DA007A95ED00B9BFD400BFBEBC00EEEE + ED00CDCED400898D9C005A638700000000000000000000000000000000000000 + 0000000000000000000005291D007BF6D2000FE1AC0010E1AB000FE1AC000FE1 + AB000FE2AB000FE1AB000FE2AC0078F5D10005291D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000FC38E000FE2AD0010E2AD000FE2AD000FE2AD000FE2 + AD0010E2AD0010E2AD0010E2AD0010E2AD004DEDC1000FC38E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000576FC80090A3E300A0B4F600ACBDF800B5C5F900B9C8F900B9C8F900B9C8 + F900B9C8F900B9C8F900B9C8F900B9C8F900A9BBF8009CB1F70098ADF5005870 + C700BFCDF6000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFCDF600536EC700ADB2C100EDECEC00EDECEC00BFC0 + C6008F93A2008F93A2006A6E7E00000000000000000000000000000000000000 + 000000000000000000000000000005291D0013C28B0086F8D60010E4AD000FE3 + AD000FE4AE0084F7D50012C18B0005291D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48F0010E4AF0010E4AF0010E4AF0010E4AF0010E4 + AE0010E4AF0010E4AF0010E4AF000FE4AF0053EFC5000EC48F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000627DD900879BE3009FB3F500A3B6F800A4B7F8009FB3 + F7009FB3F700A2B6F800A3B6F800A0B4F700859BE200667DCC00627DD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000787D9300B5B5B900C9CAD000AFB4 + C300B3B8C800B3B9C8007286CC00000000000000000000000000000000000000 + 00000000000000000000000000000000000005291D0012C38C0010E4AE0010E4 + AE0010E4AE0011C38C0005291D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48F0010E5B00010E5B00010E5B00010E5B00010E5 + B00010E5B00010E5B0000FE5B0000FE4B00055F0C5000EC48F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005E79D500637BCC007C91DA0092A8F00091A7 + F10092A8F10092A8F000869CE7007B90D9005E79D500AFBFF300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006974A1009095A500BCC1 + D000BCC1D100A3A8B80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000005291D008DF9D80010E4 + AF008DF9D80005291D0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48F000FE5B10010E6B00010E6B00010E5B0000FE5 + B10010E6B10010E5B00010E6B10010E6B10057F0C8000EC48F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CED8F8007C93E5005771C9005871 + C8005871C8005771C9005E79D6007C93E5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007489C8008E92 + A200828BAF007A8ED40000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000005291D000FC5 + 8E0005291D000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000EC48F000EC48F000EC48F000EC48F000EC48F000EC4 + 8F000EC48F000EC48F000EC48F000EC48F000EC48F000EC48F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000339F70000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000F342400339F + 7000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FED6AE00FED6AE00FED6AE00FED7B000FED7 + B000FED8B100FED9B400FEDAB600FEDAB600FEDCB900FEDCB900000000000000 + 0000000000000000000000000000000000000000000025242200262624002625 + 23000E86F2000E86F2000E86F2000E86F2000E86F2000E86F2000E86F2000E86 + F2000E86F2000E86F2000E86F2000E86F2000E86F2000E86F2000E86F2000E86 + F200262524002625240000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000032A0710032A071000F342400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000F3424003CD7A70032A0 + 7100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001111110014141400FED4AA00FED4AA00FED4AA00FED5AC00FED5 + AE00FED6AF00FED8B200FED8B200FED9B400FEDAB700FFDBB900111111000000 + 0000000000000000000000000000000000000000000026252300282724002727 + 2400037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037F + EE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037F + EE00272625000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000031A172003BD7A70030A271000F3424000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000F34240030A2710017CA950031A1 + 7200000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000003F3F3F00ACAC + AC00ACACAC00ACACAC0063626200FFCD9D00FFCD9D00FFCE9F00FFD0A300FFD2 + A600FFD4AA00FFD7AF00FFD8B100FFD9B500FFDDBC00FFDDBC0063636300ACAC + AC00ACACAC004B4B4B0000000000000000000000000027262400292826002929 + 2600037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037F + EE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037FEE00037F + EE002A2927002928260000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000030A3730010BF8E0039D6A60030A373000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000F34240030A3730039D6A6001FCE9A0030A3 + 7300000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000ACACAC00D1D1D100D1D1 + D100D1D1D100D1D1D10032323200C49F7B00C4A07E00C4A17F00C4A38300C4A5 + 8700C4A68800C4A78B00C4A88E00C4A99100C4AC9600C4AC960032323200CCCC + CC00CCCCCC00CCCCCC00000000000000000000000000292927002E2D2A002E2D + 2A00FBE7D000FBE6D000FBE7CF00FCE6CF00FBE7D000FBE7D000FBE6D000FCE7 + D000FBE6CF00FBE6CF00FBE7D000FCE7CF00FBE6D000FBE6CF00FBE7CF00FBE6 + CF002D2C2A002D2C2A0000000000000000000003020000040300000403000004 + 0300000403000004030000090600000403000004030000040300000403000000 + 00002DA5750010BF8E0010BF8E0010BF8E002DA575000F342400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000F34240034D5A40010BF8E0010BF8E0030D4A2002DA5 + 7500000000000004030000040300000403000004030000090600000403000004 + 03000004030000040300000403000003020000000000ACACAC00D4D4D400D4D4 + D400D4D4D400D4D4D400333131009E8373009E8373009E8373009E8474009E84 + 74009E8475009E8576009E8576009E8577009E8577009E85770033313100C8CC + CA00CECECE00CECECE000000000000000000000000002B292700302E2C00302E + 2D00FBE7D000FCE7D000FCE7D000FBE7D100FBE7D100FCE7D000FBE7D100FBE7 + D100FBE7D000FBE7D100FBE7D000FBE7D000FCE7D100FBE7D100FCE7D000FBE7 + D000302E2C00302F2C0000000000000000002CA676002CA776002CA676002CA6 + 75002CA675002BA676002BA675002CA675002BA676002CA676002CA676002CA6 + 76002BA7760010BF8E000DCA940010C08E0031D4A3002CA675000F3424000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000805000F3424002CA6750010C08F0010C08E000DCA940037D6A5002BA7 + 76002CA676002CA676002CA676002BA676002BA676002BA675002BA676002CA6 + 76002CA675002CA676002BA675002CA6760000000000ACACAC00D7D7D700D7D7 + D700D7D7D700D7D7D700D6D6D600D6D6D600D5D5D500D5D5D500D5D5D500D4D4 + D400D4D4D400D4D4D400D3D3D300D3D3D300D3D3D300D2D2D200D2D2D20039A4 + 7600C4CDCA00D1D1D1000000000000000000000000002C2A290033312E003231 + 2F00C4D1D700C4D0D700C4D0D700C4D0D700C4D0D800C4D0D700C4D1D700C4D1 + D800C4D1D700C4D1D700C4D1D800C4D0D800C4D0D800C4D1D700C4D0D800C4D0 + D70033302F0033302F0000000000000000002AA777003CD7A7003CD7A7003CD7 + A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7 + A7003CD7A70010BF8E000DCB95000DCC95000FC18F002ED4A2002BA777000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000F3424002BA777002ED4A20010C18F000DCC95000DCB95000DCB95003CD7 + A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7A7003CD7 + A7003CD7A7003CD7A7003CD7A7002AA7770000000000ACACAC00DCDCDC00EDED + ED00269B6A00279B6A00279B6A00279B6900279A6900289A6900289A6800289A + 6800289A6800289968002899680028996800289968002899680028996800CBE8 + DC00EAEAEA00D7D7D7000000000000000000000000002F2E2B00373534003735 + 3400FBE8D400FBE9D300FCE9D400FBE8D400FCE9D300FCE8D400FBE8D300FCE9 + D400FBE9D400FBE8D300FBE9D300FBE8D300FCE9D300FBE9D400FCE8D400FCE8 + D4003836340037363300000000000000000028AA7A0010C18F0010C18F0010C1 + 8F0010C18F0010C18F0010C18F0010C18F0010C18F0010C18F0010C18F0010C1 + 8F0010C18F000FC793000ECE98000DCE98000DCE98000DCE98000FC4920027AA + 7A000F3424000006040000000000000000000000000000000000000604000F34 + 240019C895000FC492000DCE98000DCF98000DCE98000ECE980010C18F0010C1 + 8F0010C18F0010C18F0010C18F0010C18F0010C18F0010C18F0010C18F0010C1 + 8F0010C18F0010C18F0019D29F0028AA7A0000000000A3A3A300E0E0E000F9FC + FB004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC + 9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F004ACC9F002899 + 6800FFFFFF00DADADA00000000000000000000000000302E2C003A3836003A38 + 3600C4D2DA00C4D2DA00C4D2DA00C4D2DA00C4D3DA00C4D2DA00C4D2DA00C4D2 + DA00C4D2DA00C4D3DA00C4D2DA00C4D2DA00C4D2DA00C4D2DA00C4D2DA00C4D2 + DA003A3836003A383600000000000000000026AB7B000FC3900010C18F000EC9 + 95000ECF99000DD099000DD09A000DD099000DCF9A000DD09A000DD099000DD0 + 99000ED099000DCF9A000ED09A000ED099000ED09A000ECF9A000DCF990019C9 + 970026AC7B000F342400000000000000000000000000000000000F34240026AC + 7B000FC793000DCF99000ECF9A000DD099000ED099000ED09A000DD099000ED0 + 99000DD099000ED099000DD09A000DCF9A000DCF9A000DD09A000DD099000DD0 + 9A000EC9950010C18F0020D6A20026AB7B0000000000A1A1A100EAEAEA00F4FA + F70047CA9D0023A6740023A6740024A4720024A4720024A4720024A4720024A4 + 720024A4720024A4720024A4720024A4720024A4720024A4720023A67400279B + 6B00FFFFFF00E5E5E500000000000000000000000000312F2E003D3B38003C3A + 3900FCE9D500FCEAD500FCE9D500FBEAD600FCEAD500FCE9D500FCE9D600FCEA + D500FCEAD600FCEAD500FCEAD500FCEAD600FBEAD600FCE9D500FCEAD600FBE9 + D5003D3B39003D3B3900000000000000000024AD7C000FC492000ECA96000DD1 + 9B000DD29B000ED29B000DD19B000ED19A000DD19B000DD19B000ED29B000ED1 + 9B000DD29B000ED19B000DD19A000DD19B000DD19B000ED19B000ED19B000FC9 + 950019CB990024AD7C000004030000000000000000000F34240024AD7C0019CB + 99000DD19B000ED19B000ED19B000ED19B000DD19B000DD19A000DD19B000DD2 + 9B000ED19B000ED19B000DD19B000DD19B000DD29B000DD19B000ED29B000ED1 + 9B000DD19B000ECA960027D9A60024AD7C0000000000A7A7A700FFFFFF00EEFA + F5005AE0B60026C18F0026C8950026C8950026C8950026C8950026C8950026C8 + 950026C8950026C8950026C8950026C8950026C8950026C8950026C08E0023A2 + 7000FFFFFF00FFFFFF000000000000000000000000003533310043403E004240 + 3E00C4D3DC00C4D4DC00C4D4DC00C4D4DC00C4D4DB00C4D3DC00C4D4DC00C4D4 + DC00C4D4DC00C4D3DC00C4D3DC00C4D4DC00C4D4DC00C4D4DC00C4D3DB00C4D3 + DC0042403E0043403E00000000000000000021B17F000FC995000ED49E000ED4 + 9E000DD49E000DD49E000ED49E000ED49E000ED49E000DD49E000ED49E000ED4 + 9D000ED49E000ED49E000ED49E000ED49E000ED49E000DD49E000ED49E000ED5 + 9E000ED49E000FCF9A0022B07F000F3424000F34240017D09C000FCF9A000ED4 + 9E000DD49E000ED49E000DD49E000ED49E000ED49E000ED49E000ED49E000ED4 + 9E000ED49D000ED49E000DD49E000ED49E000ED49E000ED49E000DD49E000ED4 + 9E000ED49E000ED49E0034DFB00021B17F0000000000A8A8A800FFFFFF00E6F8 + F2006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEE + C8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC80021A7 + 7400FFFFFF00FFFFFF0000000000000000000000000036343200454341004643 + 4000FBEAD700FCEBD800FCEBD800FCEBD700FCEBD800FCEBD800FCEBD700FCEB + D700FCEBD700FCEBD700FCEBD800FCEBD800FCEBD800FCEBD800FCEAD800FCEB + D8004543410045434100000000000000000020B280000FCC98000ED5A0000ED6 + A0000ED69F000ED5A0000ED59F000ED6A0000ED69F000ED59F000ED5A0000ED6 + 9F000ED5A0000ED69F000ED69F000ED69F000ED69F000ED59F000ED6A0000ED5 + A0000ED69F000ED5A0002ADEAC0020B27F0020B27F000ED6A0000ED5A0000ED6 + 9F000ED69F000ED6A0000ED59F000ED69F000ED69F000ED69F000ED5A0000ED5 + A0000ED69F000ED59F000ED59F000ED69F000ED5A0000ED59F000ED5A0000ED6 + 9F000ED6A0000ED5A0003CE2B40020B2800000000000A0A0A000FFFFFF00DDF7 + EF006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEE + C8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8006CEEC8001EAB + 7800FFFFFF00FFFFFF0000000000000000000000000038363400484643004846 + 4300FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800FCEB + D800FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800FCEBD800B2A6 + 9A00484543004845430000000000000000001FB381000FCF9A000ED7A1000ED7 + A1000ED7A1000ED7A1000ED7A1000ED6A1000ED7A2000ED7A1000ED7A1000ED7 + A1000ED7A1000ED7A1000ED6A1000ED7A1000ED7A1000ED7A1000ED7A1000ED7 + A1000ED7A1000FD7A1001EB38100063C2C00063C2C0033E1B1000FD7A1000ED7 + A1000FD7A1000ED7A1000ED7A1000ED7A1000ED7A1000ED6A1000ED7A1000ED7 + A1000ED7A1000ED7A1000ED7A1000ED7A2000ED7A1000ED7A1000ED7A1000FD6 + A1000ED7A1000ED7A10042E5B7001FB38100000000007B7B7B00EFEFEF00F6FC + FA005CE7BD0023C08D00ECBD9600ECBE9700ECBE9700ECBE9700ECBE9700ECBE + 9700ECBE9700ECBE9700ECBE9700ECBE9700ECBE9700ECBE970024BD8B0019B3 + 7F00FFFFFF00F3F3F3000000000000000000000000003B3836004E4B49004E4A + 49004E4B49004E4B49004E4B48003D3A39003C3A39003C3A39003C3A38003D3A + 39003C3A39003D3A38003C3A39003C3A39003D3A38003D3A39003C3A39004E4B + 49004E4A48004D4A490000000000000000001BB783000FD5A1000FDAA4000EDA + A4000EDAA4000FDAA4000FDAA4000FDAA4000EDAA4000EDAA4000EDAA4000FDA + A4000EDAA4000FD9A4000ED9A4000EDAA5000FDAA4000EDAA4000FDAA4000EDA + A40046E7BA001BB68400000000000000000000000000063C2C001BB6840046E7 + BA000FDAA4000FDAA4000EDAA4000EDAA4000EDAA5000ED9A4000FDAA4000EDA + A4000FDAA4000EDAA4000EDAA4000EDAA4000FDAA4000FDAA4000FDAA4000FDA + A4000EDAA4000FDAA4004EE9BE001BB78300000000000D0D0D0095959500C3CE + CA0054BF9E0048B48F00F1C9A000F3CCA300F3CCA300F3CCA300F3CCA300F3CC + A300F3CCA300F3CCA300F3CCA300F3CCA300F3CCA300F3CBA20046B28C0018B7 + 8300BDBDBD009B9B9B000000000000000000000000003C393800504D4B00504E + 4B006D6B6A005F5B58005F5B5800E8E8C200E8E8C200E8E8C200E8E8C200E8E8 + C200E8E8C200E8E8C200E8E8C200E8E8C200E8E8C200E8E8C2003E3C3A00504D + 4B00504D4B00504D4B00000000000000000019B884000ED8A3000EDBA6000FDB + A6000EDBA6000FDBA6000EDBA5000FDCA6000EDCA6000EDBA5000FDBA5000FDC + A5000EDBA6000EDBA6000FDCA6000FDCA5000FDBA6000FDBA6000FDBA6004FEA + BF001AB88500063C2C0000000000000000000000000000000000063C2C001AB8 + 85000EDBA5000FDBA6000FDBA6000FDBA5000FDCA5000FDCA6000EDBA5000EDB + A6000FDCA5000FDBA6000EDBA5000EDCA6000FDCA6000EDBA5000FDBA6000FDB + A6000FDBA6000EDBA60053EBC10019B884000000000000000000000000002222 + 22001616160000000000F5D1AB00F9D8B200F8D8B200F9D8B200F8D8B100F9D8 + B200F9D8B200F8D8B100F9D8B100F9D8B200F9D8B100F7D5AF00161817001616 + 160010101000000000000000000000000000000000003D3A3900534F4D005350 + 4D005F5B58004A4645004A464500E9E8C400E9E9C400E9E9C400E9E9C500E8E9 + C400E8E9C400E9E8C4002F2E2C0047434100E9E9C500E9E9C500413D3C00534F + 4D0053504D0053504E00000000000000000018B985000FDCA6000FDDA7000EDD + A7000FDDA7000EDDA7000FDCA7000FDDA7000EDDA7000FDDA7000FDCA7000FDD + A7000EDDA7000FDDA7000FDCA7000FDDA7000FDCA7000FDDA7000FDCA70018BA + 8500063C2C00000000000000000000000000000000000000000000000000063C + 2C0058EDC3000FDCA7000FDDA7000FDDA7000FDDA7000FDCA7000EDCA7000EDD + A7000FDDA7000EDDA7000FDDA7000EDDA7000FDCA7000FDCA7000EDDA7000FDD + A7000EDDA7000FDDA70056EDC20018B985000000000000000000000000000000 + 00000000000000000000F3CEA900FADBB700FADBB700F9DAB700FADBB700F9DB + B700F9DBB700F9DBB700F9DAB700FADBB700F9DBB700F5D2AE00000000000000 + 00000000000000000000000000000000000000000000403E3C00575452005754 + 52005F5B58004A46450057545200EBEBCD00EBEBCC00EBEBCC00EBEBCC00EBEC + CC00EBEBCC00EBEBCC002F2E2C0047434100EBEBCC00EBEBCC00444140005754 + 52005754520057545200000000000000000013C08A0013C08A0013C08A0013C0 + 8A0013C08A0013C08A0013C08A0013C08A0013C08A0013C08A0013C08A0013C0 + 8A0016BC89000FE0AA000FDFAA000FE0AA000FE0A9006BF2CC0016BC88000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000063C2C0016BC88006BF2CC000FDFA9000FE0AA000FDFAA0021E3B10016BC + 890013C08A0013C08A0013C08A0013C08A0013C08A0013C08A0013C08A0013C0 + 8A0013C08A0013C08A0013C08A0013C08A000000000000000000000000000000 + 00000000000000000000F2CCA800FADDBA00FADCBA00FADCBA00FADDBA00F9DC + BA00FADDBA00FADCBA00F9DCBA00FADCBA00FADCB900F4D0AD00000000000000 + 00000000000000000000000000000000000000000000413E3D005A5654005A56 + 54005F5B58004A4645005A565400EDECD000EDEDD100EDEDD000EDEDD100ECEC + D000EDEDD000ECEDD0002F2E2C0047434100ECEDD000ECECD100464341005A56 + 54005A5654005955540000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000014BD89000FE1AB0010E0AB0010E1AB0073F4CF0014BD8900063C2C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000063C2C0014BD890010E0AB0010E1AB0010E0AB002DE6B60014BD + 8900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1CBA600FADEBC00FADEBD00FADDBC00FADDBC00FADE + BD00FADEBD00FADDBD00FADEBC00FADEBD00FADDBD00F3CFAC00000000000000 + 0000000000000000000000000000000000000000000042403E005B5855005B57 + 56005F5B58004A4645005C585500EEEED500EEEED500EEEED500EEEED500EEEE + D500EEEED500EEEED5002F2E2C0047434100EEEED500EEEED500484442005B57 + 56005C5856005B58560000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000013BE8B000FE2AC0010E1AD000FE2AC0013BF8A00063C2C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000063C2C007CF5D2000FE2AC0010E1AD003AEABB0013BE + 8B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC8A400FAE0C100FBE0C200FAE0C100FBE0C200FAE0 + C200FAE0C200FAE0C200FAE0C100FBE0C100FAE0C200F1CBA800000000000000 + 00000000000000000000000000000000000000000000444140005F5A58005F5B + 58005F5B58004A4645005E5B5900F0F1DE00F1F1DD00F1F1DE00F1F1DE00F0F1 + DE00F1F1DE00F0F1DE002F2E2C002F2E2C00F1F1DD00F0F1DE00494645005F5A + 59005F5B59006D6B6A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000012C18C0010E3AF0089F8D70011C18C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000063C2C0011C18C0089F8D70050EEC40012C1 + 8C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EEC7A400FBE2C300FAE1C400FBE1C300FAE2C300FBE1 + C400FAE1C400FBE1C400FBE1C300FBE1C300FBE1C400EFC8A600000000000000 + 00000000000000000000000000000000000000000000454241008D8C8B006D6B + 6A005F5B58004A4645006D6B6A00FBFBF500FBFBF500FBFBF500FBFBF500FBFB + F500FBFBF500FBFBF500FBFBF500FBFBF500FBFBF500FBFBF500555353006D6B + 6A008D8C8B004542400000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000011C28D008EF9D80010C28D00063C2C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000063C2C0010C28D0057F0C70011C2 + 8D00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC7A400EFC7A400EFC7A400EFC7A400EFC7A400EFC7 + A400EFC7A400EFC7A400EFC7A400EFC7A400EFC7A400EFC7A500000000000000 + 000000000000000000000000000000000000000000003A373600454241004542 + 40005F5B58004A46450045424100C3C3B500C3C3B500C3C3B500C3C3B500C3C3 + B500C3C3B500C3C3B500C3C3B500C3C3B500C3C3B500F4F3E400363333004542 + 4100454240001F1D1D0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000010C28D000FC28D00063C2C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000063C2C00F5F9F70010C2 + 8D00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000EC48F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000EC4 + 8F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000020202000A0A0900000000000000000000000000000000000000 + 0000000000000000000000000000000000000A0A090002020200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000008E8F82008E8F82008E8F82008E8F82008E8F + 82008E8F82008E8F82008E8F82008E8F82001313120002020200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000349E6F00349E6F00349E6F00349E6F00349E + 6F00349E6F00349E6F00349E6F00349E6F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000A5A69B00C2C3B400C2C3B400C2C3B400C2C3 + B400C2C3B400C2C3B400C2C3B400A5A69B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E2B79800E1B69600E1B69600E1B69600E1B69600E1B69600E1B69600E1B6 + 9600E1B69600E1B69600E1B69600E1B69600E1B69600E1B69600E1B69600E1B6 + 9600E1B69600E1B6960000000000000000000000000000000000000000000000 + 000000000000000000000000000033A070003CD7A70013B98C0013B98C0013B9 + 8C0013B98C0013B98C003CD7A700329F70000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000A5A5A500CECECE00E7E7E700E7E7E700E7E7E700E7E7E700E7E7 + E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700E7E7E700CCCCCC002525 + 2500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000C2C3B400F0F0EC00F0F0EC00F0F0EC00F0F0 + EC00F0F0EC00F0F0EC00F0F0EC00C2C3B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5 + C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5C400F9E5 + C400F9E5C400E2B7970000000000000000000000000000000000000000000000 + 000000000000000000000000000031A1710039D7A6000CC78F000CC78F000CC7 + 8F000CC78F000CC78F0039D7A60032A171000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000F0F0F00B3B3B300CECECE00E4E4E400E4E4E400E4E4E400E3E3E300E3E3 + E300E3E3E300F2F2F200D4DDD900E2E2E200E1E1E100EFEFEF00CCCCCC005B5B + 5B00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A5A69B00C2C3B400C2C3B400C2C3 + B400C2C3B400C2C3B400A5A69B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F8E2BB00F3D6B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6 + B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6B100F3D6 + B100F8E0BA00E2B8980000000000000000000000000000000000000000000000 + 000000000000000000000000000030A2720034D5A4000CC790000CC790000CC7 + 90000CC790000CC7900034D6A50031A272000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000033333300C2C2C200D5D5D500E4E4E400F3F3F300F3F3F300F3F3F300F3F3 + F300E3E3E3005DB59100BFD7CD00F3F3F300F2F2F200EDEDED00D5D5D5008383 + 8300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008182770081827700818277008182 + 7700818277008182770081827700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F8E1BE00F3D6B100F5DAB500F8E1BB00F8E0BB00F8E1BB00F8E1BB00F8E1 + BB00F8E1BB00F8E1BC00F8E1BB00F8E1BB00F9E1BC00F8E1BB00F8E1BB00F4D7 + B200F8E1BB00E3B99A0000000000000000000000000000000000000000000000 + 00000000000000000000000000002DA4740029D3A1000DCA92000DCA92000DCA + 92000DCA92000DCA920029D3A1002EA473000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00008C8C8C00CFCFCF00E8E8E8006CC0A00038B2840039B083003BB083003AAE + 820078C0A4003EAC80003BAC81003DAB7F003DAA7D00D1DFD800E9E9E900ACAC + AC0000000000000000000000000000000000A5A69B00A5A69B00A5A69B00A5A6 + 9B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A6 + 9B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A69B00A5A6 + 9B00A5A69B00A5A69B00A5A69B00A5A69B000000000000000000000000000000 + 0000F8E2BF00F3D7B200F8E2BC00F8E1BC00F8E1BC00F8E1BC00F8E2BC00F8E1 + BC00F8E1BC00F8E1BC00F8E2BC00F8E1BC00F8E1BC00F9E1BC00F8E1BC00F5DA + B500F8E1BC00E3BA9B0000000000000000000000000000000000000000000000 + 00000000000000000000000000002CA6750023D29F000DCB93000DCB93000DCB + 93000DCB93000DCB930023D19F002DA574000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009D9D9D00D0D0D000EFEFEF0039B2850039B184005DBC980064BC9B0058B8 + 9400DEE3E1003CAB800092CAB30084C4AA003EAA7E0096C9B300EEEEEE00B9B9 + B90002020200000000000000000000000000A5A69B00C3C4B500C2C3B500C2C4 + B500C3C4B400C2C4B500C3C4B500C3C3B500C2C4B500C3C4B500C3C3B400C3C3 + B500C3C3B500C3C4B500C3C3B500C2C4B500C3C4B500C3C3B400C3C4B400C3C4 + B500C3C3B400C2C4B500C3C3B500A5A69B000000000000000000000000000000 + 0000F8E3BF00F4D8B300F8E2BD00F8E2BD00F8E2BD00F8E1BD00F9E2BC00F8E2 + BD00F8E2BD00F8E2BD00F8E2BD00F8E2BC00F8E1BD00F8E1BC00F8E2BD00F5DB + B600F8E1BD00E3BC9C0000000000000000000000000000000000000000000000 + 00000000000000000000000000002BA676001DD09D000DCC94000DCC94000DCC + 94000DCC94000DCC94001DD19C002BA676000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000ACACAC00D0D0D000F1F1F10044B98E0038B2850041B28800CFDFD900E6E6 + E600E6E6E60058B69100A5D0BE00B9D7CC003BAA7D00AED1C200F0F0F000C4C4 + C40025252500000000000000000000000000A5A69B00E4E3DB00E4E3DB00E5E6 + DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6 + DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6DF00E5E6 + DF00E5E6DF00E5E6DF00C7C7B800A5A69B000000000000000000000000000000 + 0000F9E4C300F4DAB500F8E2BF00F8E3BF00F8E3BF00F9E3BF00F8E2BE00F8E3 + BE00F9E3BF00F8E2BF00F8E2BF00F8E3BF00F8E2BF00F8E2BE00F8E3BE00F5DC + B800F8E2BF00E5BE9F00000000000000000028AA7A0028AA7A0027AA790028AA + 790028AA790028AA790028AA790027AA790014CE99000DCF98000DCF98000DCF + 98000DCF98000DCF980013CF990028A9790029A9780028A9790028A9780029A9 + 780028A9780029A9780029A97800000000000000000000000000000000000000 + 0000CACACA00DADADA00F2F2F200E0E7E40045B98F0035B486008DCDB500E8E8 + E800E8E8E800E6E6E6006FC0A1003BAE8200D7E1DC00E5E5E500EEEEEE00CDCD + CD0083838300000000000000000000000000A5A69B00D6977300D7977400D797 + 7400D7977400D7977400D7977400D7977400D7977400D7977400D7977400D797 + 7400D7977400D7977400D7977400D7977400D7977400D7977400D7977400D797 + 7400D7977400D7977400C7C9B900A5A69B000000000000000000000000000000 + 0000F8E4C500F6DEBA00F9E3BF00F8E2BF00F8E3C000F8E3C000F8E3C000F9E3 + C000F8E2C000F8E3C000F8E3BF00F8E3C000F9E3C000F7E2BE00F9E1BE00F6DD + B900F7E1BD00E5BFA000000000000000000026AC7B003EDCB0003EDCB0003EDC + B0003EDCB0003EDCB0003EDCB0003EDCB00011CE98000DD099000DD099000DD0 + 99000DD099000DD0990011CE98003EDCB0003EDCB0003EDCB0003EDCB0003EDC + B0003EDCB0003EDCB00027AA7900000000000000000000000000000000000000 + 0000D0D0D000E5E5E500EFEFEF0059C09C0039B88B0035B58700E7E9E800E6E8 + E700E8E8E800E8E8E800E5E6E60080C7AC00E6E6E600E6E6E600EBEBEB00CFCF + CF009A9A9A00000000000000000000000000A5A69B00E6A47E00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00C9CABB00A5A69B000000000000000000000000000000 + 0000F9E5C500F7DFBD00F8E3C000F9E3C000F9E3C100F8E3C000F8E3C000F9E3 + C000F9E3C000F8E2C000F9E3C100F9E4C100F7E2C000F8E3BF00F7E2BF00F5DD + BA00F7E0BE00E6C0A300000000000000000024AE7C0011C9960011C9960011C9 + 960011C9960011C9960011C9960011C9960011C996000DD29B000DD29B000DD2 + 9B000DD29B000DD29B000DD29B0011C9960011C9960011C9960011C9960011C9 + 960011C9960011C9960026AC7B00000000000000000000000000000000000000 + 0000D2D2D200EDEDED00EDEDED00EAEAEA00EAEAEA00DCE6E2003EB88C0081CB + AF00E5E8E70048B78E0037AF82007FC5AA00E7E7E700E6E6E600E8E8E800CFCF + CF00A8A8A800000000000000000000000000A5A69B00E6A37D00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00CCCDBE00A5A69B000000000000000000000000000000 + 0000F9E6C900F7E1BF00F9E4C200F8E4C300F8E4C200F9E4C200F8E4C200F9E4 + C200F7E3C200F7E1BF00F5DEBD00F5DFBD00F5DFBE00F5DEBE00F5DEBD00F3DC + BA00F3DCBC00E8C3A500000000000000000021B17F000ED59E000ED59E000ED5 + 9E000ED59E000ED59E000ED59E000ED59E000ED59E000ED59E000ED59E000ED5 + 9E000ED59E000ED59E000ED59E000ED59E000ED59E000ED59E000ED59E000ED5 + 9E000ED59E000ED59E0022AF7D00000000000000000000000000000000000B0B + 0B00D3D3D300F4F4F400EBEBEB00EBEBEB00EBEBEB00EBEBEB0031B6860035B5 + 870094D1BA0036B385003DB388002EAE8000E9E9E900E8E8E800E8E8E800D0D0 + D000C6C6C6002C2C2C000000000000000000A5A69B00E5A37D00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A57F00E8A5 + 7F00E8A57F00E8A57F00CCCEBF00A5A69B000000000000000000000000000000 + 0000F9E7CA00F7E2C000F9E5C400F8E4C300F9E5C400F8E5C400F9E5C300F9E4 + C400F8E3C100F4DEBE00F2DCBC00F3DDBD00F4DDBE00F5DEBE00F4DEBD00F4DD + BA00F4DEBD00E8C5A70000000000000000001FB280000ED6A0000ED6A0000ED6 + A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6 + A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6A0000ED6 + A0000ED6A0000ED6A00020B17F00000000000000000000000000000000002C2C + 2C00D6D6D600F5F5F500ECECEC00EBEBEB00EBEBEB00EBEBEB007CCCAF0034B6 + 880035B5870038B58700CEE2DA0096D0B800E9E9E900E9E9E900E9E9E900D6D6 + D600CDCDCD005C5C5C000000000000000000A5A69B00E5A37E00E9A68000E8A6 + 8000E9A68000E8A68000E8A68000E9A68000E9A68000E9A68000E8A68000E8A6 + 8000E8A78000E8A68000E8A78000E9A68000E9A78000E9A68000E9A68100E8A6 + 8000E8A78000E8A68000CECFC000A5A69B000000000000000000000000000000 + 0000F9E8CC00F8E5C400F9E5C500F9E5C500F9E5C500F9E5C400F8E5C400F8E4 + C400F8E3C200F2DCBD00F3DCBD00F2DBBA00F2DBBB00F2DCBC00F3DCBC00F3DD + BC00F3DCBD00E9C7A90000000000000000001EB4820010D8A10010D8A10010D8 + A10010D8A1000FD8A1000FD8A1000FD8A1000FD8A1000FD8A1000ED8A1000ED8 + A1000ED8A1000ED8A1000ED8A1000ED8A1000ED8A1000ED8A1000ED8A1000ED8 + A1000ED8A1000ED8A10020B28000000000000000000000000000000000005B5B + 5B00D1D1D100E4E4E400DDDDDD00DCDCDC00DCDCDC00DCDCDC00D9DBDA0030AB + 800030AA7F002AA77B00DADBDA00DBDBDB00DADADA00D9D9D900D9D9D900D1D1 + D100C2C2C200797979000000000000000000A5A69B00E6A68100EAAA8400EAA9 + 8400EBA98300EBA98300EBA98400EAAA8300EAAA8300EBA98300EAAA8300EBAA + 8300EAAA8400EAAA8300EBA98300EAA98300EAAA8400EBAA8300EBA98300EAAA + 8300EAAA8400EAAA8300D1D2C300A5A69B000000000000000000000000000000 + 0000F9E8CD00F8E6C700F9E6C800F9E5C800F8E6C800F9E5C700F9E6C800F7E4 + C500F6E1C300EDD5B700EACFB100E8CCAF00E7CBAC00E6CBAD00E7CBAC00E8CC + AF00DEBEA300E7C3A80001010100000000001AB7840016DBA60016DBA60016DB + A60016DBA60015DBA60015DBA60015DBA60014DBA60014DBA60014DBA60014DB + A60013DBA60013DBA60013DBA60013DBA60013DBA60013DBA60013DBA60013DB + A50013DBA50012DBA5001CB68300000000000000000000000000000000007171 + 7100A4A4A4009494940092929200929292009292920092929200929292009191 + 910091919100909090009090900090909000909090009090900090909000A3A3 + A3008B8B8B00767676000000000000000000A5A69B00E6A88100ECAB8500ECAC + 8600EBAC8500EBAB8500EBAB8500ECAB8500EBAC8500ECAC8500EBAC8500EBAC + 8500ECAB8500EBAC8500EBAC8500ECAC8500EBAB8500ECAC8500ECAB8500ECAC + 8500ECAC8500EBAC8500D3D4C500A5A69B000000000000000000000000000000 + 0000F9E9CF00F8E6C800F9E7C800F9E6C800F9E6C800F8E6C900F9E7C900F8E5 + C700F5E1C300EACFB300E4C5AA00E2C0A500DBB89C00DBB89C00D9B69B00D9B7 + 9B00E8CDAE00E7C3A800000000000000000018B8850090F9D90090F9D90090F9 + D90090F9D90090F9D90090F9D900F5F9F7001FDDA90019DCA70019DCA70019DC + A70018DCA70018DCA7001DDDA900F5F9F70090F9D90090F9D90090F9D90090F9 + D90090F9D90090F9D9001AB7840000000000000000000E7C5A0021B17F0021B1 + 7F0021B17F0021B17F0021B17F0021B17F0021B17F0021B17F0021B17F0021B1 + 7F0021B17F0021B17F0021B17F0021B17F0021B17F0021B17F0021B17F0021B1 + 7F0021B17F0021B17F000E7C5A0000000000A5A69B00E8A98300ECAE8700ECAE + 8700EDAE8700EDAE8700ECAE8700ECAD8700ECAE8700EDAE8700EDAE8800EDAE + 8700ECAE8800EDAE8700EDAE8700ECAD8700EDAE8700ECAE8700ECAE8700ECAE + 8700ECAE8800ECAE8700D4D5C800A5A69B000000000000000000000000000000 + 0000F9E9CF00F8E7C900F8E7C900F9E7C900F8E6C900F9E7CA00F9E6C900F8E5 + C800F4E0C100E8CBAF00E2C2A700E4C7AE00DFBFA600E1C3A800EAD2B600F5DF + BC00E8C5AA00483B3200000000000000000017BA870017BB870017BA860017BA + 860018BA870017B9860017BA870017BA86002AE0AD001DDDA9001DDDA9001DDD + A9001CDDA9001CDDA90028E0AD0018B9860018B9860018B9860018B9860018B9 + 860018B9860019B9850019B98500000000000000000021B17F001AC995001AC9 + 95001AC995001AC995001AC995001AC995001AC995001AC995001AC995001AC9 + 95001AC995001AC995001AC995001AC995001AC995001AC995001AC995001AC9 + 95001AC995001AC9950021B17F0000000000A5A69B00E8AC8600EFB38C00EFB3 + 8C00EFB28C00EFB28C00EFB28C00EFB38C00EFB28C00EFB38B00EFB28C00EFB3 + 8C00EFB28B00EFB28C00EFB28C00EFB28C00EFB38C00EFB38B00EFB28C00EFB3 + 8B00EFB38B00EFB28C00D7D7CB00A5A69B000000000000000000000000000000 + 0000F9EAD100F9E7CB00F9E8CB00F9E8CB00F9E7CC00F9E8CB00F9E8CB00F6E6 + C900F1DDC000FCF9F700F8F2EC00FDF7EE00FAECD500F8E3C300F7E0BB00483D + 3300000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000014BC88003FE4B30026DEAB0025DEAB0025DE + AB0025DEAB0024DEAB003CE3B20015BC88000000000000000000000000000000 + 0000000000000000000000000000000000000000000021B17F0012C28E0012C2 + 8E0013C28D0013C38E0012C28E0012C28E0012C28D0013C28E0012C28E0012C2 + 8E0012C38D0013C28E0012C38E0012C38E0012C38E0012C28E0013C28E0013C2 + 8E0012C38E0013C38E0021B17F0000000000A5A69B00E9AD8700F1B58E00F1B5 + 8E00F1B58E00F0B58E00F0B58D00F0B58E00F0B58E00F1B58E00F1B58E00F0B5 + 8E00F1B58E00F1B58D00F1B58E00F1B58E00F0B58D00F1B58D00F0B58D00F0B5 + 8D00F0B58E00F1B58E00D7D8CC00A5A69B000000000000000000000000000000 + 0000F9EBD200F9E8CC00F8E7CC00F9E8CC00F9E7CC00F9E8CC00F8E7CB00F7E4 + C800F2DDC000FEFAF500FCF6EC00FBF0DD00F8E3C200F7DFBA00EDD0B4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000013BE8A0046E5B5002ADEAB0029DEAB0029DE + AB0029DEAB0029DEAB0045E5B50014BE89000000000000000000000000000000 + 0000000000000000000000000000000000000000000021B17F0012C4900011C4 + 8F0012C48F0012C48F0011C48F0011C48F0011C48F0012C48F0012C48F0012C4 + 8F0011C48F0012C48F0012C48F0012C48F0011C48F0011C38F0012C48F0012C4 + 8F0011C48F0011C48F0021B17F0000000000A5A69B00EAAF8900F1B78F00F1B7 + 9000F1B89000F1B79000F2B79000F2B89000F1B79000F1B79000F1B89000F1B8 + 9000F2B89000F2B89000F2B79000F1B79000F2B79000F2B89000F2B78F00F2B7 + 8F00F2B79000F1B79000D8DACE00A5A69B000000000000000000000000000000 + 0000F9EBD200F9E8CD00F9E8CD00F9E8CC00F9E8CD00F8E8CD00F9E7CB00F6E4 + C900F1DCBF00FCF4E700FBEFDC00F9E8CE00F7DFB900EFD3B700493E35000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000013BF8B004CE6B7002EDEAB002EDEAB002DDE + AB002DDEAB002DDEAC004BE6B70013BF8B000000000000000000000000000000 + 0000000000000000000000000000000000000000000021B17F0011C5900011C5 + 900011C5900011C5900011C5900011C5900011C5900011C5900011C5900011C5 + 900011C5900011C5900011C5900011C5900011C5900011C5900011C5900011C5 + 900011C5900011C5900021B17F0000000000A5A69B00EBB18B00F4BB9300F3BB + 9400F3BB9400F3BB9400F4BB9300F4BB9400F4BB9300F4BB9400F3BB9400F3BB + 9400F3BC9400F4BB9400F3BB9400F3BB9300F4BC9300F3BB9400F4BB9300F4BB + 9400F4BB9400F4BB9400DBDBD000A5A69B000000000000000000000000000000 + 0000F9EBD400F9E8CE00F9E8CE00F9E8CE00F9E9CE00F9E9CE00F7E6CD00F5E1 + C800F0DABE00F7E2C000F7E1BE00F7DFB90051463C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000011C28C0053E8B90035DDAB0034DDAB0034DD + AB0034DEAB0034DEAB0053E8B90011C18C000000000000000000000000000000 + 0000000000000000000000000000000000000000000016BD880017E8B40017E8 + B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8 + B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8B40017E8 + B40017E8B40017E8B40016BD880001060400A5A69B00EBB28C00F4BD9400F4BC + 9500F4BC9500F4BC9500F5BD9500F4BD9500F4BC9500F4BD9500F4BD9500F5BD + 9500F4BC9500F4BD9500F4BD9500F5BD9500F5BD9500F4BD9500F4BD9500F4BD + 9500F4BD9400F5BD9400DBDCD000A5A69B000000000000000000000000000000 + 0000FAECD400F9E8CE00F9E9CF00F9E9CE00F9E9CF00F9E8CD00F7E5CC00F4E2 + C700F0DABF00F7DFB900F7DFB900F1D8BC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000FC38D0054E9BA0037DDAB0037DDAB0037DD + AB0037DDAB0037DDAB0054E9BA0010C28D000000000000000000000000000000 + 000000000000000000000000000000000000000000000E382C0016BD880017E8 + B400299065002892660025A1710025A1710025A1710025A1710025A1710025A1 + 710025A1710025A1710025A1710025A1710025A1710025A1710025A171000CBE + 890046E7B50017E8B4000E372A0000000000A5A69B00C98C6B00C98C6B00C98C + 6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C + 6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C6B00C98C + 6B00C98C6B00C98C6B00DCDDD100A5A69B000000000000000000000000000000 + 0000FAECD500F9E9CF00F9E9CF00F9E9CF00F9E9CF00F9E9CE00F7E6CC00F6E3 + C900F1DDC200F4DCB800F1D8BC006A5E50000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000EC38E0079EDC8003ADCAB0039DCAB0039DC + AB0039DCAB0039DDAB0079EDC8000FC38E000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000F3C2E0016BD + 880048E6B5002990650025A1710025A1710025A1710025A1710025A1710025A1 + 710025A1710025A1710025A1710025A1710025A1710025A1710025A171004DEC + BA0017E8B40016BD88000000000000000000C2C3B400C2C3B400C2C3B400C2C3 + B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3 + B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3B400C2C3 + B400C2C3B400C2C3B400C2C3B400C2C3B4000000000000000000000000000000 + 0000F1D8BC00F1D8BC00F1D8BC00F1D8BC00F1D8BC00F1D8BC00F1D8BC00F1D8 + BC00F1D8BC007266580000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000EC48F000EC48F000EC48F000EC48F000EC4 + 8F000EC48F000EC48F000EC48F000EC48F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000001 + 010017DCA70010D1970010D1970010D1970010D1970010D1970010D1970010D1 + 970010D1970010D1970010D1970010D1970010D1970010D1970010D1970016CE + 99000F3A2D00000101000000000000000000424D3E000000000000003E000000 + 2800000060000000A00500000100010000000000804300000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FF + E003FFE003FFE003FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01FFFF01 + FFFE01FFFE01FFFE01FFFE01FFF801FFF801FFF801FFF801FFF803FFF803FFF8 + 03FFF803FFF003FFF003FFF003FFF003FFE00FFFE00FFFE00FFFE00FF0001FF0 + 001FF0001FF0001FE0001FE0001FE0001FE0001F80007F80007F80007F80007F + 8000FF8000FF8000FF8000FF8001FF8001FF8001FF8001FF0000FF0000FF0000 + FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00001F00 + 001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F + 8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FFC000FFC000FFC000 + FFC000FFF03FFFF03FFFF03FFFF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 + 0000FFFFFF8007FF00003F000000FFFFFF80FFFF8000FF000000010101807FFF + 8000FF000000010101803FFF8000FF800001010101801FFF8000FF8000030101 + 01800FFF8000FFC000030101018007FF8000FFE00007010101E003FF8000FFE0 + 0007010101F001FF8000FFF0000FEFEFEFF000FF8000F8F0001FEFEFEFFC007F + 8000F8F0001FE0000FFE00078000F8F8001FFFEFFFFE0003FFE3F8FC003FFE00 + FFFF8001FFE3F8FE007FFE00FFFFC000FFE3F8FE007FFE00FFFFC000FFE1F0FE + 00FFFE00FFFFF020FFE1F0FF00FFFE00FFFFF070FFE0E0FF00FFFE00FFFFF038 + FFF001FFC1FFFE00FFFFF01CFFF803FFC3FFFE00FFFFF81FFFFC07FFC7FFFE00 + FFFFF80FFFFFFFFFFFFFFFFFFFFFFE07FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFC00007FFFFFFFFFFFFC0000FE0001F800001000000C0000FE0001F000000 + 800003C0000FE0001F000000800003C0000FE0001F000000800003C0000FE000 + 1F000000800003C0000FE0001F000000800003C0FC0FE0001F000000800003C0 + FC0FE0001F000000800003C0FC0FE0001F000000800001C0FC0FE0001F000000 + 800001C0FC0FE0001F000000800001C0FC0FE0001F000000800001C0C000E000 + 1F000000800001C0C000E0001F000000800001C0C000E0001F000000FE007FC0 + F003E0001F000000FE007FC0F803800007000000FE007FC0F807800007000000 + FFFFFFC0FE1F800007800003FFFFFFE1FF1F800007FFFFFFFFFFFFFFFF1FC000 + 0FFFFFFFFFFFFFFFFFFFFF87FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFF801FFFFFFFFFFFFFC00001FFE0FFFE003FFFFFFFC00001FFC07FFE003F + FFFFFFC00001FFC03FFFC0FFFFFFFFC00001FF001FFFC1FFFFFFFFC00001FE00 + 0FFFC1FFFFFFFFC00001FE0007FFC1FFFFFFFFC00001F80003FFC1FF800003C0 + 0001F00001FFC1FF800003C00001F00000FFC1FF800003C00001C00001FFC1FF + E00007C00001800003FFC1FFE00007C00001800003FFC1FFF0000FC000018000 + 0FFFC1FFF0000FC0000180001FFFC1FFF0000FC0000180001FFFC1FFF0000FC0 + 000182007FF3C1E3F0001FC000018200FFF1C1E3F8001FC000018000FFF1C1C3 + FFFFFFFFFFFFC003FFF00003FFFFFFFFFFFFE007FFF00003FFFFFFFFFFFFF007 + FFF00003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFF + 000FF01C07F8001FFF87FFFFFC3FF07F0FF0000FFF87FFFFF83FF83E1FE00007 + FF87FFFFF83FF8181FC00003F8007FFFE03FFC001F800001F8007FFFC03FFC00 + 1F000000F8007FFC003FFC001F000000FF03FFF0001FFE003F000000FE00FFF0 + 001FFE001F000000FC00FFF0000FF8001F000000F0003FF0000FE00003000000 + F0303FF0000FC00003000000F0781FF0000F800000000000F0FC1FF0001F8000 + 00000000F1FE1FF0001FFF80FF000000F1FE1FF0003FFF80FF000000F0FC1FFF + C03FFFC1FF000000F0781FFFE03FFFC1FF800001F0303FFFF03FFFC3FF800003 + F8007FFFF83FFFC3FFE00007FC00FFFFFC3FFFE7FFF0000FFE00FFFFFE3FFFE7 + FFF0001FFFFFFFFFFFFFFFFFFFFC003FFFFFFFFFFFFFFE00FFFFFFFFC0000FE0 + 0007FF81FFFFFFFF80001FF8003FFE00FFFC0FFF80001FF8003FFE007FF007FF + 80001FF8003FFE007FF003FF80001FF8003FF8001FC000FFF0001FF8003FF000 + 1FC0C0FFF0001FF8003FF0001F81E0FFF0001FF8003FF0000F83F0FFF0001FF8 + 003FE0000787F8FFF0001FF8003FE0000787F8FFF0001FF8003FC0000383F0FF + F0001FF8003FC0000381E0FFF0001FF8003FC00003C0C0C7F0001FF8003FC000 + 03E00047F0001FF8003FC00003F00007F0001FF8003FC00003F00007F00003F8 + 003FC00003FFF807F00003F8003FC00003FFF807F00003F8003FC00003FFE007 + F00003F8003FFF81FFFFE007F00003F8003FFFC3FFFFE007F80003F8003FFFC7 + FFFFFFFFFFFFFFF8003FFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC3FFC00003FFFFFFFFFFFFFF80E3800003 + FFFFFFFFFFFFFF00C38000039FFFFFFFFFFFFE00018000039FE001FFFFFFFC00 + 018000038FE001FFFFFFF800018000038FF001800001F0000380000387F80180 + 0001E0000380000383F801800001E00003800003806001800001800001800003 + C00001800001800001800003C00001800001800001800003E000018000018000 + 01800003F00001800001800001800003F00001800001800001800003F80019FF + FFFF800001800003FC003FFFFFFF800001800003FE007FFFFFFF800001800003 + FFFFFFFFFFFF801803800003FFFFFFFFFFFFC03803C00003FFFFFFFFFFFFF03E + 07E00007FFFFFFFFFFFFFFFFFFFFFFFF800001FFFFFFFFFFFFFFFFFFF0000780 + 0001FFFFFFFFFFFFF00007C00003F07FFF80007FF00007C00003E03FFF80007F + F00007C00003C01FFF80007FF00007C000038007FF800063F00007C000038007 + FF800043F00007C000038003FF800041F00007C000038000FFC20001F00007C0 + 00038000FFE30001F00007C00003C0007FFF0001F00007C00003E0001FC20001 + F00007C00003F0001F800001F00007C00003F0000F800001F00007C00003FC00 + 07800063F00007C00003FE000380007FF00007C00003FE000380007FF00007C0 + 0003FF800380007FF00007C00003FFC003FE07FFF00007C00003FFC003FC03FF + F00007C00003FFF007F801FFF00007C00003FFF80FF801FFFE493FC00003FFFC + 1FF801FFFE493FFFFFFFFFFFFFFE07FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFE001FFFFFFFFFFFFF800003FFF8FFFE0003FFFFFF800003FFF0FFFC0003 + FC003F800003FFE0FFF80003000000800003FFC0FFF00003000000800003FF80 + C7E00003000000800003F00083E00003000000800003C00003E00003FC003F80 + 0003C00003E00003FF00FF800003C00003E00003FF00FF800003C00007E00003 + FF00FF800003C00007E00003FF00FFFC0003C00003E00003FFC3FFFC0003C000 + 03E00003FFC3FFFC0003C00003E00003FFC3FFFC0003E00003E00003FFC3FFFC + 0003FF80C7E00003FFC3FFFC0003FFC0FFE00003FFC3FFFC0003FFC0FFE00003 + FFC3FFFC0003FFF0FFE00003FFFFFFFFFFFFFFF8FFFFFFFFFFFFFFFFFFFFFFF8 + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC003FC00FFFF00007FF + FFFFFFC3FFC07FFFFC001FFFFFFFFF00FF807FFFFC001FFFFFFFFE00FF807FFF + FC001FF8000FFE007F807E1FFC001FFF181FFE007F807807FC001FFF181FFF81 + FFC07807FC001FFE101FF381CFE07807FC001FFE007FE381C3F87807FC001FFE + 00FFC00003F87807FC001FFC00FF800001F87C07FC001FF8007F000000F87F07 + FC001FF8003F000000F87F87FC001FF0003F000000F87F87FC001FF000FF8000 + 03F87F87FC001FF003FFC381C3F80F87FC001FF007FFE381C7F80187FC001FE0 + 3FFFFF81FFF80007FC001FC0FFFFFE007FF80007FC001FC3FFFFFE007FF80007 + FC001FFFFFFFFE00FFFC0007FC001FFFFFFFFF00FFFF0007FC001FFFFFFFFF81 + FFFFE007FFFFFFFFFFFFFFC7FFFFFF87FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFF80000383FFFFFFFFFFFFFFFF80000381FFFFFFFFFF + FFFFFF80000381FFFFFFFFFFFFFFFF800003C07FFF800001800001800003E03F + FF800001800001800003F03FFF800001800001800003F80FFF80000180000180 + 0003FC07FF800001800001800003FE07FF800001800001800003FF00CF800001 + 800001800003FF8007800001800001800003FFC007800001800001800003FFE0 + 03800001800001800003FFE001800001EFFFFF800003FFE001800001E0000380 + 0003FFF803800001FFFFFF800003FFF803800001FFFFFF800003FFF003800001 + FFFFFFFFFFFFFFF003800001FFFFFFFFFFFFFFFE1FFFFFFFFFFFFFFFFFFFFFFF + 1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00007FFFFFF800003FF + FFFFF0000FFFFFFFE00007FC007FF0000FF8001FE00007F8003FF0000FF8001F + E00007F0001FF0000FF8001FE00007E0000FF0000FF8001FE00007C00007F000 + 0FF8001FE00007800003F0000FF8001FE00007800003F0000FF8001FE0000780 + 0003F0000FF8001F800001800003F0000FF8001F800001800003F0000FF8001F + 800001800003F0000FF8001F800001800003F0000FF8001FC00003800003F000 + 0FF8001FE00007800003F0000FF8001FF0000F800003F0000FF8001FF8000F80 + 0003F0000FF8001FFC0007C00007F0000FF8001FFE0007E0000FF0000FF8001F + FF00FFF0001FF0000FF8001FFF81FFF8003FF0000FF8001FFFC3FFFC007FF000 + 0FF8001FFFFFFFFFFFFFF8001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFF + FFFFFC003FFE00FFF8001FFFFFFFFF81FFF6004FF0001FFFFFFFFF00FFE80003 + F0000FFFFFFFFE00FFC0001BC00003000000FC003FA00005C00003000000F800 + 1FE00005800003000000F0001FC00001800001000000E0000F803C0180000100 + 0000E00007807E01800001000000C0000380FF0180000100000080000380FF01 + 80000100000080000380FF0180000100000080000180FF018000010000008000 + 01807E01800001800001800001803C01800003800003800001C00001C00003E0 + 0007800001E00007C00003F0000F800001E00007E00007FFFFFF800001B0000F + F0001FFFFFFFC03803D80013F8001FFFFFFFF03E07CE0067FE007FFFFFFFFFFF + FFF300CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 + 00FFFFBFFFF0001F807E03F1FFFFFF8FFFF8001F807E03F1FFFFFF8FFFF8001F + 80FF03F1FFFFFF87FFF8001F807E03F1FFFFFF87FFC00003803C03F1FFFFFF83 + FF800003803803F1FFFFFFC3FF800003880013F1FFFFFFC0FFC03C03FC003FF1 + FFFFFFC0FFC07E03FE007FF1FFFFFFC0FF80FF03FF00FFF00003FE007F81FF01 + FF00FFF00003FE003F81FF01FE00FFF00003FE003F80FF01FC003FF00003FE00 + 1FC07E03880013F00003FE001FC03C03801803F00003FE01FF801803803C03F0 + 0003FE00FF800003807E03F00003FE00FFC0000380FF03F00003FE00FFF8001F + 807E03F00003FE007FF8001F807E03F001F3FE003FF8001F807E03F0FFFFFE00 + 3FFCC33FFFFFFFF1FFFFFFFFFFFFFFFFFFFFFFFFFFFFE0000FFFFFFFF03E0780 + 0001F0001FFFFFFFE07E07E00007F0001F800001C03C03E00007F0001F800001 + 803803E00007F0001F800001800001E00007F0001F800001800001E00007F000 + 1F800001800001E00007F0001F800001C00003E00007F0001F800001E00007E0 + 0007F0001F800001F0000FE00007F0001F800001F8001FE00007F0001F800001 + F8001FE00007F0001F800001F0001FE00007F0001F800001E00007E00007F000 + 1F800001C00003E00007F0001F800001800003E00007F0001F800001800001E0 + 0007F0001F800001800001E00007F0001F803FFF801801E00007F0001F803FFF + C03C03E00007F0001F80FFFFE07E07E0000FF0001FFFFFFFF0FF0FE0001FF000 + 1FFFFFFFFFFFFFE0003FF0001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF800001FF + F0E3FF00FFFFFFFFE00007FFF003FC001FE0000FE00007FFF003F0000FE0000F + E00007FFF003F00007E0000FE00007FE001FE00003E0000FE00007FE001FC000 + 03E0000FE00007FE001FC00003E0000FE00007C0021F800001E0000FE00007C0 + 021F800001E0000FE00007C0021F800001E0000FE00007C0021F800001E0000F + E00007C0021F800001E0000FE00007C0021F800001E0000FE00007C0021F8000 + 01E0000FE00007C0021F800001E0000FE00007C0021FC00003E0000FE00007C0 + 021FE00003E0000FE00007C0021FF00007E0000FE00007C0021FF00007E0000F + E00007FE001FFC001FE0000FF0000FFE001FFE003FE0000FFE00FFFE001FFF00 + FFF0001FFFC7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8001FFFFFFFFFFFFFFF + FFFFFC003FFFFFFFFFFFFF800003F0000FFC03FF840023800003E00007F803FF + 840021800003C00003F003FF840021800003800003E001FF8E00618000038000 + 01C001FF840021800003800001C001FF800001800003000000E000FF80000180 + 0003000000F040FF800001800003000800F0C0FF800001800003003800FFE07F + 800001800003003C00FFE03F800001800003003800FFF03F8000018000030000 + 00FFF81F800001E00007000000FFF81F800001E00007000000FFFC0F800001E0 + 0007800001FFFF03800001FFFFFF800003FFFF03800001FFFFFF800003FFFF83 + FFFFFFFFFFFFE00007FFFFE1FFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF000 + 1FFFFFFFFFFFFFFFFFFFFE00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80 + 0003FFFFFFF8001F80001FC00007FFFFFFF8001F80000FC00007800003F0000F + 800007C00007800001F00007800003C00007800001E00003800003C000078000 + 01C01E03800003C00007800001C00F03800003C00007800001800781800003C0 + 00078000018003C1800003C000078000018001C1800003C000078000018100C1 + 800003C00007800001818041800003C0000780000181C001800003C000078000 + 0181E001800003C0000780000181F001800003C00007800003C0F803800003C0 + 0007E00007E00003800003C00007F8001FE00007800003C00007FFC01FF00007 + 800003C00007FFFFFFF8001F800003C00007FFFFFFFE003FFFFFFFC00007FFFF + FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFF9FBFFFFFFFFFFFFFF80001FF9F3FFFF + FFFFFFFFFFC00003F8E3FF000000FFFFFFC00007F843FF000000800003C00007 + F803FF000000800003C00007F803FF000000800003C00007F803FF0000008000 + 03C00007F803FF000000800003C00007F803FF000000800003C00007F803FF00 + 0000800003C00007F803FF000000800003C00007F803FF000000800003C00007 + F803FF000000800003C00007F8001F000000800003C00007F8001F0000008000 + 03C00007F8001F000000800003C00007F8001F000000800003C00007F8001F00 + 0000800003C0001FF8001F800001800003C0001FF8001FFE3CFF800003C001FF + F8001FFE00FFFFFFFFC001FFF8001FFE00FFFFFFFFC001FFF8001FFE00FFFFFF + FFC001FFFE007FFFFFFFFFFFFFF007FFFFF7FFFFFFFFFFFFFFFFFFFFFFC1FFFF + FFFFF8001FFFFFFFFE003FFE7E7FFE00FFE00007FC001FF83C1FFE18FFC00003 + F8000FF03C1FFE38FFC00003F00003F0181FFE3CFFC00003C0C181F8181FFC38 + FFC00003C1C1C1F8001FFC38FFC00003C1C1C1FE007FFC38FFC00003C1C1E1FE + 007FFC38FFC00003C3E3E1FE00FFFC38FFC00003CFE3F9800001FC38FF800001 + CFE3FD800001FC38FF800001FF80FF800001FC38FF800001FF80FF800001FC38 + FF800001FFE3FFFE00FFFC30FFFFC7FFFFC1FFFE007FFC30FFFFC7FFFF80FFFC + 003FFC00FFFFC7FFFF80FFFC001FFC84FFFFC7FFFF88FFF8181FFCFCFFFFC7FF + FF80FFF0381FFC38FFFFC7FFFF80FFF03C1FFC00FFFFC7FFFFC0FFF83C1FFE00 + FFFFC7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE003FC + 001FC0001FE0000FFFFF01FF00FFC00007E0000FFFFF01FF00FFC00007E0000F + FFFE01FF00FFC00007E0000FFFF801FF00FFC00007C00007FFF803FF00FFC000 + 07C00007FFF003FF00FFC00007800003FFE00F800000C00007800003F0001F80 + 0000C00007800003E0001F800000C0000780000380007F800000C00007800003 + 8000FF800000C000078000038001FF800000C000078000030001FF800000C000 + 078000030001FF800000C000078000030001FF800000C0000780000300001FFF + 00FFC0000780000300001FFF00FFC0000780000300001FFF00FFC00007800003 + 8003FFFF00FFC000078000038007FFFF00FFC00007C06C07C007FFFF00FFC000 + 07F0C60FF03FFFFF00FFFFFFFFFFFFFFFFFFFFC0000FFFFFFFFFFFFFFFFFFFE0 + 7FFFFFFFFFFFFFFFFFFFFF803FFF800003F0001FFFFFFF801FFFE0000FFC003F + FFFFFF860FFFE0000FFC003F8007F98F07FFE0000FFF00FF8007F18707FFE000 + 0F0000008007F18207FFE0000F000000801FE1C007FFE0000F000000803FC3E0 + 07FFE0000F000000801F03F003FFE0000F000000800003F8001FE0000F000000 + 800003FC000FE0000F000000800007FFC007F0001F00000080000FFFE003F8FE + 3F00000080000FFFE001F8FE3F00000080001FFFE061F8FE3F000000FC003FFF + F0F0F87C3F000000FE00FFFFF070F87C3F000000FF01FFFFF820F8383F000000 + FFFFFFFFFC01FC007F000000FFFFFFFFFE03FE00FF000000FFFFFFFFFF03FF01 + FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00003F0 + 3E0FE00003E00003FC001FF07F07FC001FFC001FF0000FF07F07F0000FF0000F + F00007F03E07F00007F00007E00003F03C27E00003E00003C00003F01847C000 + 03C00003C00003F00807C00003C00003800001F0000F800001800001800001F8 + 001F800001800001800001FE003F800001800001800001FF80FF800001800001 + 800001FF80FF800001800001800001FF00FF800001800001800001FE087F8000 + 01800001800001FE183F800001800001C00003FE183FC00003C00003E00003FC + 3E1FE00003E00003F00007F87F1FF00007F00007F00007F07F0FF00007F00007 + FC001FF1FF8FFC001FFC001FFE003FF1FFCFFE003FFE003FFF00FFF3FFEFFF00 + FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF8007FFE00003FFFFFFFFFFFF83FFFFFC001F800000800001C1FFFFF0000F + 800000800003E0FFFFF00007900081800003F03E7FE00003900081800003F03C + 7FC00003900081800003F0187FC00003900081800003FC007F80000190008180 + 0003FE007F800001900081800003FE007F8000019000FF800003FF803F800001 + 9000FF800003FF001F8000019000FF800003FE001F8000019000FF800003FC00 + 078000019FC0FF800003FC00038000019FC0FF800003FC0000C000039FC0FF80 + 0003FFF800E000039FC0FF800003FFF801F000079FC0FF800003FFFC03F00007 + 9FC0FFFFFFFFFFFF07FC001F9FC0FFFFFFFFFFFF0FFE003F9FFFFFFFFFFFFFFF + 1FFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFF03FFFFFE00300000080007FC01FFFFFFF0180000183FFFF800FFFFFFF01 + 80000183FFFF8207FFFFFE0180000181FFFF8F87FFFFF801800001807FFF8FC7 + FFFFF803800001C03FFF8FC7FFFFF003800001F00FFF8F07FFFFE00F800001F0 + 00FF8207FFF0001F800001F8003F8003FFE0001F800001FE001FE000FF80007F + 800001FE0007F000FF8000FF800001FF0003FFC07F8001FF800001FF0003FFF0 + 1F0001FF800001FF0003FFF81F0001FF800001FF0203FFF80F0001FF800001FF + 8703FFFE030001FF800001FF8707FFFF030001FF803FFFFFC20FFFFF010001FF + 807FFFFFE01FFFFF008003FF80FFFFFFE03FFFFF008007FFFFFFFFFFF07FFFFF + 00C007FFFFFFFFFFFFFFFFFFC7F03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF800003800001FFF1FFC00003E00007CC0033FFE1FF800003E00007CC0033 + FFE1FF800003E00007C00003FFC1FF800003E00007C00003C00003800003E000 + 07CC0033800003800003E00007CC0033800001800003E00007C0000380000180 + 0003E00007C00003800001800003E00007CC0033800001800003E00007C00003 + 800001800003E00007C00003800001800003E00007C00003800001800003E000 + 07CC0033800001800003E00007C00003800001800003E00007C0000380000180 + 0003E00007CC0033800001800003E00007CC0033800001800003E00007C00003 + 800001800003E00007C00003800001C00003E0000FCC0033800003E00007E000 + 1FCC0033FFFFFFFFFFFFE0003FC00003FFFFFFFFFFFFFFFFFFFF00FFFFFFFFFF + FFFFFFFFFFFE003F000000000000C1F0FFF0000F000001000001C0007FF00007 + 800001000001C000FFE00003800001000001E3F8FFC00003800001000001FFFC + 7F800001800001000001FFFC7F800001C0000300000180003F800000E0000700 + 000180003F800000F0000F00000080003F800000FF00FF00000080001F800000 + FF81FF00000080001F800000FF00FF00000080001F800000FF00FF0000008000 + 1F800000FE00FF00000180000F800000FE00FF00000180000F800001FE00FF00 + 0001C00007C00003FE00FF000001FFE007C00003FE00FF000001FFFFC1E00003 + FF00FF000001FFFFE1F0000FFF00FF000001FFFFFFF8001FFF81FF000001FFFF + FFFE003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000001FFFFFF00000000 + 0000000041FE000F800001800001800041FC0007800000800001800041FA000F + 800000800001800041F00FFF800000800001800041F007FF8000008000018000 + 41E003FF8000008000018000418003FF8000008000018000418001FF80000080 + 00018000410001FF80000080000180004101807F80000080000180004103C07F + 80000080000080006387E07F80000080000080007F87F03F8000008000008000 + 7FFFF81F80000180000080007FFFFC0F80000180000080007FFFFE0FC0000380 + 000080007FFFFF07E0000780000080007FFFFF87F0000F800001803FFFFFFFC1 + F8001F800001803FFFFFFFE1FC003F801801803FFFFFFFF1FE007F803E01803F + FFFFFFF8FFFFFFC1FFC1807FFFFFFFFCFFFFFFFFFFFFFFFFFFFFFFFF00000180 + 0001FFFFFF800001000001E00007FFFFFFE00007800001E00007FFFFFFE00007 + 800001E00007000001E00007800001E00007000001F0000F800001E000078000 + 07F0000F800001E00007800003F0000F800001E00007800003F0000F800001E0 + 0007800001F0000F800001E00007800001E00007800001E00007800001E00007 + 800001E00007800001E00007800001E00007800000E00007800001E000078000 + 00E00007800001E00007800000E00007800001E00007800007F0000F800001E0 + 0007800007F8001F800001E00007800007FC003F800001E0000780000FFE007F + 800001E00007803FFFFF007F800001E00007FFFFFFFF807F800001FF81FFFFFF + FFFFC07FFFFFFFFF81FFFFFFFFFFE7FFFFFFFFFFFFFFFFFFFFFFFFFFFF9FFFFF + FFFFFFFFFF000000FF87FFFC007FE00007800001FF87FFF8003FC00007800001 + FF83FFF0001FE00007800001FF81FFE0000FE00007800001FF81FFC00007E000 + 07800001FF81FF800003E00007800001FF81FF800003E00007800001FF81FF80 + 0003E00007800001FF81FF800003F0000F800001FF00FF800003F8001F800001 + FE007F800003FE00FF800001FE003F800003FF00FF800001F8001F800003FE00 + FF800001F0000F800003FE007F800001F00007800003FE007F800001C0000380 + 0003FE007F800001800001C00007FE007F800001800001E0000FFE007F800001 + 800001F0001FFE00FF800001800001F8003FFE00FF800001800001FC007FFF00 + FF800001FFFFFFFFFFFFFFFFFFFCFF3FFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFF + FFFFFE00FFFFC7FFFFF8FFFF3FFFFE00FFFF81FFFFF8FFFE3FFFFE00FFFF00FF + FFF87FFE3FFFFE00FFFE00FFFFF81FF83FFFFE00FFFC003FFFF81FF03FFFFE00 + FFF8001F80000FF00001FE00FFF0001F800003C00001FE00FFE0000780000380 + 0001FE00FFE00003800001800001FE00FFE00007800001800001FE00FFFE00FF + 800001800001FE00FFFE00FF800003800001FE00FFFE00FF800007E00001E000 + 03FE00FF80000FF00001E00007FE00FFFFF81FF03FFFF0000FFE00FFFFF83FFC + 3FFFF8001FFE00FFFFF87FFE3FFFFC003FFE00FFFFF8FFFE3FFFFE007FFE00FF + FFFFFFFFFFFFFF00FFFE00FFFFFFFFFFFFFFFF81FFFE00FFFFFFFFFFFFFFFFC3 + FFFE00FFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFC003FFFFFFFFC007FFC007FFC003FE00003F8003FF8003FF0001FC00003 + F0001FF0001FF0000F800003E0000FE0000F800003800003C00007C000078000 + 0380000380000380000380000380000380000380000380000380000380000380 + 0003800003800003800003800003800003800003800003800003800003800003 + 800003800003800003800003800003800003800003800003800003800003C000 + 03800003800003800003E00007800003800003800003F0001F80000380000380 + 0003F0001F800003C00007C00007F0001F800003E0000FE0000FF0001F800003 + F0001FF0001FFC003F800003F8003FF8003FFC003F800003FC007FFC007FFC00 + 3F800003FFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFFFFFFFFFFC001FF0 + 000FE00003FFFFFFFC001FFF83FFFC001FC1FFFFFC001FFF00FFF0000FC0FFFF + FC001FFE007FF00007E03FFFFC001FFC003FE00003F00FFFFC001FF8003FC000 + 03F007FFFC001FF0000FC00003F007FFFC001FE0000F800001F001FFFC001FC0 + 0007800001F800FFFC001F800001800001F800FFFC003F000001800001FE003F + 000001000001800001FE001F000001FC003F800001FF001F800003FC003F8000 + 01FFC007C00007FC003F800001FFC003E0000FFC003FC00003FFE003F0001FFC + 003FE00003FFF801F8003FFC003FF00007FFF801FC007FFC003FF00007FFFC01 + FE00FFFC003FFC001FFFFF01FF01FFFC003FFE003FFFFF83FF83FFFC003FFF00 + FFFFFFC3FFC7FFFC003FFFFFFFFFFFFFFFFFFFFFFFFFF0000FE0001FF8000F00 + 0000F0000FE0001FFE003F800001FFF1FFFF8FFF000000800005FFF0FFFF0FFF + 000000800001FFF07FFE0FFF80000180000100103FFC08008000018000010000 + 0FF00000800001800001000007E00000800001800001000003C0000080000180 + 0001000003C00000800001800001000000000000800001800001000000000000 + 8000018000010000000000008000018000010000000000008000018000010000 + 01800000800001800001000003C00000E40007800001000007E00000FC003F80 + 000100000FF00000FC003F800001FFF01FF80FFFFC003F800001FFF03FFC0FFF + FC003F800001FFF07FFE0FFFFC003F800001FFF0FFFF0FFFFC003F800001FFF1 + FFFF8FFFFFFFFFFFFFFFFFF7FFFFEFFFF8003FFFFFFF88007FFFFFFFFE003FE0 + 0001800000000000FE00FFC00001FE00FF000000FE00FFF00003FE00FFF0000F + FF01FFF00003FE00FFF0000FFF01FFF00003FE00FFF0000F000000F00003FE00 + FFF00007000000F00003FE00FFF00007000000F00003000001F00007000000F0 + 0003000001F00007000000F00003000001F00003000000F00003000001E00003 + 000000F00003000001E00003000000F00001000001E00003000000F000010000 + 01E00001000000F00001000001800001000000F00003000001800001000000F0 + 000FFE00FF800001000000F0000FFE00FF800001000000F0001FFE00FF800001 + 000000F0007FFE00FF800000000000F0007FFE00FF800001000000F000FFFE00 + FF800001000000F003FFFE00FFE0000300000000000000000000000000000000 + 000000000000} + end + object ThreeLookAndFeelCol: TcxLookAndFeelController + Kind = lfStandard + NativeStyle = False + Left = 253 + Top = 12 + end + object ThreeColorBase: TcxStyleRepository + Left = 147 + Top = 80 + PixelsPerInch = 96 + object SHuangSe: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + TextColor = clBtnText + end + object SkyBlue: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + TextColor = clBlack + end + object Default: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object QHuangSe: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object FontBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object TextSHuangSe: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + object FonePurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindow + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object FoneClMaroon: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clMaroon + end + object FoneRed: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + object RowColor: TcxStyle + AssignedValues = [svColor] + Color = 16311512 + end + object handBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxBlue: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16711731 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object SHuangSeCu: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DataLink.pas b/坯布码单待检(PBMDDJ.dll)/U_DataLink.pas new file mode 100644 index 0000000..6e08128 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DataLink.pas @@ -0,0 +1,70 @@ +unit U_DataLink; + +interface + +uses + SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; +var + DConString:String; {ȫַ} + server, dtbase, user, pswd: String; {ݿӲ} + DCurHandle:hwnd; //ǰ + DName:string ; //#û#// + DCode:string ; //#û#// + Ddatabase:string; //#ݿ#// + DTitCaption:string; //##// + DParameters1,DParameters2,DParameters3,DParameters4,DParameters5:string;// ⲿ + DParameters6,DParameters7,DParameters8,DParameters9,DParameters10:string;//ⲿ + OldDllApp:Tapplication; //ԭо + NewDllApp: Tapplication;//ǰ + MainApplication: Tapplication ; + DFormCode:integer; //ǰں + IsDelphiLanguage:integer; + DServerDate:TdateTime; //ʱ + DCompany:string; //˾ +type + TDataLink_PBMDDJ = class(TDataModule) + AdoDataLink: TADOQuery; + ADOLink: TADOConnection; + ThreeImgList: TImageList; + ThreeLookAndFeelCol: TcxLookAndFeelController; + ThreeColorBase: TcxStyleRepository; + SHuangSe: TcxStyle; + SkyBlue: TcxStyle; + Default: TcxStyle; + QHuangSe: TcxStyle; + Red: TcxStyle; + FontBlue: TcxStyle; + TextSHuangSe: TcxStyle; + FonePurple: TcxStyle; + FoneClMaroon: TcxStyle; + FoneRed: TcxStyle; + RowColor: TcxStyle; + handBlack: TcxStyle; + cxBlue: TcxStyle; + SHuangSeCu: TcxStyle; + procedure DataModuleDestroy(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + TMakebar = procedure(ucData:pchar;nDataLen:integer;nErrLevel:integer;nMask:integer;nBarEdition:integer;szBmpFileName:pchar;nScale:integer);stdcall; + TMixtext = procedure( szSrcBmpFileName:PChar;szDstBmpFileName:PChar;sztext:PChar;fontsize,txtheight,hmargin,vmargin,txtcntoneline:integer);stdcall; +var + DataLink_PBMDDJ: TDataLink_PBMDDJ; + +implementation +{$R *.dfm} + + +procedure TDataLink_PBMDDJ.DataModuleDestroy(Sender: TObject); +begin + DataLink_PBMDDJ:=nil; +end; + +end. + + + + diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHChkList.dfm new file mode 100644 index 0000000..e8e9206 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHChkList.dfm @@ -0,0 +1,645 @@ +object frmFHChkList: TfrmFHChkList + Left = 139 + Top = 108 + Width = 1382 + Height = 547 + Caption = #21457#36135#25209#20934 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25209#20934#21457#36135 + ImageIndex = 77 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #25209#20934#25764#38144 + ImageIndex = 52 + OnClick = TBEditClick + end + object TBExport: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 450 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 513 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 576 + Top = 18 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 728 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 850 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object PRTName: TEdit + Tag = 2 + Left = 630 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 755 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 878 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1366 + Height = 408 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 93 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#25209#20934#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #25209#20934#26102#38388 + DataBinding.FieldName = 'ChkTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#31867#22411 + DataBinding.FieldName = 'FHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'FHPerson' + HeaderAlignmentHorz = taCenter + Width = 78 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1366 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#25209#20934 + #24050#25209#20934 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 382 + Top = 217 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 320 + Top = 216 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 351 + Top = 216 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 413 + Top = 219 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 445 + Top = 219 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 216 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_FHChkList.pas new file mode 100644 index 0000000..904bf16 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHChkList.pas @@ -0,0 +1,648 @@ +unit U_FHChkList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmFHChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + PRTName: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + ADOQueryPrint: TADOQuery; + v1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column14: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmFHChkList: TfrmFHChkList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmFHChkList.FormDestroy(Sender: TObject); +begin + frmFHChkList:=nil; +end; + +procedure TfrmFHChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFHChkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('',Tv1,''); +end; + +procedure TfrmFHChkList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmFHChkList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('',Tv1,''); + //InitGrid(); +end; + +procedure TfrmFHChkList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmFHChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmFHChkList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('׼б',cxGrid1); +end; + +procedure TfrmFHChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHChkList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmFHChkList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHChkList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='׼'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmFHChkList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmFHChkList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end;} + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmFHChkList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmFHChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHChkList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmFHChkList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHChkList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHChkList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmFHChkList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmFHChkList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmFHChkList.TBAddClick(Sender: TObject); +var + FBHDate:String; +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('Chker').Value:=Trim(DName); + FieldByName('ChkTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ChkStatus').Value:='׼'; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('׼쳣!','ʾ',0); + end; +end; + +procedure TfrmFHChkList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Application.MessageBox('ѷܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('Chker').Value:=NUll; + FieldByName('ChkTime').Value:=NUll; + FieldByName('ChkStatus').Value:=NUll; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmFHChkList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmFHChkList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHInPut.dfm new file mode 100644 index 0000000..9c8e503 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHInPut.dfm @@ -0,0 +1,263 @@ +object frmFHInPut: TfrmFHInPut + Left = 150 + Top = 90 + Width = 1356 + Height = 573 + Align = alClient + Caption = #21457#36135#30003#35831#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1340 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1340 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Tag = 99 + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTName' + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column1: TcxGridDBColumn + Tag = 99 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Tag = 99 + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column10: TcxGridDBColumn + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 145 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 397 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 501 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 346 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 325 + Top = 4 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 453 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_FHInPut.pas new file mode 100644 index 0000000..5648880 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHInPut.pas @@ -0,0 +1,308 @@ +unit U_FHInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmFHInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmFHInPut: TfrmFHInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_OrderSunSelList; + +{$R *.dfm} + +procedure TfrmFHInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('¼',Tv1,''); +end; + +procedure TfrmFHInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId'); + sql.Add(' where A.FHId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmFHInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmFHInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('¼',Tv1,''); + InitData(); +end; +procedure TfrmFHInPut.GetMaxConNO(); +begin + +end; +function TfrmFHInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FHID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FH','JYOrder_FH',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FHID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Sub.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FHID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FHID').Value:=Trim(maxno); + FieldByName('MainId').Value:=Order_Sub.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Order_Sub.fieldbyname('SubId').Value; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_FH',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + Edit; + FieldByName('FHID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmFHInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('SQDate',null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SQQty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmFHInPut.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmOrderSunSelList:=TfrmOrderSunSelList.Create(Application); + with frmOrderSunSelList do + begin + if ShowModal=1 then + begin + with frmOrderSunSelList.Order_Main do + begin + First; + while frmOrderSunSelList.Order_Main.Locate('SSel',True,[]) do + begin + with Self.Order_Sub do + begin + Append; + FieldByName('MainId').Value:=frmOrderSunSelList.Order_Main.FieldByName('MainId').Value; + FieldByName('SubId').Value:=frmOrderSunSelList.Order_Main.FieldByName('SubId').Value; + FieldByName('OrderNo').Value:=frmOrderSunSelList.Order_Main.FieldByName('OrderNo').Value; + FieldByName('PRTName').Value:=Trim(frmOrderSunSelList.Order_Main.FieldByName('MPRTCodeName').AsString); + FieldByName('PRTColor').Value:=frmOrderSunSelList.Order_Main.FieldByName('PRTColor').Value; + FieldByName('PRTHX').Value:=frmOrderSunSelList.Order_Main.FieldByName('PRTHX').Value; + FieldByName('QtyUnit').Value:=frmOrderSunSelList.Order_Main.FieldByName('OrderUnit').Value; + FieldByName('SQPS').Value:=frmOrderSunSelList.Order_Main.FieldByName('KCPS').Value; + FieldByName('SQQty').Value:=frmOrderSunSelList.Order_Main.FieldByName('KCQty').Value; + FieldByName('SQDate').Value:=FSQDate; + Post; + end; + frmOrderSunSelList.Order_Main.Delete; + end; + + end; + end; + end; + finally + frmOrderSunSelList.Free; + end; + ToolBar1.SetFocus; +end; + +procedure TfrmFHInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FHId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Sub.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmFHInPut.v1Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('MDID').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select B.OrderNo,A.PS,A.MDDate from JYOrder_Main_MD A'); + sql.Add(' inner join JYorder_Main B on A.ORDMainId=B.MainId'); + sql.Add(' and A.MDID='''+Trim(mvalue)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + with Order_Sub do + begin + Edit; + FieldByName('OrderNo').Value:=ADOTemp.fieldbyname('OrderNo').Value; + FieldByName('PS').Value:=ADOTemp.fieldbyname('PS').Value; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.dfm new file mode 100644 index 0000000..fbcb457 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.dfm @@ -0,0 +1,280 @@ +object frmFHJJInPut: TfrmFHJJInPut + Left = 26 + Top = 130 + Width = 1356 + Height = 573 + Align = alClient + Caption = #32039#24613#21457#36135#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1340 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1340 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Tag = 99 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column1: TcxGridDBColumn + Tag = 99 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Tag = 99 + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 145 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 397 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 501 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 346 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 325 + Top = 4 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 453 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.pas new file mode 100644 index 0000000..3d21f73 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHJJInPut.pas @@ -0,0 +1,313 @@ +unit U_FHJJInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmFHJJInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmFHJJInPut: TfrmFHJJInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_OrderSunSelList; + +{$R *.dfm} + +procedure TfrmFHJJInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('¼',Tv1,''); +end; + +procedure TfrmFHJJInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(C.MPRTCode,'''')+isnull(C.MPRTGY,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId'); + sql.Add(' where A.FHId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmFHJJInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmFHJJInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('¼',Tv1,''); + InitData(); +end; +procedure TfrmFHJJInPut.GetMaxConNO(); +begin + +end; +function TfrmFHJJInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FHID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FH','JYOrder_FH',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FHID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Sub.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FHID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FHID').Value:=Trim(maxno); + FieldByName('MainId').Value:=Order_Sub.fieldbyname('MainId').Value; + FieldByName('SubId').Value:=Order_Sub.fieldbyname('SubId').Value; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_FH',0) ; + FieldByName('FHType').Value:=''; + FieldByName('FHPerson').Value:=Trim(DName); + FieldByName('FHStatus').Value:='ѷ'; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + Edit; + FieldByName('FHID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmFHJJInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('FHDate',null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FHQty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmFHJJInPut.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmOrderSunSelList:=TfrmOrderSunSelList.Create(Application); + with frmOrderSunSelList do + begin + if ShowModal=1 then + begin + with frmOrderSunSelList.Order_Main do + begin + First; + while not Eof do + begin + if frmOrderSunSelList.Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('MainId').Value:=frmOrderSunSelList.Order_Main.FieldByName('MainId').Value; + FieldByName('SubId').Value:=frmOrderSunSelList.Order_Main.FieldByName('SubId').Value; + FieldByName('OrderNo').Value:=frmOrderSunSelList.Order_Main.FieldByName('OrderNo').Value; + FieldByName('PRTCode').Value:=Trim(frmOrderSunSelList.Order_Main.FieldByName('MPRTCode').AsString)+ + Trim(frmOrderSunSelList.Order_Main.FieldByName('MPRTGY').AsString); + FieldByName('PRTColor').Value:=frmOrderSunSelList.Order_Main.FieldByName('PRTColor').Value; + FieldByName('PRTHX').Value:=frmOrderSunSelList.Order_Main.FieldByName('PRTHX').Value; + FieldByName('QtyUnit').Value:=frmOrderSunSelList.Order_Main.FieldByName('OrderUnit').Value; + FieldByName('FHPS').Value:=frmOrderSunSelList.Order_Main.FieldByName('KCPS').Value; + FieldByName('FHQty').Value:=frmOrderSunSelList.Order_Main.FieldByName('KCQty').Value; + FieldByName('FHDate').Value:=FSQDate; + //Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmOrderSunSelList.Free; + end; +end; + +procedure TfrmFHJJInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FHId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Sub.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmFHJJInPut.v1Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('MDID').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select B.OrderNo,A.PS,A.MDDate from JYOrder_Main_MD A'); + sql.Add(' inner join JYorder_Main B on A.ORDMainId=B.MainId'); + sql.Add(' and A.MDID='''+Trim(mvalue)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + with Order_Sub do + begin + Edit; + FieldByName('OrderNo').Value:=ADOTemp.fieldbyname('OrderNo').Value; + FieldByName('PS').Value:=ADOTemp.fieldbyname('PS').Value; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHList.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHList.dfm new file mode 100644 index 0000000..115949c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHList.dfm @@ -0,0 +1,632 @@ +object frmFHList: TfrmFHList + Left = 26 + Top = 140 + Width = 1378 + Height = 547 + Caption = #21457#36135#30003#35831 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1362 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1362 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 576 + Top = 18 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 728 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 850 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object PRTName: TEdit + Tag = 2 + Left = 630 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 755 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 878 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1362 + Height = 408 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 93 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#25209#20934#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #25209#20934#26102#38388 + DataBinding.FieldName = 'ChkTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#31867#22411 + DataBinding.FieldName = 'FHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'FHPerson' + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1362 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#25209#20934 + #24050#25209#20934#21457#36135 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1362 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHList.pas b/坯布码单待检(PBMDDJ.dll)/U_FHList.pas new file mode 100644 index 0000000..4a74dd6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHList.pas @@ -0,0 +1,590 @@ +unit U_FHList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox; + + +type + TfrmFHList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + PRTName: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column14: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmFHList: TfrmFHList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmFHList.FormDestroy(Sender: TObject); +begin + frmFHList:=nil; +end; + +procedure TfrmFHList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFHList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('',Tv1,''); +end; + +procedure TfrmFHList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + SQL.Add(' or isnull(FHTYpe,'''')='''') '); + end; + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmFHList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('',Tv1,''); + //InitGrid(); +end; + +procedure TfrmFHList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + sql.Add(' and isnull(BHStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ѱ޸!','ʾ',0); + Exit; + end; + try + frmFHInPut:=TfrmFHInPut.Create(Application); + with frmFHInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FHID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmFHInPut.Free; + end; +end; + +procedure TfrmFHList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmFHList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmFHList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('',cxGrid1); +end; + +procedure TfrmFHList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHList.TBAddClick(Sender: TObject); +begin + try + frmFHInPut:=TfrmFHInPut.Create(Application); + with frmFHInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmFHInPut.Free; + end; +end; + +procedure TfrmFHList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmFHList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmFHList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmFHList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmFHList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmFHList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmFHList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmFHList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmFHList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHOKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHOKList.dfm new file mode 100644 index 0000000..2f5e4e1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHOKList.dfm @@ -0,0 +1,647 @@ +object frmFHOKList: TfrmFHOKList + Left = 124 + Top = 87 + Width = 1378 + Height = 547 + Caption = #30830#35748#21457#36135 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1362 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21457#36135 + ImageIndex = 34 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21457#36135#25764#38144 + ImageIndex = 52 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 276 + Top = 0 + Caption = #32039#24613#21457#36135 + ImageIndex = 67 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 422 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 509 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 572 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1362 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 576 + Top = 18 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 728 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 850 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object PRTName: TEdit + Tag = 2 + Left = 630 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 755 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 878 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1362 + Height = 408 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 93 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#25209#20934#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #25209#20934#26102#38388 + DataBinding.FieldName = 'ChkTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#31867#22411 + DataBinding.FieldName = 'FHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS10' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty10' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'FHPerson' + HeaderAlignmentHorz = taCenter + Width = 78 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1362 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#21457#36135 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1362 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 304 + Top = 200 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHOKList.pas b/坯布码单待检(PBMDDJ.dll)/U_FHOKList.pas new file mode 100644 index 0000000..4beadb6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHOKList.pas @@ -0,0 +1,681 @@ +unit U_FHOKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmFHOKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + PRTName: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + ADOQueryPrint: TADOQuery; + v1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column14: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton2: TToolButton; + v1Column8: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmFHOKList: TfrmFHOKList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote,U_ZDYHelp,U_FHJJInPut; + +{$R *.dfm} + +procedure TfrmFHOKList.FormDestroy(Sender: TObject); +begin + frmFHOKList:=nil; +end; + +procedure TfrmFHOKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFHOKList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʵʷ',Tv1,''); +end; + +procedure TfrmFHOKList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select isnull(A.FHQty,A.SQQty) FHQty10,isnull(A.FHPS,A.SQPS) FHPS10 '); + sql.Add(',A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''')'); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmFHOKList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('ʵʷ',Tv1,''); + //InitGrid(); +end; + +procedure TfrmFHOKList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmFHOKList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmFHOKList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʵʷб',cxGrid1); +end; + +procedure TfrmFHOKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmFHOKList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʵʷ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmFHOKList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmFHOKList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTName=isnull(C.MPRTCodeName,'''') '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end;} + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmFHOKList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmFHOKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmFHOKList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHOKList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHOKList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmFHOKList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmFHOKList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmFHOKList.TBAddClick(Sender: TObject); +var + FFHDate:String; +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;FHQty10',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + FFHDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + {if Order_Main.FieldByName('FHQty').Value>Order_Main.FieldByName('BHQty').Value then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Application.MessageBox('ڱ!','ʾ',0); + Exit; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('FHPerson').Value:=Trim(DName); + if Trim(Order_Main.fieldbyname('FHDate').AsString)='' then + FieldByName('FHDate').Value:=FFHDate + else + FieldByName('FHDate').Value:=Trim(Order_Main.fieldbyname('FHDate').AsString); + FieldByName('FHPS').Value:=Order_Main.fieldbyname('FHPS10').Value; + FieldByName('FHQty').Value:=Order_Main.fieldbyname('FHQty10').Value; + FieldByName('FHNote').Value:=Order_Main.fieldbyname('FHNote').Value; + FieldByName('FHStatus').Value:='ѷ'; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('׼쳣!','ʾ',0); + end; +end; + +procedure TfrmFHOKList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + if Trim(Order_Main.FieldByName('FHType').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('FHPerson').Value:=Null; + FieldByName('FHDate').Value:=Null; + FieldByName('FHPS').Value:=Null; + FieldByName('FHQty').Value:=Null; + FieldByName('FHNote').Value:=Null; + FieldByName('FHStatus').Value:=Null; + Post; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+''''); + ExecSQL; + end; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmFHOKList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmFHOKList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,false); +end; + +procedure TfrmFHOKList.ToolButton2Click(Sender: TObject); +begin + try + frmFHJJInPut:=TfrmFHJJInPut.Create(Application); + with frmFHJJInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmFHJJInPut.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.dfm new file mode 100644 index 0000000..e0e1072 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.dfm @@ -0,0 +1,669 @@ +object frmFHOKSelList: TfrmFHOKSelList + Left = 87 + Top = 106 + Width = 1382 + Height = 547 + Caption = #21457#36135#35760#24405 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 576 + Top = 18 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 728 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 850 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object PRTCode: TEdit + Tag = 2 + Left = 630 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 755 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 878 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1366 + Height = 408 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + Column = v1Column22 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column19: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column17: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1Column11: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column21: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column22: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'FHMoney' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v1Column23: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column18: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 79 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'SQQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #30003#35831#22791#27880 + DataBinding.FieldName = 'SQNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#25209#20934#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #25209#20934#26102#38388 + DataBinding.FieldName = 'ChkTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #21457#36135#31867#22411 + DataBinding.FieldName = 'FHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21457#36135#22791#27880 + DataBinding.FieldName = 'FHNote' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#36135#20154 + DataBinding.FieldName = 'FHPerson' + HeaderAlignmentHorz = taCenter + Width = 78 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1366 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #21487#36873#25321 + #24050#36873#25321 + #20840#37096) + Visible = False + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 304 + Top = 200 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.pas new file mode 100644 index 0000000..c1fafa9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FHOKSelList.pas @@ -0,0 +1,586 @@ +unit U_FHOKSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmFHOKSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + PRTCode: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + ADOQueryPrint: TADOQuery; + v1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column14: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column8: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column17: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmFHOKSelList: TfrmFHOKSelList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote,U_ZDYHelp,U_FHJJInPut; + +{$R *.dfm} + +procedure TfrmFHOKSelList.FormDestroy(Sender: TObject); +begin + frmFHOKSelList:=nil; +end; + +procedure TfrmFHOKSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFHOKSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('¼',Tv1,'CI'); +end; + +procedure TfrmFHOKSelList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select isnull(A.FHQty,A.SQQty) FHQty10,isnull(A.FHPS,A.SQPS) FHPS10 '); + sql.Add(',A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(C.MPRTCode,'''')+isnull(C.MPRTGY,'''')'); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + sql.Add(' ,E.PRTPrice,E.PriceUnit,F.ConNo,F.CustomerNoName,F.CustomerNo,PIMainId=E.Mainid,PISubId=E.SubId,FHMoney=E.PRTPrice*A.FHQty'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' inner join JYOrder_Sub D on A.SubId=D.SubId'); + sql.Add(' left join JYOrderCon_Sub E on D.PISubId=E.SubId'); + sql.Add(' left join JYorderCon_Main F on E.Mainid=F.MainId'); + sql.Add(' where not exists(select * from JYOrder_CI_Sub JCS where JCS.FHID=A.FHID)'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmFHOKSelList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('¼',Tv1,'CI'); + //InitGrid(); +end; + +procedure TfrmFHOKSelList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmFHOKSelList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmFHOKSelList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʵʷб',cxGrid1); +end; + +procedure TfrmFHOKSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKSelList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmFHOKSelList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKSelList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʵʷ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmFHOKSelList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmFHOKSelList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select '); //isnull(A.FHQty,A.SQQty) FHQty10,isnull(A.FHPS,A.SQPS) FHPS10 + sql.Add(' A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(C.MPRTCode,'''')+isnull(C.MPRTGY,'''')'); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + sql.Add(' ,E.PRTPrice,E.PriceUnit,F.ConNo,F.CustomerNoName,PIMainId=E.Mainid,PISubId=E.SubId,FHMoney=E.PRTPrice*A.FHQty'); + SQL.Add(' from JYOrder_FH A'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' inner join JYOrder_Sub D on A.SubId=D.SubId'); + sql.Add(' left join JYOrderCon_Sub E on D.PISubId=E.SubId'); + sql.Add(' left join JYorderCon_Main F on E.Mainid=F.MainId'); + sql.Add(' where not exists(select * from JYOrder_CI_Sub JCS where JCS.FHID=A.FHID)'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + {if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end;} + sql.Add(' and isnull(FHStatus,'''')<>'''' '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmFHOKSelList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmFHOKSelList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHOKSelList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmFHOKSelList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHOKSelList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmFHOKSelList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmFHOKSelList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmFHOKSelList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); + end; + +end; + +procedure TfrmFHOKSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmFHOKSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,false); +end; + +procedure TfrmFHOKSelList.ToolButton2Click(Sender: TObject); +var + FConNO:String; +begin + if Order_Main.IsEmpty then exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + exit; + end; + if Order_Main.Locate('SSel;ConNo',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox(PChar(Trim(Order_Main.fieldbyname('OrderNo').AsString)+ + Trim(Order_Main.fieldbyname('PRTColor').AsString)+ + Trim(Order_Main.fieldbyname('PRTHX').AsString)+ + 'δָ!'),'ʾ',0); + Exit; + end; + FConNO:=''; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + if Trim(FConNO)='' then + begin + FConNO:=Trim(Order_Main.fieldbyname('ConNo').AsString); + end else + begin + if FConNO<>Trim(Order_Main.fieldbyname('ConNo').AsString) then + begin + Order_Main.EnableControls; + Application.MessageBox('ͬŲͬ!','ʾ',0); + Exit; + end; + end; + end; + Next; + end; + end; + Order_Main.EnableControls; + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FileUp.dfm b/坯布码单待检(PBMDDJ.dll)/U_FileUp.dfm new file mode 100644 index 0000000..a401970 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FileUp.dfm @@ -0,0 +1,188 @@ +object frmFileUp: TfrmFileUp + Left = 247 + Top = 162 + Width = 634 + Height = 447 + Caption = #19978#20256#25991#20214 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid7: TcxGrid + Left = 0 + Top = 41 + Width = 555 + Height = 367 + Align = alClient + TabOrder = 0 + object TV7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object FileName: TcxGridDBColumn + Tag = 1 + Caption = #25991#20214#21517#31216 + DataBinding.FieldName = 'FileName' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 121 + end + object FileDate: TcxGridDBColumn + Tag = 1 + Caption = #19978#20256#26085#26399 + DataBinding.FieldName = 'FileDate' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 104 + end + end + object cxGridLevel6: TcxGridLevel + GridView = TV7 + end + end + object Panel16: TPanel + Left = 190 + Top = 126 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19978#20256#12290#12290#12290 + Color = clSkyBlue + TabOrder = 1 + Visible = False + end + object ToolBar6: TToolBar + Left = 555 + Top = 41 + Width = 63 + Height = 367 + Align = alRight + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ShowCaptions = True + TabOrder = 2 + object FileUp: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #19978#20256 + ImageIndex = 109 + Wrap = True + OnClick = FileUpClick + end + object FileDel: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Wrap = True + OnClick = FileDelClick + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 618 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label1: TLabel + Left = 8 + Top = 14 + Width = 68 + Height = 16 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Image2: TImage + Left = 537 + Top = 17 + Width = 23 + Height = 16 + end + object Code: TEdit + Left = 78 + Top = 9 + Width = 211 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + end + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 404 + Top = 197 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 405 + Top = 236 + end + object SaveDialog1: TSaveDialog + Left = 409 + Top = 285 + end + object ADOQueryFile: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 488 + Top = 144 + end + object DataSource1: TDataSource + DataSet = ADOQueryFile + Left = 392 + Top = 168 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 496 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 504 + Top = 264 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FileUp.pas b/坯布码单待检(PBMDDJ.dll)/U_FileUp.pas new file mode 100644 index 0000000..4b8f99f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FileUp.pas @@ -0,0 +1,357 @@ +unit U_FileUp; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ComCtrls, ToolWin, ExtCtrls, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, IdBaseComponent, + IdComponent, IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB,jpeg, + BtnEdit,IniFiles; + +type + TfrmFileUp = class(TForm) + cxGrid7: TcxGrid; + TV7: TcxGridDBTableView; + FileName: TcxGridDBColumn; + FileDate: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + Panel16: TPanel; + ToolBar6: TToolBar; + FileUp: TToolButton; + FileDel: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Code: TEdit; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ADOQueryFile: TADOQuery; + DataSource1: TDataSource; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + Image2: TImage; + procedure FileUpClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FileDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + private + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); + procedure SaveImageOther(); + procedure ReadINIFile10(); + { Private declarations } + public + CYID:String; + { Public declarations } + end; + +var + frmFileUp: TfrmFileUp; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmFileUp.ReadINIFile10(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; +procedure TfrmFileUp.FileUpClick(Sender: TObject); +var + i,j: Integer; + PatFile: String; + FTPPath,FConNo,MaxNo:string; + AJpeg: TJPEGImage; +begin + if Trim(Code.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + lstPat.Clear; + if ODPat.Execute then + begin + lstPat.AddStrings(ODPat.Files); + end; + + if lstPat.Count > 0 then + begin + try + ReadINIFile10(); + server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','ַ','127.0.0.1'); + IdFTP1.Host :=server;//PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + end; + Panel16.Visible:=True; + Panel16.Refresh; + AJpeg:=TJpegImage.Create(); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select Count(*) MM from XD_File where CYID='''+Trim(CYID)+''''); + SQL.Add('and filetype=''YP'''); + Open; + j:=fieldbyname('MM').AsInteger; + end; + Image2.Picture.LoadFromFile(ODPat.FileName); + AJpeg.Assign(Image2.Picture.Graphic); + CreThumb(AJpeg,Image2,216, 187); + try + ADOQueryCmd.Connection.BeginTrans; + for i := 0 to lstPat.Count - 1 do + begin + PatFile := ExtractFileName(lstPat[i]); + PatFile:=Copy(PatFile,(Pos('.',PatFile)+1),(Length(PatFile)-Pos('.',PatFile)) ) ; + FConNo:=Trim(Code.Text); + while Pos('/',FConNo)>0 do + begin + Delete(FConNo,Pos('/',FConNo),1); + end; + PatFile:=Trim(FConNo)+'-'+Inttostr(j+i+1)+'.'+PatFile; + if IdFTP1.Connected then + begin + try + {if not DirectoryExists('D:\ͼƬ\'+Trim(gDef1)) then + ForceDirectories('D:\ͼƬ\'+Trim(gDef1)); } + IdFTP1.Put(lstPat[i], Trim('\YP')+'\'+Trim(PatFile)); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+''''); + SQL.Add(' and filename='''+Trim(PatFile)+''''); + SQL.Add(' and filetype=''YP'''); + Open; + if not IsEmpty then + begin + Panel16.Visible:=False; + Application.MessageBox(PChar('ļ<'+Trim(PatFile)+'>ظ,'+inttostr(i)+'ļϴɹ'),'ʾ',0); + Exit; + end; + end; + if GetLSNo(ADOQueryCmd,MaxNo,'YP','XD_File',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͼƬʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add('select * from XD_File where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('XFID').Value:=Trim(MaxNo); + FieldByName('CYID').Value:=Trim(CYID); + FieldByName('CYNO').Value:=Trim(Code.Text); + FieldByName('filename').Value:=Trim(PatFile); + FieldByName('FileDate').Value:=SGetServerDate(ADOQueryTemp); + fieldbyname('FileType').value:=Trim('YP'); + Post; + end; + except + //ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ͼƬϴʧܣ','ʾ',0); + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CP_YDang Set TPFlag=1 where CYID='''+Trim(CYID)+''''); + ExecSQL; + end; + SaveImageOther(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͼƬϴʧܣ','ʾ',0); + end; + if IdFTP1.Connected then IdFTP1.Quit; + with ADOQueryFile do + begin + Close; + SQL.Clear; + SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+''''); + open; + end; + Panel16.Visible:=False; + if i>0 then + Application.MessageBox(PChar(inttostr(i)+'ļϴɹ'),'ʾ',0); + ModalResult:=1; +end; +procedure TfrmFileUp.CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); +var + Bitmap: TBitmap; + Ratio: Double; + ARect: TRect; + AHeight, AHeightOffset: Integer; + AWidth, AWidthOffset: Integer; +begin + Bitmap := TBitmap.Create; + try + Ratio := AJPeg.Width /AJPeg.Height; + if Ratio > 1.333 then + begin + AHeight := Round(Width / Ratio); + AHeightOffset := (Height - AHeight) div 2; + AWidth := Width; + AWidthOffset := 0; + end + else + begin + AWidth := Round(Height * Ratio); + AWidthOffset := (Width - AWidth) div 2; + AHeight := Height; + AHeightOffset := 0; + end; + Bitmap.Width := Width; + Bitmap.Height := Height; + Bitmap.Canvas.Brush.Color := clBtnFace; + Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height)); + ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset); + Bitmap.Canvas.StretchDraw(ARect, AJPeg); + Image1.Picture.Assign(BitMap); + finally + Bitmap.Free; + end; +end; +procedure TfrmFileUp.SaveImageOther(); +var + AJpeg: TJPEGImage; + myStream: TADOBlobStream; + ImgMaxNo:String; + i,j: Integer; + PatFile: String; + FTPPath,FConNo,MaxNo,FTFID:string; +begin + if Image2.Picture=nil then Exit; + AJpeg:=TJpegImage.Create(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from TP_File where WBID='''+Trim(CYID)+''''); + Open; + end; + FTFID:=Trim(ADOQueryTemp.fieldbyname('TFID').AsString); + if Trim(FTFID)='' then + begin + if GetLSNo(ADOQueryCmd,ImgMaxNo,'TF','TP_File',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͼƬʧ!','ʾ',0); + Exit; + end; + end else + begin + ImgMaxNo:=Trim(FTFID); + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add( ' select * from TP_File where TFID='''+Trim(FTFID)+''''); + open; + end; + with ADOQueryCmd do + begin + if Trim(FTFID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('TFID').Value:=Trim(ImgMaxNo); + FieldByName('WBID').Value:=Trim(CYID); + //FieldByName('TFIdx').Value:=cxTabControl2.TabIndex; + FieldByName('TFType').Value:='Ʒ'; + AJpeg.Assign(Image2.Picture.Graphic); + //CreThumb(AJpeg,Image1,160, 120); + myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; +end; + +procedure TfrmFileUp.FormCreate(Sender: TObject); +begin + lstPat := TStringList.Create; + +end; + +procedure TfrmFileUp.FileDelClick(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(' Delete XD_File where XFID='''+Trim(ADOQueryFile.fieldbyname('XFID').AsString)+''''); + SQL.Add(' Delete TP_File where WBID='''+Trim(CYID)+''' and TFType=''Ʒ'' '); + ExecSQL; + end; + with ADOQueryFile do + begin + Close; + SQL.Clear; + SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+''''); + SQL.Add(' and FileType=''YP'''); + open; + end; + if ADOQueryFile.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CP_YDang Set TPFlag=0 where CYID='''+Trim(CYID)+''''); + ExecSQL; + end; + end; +end; + +procedure TfrmFileUp.FormShow(Sender: TObject); +begin + with ADOQueryFile do + begin + Close; + SQL.Clear; + SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+''''); + SQL.Add(' and FileType=''YP'''); + Open; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_FjList.dfm b/坯布码单待检(PBMDDJ.dll)/U_FjList.dfm new file mode 100644 index 0000000..a94ce83 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FjList.dfm @@ -0,0 +1,172 @@ +object frmFjList: TfrmFjList + Left = 154 + Top = 62 + Width = 1049 + Height = 540 + BorderIcons = [biSystemMenu, biMinimize] + Caption = #38468#20214#20449#24687 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ListView1: TListView + Left = 36 + Top = 88 + Width = 141 + Height = 137 + Columns = <> + TabOrder = 0 + OnDblClick = ListView1DblClick + end + object Panel1: TPanel + Left = 882 + Top = 0 + Width = 151 + Height = 501 + Align = alRight + TabOrder = 1 + object FileName: TcxButton + Left = 30 + Top = 60 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #28155#21152 + TabOrder = 0 + OnClick = FileNameClick + LookAndFeel.Kind = lfOffice11 + end + object cxButton1: TcxButton + Left = 30 + Top = 96 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #21024#38500 + TabOrder = 1 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 30 + Top = 132 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #20445#23384 + TabOrder = 2 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton3: TcxButton + Left = 30 + Top = 172 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #20851#38381 + TabOrder = 3 + Visible = False + OnClick = cxButton3Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton4: TcxButton + Left = 30 + Top = 220 + Width = 75 + Height = 25 + Hint = 'Filesother' + Caption = #28155#21152#25991#20214#22841 + TabOrder = 4 + OnClick = cxButton4Click + LookAndFeel.Kind = lfOffice11 + end + end + object Panel2: TPanel + Left = 24 + Top = 124 + Width = 193 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel2' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnDblClick = Panel2DblClick + end + object ShellListView1: TShellListView + Left = 177 + Top = 0 + Width = 705 + Height = 501 + ObjectTypes = [otFolders, otNonFolders] + Root = 'rfDesktop' + ShellTreeView = ShellTreeView1 + Sorted = True + Align = alClient + ReadOnly = False + TabOrder = 3 + end + object ShellTreeView1: TShellTreeView + Left = 0 + Top = 0 + Width = 177 + Height = 501 + ObjectTypes = [otFolders] + Root = 'rfDesktop' + ShellListView = ShellListView1 + UseShellImages = True + Align = alLeft + AutoRefresh = False + Indent = 19 + ParentColor = False + RightClickSelect = True + ShowRoot = False + TabOrder = 4 + end + object ADOQueryTmp: TADOQuery + Connection = ADOConnection1 + Parameters = <> + Left = 512 + Top = 28 + end + object ADOQueryCmd: TADOQuery + Connection = ADOConnection1 + Parameters = <> + Left = 560 + Top = 24 + end + object ImageList1: TImageList + Left = 520 + Top = 212 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 340 + Top = 190 + end + object ADOConnection1: TADOConnection + LoginPrompt = False + Left = 484 + Top = 240 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_FjList.pas b/坯布码单待检(PBMDDJ.dll)/U_FjList.pas new file mode 100644 index 0000000..616b67e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_FjList.pas @@ -0,0 +1,436 @@ +unit U_FjList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls, + cxButtons, DB, ADODB, ImgList,shellapi, IdBaseComponent, IdComponent, + IdTCPConnection, IdTCPClient, IdFTP, ShlObj, cxShellCommon, cxControls, + cxContainer, cxShellTreeView, cxShellListView, ShellCtrls; + +type + TfrmFjList = class(TForm) + ListView1: TListView; + Panel1: TPanel; + FileName: TcxButton; + cxButton1: TcxButton; + cxButton2: TcxButton; + cxButton3: TcxButton; + ADOQueryTmp: TADOQuery; + ADOQueryCmd: TADOQuery; + ImageList1: TImageList; + Panel2: TPanel; + IdFTP1: TIdFTP; + ADOConnection1: TADOConnection; + cxButton4: TcxButton; + ShellListView1: TShellListView; + ShellTreeView1: TShellTreeView; + procedure cxButton3Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FileNameClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ListView1DblClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure cxButton2Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Panel2DblClick(Sender: TObject); + procedure cxButton4Click(Sender: TObject); + private + procedure InitData(); + { Private declarations } + public + fkeyNO:string; + fType:string; + fId:integer; + + fstatus:integer; + + { Public declarations } + end; + +var +frmFjList: TfrmFjList; + +implementation + uses + U_DataLink,U_RTFun; +{$R *.dfm} +procedure TfrmFjList.InitData(); +var + ListItem: TListItem; + Flag: Cardinal; + info: SHFILEINFOA; + Icon: TIcon; +begin + ListView1.Items.Clear; + try + + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select fileName from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + open; + if not IsEmpty then + begin + while not eof do + begin + with ListView1 do + begin + LargeImages := ImageList1; + Icon := TIcon.Create; + ListItem := Items.Add; + Listitem.Caption := trim(fieldbyname('fileName').AsString); + // Listitem.SubItems.Add(OpenDiaLog.FileName); + Flag := (SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES); + SHGetFileInfo(Pchar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), Flag); + Icon.Handle := info.hIcon; + ImageList1.AddIcon(Icon); + ListItem.ImageIndex := ImageList1.Count - 1; + end; + next; + end; + end; + end; + except + end; +end; + +procedure TfrmFjList.cxButton3Click(Sender: TObject); +begin + ADOQueryTmp.Close; + ADOQuerycmd.Close; + ListView1.Items.Free; + ModalResult:=-1; +end; + +procedure TfrmFjList.FormDestroy(Sender: TObject); +begin + frmFjList:=nil; +end; + +procedure TfrmFjList.FileNameClick(Sender: TObject); +var + OpenDiaLog: TOpenDialog; + fFileName:string; + fFilePath:string; + maxNo:string; +// myStream: TADOBlobStream; +// FJStream : TMemoryStream; +begin + + try + OpenDiaLog := TOpenDialog.Create(Self); + if OpenDiaLog.Execute then + begin + fFilePath:=OpenDiaLog.FileName; + fFileName:=ExtractFileName(OpenDiaLog.FileName); + + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select TFId from TP_File '); + sql.Add('where WBID<>'+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + open; + IF not adoqueryCmd.IsEmpty then + begin + application.MessageBox('˸Ѵڣ޸ļϴ','ʾϢ',MB_ICONERROR); + exit; + end; + end; + + Panel2.Caption:='ϴݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + + if GetLSNo(ADOQueryCmd,maxNo,'FJ','TP_File',4,1)=False then + begin + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + + adoqueryCmd.Connection.BeginTrans; + + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + execsql; + end; + + try + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + open; + append; + fieldbyname('TFID').Value:=trim(maxNO); + fieldbyname('WBID').Value:=trim(fkeyNO); + fieldbyname('TFType').Value:=trim(fType); + fieldbyname('FileName').Value:=trim(fFileName); + // tblobfield(FieldByName('Filesother')).LoadFromFile(fFilePath); + post; + end; + + if fFilePath <> '' then + begin + try + IdFTP1.Host :='127.0.0.1'; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + IdFTP1.Put(fFilePath, 'FJ\' + Trim(fFileName)); + IdFTP1.Quit; + except + IdFTP1.Quit; + Application.MessageBox('ϴͻͼļʧܣļ', 'ʾ', MB_ICONWARNING); + end; + end; + IdFTP1.Quit; + + Panel2.Visible:=false; + initdata(); + finally + // FJStream.Free; + end; + + end; + adoqueryCmd.Connection.CommitTrans; + except + adoqueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmFjList.FormCreate(Sender: TObject); +begin + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + //ConnectionString:=''; + Connected:=true; + end; + ListView1.Align:=alclient; + fstatus:=0; +end; + +procedure TfrmFjList.FormShow(Sender: TObject); +begin + IF fstatus=0 then Panel1.Visible:=true + else Panel1.Visible:=false; + //initdata(); +end; + +procedure TfrmFjList.ListView1DblClick(Sender: TObject); +var + sFieldName:string; + fileName:string; +begin + if ListView1.Items.Count<1 THEN EXIT; + + if listView1.SelCount<1 then exit; + sFieldName:='D:\ͼƬ鿴'; + + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName),nil); + + fileName:=ListView1.Selected.Caption; + + sFieldName:=sFieldName+'\'+trim(fileName); + + try + IdFTP1.Host :='127.0.0.1'; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + + Panel2.Caption:='ݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + try + IdFTP1.Get('FJ\'+ Trim(fileName), sFieldName,false, true); + except + Panel2.Visible:=false; + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Panel2.Visible:=false; + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + Panel2.Visible:=false; + if IdFTP1.Connected then IdFTP1.Quit; + ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL); + +end; + +procedure TfrmFjList.cxButton1Click(Sender: TObject); +var + fFileName:string; + fFilePath:string; +begin + if listView1.SelCount<1 then exit; + + try + fFileName:=ListView1.Selected.Caption; + // ADOQueryTmp.Locate('fileName',fFileName,[]); + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from TP_File '); + sql.Add('where WBID='+quotedstr(trim(fkeyNO))); + sql.Add('and TFType='+quotedstr(trim(fType))); + sql.Add('and FileName='+quotedstr(trim(fFileName))); + execsql; + end; + + initData(); + + except + end; + +end; + +procedure TfrmFjList.cxButton2Click(Sender: TObject); +var + SaveDialog: TSaveDialog; + fFileName:string; + fFilePath:string; +begin + if listView1.SelCount<1 then exit; + + try + + fFileName:=ListView1.Selected.Caption; + + SaveDialog := TSaveDialog.Create(Self); + + SaveDialog.FileName:=fFileName; + if SaveDialog.Execute then + begin + Panel2.Caption:='ڱݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + fFilePath:=SaveDialog.FileName; + try + IdFTP1.Host := '127.0.0.1'; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + + Panel2.Caption:='ݣԵ...'; + Panel2.Visible:=true; + application.ProcessMessages; + try + IdFTP1.Get('FJ\'+ Trim(fFileName), fFilePath,false, true); + except + Panel2.Visible:=false; + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Panel2.Visible:=false; + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + Panel2.Visible:=false; + if IdFTP1.Connected then IdFTP1.Quit; + end; + except + Panel2.Visible:=false; + end; +end; + +procedure TfrmFjList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + if fId=10 then Action:=cafree + else + Action:=cahide; +end; + +procedure TfrmFjList.Panel2DblClick(Sender: TObject); +begin + Panel2.Visible:=false; +end; + +procedure TfrmFjList.cxButton4Click(Sender: TObject); +var + fFilePath,FName:string; +begin + if Assigned(ShellListView1.Selected) then + begin + if ShellListView1.Selected.Selected then + begin + if ShellListView1.SelectedFolder.IsFolder then + begin + ShowMessage(ShellListView1.SelectedFolder.PathName); + end + else + begin + ShowMessage(ShellListView1.SelectedFolder.PathName); + end; + end; + end; + + //if fFilePath <> '' then + //fFilePath:=ShellListView1.SelectedFolder.PathName; + // FName:=ShellListView1.SelectedFolder.DisplayName; + begin + try + IdFTP1.Host :='127.0.0.1'; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + IdFTP1.Put(ShellListView1.SelectedFolder.PathName, 'FJ\' +ShellListView1.SelectedFolder.PathName); + IdFTP1.Quit; + except + IdFTP1.Quit; + Application.MessageBox('ϴͻͼļʧܣļ', 'ʾ', MB_ICONWARNING); + end; + end; + IdFTP1.Quit; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.dfm new file mode 100644 index 0000000..a437d95 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.dfm @@ -0,0 +1,312 @@ +object frmGYSFPInPut: TfrmGYSFPInPut + Left = 42 + Top = 67 + Width = 1191 + Height = 573 + Align = alClient + Caption = #20379#24212#21830#21457#31080#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1175 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22797#21046#22686#34892 + ImageIndex = 64 + end + object ToolButton3: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1175 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 87 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column20PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 480 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 357 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 437 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 322 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 285 + Top = 65532 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 397 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.pas new file mode 100644 index 0000000..8659fb6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPut.pas @@ -0,0 +1,401 @@ +unit U_GYSFPInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmGYSFPInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column4: TcxGridDBColumn; + ToolButton1: TToolButton; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmGYSFPInPut: TfrmGYSFPInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGMXSelList; + +{$R *.dfm} + +procedure TfrmGYSFPInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); +end; + +procedure TfrmGYSFPInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmGYSFPInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmGYSFPInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + InitData(); +end; +procedure TfrmGYSFPInPut.GetMaxConNO(); +begin + +end; +function TfrmGYSFPInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','FP_GYSNB',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FMID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FMID').Value:=Trim(maxno); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('BFID').Value:=Order_Sub.fieldbyname('BFID').Value; + FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('FMType').Value:='GYS'; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_GYSNB',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FPNO='''+Trim(Order_Sub.fieldbyname('FPNO').AsString)+''''); + sql.Add(' and isnull(FMType,'''')=''GYS'' '); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox(PChar('Ʊ:'+Trim(Order_Sub.fieldbyname('FPNO').AsString)+'ظ!'),'',0); + Exit; + end; + Edit; + FieldByName('FMID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmGYSFPInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('FPNO',null,[]) then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPDate',null,[]) then + begin + Application.MessageBox('ƱڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmGYSFPInPut.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmBGMXSelList:=TfrmBGMXSelList.Create(Application); + with frmBGMXSelList do + begin + if ShowModal=1 then + begin + with frmBGMXSelList.Order_Main do + begin + First; + while not Eof do + begin + if frmBGMXSelList.Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=frmBGMXSelList.Order_Main.FieldByName('BGId').Value; + FieldByName('BCID').Value:=frmBGMXSelList.Order_Main.FieldByName('BCID').Value; + FieldByName('BFID').Value:=frmBGMXSelList.Order_Main.FieldByName('BFID').Value; + FieldByName('OrderNo').Value:=frmBGMXSelList.Order_Main.FieldByName('OrderNo').Value; + FieldByName('BFName').Value:=frmBGMXSelList.Order_Main.FieldByName('BFName').Value; + //FieldByName('GHDanWei').Value:=Trim(frmBGMXSelList.Order_Main.FieldByName('ComTaiTou').AsString); + FieldByName('XHDanWei').Value:=frmBGMXSelList.Order_Main.FieldByName('FactoryName').Value; + FieldByName('FactoryName').Value:=frmBGMXSelList.Order_Main.FieldByName('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmBGMXSelList.Order_Main.FieldByName('FactoryNo').Value; + FieldByName('QtyUnit').Value:=frmBGMXSelList.Order_Main.FieldByName('BFUnit').Value; + if Trim(frmBGMXSelList.Order_Main.FieldByName('BFUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=frmBGMXSelList.Order_Main.FieldByName('BFMQty').Value; + end else + begin + FieldByName('Qty').Value:=frmBGMXSelList.Order_Main.FieldByName('BFQty').Value; + end; + FieldByName('Price').Value:=frmBGMXSelList.Order_Main.FieldByName('BFPrice').Value; + FieldByName('Money').Value:=FieldByName('Price').Value*FieldByName('Qty').Value; + FieldByName('FPDate').Value:=FSQDate; + //Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmBGMXSelList.Free; + end; +end; + +procedure TfrmGYSFPInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FMId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Sub.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmGYSFPInPut.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmGYSFPInPut.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.dfm new file mode 100644 index 0000000..800c678 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.dfm @@ -0,0 +1,305 @@ +object frmGYSFPInPutWGL: TfrmGYSFPInPutWGL + Left = 42 + Top = 67 + Width = 1191 + Height = 625 + Align = alClient + Caption = #20379#24212#21830#21457#31080#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1175 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1175 + Height = 557 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'BCOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Width = 131 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v1Column20: TcxGridDBColumn + Caption = #26412#20844#21496#25260#22836 + DataBinding.FieldName = 'GHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column20PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 87 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column5: TcxGridDBColumn + Caption = #21457#31080#20379#24212#21830 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taLeftJustify + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 100 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column18PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 49 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 472 + Top = 141 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 549 + Top = 147 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 543 + Top = 184 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 478 + Top = 180 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 581 + Top = 149 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 514 + Top = 182 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 514 + Top = 147 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.pas new file mode 100644 index 0000000..2348205 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPInPutWGL.pas @@ -0,0 +1,464 @@ +unit U_GYSFPInPutWGL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter, cxCheckBox; + +type + TfrmGYSFPInPutWGL = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column4: TcxGridDBColumn; + ADOQueryMain: TADOQuery; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmGYSFPInPutWGL: TfrmGYSFPInPutWGL; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGMXSelList, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmGYSFPInPutWGL.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); +end; + +procedure TfrmGYSFPInPutWGL.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmGYSFPInPutWGL.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmGYSFPInPutWGL.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + InitData(); +end; +procedure TfrmGYSFPInPutWGL.GetMaxConNO(); +begin + +end; +function TfrmGYSFPInPutWGL.SaveData():Boolean; +var + maxno,LSFMID:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + { if Trim(Order_Sub.fieldbyname('OrderNo').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Sub.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox(PChar(':'+Trim(Order_Sub.fieldbyname('OrderNo').AsString)+'!'),'ʾ',0); + Exit; + end; + end; } + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + LSFMID:=Trim(ADOTemp.fieldbyname('FMID').AsString); + if Trim(LSFMID)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','FP_GYSNB',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(LSFMID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(LSFMID)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FMID').Value:=Trim(maxno); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('BFID').Value:=Order_Sub.fieldbyname('BFID').Value; + FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('OrderNo').Value:=Order_Sub.fieldbyname('OrderNo').Value; + FieldByName('FMType').Value:='GYS'; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_GYSNB',0) ; + if Trim(LSFMID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FPNO='''+Trim(Order_Sub.fieldbyname('FPNO').AsString)+''''); + sql.Add(' and isnull(FMType,'''')=''GYS'' '); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox(PChar('Ʊ:'+Trim(Order_Sub.fieldbyname('FPNO').AsString)+'ظ!'),'',0); + Exit; + end; + Edit; + FieldByName('FMID').Value:=Trim(maxno); + Post; + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmGYSFPInPutWGL.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('FPNO',null,[]) then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPDate',null,[]) then + begin + Application.MessageBox('ƱڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('GHDanWei',null,[]) then + begin + Application.MessageBox('˾̧ͷΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryName',null,[]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('BFName',null,[]) then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + //ModalResult:=1; + end; + +end; + +procedure TfrmGYSFPInPutWGL.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + if Order_Sub.IsEmpty=False then + begin + CopyAddRowCDS(Order_Sub); + end else + begin + with Order_Sub do + begin + Append; + FieldByName('FPDate').Value:=FSQDate; + FieldByName('QtyUnit').Value:='M'; + Post; + end; + end; + with Order_Sub do + begin + Edit; + FieldByName('FMID').Value:=Null; + FieldByName('FPNO').Value:=Null; + Post; + end; +end; + +procedure TfrmGYSFPInPutWGL.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FMId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Sub.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmGYSFPInPutWGL.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmGYSFPInPutWGL.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmGYSFPInPutWGL.v1Column18PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GYSFPName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('BFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmGYSFPInPutWGL.v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + FieldByName('XHDanWei').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.dfm new file mode 100644 index 0000000..24f3259 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.dfm @@ -0,0 +1,737 @@ +object frmGYSFPKCList: TfrmGYSFPKCList + Left = 119 + Top = 123 + Width = 1174 + Height = 547 + Caption = #20379#24212#21830#21457#31080#24211#23384#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1158 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1158 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label8: TLabel + Left = 18 + Top = 14 + Width = 65 + Height = 12 + Caption = #35746#21333#35782#21035#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 188 + Top = 14 + Width = 39 + Height = 12 + Caption = #21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 319 + Top = 14 + Width = 52 + Height = 12 + Caption = #36141#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 461 + Top = 14 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 20 + Top = 42 + Width = 26 + Height = 12 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 137 + Top = 42 + Width = 26 + Height = 12 + Caption = #37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 270 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 430 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 603 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 763 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BCOrderNo: TEdit + Tag = 2 + Left = 83 + Top = 10 + Width = 90 + Height = 20 + TabOrder = 0 + OnChange = WorkerChange + end + object FPNO: TEdit + Tag = 2 + Left = 229 + Top = 10 + Width = 75 + Height = 20 + TabOrder = 1 + OnChange = WorkerChange + end + object GHDanWei: TEdit + Tag = 2 + Left = 372 + Top = 10 + Width = 75 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object FactoryName: TEdit + Tag = 2 + Left = 501 + Top = 10 + Width = 75 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + object Qty: TEdit + Tag = 3 + Left = 47 + Top = 38 + Width = 87 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object Money: TEdit + Tag = 3 + Left = 165 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + end + object HXQty: TEdit + Tag = 3 + Left = 337 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + end + object HXMoney: TEdit + Tag = 3 + Left = 497 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object DHXQty: TEdit + Tag = 3 + Left = 670 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + end + object DHXMoney: TEdit + Tag = 3 + Left = 830 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + end + object Button1: TButton + Left = 940 + Top = 37 + Width = 75 + Height = 20 + Caption = #20840#36873#21512#35745 + TabOrder = 10 + Visible = False + OnClick = Button1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1158 + Height = 409 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column16: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column14: TcxGridDBColumn + Caption = #24050#26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column15: TcxGridDBColumn + Caption = #24453#26680#38144#25968#37327 + DataBinding.FieldName = 'DHXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column11: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Options.Editing = False + Width = 72 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 336 + Top = 184 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.pas new file mode 100644 index 0000000..3faf7c1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPKCList.pas @@ -0,0 +1,622 @@ +unit U_GYSFPKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmGYSFPKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label8: TLabel; + BCOrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + Label6: TLabel; + FactoryName: TEdit; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + Qty: TEdit; + Label9: TLabel; + Money: TEdit; + Label10: TLabel; + HXQty: TEdit; + Label11: TLabel; + HXMoney: TEdit; + Label12: TLabel; + DHXQty: TEdit; + Label13: TLabel; + DHXMoney: TEdit; + Button1: TButton; + v1Column16: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure v1Column16PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + procedure HZClear(); + { Private declarations } + public + { Public declarations } + end; + +var + frmGYSFPKCList: TfrmGYSFPKCList; + +implementation +uses + U_DataLink,U_RTFun,U_GYSFPInPut,U_ModuleNote, U_ZDYHelp,U_GYSFPInPutWGL; + +{$R *.dfm} + +procedure TfrmGYSFPKCList.FormDestroy(Sender: TObject); +begin + frmGYSFPKCList:=nil; +end; + +procedure TfrmGYSFPKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGYSFPKCList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); +end; + +procedure TfrmGYSFPKCList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where isnull(FMType,'''')=''GYS'' '); + sql.Add(' and (A.Money-isnull(A.HXMoney,0)<>0'); + sql.Add(' or A.Qty-isnull(A.HXQty,0)<>0)'); + sql.Add(' and isnull(A.FPNO,'''') not like ''%QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + //if cxTabControl1.TabIndex<>0 then + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmGYSFPKCList.InitForm(); +begin + + ReadCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); + //InitGrid(); +end; + +procedure TfrmGYSFPKCList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + try + frmGYSFPInPutWGL:=TfrmGYSFPInPutWGL.Create(Application); + with frmGYSFPInPutWGL do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FMID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSFPInPutWGL.Free; + end; +end; + +procedure TfrmGYSFPKCList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select HXMoney=isnull(HXMoney,0) from FP_GYSNB where FMID='''+Trim(Order_Main.fieldbyname('FMID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('ƱѺ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmGYSFPKCList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Main.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmGYSFPKCList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ӧ̿淢Ʊ',cxGrid1); +end; + +procedure TfrmGYSFPKCList.TBRafreshClick(Sender: TObject); +begin + HZClear(); + InitGrid(); +end; + +procedure TfrmGYSFPKCList.TBAddClick(Sender: TObject); +begin + try + frmGYSFPInPutWGL:=TfrmGYSFPInPutWGL.Create(Application); + with frmGYSFPInPutWGL do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSFPInPutWGL.Free; + end; +end; + +procedure TfrmGYSFPKCList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + +end; + +procedure TfrmGYSFPKCList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPKCList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ӧ̿淢Ʊ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmGYSFPKCList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmGYSFPKCList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where isnull(A.FMType,'''')=''GYS'' '); + //sql.Add(' left join JYOrder_BG B on A.BGId=B.BGId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmGYSFPKCList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmGYSFPKCList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPKCList.WorkerChange(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSFPKCList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmGYSFPKCList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmGYSFPKCList.ToolButton1Click(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; +procedure TfrmGYSFPKCList.HZClear(); +begin + Qty.Text:=''; + Money.Text:=''; + HXQty.Text:=''; + HXMoney.Text:=''; + DHXQty.Text:=''; + DHXMoney.Text:=''; +end; +procedure TfrmGYSFPKCList.v1Column16PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + if Trim(Qty.Text)='' then + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if Trim(HXQty.Text)='' then + HXQty.Text:='0'; + FHXQty:=StrToFloat(HXQty.Text); + if Trim(HXMoney.Text)='' then + HXMoney.Text:='0'; + FHXMoney:=StrToFloat(HXMoney.Text); + if Trim(DHXQty.Text)='' then + DHXQty.Text:='0'; + FDHXQty:=StrToFloat(DHXQty.Text); + if Trim(DHXMoney.Text)='' then + DHXMoney.Text:='0'; + FDHXMoney:=StrToFloat(DHXMoney.Text); + if Order_Main.IsEmpty then Exit; + FMID:=Trim(Order_Main.fieldbyname('FMID').AsString); + mvalue:=TcxCheckBox(Sender).EditingValue; + with Order_Main do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + if mvalue=True then + begin + FXS:=1; + end else + begin + FXS:=-1; + end; + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value*FXS; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value*FXS; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value*FXS; + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmGYSFPKCList.Button1Click(Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + HZClear(); + FQty:=0; + FMoney:=0; + FHXQty:=0; + FHXMoney:=0; + FDHXQty:=0; + FDHXMoney:=0; + if Order_Main.IsEmpty then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value; + next; + end; + end; + Order_Main.EnableControls; + + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmGYSFPKCList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); + Button1.Click; +end; + +procedure TfrmGYSFPKCList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); + HZClear(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.dfm new file mode 100644 index 0000000..9afdcdc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.dfm @@ -0,0 +1,795 @@ +object frmGYSFPList: TfrmGYSFPList + Left = 119 + Top = 123 + Width = 1174 + Height = 547 + Caption = #20379#24212#21830#21457#31080#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1158 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1158 + Height = 65 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 13 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 13 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 13 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 13 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 527 + Top = 13 + Width = 39 + Height = 12 + Caption = #21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 658 + Top = 13 + Width = 65 + Height = 12 + Caption = #26412#20844#21496#25260#22836 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 812 + Top = 13 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 30 + Top = 42 + Width = 26 + Height = 12 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 147 + Top = 42 + Width = 26 + Height = 12 + Caption = #37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 280 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label11: TLabel + Left = 440 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label12: TLabel + Left = 613 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label13: TLabel + Left = 773 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 9 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 9 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object BCOrderNo: TEdit + Tag = 2 + Left = 422 + Top = 9 + Width = 90 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = BCOrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 9 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object FPNO: TEdit + Tag = 2 + Left = 568 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object GHDanWei: TEdit + Tag = 2 + Left = 723 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object FactoryName: TEdit + Tag = 2 + Left = 852 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + object Qty: TEdit + Tag = 3 + Left = 57 + Top = 38 + Width = 87 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object Money: TEdit + Tag = 3 + Left = 175 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + end + object HXQty: TEdit + Tag = 3 + Left = 347 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + Visible = False + end + object HXMoney: TEdit + Tag = 3 + Left = 507 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Visible = False + end + object DHXQty: TEdit + Tag = 3 + Left = 680 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + Visible = False + end + object DHXMoney: TEdit + Tag = 3 + Left = 840 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + Visible = False + end + object Button1: TButton + Left = 950 + Top = 37 + Width = 75 + Height = 20 + Caption = #20840#36873#21512#35745 + TabOrder = 13 + Visible = False + OnClick = Button1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 97 + Width = 1158 + Height = 411 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column3 + end + item + Kind = skSum + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SkyBlue + Styles.IncSearch = DataLink_DDMD.SkyBlue + Styles.Selection = DataLink_DDMD.SkyBlue + Styles.Header = DataLink_DDMD.Default + object v1Column16: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'BCOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #26412#20844#21496#25260#22836 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column5: TcxGridDBColumn + Caption = #21457#31080#20379#24212#21830 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column14: TcxGridDBColumn + Caption = #24050#26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 69 + end + object v1Column7: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 76 + end + object v1Column15: TcxGridDBColumn + Caption = #24453#26680#38144#25968#37327 + DataBinding.FieldName = 'DHXQty' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Visible = False + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 360 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.pas new file mode 100644 index 0000000..e01b8ee --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPList.pas @@ -0,0 +1,687 @@ +unit U_GYSFPList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmGYSFPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + BCOrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + Label6: TLabel; + FactoryName: TEdit; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + Label7: TLabel; + Qty: TEdit; + Label9: TLabel; + Money: TEdit; + Label10: TLabel; + HXQty: TEdit; + Label11: TLabel; + HXMoney: TEdit; + Label12: TLabel; + DHXQty: TEdit; + Label13: TLabel; + DHXMoney: TEdit; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Button1: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure BCOrderNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column16PropertiesEditValueChanged(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure HZClear(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmGYSFPList: TfrmGYSFPList; + +implementation +uses + U_DataLink,U_RTFun,U_GYSFPInPut,U_ModuleNote, U_ZDYHelp,U_GYSFPInPutWGL; + +{$R *.dfm} + +procedure TfrmGYSFPList.FormDestroy(Sender: TObject); +begin + frmGYSFPList:=nil; +end; + +procedure TfrmGYSFPList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGYSFPList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); +end; + +procedure TfrmGYSFPList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + SQL.Add(' from FP_GYSNB A'); + //sql.Add(' left join JYOrder_BG B on A.BGId=B.BGId'); + sql.Add(' ) AA'); + sql.Add(' where isnull(FMType,'''')=''GYS'' '); + //if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmGYSFPList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); + //InitGrid(); +end; + +procedure TfrmGYSFPList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select HXMoney=isnull(HXMoney,0),HXQty=isnull(HXQty,0) from FP_GYSNB where FMID='''+Trim(Order_Main.fieldbyname('FMID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('ƱѺ!','ʾ',0); + Exit; + end; + if ADOQueryTemp.FieldByName('HXQty').Value<>0 then + begin + Application.MessageBox('ƱѺ!','ʾ',0); + Exit; + end; + + try + frmGYSFPInPutWGL:=TfrmGYSFPInPutWGL.Create(Application); + with frmGYSFPInPutWGL do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FMID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSFPInPutWGL.Free; + end; +end; + +procedure TfrmGYSFPList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select HXMoney=isnull(HXMoney,0),HXQty=isnull(HXQty,0) from FP_GYSNB where FMID='''+Trim(Order_Main.fieldbyname('FMID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('ƱѺ!','ʾ',0); + Exit; + end; + if ADOQueryTemp.FieldByName('HXQty').Value<>0 then + begin + Application.MessageBox('ƱѺ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪɾѡ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //Order_Main.Delete; + end; +end; + +function TfrmGYSFPList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Main.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Qty.Text:=''; + Money.Text:=''; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmGYSFPList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ӧ̷Ʊ',cxGrid1); +end; + +procedure TfrmGYSFPList.TBRafreshClick(Sender: TObject); +begin + HZClear(); + InitGrid(); +end; +procedure TfrmGYSFPList.HZClear(); +begin + Qty.Text:=''; + Money.Text:=''; + HXQty.Text:=''; + HXMoney.Text:=''; + DHXQty.Text:=''; + DHXMoney.Text:=''; +end; + +procedure TfrmGYSFPList.TBAddClick(Sender: TObject); +begin + try + frmGYSFPInPutWGL:=TfrmGYSFPInPutWGL.Create(Application); + with frmGYSFPInPutWGL do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSFPInPutWGL.Free; + end; +end; + +procedure TfrmGYSFPList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmGYSFPList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ӧ̷Ʊ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmGYSFPList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmGYSFPList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where isnull(A.FMType,'''')=''GYS'' '); + //sql.Add(' left join JYOrder_BG B on A.BGId=B.BGId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmGYSFPList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmGYSFPList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPList.WorkerChange(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSFPList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmGYSFPList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmGYSFPList.ToolButton1Click(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSFPList.BCOrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(BCOrderNo.Text))<3 then Exit; + fsj:=' and AA.BCOrderNo like '''+'%'+Trim(BCOrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmGYSFPList.v1Column16PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + if Trim(Qty.Text)='' then + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if Trim(HXQty.Text)='' then + HXQty.Text:='0'; + FHXQty:=StrToFloat(HXQty.Text); + if Trim(HXMoney.Text)='' then + HXMoney.Text:='0'; + FHXMoney:=StrToFloat(HXMoney.Text); + if Trim(DHXQty.Text)='' then + DHXQty.Text:='0'; + FDHXQty:=StrToFloat(DHXQty.Text); + if Trim(DHXMoney.Text)='' then + DHXMoney.Text:='0'; + FDHXMoney:=StrToFloat(DHXMoney.Text); + if Order_Main.IsEmpty then Exit; + FMID:=Trim(Order_Main.fieldbyname('FMID').AsString); + mvalue:=TcxCheckBox(Sender).EditingValue; + with Order_Main do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + if mvalue=True then + begin + FXS:=1; + end else + begin + FXS:=-1; + end; + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value*FXS; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value*FXS; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value*FXS; + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmGYSFPList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); + Button1.Click; +end; + +procedure TfrmGYSFPList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); + HZClear(); +end; + +procedure TfrmGYSFPList.Button1Click(Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + HZClear(); + FQty:=0; + FMoney:=0; + FHXQty:=0; + FHXMoney:=0; + FDHXQty:=0; + FDHXMoney:=0; + if Order_Main.IsEmpty then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value; + next; + end; + end; + Order_Main.EnableControls; + + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.dfm new file mode 100644 index 0000000..30a6eae --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.dfm @@ -0,0 +1,541 @@ +object frmGYSFPSelList: TfrmGYSFPSelList + Left = 145 + Top = 102 + Width = 1174 + Height = 547 + Align = alClient + Caption = #20379#24212#21830#21457#31080#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1158 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1158 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label8: TLabel + Left = 29 + Top = 18 + Width = 65 + Height = 12 + Caption = #35746#21333#35782#21035#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 201 + Top = 18 + Width = 39 + Height = 12 + Caption = #21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 332 + Top = 18 + Width = 52 + Height = 12 + Caption = #36141#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 474 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BCOrderNo: TEdit + Tag = 2 + Left = 96 + Top = 14 + Width = 90 + Height = 20 + TabOrder = 0 + OnChange = WorkerChange + end + object FPNO: TEdit + Tag = 2 + Left = 242 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 1 + OnChange = WorkerChange + end + object GHDanWei: TEdit + Tag = 2 + Left = 385 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object FactoryName: TEdit + Tag = 2 + Left = 514 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 79 + Width = 1158 + Height = 429 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + Options.Editing = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column15: TcxGridDBColumn + Caption = #24453#26680#38144#25968#37327 + DataBinding.FieldName = 'DHXQty' + Options.Editing = False + Width = 72 + end + object v1Column11: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Options.Editing = False + Width = 72 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 200 + Top = 176 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.pas new file mode 100644 index 0000000..f2d02de --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSFPSelList.pas @@ -0,0 +1,271 @@ +unit U_GYSFPSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmGYSFPSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label8: TLabel; + BCOrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + Label6: TLabel; + FactoryName: TEdit; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton2: TToolButton; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + procedure InitGridWsql(fsj:string); + { Private declarations } + public + { Public declarations } + end; + +var + frmGYSFPSelList: TfrmGYSFPSelList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote; + +{$R *.dfm} + +procedure TfrmGYSFPSelList.FormDestroy(Sender: TObject); +begin + frmGYSFPSelList:=nil; +end; + +procedure TfrmGYSFPSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGYSFPSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); +end; + +procedure TfrmGYSFPSelList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where (isnull(A.Money,0)<>isnull(A.HXMoney,0)'); + sql.Add(' or isnull(A.Qty,0)<>isnull(A.HXQty,0))'); + sql.Add(' and isnull(A.FMType,'''')=''GYS'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmGYSFPSelList.InitForm(); +begin + ReadCxGrid('Ӧ̷Ʊб',Tv1,'Ʊ'); + InitGrid(); +end; + +procedure TfrmGYSFPSelList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ӧ̷Ʊ',cxGrid1); +end; + +procedure TfrmGYSFPSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmGYSFPSelList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPSelList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ӧ̷Ʊ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmGYSFPSelList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmGYSFPSelList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where isnull(A.FMType,'''')=''GYS'' '); + //sql.Add(' left join JYOrder_BG B on A.BGId=B.BGId'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmGYSFPSelList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSFPSelList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSFPSelList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSFPSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmGYSFPSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmGYSFPSelList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.dfm new file mode 100644 index 0000000..8281796 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.dfm @@ -0,0 +1,302 @@ +object frmGYSInPutTab: TfrmGYSInPutTab + Left = 189 + Top = 34 + Width = 1048 + Height = 728 + Align = alClient + Caption = #20379#24212#21830#20449#24687#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1032 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1032 + Height = 660 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1030 + Height = 658 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 26 + Top = 89 + Width = 78 + Height = 12 + Caption = #20379#24212#21830#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 26 + Top = 191 + Width = 65 + Height = 12 + Caption = #32852#31995#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 26 + Top = 140 + Width = 65 + Height = 12 + Caption = #30005#35805#21495#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 306 + Top = 140 + Width = 65 + Height = 12 + Caption = #20256#30495#21495#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 306 + Top = 89 + Width = 78 + Height = 12 + Caption = #20379#24212#21830#31616#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 26 + Top = 37 + Width = 78 + Height = 12 + Caption = #20379#24212#21830#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 306 + Top = 37 + Width = 78 + Height = 12 + Caption = #20379#24212#21830#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 26 + Top = 287 + Width = 91 + Height = 12 + Caption = #32479#35745#21333#20301#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 26 + Top = 239 + Width = 66 + Height = 12 + Caption = #32852' '#31995' '#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 306 + Top = 239 + Width = 78 + Height = 12 + Caption = #32852#31995#20154#30005#35805#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHName: TEdit + Left = 101 + Top = 86 + Width = 160 + Height = 18 + TabOrder = 0 + end + object ZKAddress: TEdit + Left = 101 + Top = 188 + Width = 439 + Height = 18 + TabOrder = 1 + end + object ZKTelNo: TEdit + Left = 101 + Top = 137 + Width = 160 + Height = 18 + TabOrder = 2 + end + object ZKFax: TEdit + Left = 384 + Top = 137 + Width = 153 + Height = 18 + TabOrder = 3 + end + object KHNameJC: TEdit + Left = 384 + Top = 86 + Width = 153 + Height = 18 + TabOrder = 4 + end + object KHCode: TEdit + Left = 101 + Top = 34 + Width = 160 + Height = 18 + TabOrder = 5 + end + object KHType: TBtnEditA + Left = 384 + Top = 32 + Width = 153 + Height = 20 + TabOrder = 6 + OnBtnClick = KHTypeBtnClick + end + object TJKHName: TEdit + Left = 112 + Top = 284 + Width = 273 + Height = 18 + TabOrder = 7 + end + object LXR: TEdit + Left = 101 + Top = 236 + Width = 160 + Height = 18 + TabOrder = 8 + end + object LXRTel: TEdit + Left = 384 + Top = 236 + Width = 153 + Height = 18 + TabOrder = 9 + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 536 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 480 + Top = 65533 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 504 + Top = 65533 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.pas new file mode 100644 index 0000000..a6caa0d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSInPutTab.pas @@ -0,0 +1,349 @@ +unit U_GYSInPutTab; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit,jpeg, + IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmGYSInPutTab = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + ADOQuery1: TADOQuery; + TBSave: TToolButton; + Panel3: TPanel; + Label1: TLabel; + Label7: TLabel; + Label10: TLabel; + Label11: TLabel; + Label13: TLabel; + Label33: TLabel; + Label34: TLabel; + KHName: TEdit; + ZKAddress: TEdit; + ZKTelNo: TEdit; + ZKFax: TEdit; + KHNameJC: TEdit; + KHCode: TEdit; + KHType: TBtnEditA; + Label2: TLabel; + TJKHName: TEdit; + Label3: TLabel; + LXR: TEdit; + Label4: TLabel; + LXRTel: TEdit; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure SYRNameBtnUpClick(Sender: TObject); + procedure SKBankBtnDnClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure KHTypeBtnClick(Sender: TObject); + private + procedure InitData(); + function SaveData():Boolean; + { Private declarations } + public + canshu1:String; + PState,CopyInt:Integer; + FMainId:String; + { Public declarations } + end; + +var + frmGYSInPutTab: TfrmGYSInPutTab; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmGYSInPutTab.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmGYSInPutTab.InitData(); +begin + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where ZKId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel3,0); + KHCode.SetFocus; + {if Trim(FMainId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main_MD_DuiZhang '); + sql.Add(' where FactoryNo='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + KHCode.ReadOnly:=True; + KHName.ReadOnly:=True; + KHNameJC.ReadOnly:=True; + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from YF_Money_PaiKuan '); + sql.Add(' where FactoryNo='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + KHCode.ReadOnly:=True; + KHName.ReadOnly:=True; + KHNameJC.ReadOnly:=True; + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main_MD '); + sql.Add(' where FactoryNo='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + KHCode.ReadOnly:=True; + KHName.ReadOnly:=True; + KHNameJC.ReadOnly:=True; + exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from YF_Money_CR '); + sql.Add(' where FactoryNo='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + KHCode.ReadOnly:=True; + KHName.ReadOnly:=True; + KHNameJC.ReadOnly:=True; + end; + end; } + +end; + + +procedure TfrmGYSInPutTab.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmGYSInPutTab.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'GS','ZH_KH_Info',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from ZH_KH_Info where ZKId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('ZKId').Value:=Trim(maxno); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + RTSetsavedata(ADOCmd,'ZH_KH_Info',Panel3,0); + FieldByName('Valid').Value:='Y'; + FieldByName('Type').Value:='GYS'; + Post; + end; + if Trim(KHName.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHName='''+Trim(KHName.Text)+''''); + SQL.Add(' and Type=''GYS'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧظ!','ʾ',0); + Exit; + end; + end; + if Trim(KHCode.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHCode='''+Trim(KHCode.Text)+''''); + SQL.Add(' and Type=''GYS'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧ̱ظ!','ʾ',0); + Exit; + end; + end; + + if Trim(KHNameJC.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHNameJC='''+Trim(KHNameJC.Text)+''''); + SQL.Add(' and Type=''GYS'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧ̼ظ!','ʾ',0); + Exit; + end; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmGYSInPutTab.SYRNameBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmGYSInPutTab.SKBankBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + + + +procedure TfrmGYSInPutTab.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + if Trim(KHName.Text)='' then + begin + Application.MessageBox('ӦƲΪգ','ʾ',0); + Exit; + end; + if Trim(KHType.Text)='' then + begin + Application.MessageBox('ӦͲΪ!','ʾ',0); + Exit; + end; + if Trim(KHCode.Text)='' then + begin + Application.MessageBox('Ӧ̱ŲΪ!','ʾ',0); + Exit; + end; + if Trim(KHNameJC.Text)='' then + begin + Application.MessageBox('Ӧ̼ƲΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmGYSInPutTab.KHTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KHType'; + flagname:='Ӧ'; + if ShowModal=1 then + begin + Self.KHType.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSList.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSList.dfm new file mode 100644 index 0000000..ae97a14 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSList.dfm @@ -0,0 +1,396 @@ +object frmGYSList: TfrmGYSList + Left = 47 + Top = 37 + Width = 1182 + Height = 606 + Caption = #20379#24212#21830#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1166 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 378 + Top = 0 + Caption = #20379#24212#21830#38145#23450 + ImageIndex = 35 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 473 + Top = 0 + AutoSize = True + Caption = #35299#38145 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBExport: TToolButton + Left = 536 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 599 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1166 + Height = 468 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v1Column2: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 117 + end + object v1Column7: TcxGridDBColumn + Caption = #20379#24212#21830#20840#31216 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830#31616#31216 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 139 + end + object v1Column1: TcxGridDBColumn + Caption = #20379#24212#21830#31867#22411 + DataBinding.FieldName = 'KHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column4: TcxGridDBColumn + Caption = #32479#35745#21333#20301#21517#31216 + DataBinding.FieldName = 'TJKHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column9: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'ZKTelNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column10: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'ZKFax' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column11: TcxGridDBColumn + Caption = #22320#22336 + DataBinding.FieldName = 'ZKAddress' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column12: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXR' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column13: TcxGridDBColumn + Caption = #32852#31995#20154#30005#35805 + DataBinding.FieldName = 'LXRTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column8: TcxGridDBColumn + Caption = #24050#38145#23450 + DataBinding.FieldName = 'LockFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1166 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label9: TLabel + Left = 27 + Top = 15 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 27 + Top = 39 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 261 + Top = 15 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 253 + Top = 39 + Width = 78 + Height = 12 + Caption = #32479#35745#21333#20301#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHNameJC: TEdit + Tag = 2 + Left = 94 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 0 + OnChange = CustomerNoNameChange + end + object KHCode: TEdit + Tag = 2 + Left = 94 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 1 + OnChange = CustomerNoNameChange + end + object KHType: TEdit + Tag = 2 + Left = 332 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object TJKHName: TEdit + Tag = 2 + Left = 332 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object CheckBox1: TCheckBox + Left = 480 + Top = 37 + Width = 97 + Height = 17 + Caption = #26174#31034#26080#25928#25968#25454 + TabOrder = 4 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 464 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 432 + Top = 200 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 392 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 304 + Top = 152 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 352 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 160 + end + object PopupMenu1: TPopupMenu + Left = 304 + Top = 192 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSList.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSList.pas new file mode 100644 index 0000000..e31f4bd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSList.pas @@ -0,0 +1,441 @@ +unit U_GYSList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxButtonEdit, cxDropDownEdit; + +type + TfrmGYSList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + Panel1: TPanel; + Label9: TLabel; + KHNameJC: TEdit; + v1Column2: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Label2: TLabel; + KHCode: TEdit; + v1Column1: TcxGridDBColumn; + Label34: TLabel; + v1Column3: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + KHType: TEdit; + v1Column4: TcxGridDBColumn; + Label1: TLabel; + TJKHName: TEdit; + CheckBox1: TCheckBox; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + N1: TMenuItem; + v1Column8: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + canshu1:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmGYSList: TfrmGYSList; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp, U_GYSInPutTab, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmGYSList.FormDestroy(Sender: TObject); +begin + frmGYSList:=nil; +end; + +procedure TfrmGYSList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGYSList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmGYSList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̵Ǽ',Tv1,'Ӧ̹'); + +end; + +procedure TfrmGYSList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from ZH_KH_Info A '); + sql.Add(' where Type=''GYS'' '); + if CheckBox1.Checked=false then + begin + sql.Add(' and Valid=''Y'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmGYSList.InitForm(); +begin + ReadCxGrid('Ӧ̵Ǽ',Tv1,'Ӧ̹'); + InitGrid(); +end; + +procedure TfrmGYSList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmGYSInPutTab:=TfrmGYSInPutTab.Create(Application); + with frmGYSInPutTab do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('ZKId').AsString); + frmGYSInPutTab.canshu1:=Trim(Self.canshu1); + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSInPutTab.Free; + end; +end; + +procedure TfrmGYSList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main_MD_DuiZhang '); + sql.Add(' where FactoryNo='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('жݲɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from YF_Money_PaiKuan '); + sql.Add(' where FactoryNo='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ʽݲɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main_MD '); + sql.Add(' where FactoryNo='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('뵥ݲɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from YF_Money_CR '); + sql.Add(' where FactoryNo='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmGYSList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmGYSList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('Ӧб',cxGrid1); +end; + +procedure TfrmGYSList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmGYSInPutTab:=TfrmGYSInPutTab.Create(Application); + with frmGYSInPutTab do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSInPutTab.Free; + end; +end; + +procedure TfrmGYSList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmGYSList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmGYSList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmGYSInPutTab:=TfrmGYSInPutTab.Create(Application); + with frmGYSInPutTab do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('ZKId').AsString); + TBSave.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmGYSInPutTab.Free; + end; +end; + +procedure TfrmGYSList.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update ZH_KH_Info Set '); + sql.Add(' LockFlag=1'); + sql.Add(' where ZKID='''+Order_Main.fieldbyname('ZKID').AsString+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('LockFlag').Value:=True; + Post; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmGYSList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmGYSList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmGYSList.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update ZH_KH_Info Set '); + sql.Add(' LockFlag=0'); + sql.Add(' where ZKID='''+Order_Main.fieldbyname('ZKID').AsString+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('LockFlag').Value:=False; + Post; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.dfm new file mode 100644 index 0000000..58686bc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.dfm @@ -0,0 +1,304 @@ +object frmGYSSelList: TfrmGYSSelList + Left = 206 + Top = 98 + Width = 906 + Height = 606 + Caption = #20379#24212#21830#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 890 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 890 + Height = 468 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_PBMDDJ.Default + object v1Column2: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 117 + end + object v1Column7: TcxGridDBColumn + Caption = #20379#24212#21830#20840#31216 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830#31616#31216 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 139 + end + object v1Column1: TcxGridDBColumn + Caption = #20379#24212#21830#31867#22411 + DataBinding.FieldName = 'KHType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column4: TcxGridDBColumn + Caption = #32479#35745#21333#20301#21517#31216 + DataBinding.FieldName = 'TJKHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column9: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'ZKTelNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column10: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'ZKFax' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column11: TcxGridDBColumn + Caption = #22320#22336 + DataBinding.FieldName = 'ZKAddress' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 890 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label9: TLabel + Left = 27 + Top = 15 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 27 + Top = 39 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 261 + Top = 15 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 253 + Top = 39 + Width = 78 + Height = 12 + Caption = #32479#35745#21333#20301#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHNameJC: TEdit + Tag = 2 + Left = 94 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 0 + OnChange = CustomerNoNameChange + end + object KHCode: TEdit + Tag = 2 + Left = 94 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 1 + OnChange = CustomerNoNameChange + end + object KHType: TEdit + Tag = 2 + Left = 332 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object TJKHName: TEdit + Tag = 2 + Left = 332 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 464 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 432 + Top = 200 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 392 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 304 + Top = 152 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 352 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 160 + end + object PopupMenu1: TPopupMenu + Left = 304 + Top = 192 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.pas new file mode 100644 index 0000000..5bcec87 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GYSSelList.pas @@ -0,0 +1,221 @@ +unit U_GYSSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxButtonEdit, cxDropDownEdit; + +type + TfrmGYSSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + Panel1: TPanel; + Label9: TLabel; + KHNameJC: TEdit; + v1Column2: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Label2: TLabel; + KHCode: TEdit; + v1Column1: TcxGridDBColumn; + Label34: TLabel; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + KHType: TEdit; + v1Column4: TcxGridDBColumn; + Label1: TLabel; + TJKHName: TEdit; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + N1: TMenuItem; + TBFind: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + canshu1:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmGYSSelList: TfrmGYSSelList; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp, U_GYSInPutTab, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmGYSSelList.FormDestroy(Sender: TObject); +begin + frmGYSSelList:=nil; +end; + +procedure TfrmGYSSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmGYSSelList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmGYSSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̵Ǽ',Tv1,'Ӧ̹'); + +end; + +procedure TfrmGYSSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from ZH_KH_Info A '); + sql.Add(' where Type=''GYS'' '); + sql.Add(' and Valid=''Y'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmGYSSelList.InitForm(); +begin + ReadCxGrid('Ӧ̵Ǽ',Tv1,'Ӧ̹'); + InitGrid(); +end; + +procedure TfrmGYSSelList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmGYSSelList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmGYSSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmGYSSelList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSSelList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmGYSSelList.ToolButton1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmGYSSelList.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmGYSSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmGYSSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmGYSSelList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas b/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas new file mode 100644 index 0000000..ca60587 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas @@ -0,0 +1,421 @@ +unit U_GetDllForm; +interface +uses + Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB,IniFiles, dxcore,activeX; +function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;export;stdcall; +function ConnData():Boolean; + +implementation +uses + U_DataLink,U_GYSList,U_SXCKList,U_SXCKOutList,U_SXKCList,U_PBCKChkList,U_SXCKNewList,U_PBCKKCList, + U_WJGMDList,U_WJGCKOutList,U_WJGCKKCList,U_DJBRKList,U_DJBCKOutList,U_DJBCKKCList,U_DJBRKHZList + ,U_CbJdLr,U_JGList,U_SXCRKList,U_SXCKOutListDBCK; + ///////////////////////////////////////////////////////////////// + // ˵:ȡDllеô // + // ˵App>>Ӧó // + // FormH>>ôھ // + // FormID>>ں; // + // Language>>; // + // WinStyle>>ͣ // +///////////////////////////////////////////////////////////////// +function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar; + DataBaseStr:PChar):hwnd; + +var + mnewHandle: hwnd; + mstyle: TFormStyle; // 0:Ӵ; 1ͨ + mstate: TWindowState; + mborderstyle: TFormBorderStyle; +begin + mNewHandle:=0; + DName:=PChar(GName); + DCode:=PChar(GCode); + DdataBase:=DataBase; + DTitCaption:=Title; + DParameters1:=Parameters1; + DParameters2:=Parameters2; + DParameters3:=Parameters3; + DParameters4:=Parameters4; + DParameters5:=Parameters5; + DParameters6:=Parameters6; + DParameters7:=Parameters7; + DParameters8:=Parameters8; + DParameters9:=Parameters9; + DParameters10:=Parameters10; + + + MainApplication:=App; + DCurHandle:=FormH; + IsDelphiLanguage:= Language; + + Application:=TApplication(App); + DCurHandle:=0; + + + //ֵַ + SetLength(server, 255); + SetLength(dtbase, 255); + SetLength(user, 255); + SetLength(pswd, 255); + + server:='47.100.182.1,7781'; + dtbase:='guihuadata'; + user:='sa'; +// pswd:='rightsoft'; + pswd:='rightsoft@123'; + DConString := 'Provider=SQLOLEDB.1;Password='+pswd+';Persist Security Info=True;User ID=' + +user+';Initial Catalog='+dtbase+';Data Source='+server; + IF trim(DataBaseStr)<>''then + DConString := DataBaseStr; + + // DName:='ܸ'; + + // DParameters1:='Ȩ'; //Ȩ + //DParameters3:='1'; + // DParameters3:='Ųֿ'; + if not ConnData() then + begin + result:=0; + exit; + end; + + // 崰 ״̬ + if WinStyle=0 then + begin + mstyle := fsMDIChild ; + mstate := wsMaximized ; + mborderstyle := bsSizeable; + end + else + begin + mstyle := fsNormal ; + mstate := wsNormal ; + mborderstyle := bsSizeable; + end; + ///////////////////// + //ģ鴰 + case FormId of + -1: //ɱȱ + begin + if frmCbJdLr=nil then + begin + frmCbJdLr:= TfrmCbJdLr.Create(application.MainForm); + with frmCbJdLr do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCbJdLr.BringToFront; + // + mNewHandle:=frmCbJdLr.Handle; + end ; + 1: // + begin + if frmSXCKNewList=nil then + begin + frmSXCKNewList:= TfrmSXCKNewList.Create(application.MainForm); + with frmSXCKNewList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSXCKNewList.BringToFront; + // + mNewHandle:=frmSXCKNewList.Handle; + end ; + 2: // + begin + if frmSXCKOutList=nil then + begin + frmSXCKOutList:= TfrmSXCKOutList.Create(application.MainForm); + with frmSXCKOutList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSXCKOutList.BringToFront; + // + mNewHandle:=frmSXCKOutList.Handle; + end ; + 21: //() + begin + if frmSXCKOutListDBCK=nil then + begin + frmSXCKOutListDBCK:= TfrmSXCKOutListDBCK.Create(application.MainForm); + with frmSXCKOutListDBCK do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSXCKOutListDBCK.BringToFront; + // + mNewHandle:=frmSXCKOutListDBCK.Handle; + end ; + 3: // + begin + if frmPBCKKCList=nil then + begin + frmPBCKKCList:= TfrmPBCKKCList.Create(application.MainForm); + with frmPBCKKCList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmPBCKKCList.BringToFront; + // + mNewHandle:=frmPBCKKCList.Handle; + end ; + 31: // + begin + if frmSXCRKList=nil then + begin + frmSXCRKList:= TfrmSXCRKList.Create(application.MainForm); + with frmSXCRKList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSXCRKList.BringToFront; + // + mNewHandle:=frmSXCRKList.Handle; + end ; + 5: //ӹ + begin + if frmWJGMDList=nil then + begin + frmWJGMDList:= TfrmWJGMDList.Create(application.MainForm); + with frmWJGMDList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmWJGMDList.BringToFront; + // + mNewHandle:=frmWJGMDList.Handle; + end ; + 6: //ӹ + begin + if frmWJGCKOutList=nil then + begin + frmWJGCKOutList:= TfrmWJGCKOutList.Create(application.MainForm); + with frmWJGCKOutList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmWJGCKOutList.BringToFront; + // + mNewHandle:=frmWJGCKOutList.Handle; + end ; + 7: //ӹ + begin + if frmWJGCKKCList=nil then + begin + frmWJGCKKCList:= TfrmWJGCKKCList.Create(application.MainForm); + with frmWJGCKKCList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmWJGCKKCList.BringToFront; + // + mNewHandle:=frmWJGCKKCList.Handle; + end ; + 8: //첼б + begin + if frmDJBRKList=nil then + begin + frmDJBRKList:= TfrmDJBRKList.Create(application.MainForm); + with frmDJBRKList do + begin + fckName:=trim(DParameters3); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmDJBRKList.BringToFront; + // + mNewHandle:=frmDJBRKList.Handle; + end ; + 9: //첼б + begin + if frmDJBCKOutList=nil then + begin + frmDJBCKOutList:= TfrmDJBCKOutList.Create(application.MainForm); + with frmDJBCKOutList do + begin + fckName:=trim(DParameters3); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmDJBCKOutList.BringToFront; + // + mNewHandle:=frmDJBCKOutList.Handle; + end ; + 10: //첼б + begin + if frmDJBCKKCList=nil then + begin + frmDJBCKKCList:= TfrmDJBCKKCList.Create(application.MainForm); + with frmDJBCKKCList do + begin + fckName:=trim(DParameters3); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmDJBCKKCList.BringToFront; + // + mNewHandle:=frmDJBCKKCList.Handle; + end ; + 11: //첼б + begin + if frmDJBRKHZList=nil then + begin + frmDJBRKHZList:= TfrmDJBRKHZList.Create(application.MainForm); + with frmDJBRKHZList do + begin + fckName:=trim(DParameters3); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmDJBRKHZList.BringToFront; + // + mNewHandle:=frmDJBRKHZList.Handle; + end ; + + 12: //첼б + begin + if frmJGList=nil then + begin + frmJGList:= TfrmJGList.Create(application.MainForm); + with frmJGList do + begin + fckName:=trim(DParameters3); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmJGList.BringToFront; + // + mNewHandle:=frmJGList.Handle; + end ; + end ; // end case + + Result:= mnewHandle; + // NewDllApp:=Application ; +end; +//=========================================================== + //ݿӳ +//=========================================================== +function ConnData():Boolean; +begin + if not Assigned(DataLink_PBMDDJ) then + DataLink_PBMDDJ:=TDataLink_PBMDDJ.Create(Application); + Try + with DataLink_PBMDDJ.ADOLink do + begin + //if not Connected then + begin + Connected:=false; + ConnectionString:=DConString; + LoginPrompt:=false; + Connected:=true; + end; + end; + Result:=true; + Except + Result:=false; + application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); + end; + +end; +initialization + CoInitialize(nil); + dxUnitsLoader.Initialize; + +finalization + + DataLink_PBMDDJ.Free; + application:=NewDllApp; + dxUnitsLoader.Finalize; + +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/U_HCJYView.dfm b/坯布码单待检(PBMDDJ.dll)/U_HCJYView.dfm new file mode 100644 index 0000000..9c6bc27 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_HCJYView.dfm @@ -0,0 +1,691 @@ +object frmHCJYView: TfrmHCJYView + Left = 35 + Top = 108 + Width = 1260 + Height = 571 + Caption = #36827#20179#19982#26816#39564#23545#27604#20998#26512 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1244 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1244 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 277 + Top = 9 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 23 + Top = 9 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 407 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 560 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 721 + Top = 9 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 318 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 180 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object MPRTCode: TEdit + Tag = 2 + Left = 460 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 3 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 614 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object PRTColor: TEdit + Tag = 2 + Left = 750 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 62 + Width = 1244 + Height = 470 + Align = alClient + TabOrder = 2 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column8 + end + item + Kind = skSum + Column = cxGridDBBandedColumn2 + end + item + Kind = skSum + Column = Tv6Column1 + end + item + Kind = skSum + Column = v6Column1 + end + item + Kind = skSum + Column = v6Column2 + end + item + Kind = skSum + Column = v6Column20 + end + item + Kind = skSum + Column = v6Column21 + end + item + Kind = skSum + Column = v6Column4 + end + item + Kind = skSum + Column = v6Column5 + end + item + Kind = skSum + Column = v6Column6 + end + item + Kind = skSum + Column = v6Column7 + end + item + Kind = skSum + Column = Tv6Column2 + end + item + Kind = skSum + Column = v6Column22 + end + item + Kind = skSum + Column = v6Column3 + end + item + Kind = skSum + Column = v6Column10 + end + item + Kind = skSum + Column = v6Column11 + end + item + Kind = skSum + Column = v6Column12 + end + item + Kind = skSum + Column = v6Column13 + end + item + Kind = skSum + Column = v6Column23 + end + item + Kind = skSum + Column = v6Column18 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.handBlack + Bands = < + item + Caption = #22522#26412#20449#24687 + Styles.Header = DataLink_CYZZ.FonePurple + Width = 496 + end + item + Caption = #36827#20179#25968#37327 + Styles.Header = DataLink_CYZZ.FoneRed + Width = 792 + end + item + Caption = #26816#39564#25968#37327 + Styles.Header = DataLink_CYZZ.FontBlue + Width = 556 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36827#20179#21333#20301 + DataBinding.FieldName = 'HCQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 57 + Position.BandIndex = 1 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36827#20179#21305#25968 + DataBinding.FieldName = 'HCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 57 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36827#20179#25968#37327 + DataBinding.FieldName = 'HCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 62 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #27491#21697#21305#25968 + DataBinding.FieldName = 'JYPSZP' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #25104#21697#21305#25968 + DataBinding.FieldName = 'CPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 65 + Position.BandIndex = 1 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #25104#21697#25968#37327 + DataBinding.FieldName = 'CPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 60 + Position.BandIndex = 1 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #36827#20179#35843#33410#21305#25968 + DataBinding.FieldName = 'HCTJPS' + Styles.Header = DataLink_CYZZ.handBlack + Width = 91 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #36827#20179#35843#33410#25968#37327 + DataBinding.FieldName = 'HCTJQty' + Styles.Header = DataLink_CYZZ.handBlack + Width = 85 + Position.BandIndex = 1 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #27491#21697#31859#25968 + DataBinding.FieldName = 'JYMQtyZP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column22: TcxGridDBBandedColumn + Caption = #27491#21697#20844#26020#25968 + DataBinding.FieldName = 'JYKgQtyZP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 79 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Caption = #25104#21697#35843#33410#21305#25968 + DataBinding.FieldName = 'CPTJPS' + Styles.Header = DataLink_CYZZ.handBlack + Width = 88 + Position.BandIndex = 1 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Caption = #25104#21697#35843#33410#25968#37327 + DataBinding.FieldName = 'CPTJQty' + Styles.Header = DataLink_CYZZ.handBlack + Width = 83 + Position.BandIndex = 1 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Caption = #38656#26816#39564#21305#25968 + DataBinding.FieldName = 'XJYPS' + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 73 + Position.BandIndex = 1 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Caption = #38656#26816#39564#25968#37327 + DataBinding.FieldName = 'XJYQty' + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 71 + Position.BandIndex = 1 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FonePurple + Styles.Footer = DataLink_CYZZ.FonePurple + Styles.Header = DataLink_CYZZ.FonePurple + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FonePurple + Styles.Header = DataLink_CYZZ.FonePurple + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Caption = #24046#39069 + DataBinding.FieldName = 'ChaE' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.SHuangSeCu + Styles.Footer = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.SHuangSeCu + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #27491#21697#30721#25968 + DataBinding.FieldName = 'JYMAQtyZP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 71 + Position.BandIndex = 2 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #27425#21697#21305#25968 + DataBinding.FieldName = 'JYPSCP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 65 + Position.BandIndex = 2 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #27425#21697#20844#26020#25968 + DataBinding.FieldName = 'JYKgQtyCP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 82 + Position.BandIndex = 2 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #27425#21697#30721#25968 + DataBinding.FieldName = 'JYMAQtyCP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 63 + Position.BandIndex = 2 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column23: TcxGridDBBandedColumn + Caption = #27425#21697#31859#25968 + DataBinding.FieldName = 'JYMQtyCP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 67 + Position.BandIndex = 2 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object Panel2: TPanel + Left = 480 + Top = 183 + Width = 272 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 224 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 616 + Top = 224 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_HCJYView.pas b/坯布码单待检(PBMDDJ.dll)/U_HCJYView.pas new file mode 100644 index 0000000..3a3171e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_HCJYView.pas @@ -0,0 +1,213 @@ +unit U_HCJYView; //25 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmHCJYView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label18: TLabel; + MPRTCode: TEdit; + Label19: TLabel; + MPRTCodeName: TEdit; + ADOQueryMain: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGrid6: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + v6Column22: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + Label2: TLabel; + PRTColor: TEdit; + Panel2: TPanel; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + v6Column23: TcxGridDBBandedColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeChange(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure InitGridKK(); + public + { Public declarations } + end; + +var + frmHCJYView: TfrmHCJYView; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp; +{$R *.dfm} + +procedure TfrmHCJYView.FormDestroy(Sender: TObject); +begin + frmHCJYView:=nil; +end; + +procedure TfrmHCJYView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmHCJYView.TBRafreshClick(Sender: TObject); +begin + Panel2.Visible:=True; + Panel2.Refresh; + InitGrid(); + Panel2.Visible:=False; +end; +procedure TfrmHCJYView.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_ORDHuiCangJianYan :begdate,:endate,'''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('endate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmHCJYView.InitGridKK(); +begin + + +end; +procedure TfrmHCJYView.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('Tv611',Tv6,'ڲֿ'); + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-7; +end; + +procedure TfrmHCJYView.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('Tv611',Tv6,'ڲֿ'); + close; +end; + +procedure TfrmHCJYView.v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmHCJYView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + Panel2.Visible:=True; + Panel2.Refresh; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_ORDHuiCangJianYan '''','''',:OrderNo '); + Parameters.ParamByName('OrderNo').Value:=Trim(OrderNo.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); + Panel2.Visible:=False; + end; + +end; + +procedure TfrmHCJYView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmHCJYView.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmHCJYView.MPRTCodeChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_JGList.dfm b/坯布码单待检(PBMDDJ.dll)/U_JGList.dfm new file mode 100644 index 0000000..4a8ad10 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JGList.dfm @@ -0,0 +1,618 @@ +object frmJGList: TfrmJGList + Left = -8 + Top = -8 + Width = 1378 + Height = 754 + Caption = #24453#26816#24067#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1362 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1362 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 32 + Top = 80 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label2: TLabel + Left = 172 + Top = 80 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 258 + Top = 12 + Width = 72 + Height = 12 + Caption = #21152#24037#20986#24211#21697#21517 + end + object Label4: TLabel + Left = 27 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 258 + Top = 132 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 358 + Top = 120 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 475 + Top = 120 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 561 + Top = 140 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 561 + Top = 116 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label10: TLabel + Left = 714 + Top = 140 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label11: TLabel + Left = 831 + Top = 144 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label13: TLabel + Left = 983 + Top = 144 + Width = 36 + Height = 12 + Caption = #39068' '#33394 + end + object Label16: TLabel + Left = 983 + Top = 168 + Width = 36 + Height = 12 + Caption = #25805#20316#21592 + end + object Label14: TLabel + Left = 1119 + Top = 144 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label12: TLabel + Left = 498 + Top = 12 + Width = 72 + Height = 12 + Caption = #21152#24037#23436#25104#21697#21517 + end + object BegDate: TDateTimePicker + Left = 81 + Top = 77 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 77 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 1 + end + object C_CodeName: TEdit + Tag = 2 + Left = 333 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 64 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 308 + Top = 129 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + end + object SPSpec: TEdit + Tag = 2 + Left = 385 + Top = 116 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 512 + Top = 116 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 612 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 612 + Top = 113 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object KuWei: TEdit + Tag = 2 + Left = 766 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 882 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 1020 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object Filler: TEdit + Tag = 2 + Left = 1020 + Top = 165 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + object batchNo: TEdit + Tag = 2 + Left = 1172 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = FactoryNameChange + end + object begTime: TDateTimePicker + Left = 167 + Top = 109 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 14 + end + object endTime: TDateTimePicker + Left = 167 + Top = 132 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 15 + end + object JG_C_CodeName: TEdit + Tag = 2 + Left = 573 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 16 + OnChange = TBFindClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 73 + Width = 1362 + Height = 643 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column2: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 128 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#20986#24211#21697#21517 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column1: TcxGridDBColumn + Caption = #21152#24037#23436#25104#21697#21517 + DataBinding.FieldName = 'JG_C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column3: TcxGridDBColumn + Caption = #21152#24037#20986#24211#21305#25968 + DataBinding.FieldName = 'JG_R_piQty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column4: TcxGridDBColumn + Caption = #21152#24037#20986#24211#21305#25968 + DataBinding.FieldName = 'JG_R_Qty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column5: TcxGridDBColumn + Caption = #21152#24037#23436#25104#21305#25968 + DataBinding.FieldName = 'JG_C_piQty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column6: TcxGridDBColumn + Caption = #21152#24037#23436#25104#25968#37327 + DataBinding.FieldName = 'JG_C_Qty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column7: TcxGridDBColumn + Caption = #21097#20313#21305#25968 + DataBinding.FieldName = 'K_PiQty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column8: TcxGridDBColumn + Caption = #21097#20313#25968#37327 + DataBinding.FieldName = 'K_Qty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 856 + Top = 108 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 784 + Top = 116 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 616 + Top = 8 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 616 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 584 + Top = 232 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 552 + Top = 232 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 372 + Top = 184 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + end + object N2: TMenuItem + Caption = #20840#24323 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 740 + Top = 8 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 700 + Top = 8 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 924 + Top = 96 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_JGList.pas b/坯布码单待检(PBMDDJ.dll)/U_JGList.pas new file mode 100644 index 0000000..653af22 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JGList.pas @@ -0,0 +1,220 @@ +unit U_JGList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, BtnEdit; + +type + TfrmJGList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + C_CodeName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label10: TLabel; + KuWei: TEdit; + Label11: TLabel; + RCGangNo: TEdit; + Label13: TLabel; + SPColor: TEdit; + Filler: TEdit; + Label16: TLabel; + ADOQueryPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + batchNo: TEdit; + Label14: TLabel; + begTime: TDateTimePicker; + endTime: TDateTimePicker; + v1Column2: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + JG_C_CodeName: TEdit; + Label12: TLabel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + Procedure PrintData(fMJID:string); + { Private declarations } + public + fckName:string; + { Public declarations } + end; + +var + frmJGList: TfrmJGList; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKInPut, U_DJBRKlist; + +{$R *.dfm} +Procedure TfrmJGList.PrintData(fMJID:string); + +begin + +end; + +procedure TfrmJGList.FormDestroy(Sender: TObject); +begin + frmJGList:=nil; +end; + +procedure TfrmJGList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmJGList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmJGList.InitGrid(); +var + mBegdate,mEnddate:string; +begin + mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date)+' '+FormatDateTime('HH:nn',begTime.Time); + menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date)+' '+FormatDateTime('HH:nn',endTime.Time); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add(' exec P_Get_JGlist '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmJGList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmJGList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmJGList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmJGList.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv1,'첼ֿ'); + InitGrid(); +end; + +procedure TfrmJGList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmJGList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmJGList.SPIDChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmJGList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmJGList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_JYDJ.dfm b/坯布码单待检(PBMDDJ.dll)/U_JYDJ.dfm new file mode 100644 index 0000000..b5bc430 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JYDJ.dfm @@ -0,0 +1,753 @@ +object frmJYDJ: TfrmJYDJ + Left = 44 + Top = 9 + Width = 1286 + Height = 700 + Caption = #25104#21697#26816#39564 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 918 + Top = 143 + Width = 360 + Height = 526 + Align = alRight + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skCount + Column = v3Column1 + end + item + Kind = skSum + Column = cxGridDBColumn1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Footer = cxStyle4 + Styles.Header = cxStyle4 + Width = 57 + end + object v3Column4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 84 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36192#36865 + DataBinding.FieldName = 'MJZS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 85 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 0 + Top = 143 + Width = 495 + Height = 526 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label4: TLabel + Left = 393 + Top = 30 + Width = 93 + Height = 72 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 19 + Top = 38 + Width = 114 + Height = 56 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -56 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 20 + Top = 144 + Width = 114 + Height = 56 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -56 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 393 + Top = 136 + Width = 93 + Height = 72 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label8: TLabel + Left = 16 + Top = 259 + Width = 114 + Height = 56 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -56 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object MJMaoZ: TEdit + Left = 136 + Top = 13 + Width = 255 + Height = 105 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = MJMaoZKeyPress + end + object BTPrint: TButton + Left = 73 + Top = 388 + Width = 165 + Height = 102 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = BTPrintClick + OnKeyPress = BTPrintKeyPress + end + object Button5: TButton + Left = 288 + Top = 390 + Width = 171 + Height = 96 + Caption = #20462#25913 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button5Click + end + object MJZS: TEdit + Left = 136 + Top = 120 + Width = 254 + Height = 105 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnKeyPress = MJZSKeyPress + end + object ComboBox1: TComboBox + Left = 136 + Top = 228 + Width = 90 + Height = 117 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 109 + ItemIndex = 1 + ParentFont = False + TabOrder = 4 + Text = '2' + Items.Strings = ( + '1' + '2') + end + end + object Panel7: TPanel + Left = 495 + Top = 143 + Width = 423 + Height = 526 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel1: TPanel + Left = 2 + Top = 2 + Width = 419 + Height = 522 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object RMPreview1: TRMPreview + Left = 2 + Top = 2 + Width = 415 + Height = 518 + Align = alClient + BevelOuter = bvLowered + Caption = 'Insert After' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 0 + Options.RulerUnit = rmutScreenPixels + Options.RulerVisible = False + Options.DrawBorder = False + Options.BorderPen.Color = clGray + Options.BorderPen.Style = psDash + end + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1278 + Height = 143 + Align = alTop + TabOrder = 3 + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1276 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26631#31614#35774#32622 + ImageIndex = 38 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 150 + Top = 0 + Caption = #26816#39564#20449#24687#26597#35810 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 257 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1276 + Height = 111 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label16: TLabel + Left = 1029 + Top = 19 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label1: TLabel + Left = 8 + Top = 14 + Width = 108 + Height = 35 + Caption = #35746#21333#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 485 + Top = 14 + Width = 72 + Height = 35 + Caption = #39068#33394 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 8 + Top = 63 + Width = 91 + Height = 35 + Caption = #33457' '#22411 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 485 + Top = 63 + Width = 72 + Height = 35 + Caption = #32568#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BTEdit: TButton + Left = 976 + Top = 14 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 0 + Visible = False + OnClick = BTEditClick + end + object BTAdd: TButton + Left = 1081 + Top = 13 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object OrderNo: TEdit + Left = 113 + Top = 11 + Width = 365 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnDblClick = OrderNoDblClick + end + object Color: TEdit + Left = 559 + Top = 11 + Width = 394 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnDblClick = ColorDblClick + OnKeyPress = MJZSKeyPress + end + object HX: TEdit + Left = 113 + Top = 60 + Width = 365 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnDblClick = HXDblClick + OnKeyPress = MJZSKeyPress + end + object GangNo: TEdit + Left = 558 + Top = 60 + Width = 57 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Text = '1' + OnKeyPress = MJZSKeyPress + end + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 608 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + Left = 312 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 344 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + Left = 247 + Top = 2 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 280 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end + object ADOQueryLabel: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 827 + Top = 459 + end + object RMGridReport1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + ModalPreview = False + ShowProgress = False + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + Preview = RMPreview1 + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 676 + Top = 450 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_JYDJ.pas b/坯布码单待检(PBMDDJ.dll)/U_JYDJ.pas new file mode 100644 index 0000000..f484345 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JYDJ.pas @@ -0,0 +1,647 @@ +unit U_JYDJ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel, RM_Preview; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';} + {function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; } + + +type + TfrmJYDJ = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + Panel2: TPanel; + Label4: TLabel; + MJMaoZ: TEdit; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + v3Column1: TcxGridDBColumn; + MJZS: TEdit; + Panel7: TPanel; + ComboBox1: TComboBox; + v3Column4: TcxGridDBColumn; + Panel1: TPanel; + RMPreview1: TRMPreview; + ADOQueryLabel: TADOQuery; + RMGridReport1: TRMGridReport; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Panel5: TPanel; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBClose: TToolButton; + Panel6: TPanel; + Label16: TLabel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label5: TLabel; + BTEdit: TButton; + BTAdd: TButton; + OrderNo: TEdit; + Color: TEdit; + HX: TEdit; + GangNo: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure BTPrintKeyPress(Sender: TObject; var Key: Char); + procedure MJZSKeyPress(Sender: TObject; var Key: Char); + procedure MJMaoZKeyPress(Sender: TObject; var Key: Char); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoDblClick(Sender: TObject); + procedure ColorDblClick(Sender: TObject); + procedure HXDblClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK:Integer; + FColumn,FFFMJID,LabName:String; + procedure InitCDGridID(); + + function SaveData():Boolean; + + procedure PrtData(FMJID:String); + + public + { Public declarations } + + end; + +var + frmJYDJ: TfrmJYDJ; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam,U_OrderInPut, U_LabelList,U_PRTJYDJList; + +{$R *.dfm} + +procedure TfrmJYDJ.FormDestroy(Sender: TObject); +begin + frmJYDJ:=nil; +end; + + +procedure TfrmJYDJ.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmJYDJ.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select '); + sql.Add(' A.* from DJ_JY A '); + sql.Add(' where isnull(OrderNo,'''')='''+Trim(OrderNo.Text)+''''); + sql.Add(' and isnull(Color,'''')='''+Trim(Self.Color.Text)+''''); + sql.Add(' and isnull(HX,'''')='''+Trim(Self.HX.Text)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmJYDJ.FormShow(Sender: TObject); +begin + + if IsINIFile() then + ReadINIFile() +end; +procedure TfrmJYDJ.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmJYDJ.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmJYDJ.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + FInt:=4; + InitCDGridID(); +end; + +procedure TfrmJYDJ.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + FInt:=4; + PState:=0; + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from DJ_JY where DJID='''+Trim(CDS_MJID.fieldbyname('DJID').AsString)+''''); + Open; + end; + MJZS.Text:=Trim(ADOTmp.fieldbyname('MJZS').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label16.Caption:=''; +end; + + +procedure TfrmJYDJ.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +function TfrmJYDJ.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; +begin + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('DJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from DJ_JY where DJID='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,'','DJ_JY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('DJID').Value:=Trim(maxno); + FieldByName('OrderNo').Value:=Trim(OrderNo.Text); + FieldByName('Color').Value:=Trim(Self.Color.Text); + FieldByName('HX').Value:=Trim(HX.Text); + FieldByName('LBName').Value:=Trim(LabName); + FieldByName('GangNo').Value:=Trim(GangNo.Text); + if Trim(MJZS.Text)<>'' then + begin + FieldByName('MJZS').Value:=StrToFloat(MJZS.Text); + end else + begin + FieldByName('MJZS').Value:=Null; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + Post; + end; + if PState=1 then + begin + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('UPdate DJ_JY Set MJXH=(select max(MJXH)+1 '); + SQL.Add(' from DJ_JY A '); + sql.Add(' where A.OrderNo=DJ_JY.OrderNo'); + sql.Add(' and isnull(A.Color,'''')=isnull(DJ_JY.Color,'''')'); + sql.Add(' and isnull(A.HX,'''')=isnull(DJ_JY.HX,'''')'); + sql.Add(' )where DJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from DJ_JY where DJID='''+Trim(maxno)+''''); + Open; + end; + if PState=1 then + begin + with CDS_MJID do + begin + Append; + FieldByName('DJID').Value:=Trim(maxno); + FieldByName('MJXH').Value:=ADOTmp.fieldbyname('MJXH').Value; + FieldByName('MJMaoZ').Value:=ADOTmp.fieldbyname('MJMaoZ').Value; + FieldByName('MJZS').Value:=ADOTmp.fieldbyname('MJZS').Value; + Post; + end; + end else + begin + CDS_MJID.Locate('DJID',maxno,[]); + with CDS_MJID do + begin + Edit; + FieldByName('DJID').Value:=Trim(maxno); + FieldByName('MJXH').Value:=ADOTmp.fieldbyname('MJXH').Value; + FieldByName('MJMaoZ').Value:=ADOTmp.fieldbyname('MJMaoZ').Value; + FieldByName('MJZS').Value:=ADOTmp.fieldbyname('MJZS').Value; + Post; + end; + end; + + ADOCmd.Connection.CommitTrans; + Result:=True; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmJYDJ.BTAddClick(Sender: TObject); +begin + PState:=1; + InitCDGridID(); + Label16.Caption:=''; +end; + +procedure TfrmJYDJ.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + FInt:=1; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmJYDJ.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i:Integer; +begin + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢޸ġ','ʾ',0); + Exit; + end; + end; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if (Trim(Self.Color.Text)='') and (Trim(Self.HX.Text)='') then + begin + Application.MessageBox('ɫͲͬʱΪ!','ʾ',0); + Exit; + end; + if trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('ëزܶΪ!','ʾ',0); + Exit; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('ëطǷ!','ʾ',0); + Exit; + end; + end; + + if Trim(MJZS.Text)<>'' then + begin + if TryStrToFloat(MJZS.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + MJMaoZ.Text:=''; + MJZS.Text:=''; + end; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(FFFMJID); + end; + Label16.Caption:=''; + BTAdd.Click; + MJMaoZ.SetFocus; +end; +procedure TfrmJYDJ.PrtData(FMJID:String); +var + fPrintFile:String; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,ROLLNO=MJXH ,'); + sql.Add('Qty=MJMaoZ-isnull(MJZS,0),'); + sql.Add('Case when isnull(MJZS,-99)=-99 then Cast('''' as varchar(20)) else ''+''+Cast(MJZS as varchar(20)) end as ZengSong '); + sql.Add(' from DJ_JY A where DJID='''+Trim(FMJID)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString+'.rmf') + else begin + Application.MessageBox('ǩδ!','ʾ',0); + Exit; + end; + if FileExists(fPrintFile) then + begin + + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; +end; + + +procedure TfrmJYDJ.ToolButton1Click(Sender: TObject); +begin + + MJMaoZ.Text:=''; + MJZS.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; +end; + +procedure TfrmJYDJ.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; +begin + {if CDS_MJID.IsEmpty then Exit; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; + PState:=1; + MJMaoZ.Text:=''; + MJZS.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; } + BTEdit.Click; +end; + +procedure TfrmJYDJ.BTPrintKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmJYDJ.MJZSKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + BTPrint.SetFocus; + end; +end; + +procedure TfrmJYDJ.MJMaoZKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJZS.SetFocus; + end; +end; + +procedure TfrmJYDJ.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmJYDJ.OrderNoDblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderNo'; + flagname:=''; + fnote:=True; + V1Note.Caption:='ǩ'; + if ShowModal=1 then + begin + OrderNo.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + LabName:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Color.Text:=''; + Self.HX.Text:=''; + Self.BTAdd.Click; + end; + end; + finally + frmZDYHelp.Free; + end; + with Self.ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label where labelCaption='''+Trim(LabName)+'.rmf'+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOTmp.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; + end else + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select Cast(''0x'' as image) labelFile '); + open; + end; + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOTmp.fieldbyname('labelFile'))); + ShowReport ; + end; + end; +end; + +procedure TfrmJYDJ.ColorDblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DJColor'; + flagname:='ɫ'; + MainType:=Trim(OrderNo.Text); + if ShowModal=1 then + begin + Self.Color.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + Self.BTAdd.Click; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmJYDJ.HXDblClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DJHX'; + flagname:=''; + MainType:=Trim(OrderNo.Text); + if ShowModal=1 then + begin + HX.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + Self.BTAdd.Click; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmJYDJ.ToolButton2Click(Sender: TObject); +begin + try + frmLabelList:=TfrmLabelList.Create(Application); + with frmLabelList do + begin + {if Self.JYInt=99 then + begin + frmLabelList.Tadd.Visible:=False; + frmLabelList.Tupd.Visible:=False; + frmLabelList.TOK.Visible:=False; + frmLabelList.Tdel.Visible:=False; + end; } + if ShowModal=1 then + begin + end; + end; + finally + frmLabelList.Free; + end; +end; + +procedure TfrmJYDJ.ToolButton3Click(Sender: TObject); +begin + try + frmPRTJYDJList:=TfrmPRTJYDJList.Create(Application); + with frmPRTJYDJList do + begin + if ShowModal=1 then + begin + + + end; + end; + finally + frmPRTJYDJList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.dfm b/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.dfm new file mode 100644 index 0000000..c7d57d9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.dfm @@ -0,0 +1,537 @@ +object frmJYOrderBGChk: TfrmJYOrderBGChk + Left = 78 + Top = 138 + Width = 1133 + Height = 547 + Caption = #25253#20851#21333#23457#26680 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1117 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_KangChi.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + Visible = False + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 32 + OnClick = ToolButton4Click + end + object TBPrint: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 576 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1117 + Height = 50 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 413 + Top = 22 + Width = 39 + Height = 12 + Caption = #21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 545 + Top = 22 + Width = 65 + Height = 12 + Caption = #22806#38144#21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 708 + Top = 22 + Width = 26 + Height = 12 + Caption = #27454#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 832 + Top = 22 + Width = 65 + Height = 12 + Caption = #20869#38144#21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 267 + Top = 21 + Width = 52 + Height = 12 + Caption = #28023#20851#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 163 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FPNo: TEdit + Tag = 2 + Left = 454 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = FPNoChange + OnKeyPress = conPress + end + object JYConNo: TEdit + Tag = 2 + Left = 613 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 3 + OnChange = FPNoChange + OnKeyPress = JYConNoKeyPress + end + object JYStyleNo: TEdit + Tag = 2 + Left = 739 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 4 + OnChange = FPNoChange + OnKeyPress = JYStyleNoKeyPress + end + object ConNo: TEdit + Tag = 2 + Left = 897 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = FPNoChange + OnKeyPress = ConNoKeyPress + end + object BGNO: TEdit + Tag = 2 + Left = 320 + Top = 17 + Width = 81 + Height = 20 + TabOrder = 6 + OnChange = FPNoChange + OnKeyPress = BGNOKeyPress + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 82 + Width = 1117 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1117 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 106 + Width = 1117 + Height = 402 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1PRTSpec + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_KangChi.SHuangSeCu + Styles.IncSearch = DataLink_KangChi.SHuangSeCu + Styles.Selection = DataLink_KangChi.SHuangSeCu + Styles.Header = DataLink_KangChi.Default + object v1Column1: TcxGridDBColumn + Caption = #28023#20851#32534#21495 + DataBinding.FieldName = 'BGNO' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1OrderNo: TcxGridDBColumn + Caption = #22806#38144#21457#31080#21495 + DataBinding.FieldName = 'FPNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 82 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'BGDate' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 70 + end + object v1Column8: TcxGridDBColumn + Caption = #20869#38144#21512#21516#21495 + DataBinding.FieldName = 'ConNO' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column9: TcxGridDBColumn + Caption = #22806#38144#21512#21516#21495 + DataBinding.FieldName = 'JYConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_KangChi.Default + Width = 77 + end + object v1Column3: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'JYStyleNO' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column13: TcxGridDBColumn + Caption = #21830#21697#21517#31216#12289#35268#26684#22411#21495 + DataBinding.FieldName = 'BGPRTName' + HeaderAlignmentHorz = taCenter + Width = 147 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'BGQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 73 + end + object v1Column14: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'BGUnit' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24065#21046 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 54 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'BSNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 85 + end + object v1Column6: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_KangChi.Default + Width = 74 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column19: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_KangChi.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_KangChi.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 981 + Top = 1 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_KangChi.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1010 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 909 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 440 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 958 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 602 + Top = 259 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.pas b/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.pas new file mode 100644 index 0000000..7bf525a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JYOrderBGChk.pas @@ -0,0 +1,529 @@ +unit U_JYOrderBGChk; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC; + +type + TfrmJYOrderBGChk = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + FPNo: TEdit; + Label5: TLabel; + JYConNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label6: TLabel; + JYStyleNo: TEdit; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + cxGridPopupMenu2: TcxGridPopupMenu; + Label4: TLabel; + ConNo: TEdit; + Label2: TLabel; + BGNO: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FPNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure conPress(Sender: TObject; var Key: Char); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure JYConNoKeyPress(Sender: TObject; var Key: Char); + procedure JYStyleNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure BGNOKeyPress(Sender: TObject; var Key: Char); + private + FInt,PFInt:Integer; + canshu1:string; + procedure InitGrid(); + procedure InitGridWSql(fsj:string); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmJYOrderBGChk: TfrmJYOrderBGChk; + +implementation +uses + U_DataLink,U_RTFun,U_JYOrderBGInPut + {U_ClothContractInPutSX, + U_ProductOrderList,U_ZDYHelp, + ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmJYOrderBGChk.FormDestroy(Sender: TObject); +begin + frmJYOrderBGChk:=nil; +end; + +procedure TfrmJYOrderBGChk.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmJYOrderBGChk.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ص',Tv1,'ͬ'); +end; + +procedure TfrmJYOrderBGChk.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,FS.* '); + SQL.Add(' from JYOrder_BG A inner join JYOrder_BG_Sub FS on A.BGID=FS.BGID'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>''ͨ'' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and A.BGDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.BGDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + sql.Add(' and isnull(A.ChkStatus,'''')=''ͨ'' '); + end else + begin + sql.Add(' and A.BGDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.BGDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + end; + sql.Add(' order by A.BGNO'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end;} + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; +procedure TfrmJYOrderBGChk.InitGridWSql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,FS.* '); + SQL.Add(' from JYOrder_BG A inner join JYOrder_BG_Sub FS on A.BGID=FS.BGID'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>''ͨ'' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')=''ͨ'' '); + end else + begin + end; + sql.Add(fsj); + sql.Add(' order by A.BGNO'); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end;} + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmJYOrderBGChk.InitForm(); +begin + ReadCxGrid('ص',Tv1,'ͬ'); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmJYOrderBGChk.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmJYOrderBGChk.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmJYOrderBGChk.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('Эб',cxGrid1); +end; + +procedure TfrmJYOrderBGChk.TBPrintClick(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + i:Integer; +begin + if Order_Main.IsEmpty then Exit; + {if Trim(Order_Main.FieldByName('ChkStatus').AsString)<>'ͨ' then + begin + RM1.PreviewButtons:=[pbExit]; + end else + begin + RM1.PreviewButtons:=[pbZoom,pbLoad,pbSave,pbPrint,pbFind,pbPageSetup,pbExit,pbExport,pbNavigator]; + end; } + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Э.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4'); + sql.Add(' from ContractBC_Main A inner join ContractBC_Sub B on A.MainId=B.MainId'); + sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' '); + sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + RM1.ShowPrintDialog:=True; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+RPTName),'ʾ',0); + end; + +end; + +procedure TfrmJYOrderBGChk.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmJYOrderBGChk.FPNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmJYOrderBGChk.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmJYOrderBGChk.conPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(Trim(FPNo.Text))<3 then Exit; + fsj:=' and A.FPNo like '''+'%'+Trim(FPNo.text)+'%'+''''; + InitGridWSql(fsj); + end; +end; + +procedure TfrmJYOrderBGChk.cxPageControl1Change(Sender: TObject); +begin + // InitGrid(); +end; + +procedure TfrmJYOrderBGChk.ToolButton1Click(Sender: TObject); +var + FFFId:string; +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪͨ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where BGId='''+Trim(Order_Main.fieldbyname('BGId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('BGId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('BGId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmJYOrderBGChk.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmJYOrderBGInPut:=TfrmJYOrderBGInPut.Create(Application); + with frmJYOrderBGInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('BGID').AsString); + FConNo:=Trim(Self.Order_Main.fieldbyname('BGNo').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmJYOrderBGInPut.Free; + end; +end; + +procedure TfrmJYOrderBGChk.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ص'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmJYOrderBGChk.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); +end; + +procedure TfrmJYOrderBGChk.JYConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(JYConNo.Text))<3 then Exit; + fsj:=' and JYConNo like '''+'%'+Trim(JYConNo.text)+'%'+''''; + InitGridWSql(fsj); + end; +end; + +procedure TfrmJYOrderBGChk.JYStyleNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(JYStyleNo.Text))<3 then Exit; + fsj:=' and JYStyleNo like '''+'%'+Trim(JYStyleNo.text)+'%'+''''; + InitGridWSql(fsj); + end; +end; + +procedure TfrmJYOrderBGChk.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + // +end; + +procedure TfrmJYOrderBGChk.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmJYOrderBGChk.ToolButton4Click(Sender: TObject); +var + FFFId:string; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ˳','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_BG Set Chker=Null'); + SQL.Add(',ChkTime=null,ChkStatus=null '); + sql.Add(' where BGId='''+Trim(Order_Main.fieldbyname('BGId').AsString)+''''); + ExecSQL; + end; + FFFId:=Trim(Order_Main.fieldbyname('BGId').AsString); + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('BGId',Trim(FFFId),[]) do + begin + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmJYOrderBGChk.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<3 then Exit; + fsj:=' and ConNo like '''+'%'+Trim(ConNo.text)+'%'+''''; + InitGridWSql(fsj); + end; +end; + + +procedure TfrmJYOrderBGChk.BGNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(Trim(BGNo.Text))<3 then Exit; + fsj:=' and A.BGNo like '''+'%'+Trim(BGNo.text)+'%'+''''; + InitGridWSql(fsj); + end; +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_KDInPut.dfm new file mode 100644 index 0000000..17bf880 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDInPut.dfm @@ -0,0 +1,298 @@ +object frmKDInPut: TfrmKDInPut + Left = 26 + Top = 130 + Width = 1356 + Height = 573 + Align = alClient + Caption = #23492#20214#20449#24687#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1340 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1340 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column10: TcxGridDBColumn + Caption = #23492#20214#26085#26399 + DataBinding.FieldName = 'KDDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #24555#36882#20844#21496 + DataBinding.FieldName = 'KDComName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 104 + end + object v1Column6: TcxGridDBColumn + Caption = #38754#21333#21495 + DataBinding.FieldName = 'KDNO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #25910#20214#20154 + DataBinding.FieldName = 'KHName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column18PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column9: TcxGridDBColumn + Caption = #22269#23478 + DataBinding.FieldName = 'Country' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column9PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 98 + end + object v1Column3: TcxGridDBColumn + Caption = #37325#37327'(KG)' + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'KDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21253#35065 + #24555#36882#34955 + #25991#20214) + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column12: TcxGridDBColumn + Caption = #26041#24335 + DataBinding.FieldName = 'KDFangShi' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32463 + #20248) + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 397 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 501 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 346 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 325 + Top = 4 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 453 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_KDInPut.pas new file mode 100644 index 0000000..74ebab4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDInPut.pas @@ -0,0 +1,381 @@ +unit U_KDInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmKDInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType,canshu1:String; + + { Public declarations } + end; + +var + frmKDInPut: TfrmKDInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_OrderSunSelList, + U_ZHKHListNewCX; + +{$R *.dfm} + +procedure TfrmKDInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ļϢ¼',Tv1,'ļ'); +end; + +procedure TfrmKDInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*'); + SQL.Add(' from KuaiDi_Money A'); + sql.Add(' where A.KDID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmKDInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmKDInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ļϢ¼',Tv1,'ļ'); + InitData(); +end; +procedure TfrmKDInPut.GetMaxConNO(); +begin + +end; +function TfrmKDInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('KDID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'KD','KuaiDi_Money',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('KDID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from KuaiDi_Money where KDID='''+Trim(Order_Sub.fieldbyname('KDID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('KDID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('KDID').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'KuaiDi_Money',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + Edit; + FieldByName('KDID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmKDInPut.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('KDDate',null,[]) then + begin + Application.MessageBox('ļڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KDComName',null,[]) then + begin + Application.MessageBox('ݹ˾Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KDNO',null,[]) then + begin + Application.MessageBox('浥ŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KHName',null,[]) then + begin + Application.MessageBox('ͻΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Country',null,[]) then + begin + Application.MessageBox('ҲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KDType',null,[]) then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KDFangShi',null,[]) then + begin + Application.MessageBox('ʽΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('KgQty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmKDInPut.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + with Order_Sub do + begin + Append; + FieldByName('KDDate').Value:=FSQDate; + Post; + end; +end; + +procedure TfrmKDInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('KDId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete KuaiDi_Money where KDId='''+Trim(Order_Sub.fieldbyname('KDId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmKDInPut.v1Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('MDID').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select B.OrderNo,A.PS,A.MDDate from JYOrder_Main_MD A'); + sql.Add(' inner join JYorder_Main B on A.ORDMainId=B.MainId'); + sql.Add(' and A.MDID='''+Trim(mvalue)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + with Order_Sub do + begin + Edit; + FieldByName('OrderNo').Value:=ADOTemp.fieldbyname('OrderNo').Value; + FieldByName('PS').Value:=ADOTemp.fieldbyname('PS').Value; + Post; + end; +end; + +procedure TfrmKDInPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KDComName'; + flagname:='ݹ˾'; + if Trim(canshu1)<>'Ȩ' then + begin + frmZDYHelp.TBAdd.Visible:=False; + frmZDYHelp.TBDel.Visible:=False; + frmZDYHelp.TBEdit.Visible:=False; + end; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('KDComName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmKDInPut.v1Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='Country'; + flagname:=''; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('Country').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmKDInPut.v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('KHName').Value:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_KDList.dfm new file mode 100644 index 0000000..851447d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDList.dfm @@ -0,0 +1,657 @@ +object frmKDList: TfrmKDList + Left = 67 + Top = 128 + Width = 1378 + Height = 547 + Caption = #23492#20214#20449#24687#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1362 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1362 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 39 + Height = 12 + Caption = #38754#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 904 + Top = 18 + Width = 26 + Height = 12 + Caption = #22269#23478 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 553 + Top = 18 + Width = 39 + Height = 12 + Caption = #25910#20214#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 680 + Top = 18 + Width = 26 + Height = 12 + Caption = #31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 792 + Top = 18 + Width = 26 + Height = 12 + Caption = #26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object KDNO: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 113 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = KDNOKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object Country: TEdit + Tag = 2 + Left = 932 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object KHName: TEdit + Tag = 2 + Left = 592 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object KDType: TEdit + Tag = 2 + Left = 708 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + object KDFangShi: TEdit + Tag = 2 + Left = 820 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 7 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1362 + Height = 408 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #23492#20214#26085#26399 + DataBinding.FieldName = 'KDDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #24555#36882#20844#21496 + DataBinding.FieldName = 'KDComName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column6: TcxGridDBColumn + Caption = #38754#21333#21495 + DataBinding.FieldName = 'KDNO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #25910#20214#20154 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column9: TcxGridDBColumn + Caption = #22269#23478 + DataBinding.FieldName = 'Country' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column3: TcxGridDBColumn + Caption = #37325#37327'(KG)' + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'KDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column12: TcxGridDBColumn + Caption = #26041#24335 + DataBinding.FieldName = 'KDFangShi' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column5: TcxGridDBColumn + Caption = #23492#20214#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 93 + end + object v1Column2: TcxGridDBColumn + Caption = #36153#29992 + DataBinding.FieldName = 'KDMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 75 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#20154 + DataBinding.FieldName = 'SSPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1362 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1362 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 664 + Top = 264 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDList.pas b/坯布码单待检(PBMDDJ.dll)/U_KDList.pas new file mode 100644 index 0000000..567e30a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDList.pas @@ -0,0 +1,574 @@ +unit U_KDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmKDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + KDNO: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + Country: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + KHName: TEdit; + Label9: TLabel; + KDType: TEdit; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + KDFangShi: TEdit; + ToolButton2: TToolButton; + ToolButton5: TToolButton; + v1Column11: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure KDNOKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + { Private declarations } + public + { Public declarations } + end; + +var + frmKDList: TfrmKDList; + +implementation +uses + U_DataLink,U_RTFun,U_KDInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmKDList.FormDestroy(Sender: TObject); +begin + frmKDList:=nil; +end; + +procedure TfrmKDList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKDList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ϢǼ',Tv1,'ļ'); +end; + +procedure TfrmKDList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(' from KuaiDi_Money A'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + SQL.Add(' )'); + end; + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and A.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.MoneyPerson,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmKDList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=SGetServerDateMEnd(ADOQueryTemp); + BegDate.Date:=SGetServerDateMBeg(ADOQueryTemp); + ReadCxGrid('ϢǼ',Tv1,'ļ'); + //InitGrid(); +end; + +procedure TfrmKDList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from KuaiDi_Money where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + sql.Add(' and isnull(MoneyPerson,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѷ˲޸!','ʾ',0); + Exit; + end; + try + frmKDInPut:=TfrmKDInPut.Create(Application); + with frmKDInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('KDID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmKDInPut.Free; + end; +end; + +procedure TfrmKDList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from KuaiDi_Money where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + sql.Add(' and isnull(MoneyPerson,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѷ˲޸!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmKDList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete KuaiDi_Money where KDId='''+Trim(Order_Main.fieldbyname('KDId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmKDList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ļϢ',cxGrid1); +end; + +procedure TfrmKDList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDList.TBAddClick(Sender: TObject); +begin + try + frmKDInPut:=TfrmKDInPut.Create(Application); + with frmKDInPut do + begin + frmKDInPut.canshu1:=Self.canshu1; + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmKDInPut.Free; + end; +end; + +procedure TfrmKDList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmKDList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ļϢǼ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmKDList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmKDList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(' from KuaiDi_Money A'); + sql.Add(' where 1=1 '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and (Filler in(select UserName from SY_User where DPID in'); + sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + SQL.Add(' )'); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.MoneyPerson,'''')<>'''' '); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmKDList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmKDList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmKDList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmKDList.KDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(KDNo.Text))<3 then Exit; + fsj:=' and A.KDNo like '''+'%'+Trim(KDNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmKDList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmKDList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmKDList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate KuaiDi_Money Set Status='''',SSTime=getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(' where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; + +procedure TfrmKDList.ToolButton5Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate KuaiDi_Money Set Status=Null,SSTime=Null,SSPerson=Null'); + sql.Add(' where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDOKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_KDOKList.dfm new file mode 100644 index 0000000..5a0d815 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDOKList.dfm @@ -0,0 +1,749 @@ +object frmKDOKList: TfrmKDOKList + Left = 64 + Top = 104 + Width = 1378 + Height = 547 + Caption = #23492#20214#23545#36134 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1362 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 34 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = TBEditClick + end + object TBExport: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1362 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 383 + Top = 18 + Width = 39 + Height = 12 + Caption = #38754#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 904 + Top = 18 + Width = 26 + Height = 12 + Caption = #22269#23478 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 553 + Top = 18 + Width = 39 + Height = 12 + Caption = #25910#20214#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 680 + Top = 18 + Width = 26 + Height = 12 + Caption = #31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 792 + Top = 18 + Width = 26 + Height = 12 + Caption = #26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 1016 + Top = 18 + Width = 52 + Height = 12 + Caption = #24555#36882#20844#21496 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + end + object KDNO: TEdit + Tag = 2 + Left = 423 + Top = 14 + Width = 113 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + OnKeyPress = KDNOKeyPress + end + object Country: TEdit + Tag = 2 + Left = 932 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object KHName: TEdit + Tag = 2 + Left = 592 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object KDType: TEdit + Tag = 2 + Left = 708 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + object KDFangShi: TEdit + Tag = 2 + Left = 820 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 7 + OnChange = WorkerChange + end + object KDComName: TEdit + Tag = 2 + Left = 1068 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 8 + OnChange = WorkerChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1362 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1362 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 100 + Width = 1362 + Height = 408 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column13 + end + item + Kind = skSum + Position = spFooter + Column = v1Column14 + end + item + Kind = skSum + Position = spFooter + Column = v1Column17 + end + item + Kind = skSum + Position = spFooter + Column = v1Column3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #23492#20214#26085#26399 + DataBinding.FieldName = 'KDDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #24555#36882#20844#21496 + DataBinding.FieldName = 'KDComName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column6: TcxGridDBColumn + Caption = #38754#21333#21495 + DataBinding.FieldName = 'KDNO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column18: TcxGridDBColumn + Caption = #25910#20214#20154 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column9: TcxGridDBColumn + Caption = #22269#23478 + DataBinding.FieldName = 'Country' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column3: TcxGridDBColumn + Caption = #37325#37327'(KG)' + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column20: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'KDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column12: TcxGridDBColumn + Caption = #26041#24335 + DataBinding.FieldName = 'KDFangShi' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column5: TcxGridDBColumn + Caption = #23492#20214#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 93 + end + object v1Column13: TcxGridDBColumn + Caption = #25240#25187#20215 + DataBinding.FieldName = 'ZheKouMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column13PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 70 + end + object v1Column14: TcxGridDBColumn + Caption = #27966#36865#36153 + DataBinding.FieldName = 'PaiSongMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column13PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 72 + end + object v1Column15: TcxGridDBColumn + Caption = #29123#27833'%' + DataBinding.FieldName = 'RanYou' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column13PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #29123#27833#36153 + DataBinding.FieldName = 'RanYouMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 74 + end + object v1Column2: TcxGridDBColumn + Caption = #21512#35745 + DataBinding.FieldName = 'KDMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 75 + end + object v1Column21: TcxGridDBColumn + Caption = #23545#36134#22791#27880 + DataBinding.FieldName = 'DuiZhangNote' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FonePurple + Styles.Header = DataLink_CYZZ.FonePurple + Width = 173 + end + object v1Column19: TcxGridDBColumn + Tag = 999 + Caption = #23545#36134#26102#38388 + DataBinding.FieldName = 'MoneyTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#20154 + DataBinding.FieldName = 'SSPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 304 + Top = 200 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KDOKList.pas b/坯布码单待检(PBMDDJ.dll)/U_KDOKList.pas new file mode 100644 index 0000000..511d65d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KDOKList.pas @@ -0,0 +1,740 @@ +unit U_KDOKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmKDOKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + ADOQueryPrint: TADOQuery; + cxTabControl1: TcxTabControl; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label8: TLabel; + Label5: TLabel; + Label7: TLabel; + Label9: TLabel; + KDNO: TEdit; + Country: TEdit; + KHName: TEdit; + KDType: TEdit; + Label4: TLabel; + KDFangShi: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column11: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton2: TToolButton; + Label6: TLabel; + KDComName: TEdit; + v1Column21: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure v1Column13PropertiesEditValueChanged(Sender: TObject); + procedure KDNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmKDOKList: TfrmKDOKList; + +implementation +uses + U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote,U_ZDYHelp,U_FHJJInPut; + +{$R *.dfm} + +procedure TfrmKDOKList.FormDestroy(Sender: TObject); +begin + frmKDOKList:=nil; +end; + +procedure TfrmKDOKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKDOKList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ļ˵',Tv1,'ļ'); +end; + +procedure TfrmKDOKList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(' from KuaiDi_Money A'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and A.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')<>'''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmKDOKList.InitForm(); +begin + EndDate.Date:=SGetServerDateMEnd(ADOQueryTemp); + BegDate.Date:=SGetServerDateMBeg(ADOQueryTemp); + ReadCxGrid('ļ˵',Tv1,'ļ'); + //InitGrid(); +end; + +procedure TfrmKDOKList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmKDOKList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_FH where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmKDOKList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ļб',cxGrid1); +end; + +procedure TfrmKDOKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDOKList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmKDOKList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDOKList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ļ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmKDOKList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmKDOKList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(' from KuaiDi_Money A'); + sql.Add(' where 1=1 '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' and isnull(A.MoneyPerson,'''')<>'''''); + end; + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmKDOKList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmKDOKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKDOKList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmKDOKList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmKDOKList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmKDOKList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmKDOKList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmKDOKList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(KDNO.Text))<3 then Exit; + fsj:=' and A.KDNO like '''+'%'+Trim(KDNO.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmKDOKList.TBAddClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;KDMoney',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('ϼƲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KuaiDi_Money where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('MoneyPerson').Value:=Trim(DName); + FieldByName('MoneyTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ZheKouMoney').Value:=Order_Main.fieldbyname('ZheKouMoney').Value; + FieldByName('PaiSongMoney').Value:=Order_Main.fieldbyname('PaiSongMoney').Value; + FieldByName('RanYou').Value:=Order_Main.fieldbyname('RanYou').Value; + FieldByName('RanYouMoney').Value:=Order_Main.fieldbyname('RanYouMoney').Value; + FieldByName('KDMoney').Value:=Order_Main.fieldbyname('KDMoney').Value; + FieldByName('DuiZhangNote').Value:=Order_Main.fieldbyname('DuiZhangNote').Value; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmKDOKList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KuaiDi_Money where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('MoneyPerson').Value:=Null; + FieldByName('MoneyTime').Value:=Null; + //FieldByName('ZheKouMoney').Value:=Null; + //FieldByName('PaiSongMoney').Value:=Null; + //FieldByName('RanYou').Value:=Null; + //FieldByName('RanYouMoney').Value:=Null; + //FieldByName('KDMoney').Value:=Null; + Post; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmKDOKList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmKDOKList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,false); +end; + +procedure TfrmKDOKList.v1Column13PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,ZheKouMoney,PaiSongMoney,RanYou,RanYouMoney,KDMoney:string; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingValue; + {if Trim(mvalue)='' then + begin + mvalue:='0'; + end; } + with Order_Main do + begin + Edit; + if Trim(mvalue)<>'' then + FieldByName(FName).Value:= mvalue + else + FieldByName(FName).Value:=Null; + Post; + end; + ZheKouMoney:=Order_Main.fieldbyname('ZheKouMoney').AsString; + if Trim(ZheKouMoney)='' then ZheKouMoney:='0'; + PaiSongMoney:=Order_Main.fieldbyname('PaiSongMoney').AsString; + if Trim(PaiSongMoney)='' then PaiSongMoney:='0'; + RanYou:=Order_Main.fieldbyname('RanYou').AsString; + if Trim(RanYou)='' then RanYou:='0'; + with Order_Main do + begin + Edit; + if (StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney))*StrToFloat(RanYou)*0.01<>0 then + FieldByName('RanYouMoney').Value:=(StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney))*StrToFloat(RanYou)*0.01 + else + FieldByName('RanYouMoney').Value:=Null; + if StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney)+(StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney))*StrToFloat(RanYou)*0.01<>0 then + FieldByName('KDMoney').Value:=StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney)+(StrToFloat(ZheKouMoney)+StrToFloat(PaiSongMoney))*StrToFloat(RanYou)*0.01 + else + FieldByName('KDMoney').Value:=Null; + Post; + end; + +end; + +procedure TfrmKDOKList.KDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(KDNO.Text))<3 then Exit; + fsj:=' and A.KDNO like '''+'%'+Trim(KDNO.Text)+'%'+''''; + InitGridWsql(fsj); +end; +procedure TfrmKDOKList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {if Order_Main.Locate('SSel;KDMoney',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('ϼƲΪ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KuaiDi_Money where KDID='''+Trim(Order_Main.fieldbyname('KDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + //FieldByName('MoneyPerson').Value:=Trim(DName); + //FieldByName('MoneyTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ZheKouMoney').Value:=Order_Main.fieldbyname('ZheKouMoney').Value; + FieldByName('PaiSongMoney').Value:=Order_Main.fieldbyname('PaiSongMoney').Value; + FieldByName('RanYou').Value:=Order_Main.fieldbyname('RanYou').Value; + FieldByName('RanYouMoney').Value:=Order_Main.fieldbyname('RanYouMoney').Value; + FieldByName('KDMoney').Value:=Order_Main.fieldbyname('KDMoney').Value; + FieldByName('DuiZhangNote').Value:=Order_Main.fieldbyname('DuiZhangNote').Value; + Post; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.dfm b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.dfm new file mode 100644 index 0000000..234c23a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.dfm @@ -0,0 +1,978 @@ +object frmKHGetCPAdd: TfrmKHGetCPAdd + Left = 40 + Top = 107 + Width = 1254 + Height = 625 + Align = alClient + Caption = #25343#26679#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1238 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 105 + Width = 1238 + Height = 343 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = v1Column16 + end + item + Format = '0' + Position = spFooter + Column = v1Column10 + end + item + Format = '0' + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Tag = 1 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 102 + end + object v1Column2: TcxGridDBColumn + Tag = 1 + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Tag = 1 + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Tag = 1 + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column5: TcxGridDBColumn + Tag = 1 + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column6: TcxGridDBColumn + Tag = 1 + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column7: TcxGridDBColumn + Tag = 1 + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1Column8: TcxGridDBColumn + Tag = 1 + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column9: TcxGridDBColumn + Tag = 1 + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column14: TcxGridDBColumn + Tag = 3 + Caption = #20215#26684#31867#22411 + DataBinding.FieldName = 'PriceType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #20844#26020#20215 + #31859#20215 + #30721#20215) + Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column16: TcxGridDBColumn + Tag = 3 + DataBinding.FieldName = 'CIF' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 50 + end + object v1Column17: TcxGridDBColumn + Tag = 3 + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 48 + end + object v1Column18: TcxGridDBColumn + Tag = 3 + Caption = #31995#25968 + DataBinding.FieldName = 'LiRunLv' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 51 + end + object v1Column10: TcxGridDBColumn + Tag = 3 + Caption = #20154#27665#24065#20215#26684 + DataBinding.FieldName = 'RMBPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1Column12: TcxGridDBColumn + Tag = 3 + Caption = #32654#37329#20215#26684 + DataBinding.FieldName = 'USDPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column11: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'CKNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 96 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1238 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 51 + Top = 16 + Width = 52 + Height = 12 + Caption = #26679#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object TLabel + Left = 288 + Top = 16 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label3: TLabel + Left = 528 + Top = 16 + Width = 48 + Height = 12 + Caption = #25343#26679#26102#38388 + end + object TLabel + Left = 51 + Top = 48 + Width = 18 + Height = 12 + Caption = 'CIF' + end + object TLabel + Left = 288 + Top = 48 + Width = 48 + Height = 12 + Caption = #27719' '#29575 + end + object TLabel + Left = 528 + Top = 48 + Width = 48 + Height = 12 + Caption = #31995' '#25968 + end + object TLabel + Left = 776 + Top = 16 + Width = 48 + Height = 12 + Caption = #20215#26684#31867#22411 + end + object TLabel + Left = 776 + Top = 48 + Width = 52 + Height = 12 + Caption = #25343#26679#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CYID: TEdit + Left = 105 + Top = 12 + Width = 131 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + OnKeyPress = CYIDKeyPress + end + object KHName: TEdit + Left = 340 + Top = 12 + Width = 126 + Height = 20 + TabOrder = 1 + end + object CKDate: TcxDateEdit + Left = 578 + Top = 12 + TabOrder = 2 + Width = 147 + end + object CIF: TEdit + Left = 105 + Top = 44 + Width = 131 + Height = 20 + TabOrder = 3 + end + object HuiLv: TEdit + Left = 340 + Top = 44 + Width = 126 + Height = 20 + TabOrder = 4 + end + object LiRunLv: TEdit + Left = 578 + Top = 44 + Width = 146 + Height = 20 + TabOrder = 5 + end + object PriceType: TComboBox + Left = 830 + Top = 12 + Width = 145 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 6 + Text = #20844#26020#20215 + Items.Strings = ( + #20844#26020#20215 + #31859#20215 + #30721#20215) + end + object CKNO: TEdit + Left = 828 + Top = 44 + Width = 146 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + object Button1: TButton + Left = 976 + Top = 12 + Width = 56 + Height = 20 + Caption = #19968#38190#26367#25442 + TabOrder = 8 + OnClick = Button1Click + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 448 + Width = 1238 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 456 + Width = 1238 + Height = 130 + Align = alBottom + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 53 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21367#26679 + #25512#38144#26679 + #33337#26679) + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 74 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #31859 + #20844#26020 + #22871) + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Width = 62 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 46 + Top = 131 + Width = 1027 + Height = 302 + TabOrder = 5 + Visible = False + object Label12: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 1025 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #26679#21697#24211#23384 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 1003 + Top = 3 + Width = 20 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object cxGrid3: TcxGrid + Left = 1 + Top = 24 + Width = 1025 + Height = 240 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn23 + end + item + Kind = skSum + Column = Tv3Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object Tv3Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 42 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 58 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 45 + end + object cxGridDBColumn21: TcxGridDBColumn + Tag = 99 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 39 + end + object cxGridDBColumn22: TcxGridDBColumn + Tag = 99 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21367#26679 + #25512#38144#26679 + #33337#26679) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object cxGridDBColumn23: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 63 + end + object Tv3Column2: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'CKQty' + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 60 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #31859 + #20844#26020 + #22871) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 38 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 34 + end + object cxGridDBColumn27: TcxGridDBColumn + Tag = 99 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 99 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Width = 38 + end + object cxGridDBColumn29: TcxGridDBColumn + Tag = 99 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'KCNote' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 1 + Top = 264 + Width = 1025 + Height = 37 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button2: TButton + Left = 354 + Top = 6 + Width = 50 + Height = 25 + Caption = #30830#23450 + TabOrder = 0 + OnClick = Button2Click + end + object Button3: TButton + Left = 530 + Top = 6 + Width = 50 + Height = 25 + Caption = #21462#28040 + TabOrder = 1 + OnClick = Button3Click + end + end + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 1168 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 429 + Top = 1 + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 1163 + Top = 203 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 397 + Top = 1 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 461 + Top = 1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1160 + Top = 168 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 648 + Top = 256 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 683 + Top = 259 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 712 + Top = 256 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 664 + Top = 488 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 699 + Top = 491 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 728 + Top = 488 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.pas b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.pas new file mode 100644 index 0000000..831c87a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPAdd.pas @@ -0,0 +1,954 @@ +unit U_KHGetCPAdd; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, + cxGridCustomPopupMenu, cxGridPopupMenu, cxContainer, cxTextEdit, + cxMaskEdit, cxDropDownEdit, cxCalendar, StdCtrls, ExtCtrls, cxSplitter, + cxButtonEdit, cxCheckBox; + +type + TfrmKHGetCPAdd = class(TForm) + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBClose: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + Panel1: TPanel; + CYID: TEdit; + Label1: TLabel; + KHName: TEdit; + Label3: TLabel; + CKDate: TcxDateEdit; + v1Column13: TcxGridDBColumn; + CIF: TEdit; + HuiLv: TEdit; + LiRunLv: TEdit; + v1Column14: TcxGridDBColumn; + PriceType: TComboBox; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + CKNO: TEdit; + Button1: TButton; + cxSplitter1: TcxSplitter; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel4: TPanel; + Label12: TLabel; + Panel10: TPanel; + Image2: TImage; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Panel2: TPanel; + Button2: TButton; + Button3: TButton; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CYIDKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column14PropertiesEditValueChanged(Sender: TObject); + procedure v1Column16PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + Fint:Integer; + LCYID:String; + procedure InitSubGrid(); + function SaveData():Boolean; + function SaveDataOne():Boolean; + { Private declarations } + public + FCYID,FCYCode,FCPID,FCPNO:String; + CopyInt:Integer; + + { Public declarations } + end; + +var + frmKHGetCPAdd: TfrmKHGetCPAdd; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmKHGetCPAdd.InitSubGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=Trim(FCYID); + Parameters.ParamByName('Begdate').Value:=''; + Parameters.ParamByName('EndDate').Value:=''; + Parameters.ParamByName('PState').Value:=3; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sub); + SInitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmKHGetCPAdd.FormShow(Sender: TObject); +var + fsj:String; +begin + + ReadCxGrid('ͻIN',Tv1,'Ʒ'); + InitSubGrid(); + KHName.Text:=Trim(CDS_Sub.fieldbyname('KHName').AsString); + CKDate.Date:=CDS_Sub.fieldbyname('CKdate').AsDateTime; + CKNO.Text:=Trim(CDS_Sub.fieldbyname('CKNO').AsString); + if Trim(FCYID)='' then + begin + CKDate.Date:=SGetServerDate(ADOQueryTemp); + end; + if CopyInt=99 then + begin + CKNO.Text:=''; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('CKID').Value:=''; + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + end; +end; + +procedure TfrmKHGetCPAdd.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻIN',Tv1,'Ʒ'); + Close; +end; +function TfrmKHGetCPAdd.SaveData():Boolean; +var + maxId,FCKNO:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(CKNO.Text)='' then + begin + if GetLSNo(ADOQueryCmd,FCKNO,'','CP_YDang_KHGet',3,1) =False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + FCKNO:=Trim(CKNO.Text); + end; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'CK','CP_YDang_KHGet',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(CDS_Sub.fieldbyname('CKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_YDang_KHGet where CKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('CKID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('CKID').Value:=Trim(maxId); + FieldByName('CKNO').Value:=Trim(FCKNO); + FieldByName('CYID').Value:=Trim(CDS_Sub.fieldbyname('CYID').AsString); + FieldByName('KHName').Value:=Trim(KHName.Text); + FieldByName('CKdate').Value:=CKDate.Date; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CP_YDang_KHGet',3); + FieldByName('CostPrice').Value:=CDS_Sub.fieldbyname('CostPrice').Value; + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +function TfrmKHGetCPAdd.SaveDataOne():Boolean; +var + maxId,FCKNO,SubId:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(CKNO.Text)='' then + begin + if GetLSNo(ADOQueryCmd,FCKNO,'','CP_YDang_KHGet',3,1) =False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + FCKNO:=Trim(CKNO.Text); + end; + CKNO.Text:=Trim(FCKNO); + with CDS_Sub do + begin + if Trim(CDS_Sub.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'CK','CP_YDang_KHGet',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(CDS_Sub.fieldbyname('CKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_YDang_KHGet where CKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('CKID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('CKID').Value:=Trim(maxId); + FieldByName('CKNO').Value:=Trim(FCKNO); + FieldByName('CYID').Value:=Trim(CDS_Sub.fieldbyname('CYID').AsString); + FieldByName('KHName').Value:=Trim(KHName.Text); + FieldByName('CKdate').Value:=CKDate.Date; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CP_YDang_KHGet',3); + FieldByName('CostPrice').Value:=CDS_Sub.fieldbyname('CostPrice').Value; + Post; + end; + Edit; + FieldByName('CKID').Value:=Trim(maxId); + end; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + if GetLSNo(ADOQueryCmd,SubId,'BC','CK_YP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_YP_CR where BCId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BCId').Value:=Trim(SubId); + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'CK_YP_CR',99); + FieldByName('QYCKID').Value:=Trim(CDS_Sub.fieldbyname('CKID').AsString); + FieldByName('CRTime').Value:=CKDate.Date; + FieldByName('CYID').Value:=Trim(LCYID); + FieldByName('CYColor').Value:=ClientDataSet3.fieldbyname('CYColor').Value; + FieldByName('CYType').Value:=ClientDataSet3.fieldbyname('CYType').Value; + FieldByName('QtyUnit').Value:=ClientDataSet3.fieldbyname('KCQtyUnit').Value; + + FieldByName('Qty').Value:=ClientDataSet3.fieldbyname('CKQty').Value; + FieldByName('QtyFlag').Value:=-1; + FieldByName('CRID').Value:=ClientDataSet3.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:='ͻȡ'; + FieldByName('KHName').Value:=Trim(KHName.Text); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YP_KC Set KCQty=(select sum(Qty*QtyFlag) from CK_YP_CR A where A.CRID=CK_YP_KC.CRID)'); + sql.Add(' where CRID='+Trim(ClientDataSet3.fieldbyname('CRID').AsString)); + ExecSQL; + end; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmKHGetCPAdd.ToolButton1Click(Sender: TObject); +begin + + if CDS_Sub.IsEmpty then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; +end; + +procedure TfrmKHGetCPAdd.CYIDKeyPress(Sender: TObject; var Key: Char); +var + FReal:Double; + FFCYID:string; +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CYID.Text)+''''); + sql.Add(' or CYNo='''+Trim(CYID.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ʒ!','ʾ',0); + Exit; + end; + LCYID:=Trim(ADOQueryTemp.fieldbyname('CYID').AsString); + CYID.Text:=''; + Panel4.Visible:=True; + Panel4.Refresh; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.CRID,A.BCID,A.KCQty,A.KCQtyUnit,A.CYColor,A.KCNote,A.CYType '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID)'); + sql.Add(',CKQty=Cast(NUll as decimal(18,2))'); + sql.Add(' from CK_YP_KC A '); + sql.Add(' left join CP_YDang B on A.CYID=B.CYID '); + sql.add('where A.CYID='''+Trim(LCYID)+''' and A.KCQty>0'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + + {if Trim(CIF.Text)<>'' then + begin + if TryStrToFloat(Trim(CIF.Text),FReal)=False then + begin + CYID.Text:=''; + Application.MessageBox('CIFַǷ!','',0); + Exit; + end; + end; + if Trim(HuiLv.Text)<>'' then + begin + if TryStrToFloat(Trim(HuiLv.Text),FReal)=False then + begin + CYID.Text:=''; + Application.MessageBox('ַǷ!','',0); + Exit; + end; + end else + begin + CYID.Text:=''; + Application.MessageBox('ʲΪ!','ʾ',0); + Exit; + end; + if Trim(LiRunLv.Text)<>'' then + begin + if TryStrToFloat(Trim(LiRunLv.Text),FReal)=False then + begin + CYID.Text:=''; + Application.MessageBox('ַǷ!','',0); + Exit; + end; + end else + begin + CYID.Text:=''; + Application.MessageBox('ʲΪ!','ʾ',0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CYID.Text)+''''); + sql.Add(' or CYNo='''+Trim(CYID.Text)+''''); + Open; + CYID.Text:=''; + end; + if ADOQueryTemp.IsEmpty then Exit; + with CDS_Sub do + begin + Append; + FieldByName('CYID').Value:=Trim(ADOQueryTemp.fieldbyname('CYID').AsString); + FieldByName('CYNo').Value:=Trim(ADOQueryTemp.fieldbyname('CYNo').AsString); + FieldByName('CYName').Value:=Trim(ADOQueryTemp.fieldbyname('CYName').AsString); + FieldByName('CYEName').Value:=Trim(ADOQueryTemp.fieldbyname('CYEName').AsString); + FieldByName('CYSpec').Value:=Trim(ADOQueryTemp.fieldbyname('CYSpec').AsString); + FieldByName('CYCF').Value:=Trim(ADOQueryTemp.fieldbyname('CYCF').AsString); + FieldByName('CYECF').Value:=Trim(ADOQueryTemp.fieldbyname('CYECF').AsString); + FieldByName('CYMF').Value:=Trim(ADOQueryTemp.fieldbyname('CYMF').AsString); + FieldByName('CYKZ').Value:=Trim(ADOQueryTemp.fieldbyname('CYKZ').AsString); + FieldByName('CYColor').Value:=Trim(ADOQueryTemp.fieldbyname('CYColor').AsString); + FieldByName('PriceType').Value:=Trim(PriceType.Text); + FieldByName('CYColorEng').Value:=Trim(ADOQueryTemp.fieldbyname('CYColorEng').AsString); + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(PriceType.Text)='׼' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; + if Trim(CIF.Text)='' then + begin + FieldByName('CIF').Value:=0; + end else + begin + FieldByName('CIF').Value:=StrToFloat(CIF.Text); + end; + FieldByName('HuiLv').Value:=StrToFloat(HuiLv.Text); + FieldByName('LiRunLv').Value:=StrToFloat(LiRunLv.Text); + Post; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; } + end; +end; + +procedure TfrmKHGetCPAdd.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('CKID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾѱ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang_KHGet where CKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YP_KC Set KCQty=(select sum(Qty*QtyFlag) from CK_YP_CR A where A.CRID=CK_YP_KC.CRID'); + sql.Add(' and isnull(A.QYCKID,'''')<>'''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''')'); + sql.Add(' where CRID in'); + sql.Add('(select CRID from CK_YP_CR where isnull(QYCKID,'''')='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''')'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_YP_CR where isnull(QYCKID,'''')='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + end; + CDS_Sub.Delete; + +end; + +procedure TfrmKHGetCPAdd.v1Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=Trim(TcxComboBox(Sender).EditingText); + with CDS_Sub do + begin + Edit; + FieldByName('PriceType').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CDS_Sub.Edit; + if Trim(CDS_Sub.fieldbyname('PriceType').AsString)='' then + begin + CDS_Sub.FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(CDS_Sub.fieldbyname('PriceType').AsString)='׼' then + begin + CDS_Sub.FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(CDS_Sub.fieldbyname('PriceType').AsString)='' then + begin + CDS_Sub.FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; + CDS_Sub.Post; + end else + begin + Exit; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; + +end; + +procedure TfrmKHGetCPAdd.v1Column16PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,MFieldName:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + MFieldName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_Sub do + begin + Edit; + FieldByName(MFieldName).Value:=mvalue; + Post; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; +end; + +procedure TfrmKHGetCPAdd.Button1Click(Sender: TObject); +begin + with CDS_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('PriceType').Value:=Trim(PriceType.Text); + Post; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CDS_Sub.Edit; + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(PriceType.Text)='׼' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; + CDS_Sub.Post; + end else + begin + Exit; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; + Next; + end; + end; + +end; + +procedure TfrmKHGetCPAdd.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmKHGetCPAdd.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmKHGetCPAdd.Button3Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmKHGetCPAdd.Button2Click(Sender: TObject); +var + FReal:Double; +begin + if ClientDataSet3.IsEmpty then + begin + if Application.MessageBox('Ʒûп棬ȷֻ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + if Application.MessageBox('ȷֻ,','ʾ',32+4)<>IDYES then Exit; + end else + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet3.fieldbyname('CKQty').AsString)='' then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end else + if ClientDataSet3.fieldbyname('CKQty').Value=0 then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end else + if ClientDataSet3.fieldbyname('CKQty').Value<0 then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('С!','ʾ',0); + Exit; + end else + if ClientDataSet3.fieldbyname('CKQty').Value>ClientDataSet3.fieldbyname('KCQty').Value then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('ܴڿ!','ʾ',0); + Exit; + end; + end; + next; + end; + end; + ClientDataSet3.EnableControls; + end; + end; + + if Trim(KHName.Text)='' then + begin + Application.MessageBox('ͻΪ!','ʾ',0); + Exit; + end; + if Trim(CIF.Text)<>'' then + begin + if TryStrToFloat(Trim(CIF.Text),FReal)=False then + begin + CYID.Text:=''; + Application.MessageBox('CIFַǷ!','',0); + Exit; + end; + end; + if Trim(HuiLv.Text)<>'' then + begin + if TryStrToFloat(Trim(HuiLv.Text),FReal)=False then + begin + // CYID.Text:=''; + Application.MessageBox('ַǷ!','',0); + Exit; + end; + end else + begin + //CYID.Text:=''; + Application.MessageBox('ʲΪ!','ʾ',0); + Exit; + end; + if Trim(LiRunLv.Text)<>'' then + begin + if TryStrToFloat(Trim(LiRunLv.Text),FReal)=False then + begin + //CYID.Text:=''; + Application.MessageBox('ַǷ!','',0); + Exit; + end; + end else + begin + //CYID.Text:=''; + Application.MessageBox('ʲΪ!','ʾ',0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CP_YDang where CYID='''+Trim(LCYID)+''''); + sql.Add(' or CYNo='''+Trim(LCYID)+''''); + Open; + + end; + if ADOQueryTemp.IsEmpty then Exit; + with CDS_Sub do + begin + Append; + FieldByName('CYID').Value:=Trim(LCYID); + FieldByName('CYNo').Value:=Trim(ADOQueryTemp.fieldbyname('CYNo').AsString); + FieldByName('CYName').Value:=Trim(ADOQueryTemp.fieldbyname('CYName').AsString); + FieldByName('CYEName').Value:=Trim(ADOQueryTemp.fieldbyname('CYEName').AsString); + FieldByName('CYSpec').Value:=Trim(ADOQueryTemp.fieldbyname('CYSpec').AsString); + FieldByName('CYCF').Value:=Trim(ADOQueryTemp.fieldbyname('CYCF').AsString); + FieldByName('CYECF').Value:=Trim(ADOQueryTemp.fieldbyname('CYECF').AsString); + FieldByName('CYMF').Value:=Trim(ADOQueryTemp.fieldbyname('CYMF').AsString); + FieldByName('CYKZ').Value:=Trim(ADOQueryTemp.fieldbyname('CYKZ').AsString); + FieldByName('CYColor').Value:=Trim(ADOQueryTemp.fieldbyname('CYColor').AsString); + FieldByName('PriceType').Value:=Trim(PriceType.Text); + FieldByName('CYColorEng').Value:=Trim(ADOQueryTemp.fieldbyname('CYColorEng').AsString); + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceKg').Value; + end else + if Trim(PriceType.Text)='׼' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value; + end else + if Trim(PriceType.Text)='' then + begin + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CYPriceM').Value*1.00/1.0936; + end; + if Trim(CIF.Text)='' then + begin + FieldByName('CIF').Value:=0; + end else + begin + FieldByName('CIF').Value:=StrToFloat(CIF.Text); + end; + FieldByName('HuiLv').Value:=StrToFloat(HuiLv.Text); + FieldByName('LiRunLv').Value:=StrToFloat(LiRunLv.Text); + Post; + end; + with CDS_Sub do + begin + Edit; + FieldByName('RMBPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value; + FieldByName('USDPrice').Value:=FieldByName('CostPrice').Value + *FieldByName('LiRunLv').Value*1.00/FieldByName('HuiLv').Value + +FieldByName('CIF').Value; + Post; + end; + if SaveDataOne() then + begin + Panel4.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.CRTime,A.CRID,A.BCID,A.Qty,A.QtyUnit,A.CYColor,A.Note,A.CYType,A.BCID '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID),C.KCQty,A.CYID '); + SQL.Add(' from CK_YP_CR A inner join CP_YDang B on A.CYID=B.CYID '); + sql.Add(' inner join CK_YP_KC C on A.CRID=C.CRID'); + sql.Add(' where A.QYCKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + sql.Add(' and CRFlag='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + end; +end; + +procedure TfrmKHGetCPAdd.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.CRTime,A.CRID,A.BCID,A.Qty,A.QtyUnit,A.CYColor,A.Note,A.CYType,A.BCID '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID),C.KCQty,A.CYID '); + SQL.Add(' from CK_YP_CR A inner join CP_YDang B on A.CYID=B.CYID '); + sql.Add(' inner join CK_YP_KC C on A.CRID=C.CRID'); + sql.Add(' where A.QYCKID='''+Trim(CDS_Sub.fieldbyname('CKID').AsString)+''''); + sql.Add(' and CRFlag='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.dfm new file mode 100644 index 0000000..af6b5b9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.dfm @@ -0,0 +1,795 @@ +object frmKHGetCPManage: TfrmKHGetCPManage + Left = 162 + Top = 71 + Width = 1099 + Height = 657 + Caption = #25343#26679#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1083 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton3Click + end + object ToolButton9: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + Visible = False + OnClick = ToolButton9Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object Panel4: TPanel + Left = 528 + Top = 0 + Width = 176 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label13: TLabel + Left = 3 + Top = 9 + Width = 52 + Height = 12 + Caption = #26631#31614#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabName: TBtnEditA + Left = 61 + Top = 5 + Width = 108 + Height = 20 + TabOrder = 0 + OnBtnClick = LabNameBtnClick + end + end + object ToolButton7: TToolButton + Left = 704 + Top = 0 + Caption = #25171#21360#25343#26679#28165#21333 + ImageIndex = 68 + OnClick = ToolButton7Click + end + object ToolButton8: TToolButton + Left = 811 + Top = 0 + AutoSize = True + Caption = #31354#30333#20449#31546#32440 + ImageIndex = 76 + OnClick = ToolButton8Click + end + object TBClose: TToolButton + Left = 910 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 193 + Width = 1083 + Height = 287 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object v1Column20: TcxGridDBColumn + Caption = #25343#26679#32534#21495 + DataBinding.FieldName = 'CKNO' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 98 + end + object v1Column19: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 83 + end + object v1Column18: TcxGridDBColumn + Caption = #25343#26679#26102#38388 + DataBinding.FieldName = 'CKDate' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 106 + end + object v1Column12: TcxGridDBColumn + Caption = #26679#21697#31867#21035 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column7: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column9: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1Column14: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + end + object v1Column10: TcxGridDBColumn + Caption = #20154#27665#24065#20215#26684 + DataBinding.FieldName = 'RMBPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1Column15: TcxGridDBColumn + Caption = #32654#37329#20215#26684 + DataBinding.FieldName = 'USDPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 64 + end + object v1Column16: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #31995#25968 + DataBinding.FieldName = 'LiRunLv' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1Column13: TcxGridDBColumn + DataBinding.FieldName = 'CIF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CKNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1083 + Height = 162 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label2: TLabel + Left = 184 + Top = 16 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label1: TLabel + Left = 184 + Top = 67 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 184 + Top = 92 + Width = 48 + Height = 12 + Caption = #33521#25991#21517#31216 + end + object Label5: TLabel + Left = 184 + Top = 41 + Width = 48 + Height = 12 + Caption = #35268' '#26684 + end + object Label3: TLabel + Left = 184 + Top = 118 + Width = 48 + Height = 12 + Caption = #23458' '#25143 + end + object Label6: TLabel + Left = 16 + Top = 16 + Width = 48 + Height = 12 + Caption = #25343#26679#26085#26399 + end + object Label7: TLabel + Left = 184 + Top = 143 + Width = 52 + Height = 12 + Caption = #25343#26679#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Image2: TImage + Left = 377 + Top = 2 + Width = 192 + Height = 159 + end + object CYNo: TEdit + Tag = 2 + Left = 235 + Top = 12 + Width = 101 + Height = 20 + TabOrder = 0 + OnChange = CYNoChange + OnKeyPress = CYNoKeyPress + end + object CYName: TEdit + Tag = 2 + Left = 235 + Top = 63 + Width = 101 + Height = 20 + TabOrder = 1 + OnChange = CYNoChange + end + object CYEName: TEdit + Tag = 2 + Left = 235 + Top = 88 + Width = 101 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object CYSpec: TEdit + Tag = 2 + Left = 235 + Top = 37 + Width = 101 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object KHName: TEdit + Tag = 2 + Left = 235 + Top = 114 + Width = 101 + Height = 20 + TabOrder = 4 + OnChange = CYNoChange + end + object BegDate: TDateTimePicker + Left = 64 + Top = 12 + Width = 89 + Height = 20 + Date = 40970.965677256940000000 + Time = 40970.965677256940000000 + TabOrder = 5 + end + object EndDate: TDateTimePicker + Left = 64 + Top = 35 + Width = 89 + Height = 20 + Date = 40970.965677256940000000 + Time = 40970.965677256940000000 + TabOrder = 6 + end + object CKNO: TEdit + Tag = 2 + Left = 235 + Top = 139 + Width = 101 + Height = 20 + TabOrder = 7 + OnKeyPress = CKNOKeyPress + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 488 + Width = 1083 + Height = 130 + Align = alBottom + TabOrder = 3 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 63 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 53 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21367#26679 + #25512#38144#26679 + #33337#26679) + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 74 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #31859 + #20844#26020 + #22871) + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Width = 62 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 480 + Width = 1083 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object DataSource1: TDataSource + DataSet = ADOQueryPrint + Left = 395 + Top = 91 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 341 + Top = 265 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 933 + Top = 73 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 965 + Top = 81 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 528 + Top = 216 + end + object DataSource2: TDataSource + DataSet = CDS_Main + Left = 491 + Top = 211 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 453 + Top = 209 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 208 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 368 + Top = 256 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 424 + Top = 296 + end + object ODPat: TOpenDialog + Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 900 + Top = 189 + end + object IdFTP1: TIdFTP + MaxLineAction = maException + ReadTimeout = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + Left = 901 + Top = 228 + end + object SaveDialog1: TSaveDialog + Left = 905 + Top = 277 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 488 + Top = 312 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 528 + Top = 304 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 640 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 640 + Top = 536 + end + object DataSource3: TDataSource + DataSet = ClientDataSet2 + Left = 675 + Top = 539 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 704 + Top = 536 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.pas b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.pas new file mode 100644 index 0000000..e059d23 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KHGetCPManage.pas @@ -0,0 +1,546 @@ +unit U_KHGetCPManage; //4 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, RM_e_Xls,jpeg, BtnEdit, + cxButtonEdit, cxDropDownEdit; + +type + TfrmKHGetCPManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryPrint: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + Panel1: TPanel; + Label2: TLabel; + CYNo: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + DataSource2: TDataSource; + ADOQueryMain: TADOQuery; + CDS_Main: TClientDataSet; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label3: TLabel; + KHName: TEdit; + Label6: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + Label7: TLabel; + CKNO: TEdit; + ToolButton7: TToolButton; + RM2: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + ToolButton8: TToolButton; + Image2: TImage; + ToolButton9: TToolButton; + Panel4: TPanel; + Label13: TLabel; + LabName: TBtnEditA; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + ClientDataSet2: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CYNoKeyPress(Sender: TObject; var Key: Char); + procedure CYNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CKNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton9Click(Sender: TObject); + procedure LabNameBtnClick(Sender: TObject); + private + { Private declarations } + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + procedure InitGrid(); + procedure ReadINIFile(); + + public + { Public declarations } + end; + +var + frmKHGetCPManage: TfrmKHGetCPManage; + +implementation +uses + U_DataLink,U_RTFun,U_CPAdd,U_FileUp,U_KHGetCPAdd,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmKHGetCPManage.InitTree(); +var + i:Integer; +begin + {with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from CP_Type order by CPlevel,CPName'); + Open; + end; + cxDBTreeList1.Items[0].Expand(false); } + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmKHGetCPManage.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=''; + Parameters.ParamByName('Begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('EndDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1)); + Parameters.ParamByName('PState').Value:=0; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmKHGetCPManage.FormDestroy(Sender: TObject); +begin + frmKHGetCPManage:=nil; +end; + +procedure TfrmKHGetCPManage.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKHGetCPManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻ',Tv1,'Ʒ'); + if DirectoryExists(ExtractFileDir('E:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmKHGetCPManage.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete CP_YDang_KHGet where CKID='''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YP_KC Set KCQty=(select sum(Qty*QtyFlag) from CK_YP_CR A where A.CRID=CK_YP_KC.CRID'); + sql.Add(' and isnull(A.QYCKID,'''')<>'''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''')'); + sql.Add(' where CRID in'); + sql.Add('(select CRID from CK_YP_CR where isnull(QYCKID,'''')='''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''')'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_YP_CR where isnull(QYCKID,'''')='''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmKHGetCPManage.FormShow(Sender: TObject); +begin + //InitTree(); + ReadCxGrid('Ʒб',Tv1,'Ʒ'); + + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-7; +end; + +procedure TfrmKHGetCPManage.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKHGetCPManage.TBAddClick(Sender: TObject); +begin + try + frmKHGetCPAdd:=TfrmKHGetCPAdd.Create(Application); + with frmKHGetCPAdd do + begin + FCYID:=''; + //FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + //FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmKHGetCPAdd.Free; + end; +end; + +procedure TfrmKHGetCPManage.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmKHGetCPManage.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + frmKHGetCPAdd:=TfrmKHGetCPAdd.Create(Application); + with frmKHGetCPAdd do + begin + FCYID:=Trim(Self.CDS_Main.fieldbyname('CKNO').AsString); + //FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + //FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmKHGetCPAdd.Free; + end; +end; + +procedure TfrmKHGetCPManage.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmKHGetCPManage.CYNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_YDang where CYID='''+Trim(CYNo.Text)+''''); + Open; + CYNo.Text:=Trim(fieldbyname('CYNo').AsString); + end; + end; +end; + +procedure TfrmKHGetCPManage.CYNoChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmKHGetCPManage.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('ͻ',cxGrid1); +end; + +procedure TfrmKHGetCPManage.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmKHGetCPManage.ReadINIFile(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmKHGetCPManage.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + // ToolButton6.Click; +end; + +procedure TfrmKHGetCPManage.CKNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(CKNO.Text)='' then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=Trim(CKNO.Text); + Parameters.ParamByName('Begdate').Value:=''; + Parameters.ParamByName('EndDate').Value:=''; + Parameters.ParamByName('PState').Value:=3; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + CKNO.Text:=''; + finally + ADOQueryMain.EnableControls; + end; + end; + +end; + +procedure TfrmKHGetCPManage.ToolButton7Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryPrint do + begin + Close; + sql.Clear; + SQL.Add('exec P_Select_Get_CP_YDang :CKID,:Begdate,:EndDate,:PState'); + Parameters.ParamByName('CKID').Value:=Trim(CDS_Main.fieldbyname('CKNO').AsString); + Parameters.ParamByName('Begdate').Value:=''; + Parameters.ParamByName('EndDate').Value:=''; + Parameters.ParamByName('PState').Value:=3; + Open; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\嵥.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RMVariables['printer']:=Trim(DName); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\嵥.rmf'),'ʾ',0); + end; +end; + +procedure TfrmKHGetCPManage.ToolButton8Click(Sender: TObject); +var + fPrintFile:string; +begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\հżֽ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\հżֽ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmKHGetCPManage.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.CRTime,A.CRID,A.BCID,A.Qty,A.QtyUnit,A.CYColor,A.Note,A.CYType,A.BCID '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID),C.KCQty,A.CYID '); + SQL.Add(' from CK_YP_CR A inner join CP_YDang B on A.CYID=B.CYID '); + sql.Add(' inner join CK_YP_KC C on A.CRID=C.CRID'); + sql.Add(' where A.QYCKID='''+Trim(CDS_Main.fieldbyname('CKID').AsString)+''''); + sql.Add(' and CRFlag='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmKHGetCPManage.ToolButton9Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + frmKHGetCPAdd:=TfrmKHGetCPAdd.Create(Application); + with frmKHGetCPAdd do + begin + FCYID:=Trim(Self.CDS_Main.fieldbyname('CKNO').AsString); + CopyInt:=99; + //FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString); + //FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmKHGetCPAdd.Free; + end; +end; + +procedure TfrmKHGetCPManage.LabNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPLabName'; + flagname:='Ʒǩ'; + fnote:=True; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + if ShowModal=1 then + begin + Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_KKList.dfm new file mode 100644 index 0000000..df72523 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KKList.dfm @@ -0,0 +1,793 @@ +object frmKKList: TfrmKKList + Left = 29 + Top = 82 + Width = 1236 + Height = 592 + Caption = #25187#27454#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1220 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + end + object TBPrint: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + end + object TBRKCX: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25764#38144#26816#39564 + ImageIndex = 52 + end + object TBClose: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1220 + Height = 66 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #36131#20219#24037#21378 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 2 + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 3 + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 97 + Width = 1220 + Height = 456 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + ClientRectBottom = 456 + ClientRectRight = 1220 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #24453#30331#35760 + ImageIndex = 0 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1220 + Height = 433 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 36 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 46 + end + object Tv1Column1: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 63 + end + object Tv1Column3: TcxGridDBColumn + Tag = 99 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + end + object Tv1Column4: TcxGridDBColumn + Tag = 99 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 66 + end + object v1Column13: TcxGridDBColumn + Tag = 99 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 65 + end + object v1Column11: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 52 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24050#30331#35760 + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1220 + Height = 225 + Align = alTop + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + end + item + Format = '0' + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v2Column6: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v2Column3: TcxGridDBColumn + Caption = #25187#27454#21407#22240 + Width = 75 + end + object v2Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + Width = 60 + end + object v2Column5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + Width = 78 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + Width = 63 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 99 + Caption = #21327#21830#25187#27454#37329#39069 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v2Column1: TcxGridDBColumn + Caption = #26368#32456#25187#27454#37329#39069 + Width = 88 + end + object v2Column2: TcxGridDBColumn + Caption = #22788#29702#20154 + HeaderAlignmentHorz = taCenter + Width = 53 + end + object cxGridDBColumn27: TcxGridDBColumn + Tag = 99 + Caption = #36130#21153#26680#38144 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn19: TcxGridDBColumn + Tag = 99 + Caption = #22791#27880 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 117 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 8 + Top = 240 + Width = 1153 + Height = 185 + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn13 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn11: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn29: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v3Column1: TcxGridDBColumn + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'DutyPerMoney' + Width = 76 + end + object cxGridDBColumn30: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378#25187#27454 + DataBinding.FieldName = 'DutyFtyMoney' + Width = 86 + end + object cxGridDBColumn31: TcxGridDBColumn + Tag = 99 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn32: TcxGridDBColumn + Tag = 99 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn33: TcxGridDBColumn + Tag = 99 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn35: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn36: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn38: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn39: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn40: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn41: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn42: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 50 + end + object cxGridDBColumn43: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KKList.pas b/坯布码单待检(PBMDDJ.dll)/U_KKList.pas new file mode 100644 index 0000000..5081fb4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KKList.pas @@ -0,0 +1,126 @@ +unit U_KKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxPC, cxControls, ComCtrls, StdCtrls, ExtCtrls, ToolWin, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCheckBox, cxCalendar, cxDropDownEdit, + cxButtonEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid; + +type + TfrmKKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton2: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBRKCX: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + MJID: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridDBColumn38: TcxGridDBColumn; + cxGridDBColumn39: TcxGridDBColumn; + cxGridDBColumn40: TcxGridDBColumn; + cxGridDBColumn41: TcxGridDBColumn; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn43: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmKKList: TfrmKKList; + +implementation + +{$R *.dfm} + +procedure TfrmKKList.FormDestroy(Sender: TObject); +begin + frmKKList:=nil; +end; + +procedure TfrmKKList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_KKView.dfm b/坯布码单待检(PBMDDJ.dll)/U_KKView.dfm new file mode 100644 index 0000000..18b19a0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KKView.dfm @@ -0,0 +1,884 @@ +object frmKKView: TfrmKKView + Left = 88 + Top = 59 + Width = 1196 + Height = 669 + Caption = 'frmKKView' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1188 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1188 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label11: TLabel + Left = 490 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label4: TLabel + Left = 617 + Top = 12 + Width = 84 + Height = 12 + Caption = #21327#21830#20013#25187#27454#24037#21378 + end + object Label8: TLabel + Left = 617 + Top = 36 + Width = 72 + Height = 12 + Caption = #26368#32456#25187#27454#24037#21378 + end + object Label9: TLabel + Left = 816 + Top = 12 + Width = 96 + Height = 12 + Caption = #21327#21830#20013#25187#27454#36131#20219#20154 + end + object Label10: TLabel + Left = 818 + Top = 36 + Width = 84 + Height = 12 + Caption = #26368#32456#25187#27454#36131#20219#20154 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 74 + Height = 20 + TabOrder = 0 + OnChange = orderNoChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = MDNOKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 74 + Height = 20 + TabOrder = 5 + OnChange = orderNoChange + end + object MDFactoryName: TEdit + Tag = 2 + Left = 527 + Top = 8 + Width = 79 + Height = 20 + TabOrder = 6 + OnChange = orderNoChange + end + object TJXSInfo: TEdit + Tag = 2 + Left = 701 + Top = 8 + Width = 104 + Height = 20 + TabOrder = 7 + OnChange = orderNoChange + end + object TJJGInfo: TEdit + Tag = 2 + Left = 701 + Top = 32 + Width = 104 + Height = 20 + TabOrder = 8 + OnChange = orderNoChange + end + object TJXSPonInfo: TEdit + Tag = 2 + Left = 913 + Top = 8 + Width = 55 + Height = 20 + TabOrder = 9 + OnChange = orderNoChange + end + object TJJGPonInfo: TEdit + Tag = 2 + Left = 913 + Top = 32 + Width = 55 + Height = 20 + TabOrder = 10 + OnChange = orderNoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 92 + Width = 1188 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #21327#21830#20013 + #21327#21830#23436#32467 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1188 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 117 + Width = 1188 + Height = 272 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object Tv1Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#24037#21378 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 107 + end + object v1Column2: TcxGridDBColumn + Caption = #21327#21830#20013#24037#21378#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 113 + end + object v1Column5: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#36131#20219#20154 + DataBinding.FieldName = 'TJXSPonInfo' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 111 + end + object v1Column6: TcxGridDBColumn + Caption = #21327#21830#20013#36131#20219#20154#25187#27454 + DataBinding.FieldName = 'TJXSPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 113 + end + object v1Column3: TcxGridDBColumn + Caption = #26368#32456#25187#27454#24037#21378 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 98 + end + object v1Column4: TcxGridDBColumn + Caption = #26368#32456#24037#21378#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 97 + end + object v1Column7: TcxGridDBColumn + Caption = #26368#32456#25187#27454#36131#20219#20154 + DataBinding.FieldName = 'TJJGPonInfo' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 100 + end + object v1Column8: TcxGridDBColumn + Caption = #26368#32456#36131#20219#20154#25187#27454 + DataBinding.FieldName = 'TJJGPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 102 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 397 + Width = 1188 + Height = 241 + Align = alBottom + TabOrder = 4 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 553 + Height = 237 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn8 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #25187#27454#21327#21830 + Width = 549 + end> + object v2Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 77 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 220 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid4: TcxGrid + Left = 553 + Top = 0 + Width = 631 + Height = 237 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn13 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #26368#32456#25187#27454 + Width = 640 + end> + object v3Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn13: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn14: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 239 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv4 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 389 + Width = 1188 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = ScrollBox1 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 200 + Top = 483 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 235 + Top = 473 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 284 + Top = 480 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 793 + Top = 500 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 863 + Top = 498 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 904 + Top = 488 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 427 + Top = 187 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 455 + Top = 187 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 485 + Top = 189 + end + object ADOQuery3: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_KKView.pas b/坯布码单待检(PBMDDJ.dll)/U_KKView.pas new file mode 100644 index 0000000..2b863be --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_KKView.pas @@ -0,0 +1,440 @@ +unit U_KKView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + cxSplitter, cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, cxPC, StdCtrls, ComCtrls, ExtCtrls, + ToolWin, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, DBClient; + +type + TfrmKKView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label11: TLabel; + MPRTCodeName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + MDNO: TEdit; + MPRTCode: TEdit; + MDFactoryName: TEdit; + cxTabControl1: TcxTabControl; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ScrollBox1: TScrollBox; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + v2Pon: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBBandedTableView; + v3Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn13: TcxGridDBBandedColumn; + cxGridDBBandedColumn14: TcxGridDBBandedColumn; + v3Pon: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridLevel4: TcxGridLevel; + cxSplitter1: TcxSplitter; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource4: TDataSource; + ClientDataSet4: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu1: TcxGridPopupMenu; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + ADOQuery3: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Label4: TLabel; + TJXSInfo: TEdit; + Label8: TLabel; + TJJGInfo: TEdit; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label9: TLabel; + TJXSPonInfo: TEdit; + Label10: TLabel; + TJJGPonInfo: TEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmKKView: TfrmKKView; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote,U_TJCKRKOK; + +{$R *.dfm} + +procedure TfrmKKView.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKKView.FormDestroy(Sender: TObject); +begin + frmKKView:=nil; +end; + +procedure TfrmKKView.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + // Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(JMM.Status,'''')=''Э'' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(JMM.Status,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.Status,'''')<>'''' '; + end; + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + if Trim(MDFactoryName.Text)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''') like '''+'%'+Trim(MDFactoryName.Text)+'%'+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmKKView.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + //SDofilter10(ClientDataSet3,SGetFilters(Panel1,1,2)); + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmKKView.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmKKView.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.Status,'''')=''Э'' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.Status,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.Status,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmKKView.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' and exists(select * from JYOrder_Main_MD_KK JMK where JMK.MDID=JMM.MDID)'; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.Status,'''')=''Э'' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(JMM.Status,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.Status,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmKKView.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmKKView.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')=''Э'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet4); + SInitCDSData20(ADOQuery1,ClientDataSet4); +end; + +procedure TfrmKKView.FormShow(Sender: TObject); +begin + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; + cxTabControl1.TabIndex:=0; + ReadCxGrid('tv1',Tv1,'ۿѯ'); + ReadCxBandedGrid('tv2',Tv2,'ۿѯ'); + ReadCxBandedGrid('tv4',Tv4,'ۿѯ'); +end; + +procedure TfrmKKView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('tv1',Tv1,'ۿѯ'); + WriteCxBandedGrid('tv2',Tv2,'ۿѯ'); + WriteCxBandedGrid('tv4',Tv4,'ۿѯ'); + Close; +end; + +procedure TfrmKKView.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + TcxGridToExcel('ڲֿۿ뵥',cxGrid1); +end; + +procedure TfrmKKView.Tv1DblClick(Sender: TObject); +var + fsj:string; +begin + try + frmTJCKRKOK:=TfrmTJCKRKOK.Create(Application); + with frmTJCKRKOK do + begin + if Self.cxTabControl1.TabIndex=0 then + begin + frmTJCKRKOK.cxTabControl1.TabIndex:=2; + end else + if Self.cxTabControl1.TabIndex=1 then + begin + frmTJCKRKOK.cxTabControl1.TabIndex:=3; + end; + //frmTJCKRKOK.OrderNo.Text:=Trim(self.ClientDataSet3.fieldbyname('OrderNo').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.MDID='''+Trim(Self.ClientDataSet3.fieldbyname('MDID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + + if Self.cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')=''Э'' '); + end else + if Self.cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + ClientDataSet6.Locate('MDNO',Trim(Self.ClientDataSet3.fieldbyname('MDNO').AsString),[]); + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_Main_MD where ORDMainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(frmTJCKRKOK.ADOQueryTemp,frmTJCKRKOK.v2fty,fsj,1,True,''); + with frmTJCKRKOK.ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCSHDataNew(frmTJCKRKOK.ADOQuery1,frmTJCKRKOK.ScrollBox1,2); + frmTJCKRKOK.InitGridKK(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + {if ADOQueryTemp.IsEmpty=False then + begin + RKPS.ReadOnly:=True; + RKQty.ReadOnly:=True; + end;} + if ShowModal=1 then + begin + + end; + end; + finally + frmTJCKRKOK.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.dfm b/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.dfm new file mode 100644 index 0000000..0f4e785 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.dfm @@ -0,0 +1,313 @@ +object frmLabelAdd: TfrmLabelAdd + Left = 191 + Top = 109 + Width = 997 + Height = 612 + BorderIcons = [biMaximize] + Caption = #26631#31614#32534#36753 + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 28 + Width = 413 + Height = 513 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 31 + Top = 21 + Width = 60 + Height = 12 + Caption = #26631#31614#25991#20214#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label3: TLabel + Left = 31 + Top = 95 + Width = 60 + Height = 12 + Caption = #22791' '#27880#65306 + end + object Label9: TLabel + Left = 31 + Top = 71 + Width = 60 + Height = 12 + Caption = #26631#31614#21517#31216#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 31 + Top = 47 + Width = 60 + Height = 12 + Caption = #26631#31614#31867#22411#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object LabelFileName: TBtnEditA + Left = 92 + Top = 17 + Width = 260 + Height = 20 + ReadOnly = True + TabOrder = 0 + OnBtnClick = LabelFileNameBtnClick + end + object beizhu: TMemo + Left = 92 + Top = 92 + Width = 257 + Height = 149 + ScrollBars = ssBoth + TabOrder = 1 + end + object LabelCaption: TEdit + Left = 92 + Top = 67 + Width = 258 + Height = 20 + ReadOnly = True + TabOrder = 2 + end + object LabelType: TFTComboBox + Tag = 99 + Left = 92 + Top = 43 + Width = 260 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 3 + Text = #20013#25991#26631#31614 + Items.Strings = ( + #20013#25991#26631#31614 + #33521#25991#26631#31614 + #20013#33521#25991#26631#31614) + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 981 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar2' + Color = clBtnFace + Flat = True + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 1 + Transparent = False + object Tsave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384#26631#31614 + ImageIndex = 5 + OnClick = TsaveClick + end + object Tclose: TToolButton + Left = 87 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TcloseClick + end + end + object RMPreview1: TRMPreview + Left = 428 + Top = 32 + Width = 553 + Height = 541 + Align = alRight + BevelOuter = bvLowered + Caption = #26631#31614#39044#35272 + TabOrder = 2 + OnDblClick = RMPreview1DblClick + Options.RulerUnit = rmutScreenPixels + Options.RulerVisible = False + Options.DrawBorder = False + Options.BorderPen.Color = clGray + Options.BorderPen.Style = psDash + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + CommandTimeout = 300 + Parameters = <> + Left = 512 + Top = 208 + end + object OpenDialog1: TOpenDialog + Filter = 'RMFl(*.rmf)|*.rmf' + InitialDir = '.' + Left = 200 + Top = 4 + end + object RMGridReport1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + ShowProgress = False + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + Preview = RMPreview1 + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 8 + ReportData = {} + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + CommandTimeout = 300 + Parameters = <> + Left = 528 + Top = 184 + end + object RMGridReportDesigner1: TRMGridReportDesigner + Left = 376 + Top = 8 + end + object RMBarCodeObject1: TRMBarCodeObject + Left = 280 + Top = 4 + end + object RMBMPExport1: TRMBMPExport + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + Left = 408 + Top = 8 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 10 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 440 + Top = 8 + end + object RMDS_Main: TRMDBDataSet + Visible = True + AliasName = #26631#31614#25968#25454 + Left = 498 + Top = 72 + end + object RMDataDictionary1: TRMDataDictionary + FieldFieldNames.TableName = 'TableName' + FieldFieldNames.FieldName = 'FieldName' + FieldFieldNames.FieldAlias = 'FieldAlias' + Left = 562 + Top = 72 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 352 + Top = 480 + end + object RMGridReport2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + ShowProgress = False + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDS_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 432 + Top = 368 + ReportData = {} + end + object ADOQueryCmdSC: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 296 + Top = 304 + object ADOQueryCmdFileContent: TBlobField + FieldName = 'Files' + end + object ADOQueryCmdFtFileName: TStringField + FieldName = 'FileName' + Size = 40 + end + object ADOQueryCmdFileEditDate: TDateTimeField + FieldName = 'FileEditDate' + end + object ADOQueryCmdFileSize: TFloatField + FieldName = 'FileSize' + end + object ADOQueryCmdFiller: TStringField + FieldName = 'Filler' + end + object ADOQueryCmdLastEditTime: TDateTimeField + FieldName = 'LastEditTime' + end + object ADOQueryCmdLastEditer: TStringField + FieldName = 'LastEditer' + end + object ADOQueryCmdFileCreateDate: TDateTimeField + FieldName = 'FileCreateDate' + end + object ADOQueryCmdchildPath: TStringField + FieldName = 'FilePath' + end + object ADOQueryCmdFileType: TStringField + FieldName = 'FileType' + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.pas b/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.pas new file mode 100644 index 0000000..d003c58 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_LabelAdd.pas @@ -0,0 +1,455 @@ +unit U_LabelAdd; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB, + RM_System, RM_Common, RM_Class, RM_GridReport, Buttons, FTComboBox, + RM_Preview, RM_e_Xls, RM_e_Graphic, RM_e_bmp, RM_BarCode, + RM_DsgGridReport, RM_Dataset, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid; + +type + TfrmLabelAdd = class(TForm) + Panel1: TPanel; + Label2: TLabel; + Label3: TLabel; + LabelFileName: TBtnEditA; + beizhu: TMemo; + ToolBar1: TToolBar; + Tsave: TToolButton; + Tclose: TToolButton; + ADOQueryCmd: TADOQuery; + OpenDialog1: TOpenDialog; + RMGridReport1: TRMGridReport; + Label9: TLabel; + LabelCaption: TEdit; + Label10: TLabel; + LabelType: TFTComboBox; + ADOQueryTmp: TADOQuery; + RMPreview1: TRMPreview; + RMGridReportDesigner1: TRMGridReportDesigner; + RMBarCodeObject1: TRMBarCodeObject; + RMBMPExport1: TRMBMPExport; + RMXLSExport1: TRMXLSExport; + RMDS_Main: TRMDBDataSet; + RMDataDictionary1: TRMDataDictionary; + ADOQuery1: TADOQuery; + RMGridReport2: TRMGridReport; + ADOQueryCmdSC: TADOQuery; + ADOQueryCmdFileContent: TBlobField; + ADOQueryCmdFtFileName: TStringField; + ADOQueryCmdFileEditDate: TDateTimeField; + ADOQueryCmdFileSize: TFloatField; + ADOQueryCmdFiller: TStringField; + ADOQueryCmdLastEditTime: TDateTimeField; + ADOQueryCmdLastEditer: TStringField; + ADOQueryCmdFileCreateDate: TDateTimeField; + ADOQueryCmdchildPath: TStringField; + ADOQueryCmdFileType: TStringField; + procedure TcloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TsaveClick(Sender: TObject); + procedure LabelFileNameBtnClick(Sender: TObject); + procedure BtOpenClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure RMPreview1DblClick(Sender: TObject); + private + fIsChg:Boolean; + function SaveData():Boolean; + function EditData():Boolean; + procedure InitWinData(); + procedure InitVarDictionary(); + procedure InitDataSetDictionary(); + function PostFileToData():boolean; + procedure GetFileInfo(mFile:string;var mfileSize:integer;var CreationTime:tdatetime;var WriteTime:tdatetime); + function CovFileDate(Fd:_FileTime):TDateTime; + public + fcustomNo:string; + fKeyNo:string; + fWinStatus:integer; + end; + +var + frmLabelAdd: TfrmLabelAdd; + +implementation +uses + U_DataLink,U_RTFun; +{$R *.dfm} + +procedure TfrmLabelAdd.TcloseClick(Sender: TObject); +begin + if fIsChg then + begin + if application.MessageBox('ǩƹǷҪ?','ʾϢ',1)=1 then + begin + Tsave.Click ; + end + else + close; + end + else + close; +end; + +procedure TfrmLabelAdd.FormCreate(Sender: TObject); +begin + panel1.Align :=alClient; + fIsChg:=false; +// ClearWinData(panel1); + // InitVarDictionary(); +end; + +procedure TfrmLabelAdd.TsaveClick(Sender: TObject); +begin + if trim(labelCaption.Text)='' then + begin + application.MessageBox('ǩƲΪգ','ʾ'); + labelCaption.SetFocus; + exit; + end; + if trim(LabelFileName.Text)='' then + begin + application.MessageBox('ǩļΪգѡǩ','ʾ'); + LabelFileName.SetFocus; + exit; + end; + PostFileToData(); + if fWinStatus=0 then + begin + if SaveData() then + begin + ModalResult:=1; + end; + end + else + begin + if EditData() then + begin + ModalResult:=1; + end; + end; + +end; +function TfrmLabelAdd.PostFileToData():boolean; +var + mFileName,fFileName,fpathFileName:string; + Stream : TMemoryStream; + mfileSize:integer; + mCreationTime:TdateTime; + mWriteTime:TdateTime; +begin + result:=false; + fFileName:=Trim(LabelCaption.Text); + fpathFileName:=Trim(LabelFileName.Text); + try + ADOQueryCmdSC.Connection.BeginTrans ; + try + with ADOQueryCmdSC do + begin + close; + sql.Clear ; + sql.Add('delete from RT_FileUpdate'); + sql.Add('where FileName='+quotedStr(trim(fFileName))); + execsql; + end; + with ADOQueryCmdSC do + begin + close; + sql.Clear ; + sql.Add('select * from RT_FileUpdate'); + sql.Add('where FileName='+quotedStr(trim(fFileName))); + Open; + ////////////////////////// + //ȡļϢ + GetFileInfo(Trim(fpathFileName),mfileSize,mCreationTime,mWriteTime); + + if RecordCount<=0 then + begin + Append; + fieldByName('FileName').AsString := trim(fFileName); + end + else + begin + edit; + end; + + fieldByName('FileEditDate').Value :=mWriteTime; + fieldByName('FileCreateDate').Value :=mCreationTime; + fieldByName('FileSize').Value :=mfileSize; + fieldByName('Filler').Value :=Dname; + fieldByName('LastEditer').Value :=Dname; + fieldByName('LastEditTime').Value :=SGetServerDateTime(ADOQueryTmp); + if pos('.rmf',fFileName)>0 then + begin + fieldByName('FilePath').Value :='report'; + fieldByName('FileType').Value :=''; + end + else if pos('.dll',fFileName)>0 then + begin + fieldByName('FilePath').Value :=''; + fieldByName('FileType').Value :='һ'; + end + else + begin + fieldByName('FilePath').Value :=''; + fieldByName('FileType').Value :=''; + end; + //OLEݴݿ + ADOQueryCmdFileContent.LoadFromFile(fpathFileName); + //ADOQueryCmdFileContent.LoadFromStream(Stream); + + post; + end; + finally + end; + result:=true; + ADOQueryCmdSC.Connection.CommitTrans ; + except + ADOQueryCmdSC.Connection.RollbackTrans ; + Result:=False; + application.MessageBox(pchar('ύļ['+trim(fFileName)+']ʧ!'),'ʾϢ',MB_ICONERROR); + end; + +end; +procedure TfrmLabelAdd.GetFileInfo(mFile:string;var mfileSize:integer;var CreationTime:tdatetime;var WriteTime:tdatetime); +var + vSearchRec: TSearchRec; +begin + FindFirst(mFile,faAnyFile,vSearchRec); + mfileSize:=vSearchRec.Size; + CreationTime:=CovFileDate(vSearchRec.FindData.ftCreationTime);//ʱ + //vSearchRec.FindData.ftLastAccessTime//ʱ + WriteTime:=CovFileDate(vSearchRec.FindData.ftLastWriteTime);//޸ʱ + FindClose(vSearchRec); +end; +function TfrmLabelAdd.CovFileDate(Fd:_FileTime):TDateTime; +var + Tct:_SystemTime; + Temp:_FileTime; +begin + FileTimeToLocalFileTime(Fd,Temp); + FileTimeToSystemTime(Temp,Tct); + CovFileDate:=SystemTimeToDateTime(Tct); +end; + +///////////////////////////////////////////////////////////////////// + //ܣ +///////////////////////////////////////////////////////////////////// +function TfrmLabelAdd.SaveData():Boolean; +begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from P_Label'); + sql.Add('where 1<>1'); + Open; + + Append; + fieldByName('filler').value:=DName; + fieldByName('filltime').value:=DServerDate; + fieldByName('beizhu').value:= trim(beizhu.text); + fieldByName('LabelCaption').value:=trim(LabelCaption.text); + fieldByName('LabelType').value:=trim(LabelType.text); + fieldByName('LabelFileName').value:= trim(LabelFileName.text); + //TBlobField(FieldByName('LabelFile')).LoadFromStream(fStream); + RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile'))); + Post; + end; + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label where LabelCaption='''+Trim(LabelCaption.text)+''''); + Open; + end; + if ADOQueryTmp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ǩظ!','ʾ',0); + Exit; + end; + + ADOQueryCmd.Connection.CommitTrans; + result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=false; + application.MessageBox('ǩģ!','Ϣ',0); + end; +end; + +///////////////////////////////////////////////////////////////////// + //ܣ +///////////////////////////////////////////////////////////////////// +function TfrmLabelAdd.EditData():Boolean; +begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from P_Label'); + sql.Add('where labelId='+fkeyNo); + Open; + Edit; + fieldByName('LabelCaption').value:=trim(LabelCaption.text); + fieldByName('LabelType').value:=trim(LabelType.text); + fieldByName('LabelFileName').value:= trim(LabelFileName.text); + RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile'))); + fieldByName('Editer').value:=DName; + fieldByName('EditTime').value:=DServerDate; + fieldByName('beizhu').value:= trim(beizhu.text); + Post; + end; + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label where LabelCaption='''+Trim(LabelCaption.text)+''''); + Open; + end; + if ADOQueryTmp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ǩظ!','ʾ',0); + Exit; + end; + + ADOQueryCmd.Connection.CommitTrans; + result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=false; + application.MessageBox('ǩģ!','Ϣ',0); + end; +end; + +procedure TfrmLabelAdd.LabelFileNameBtnClick(Sender: TObject); +begin + if OpenDialog1.Execute() then + begin + LabelFileName.Text:=OpenDialog1.FileName; + LabelCaption.Text:=Trim(ExtractFileName(OpenDialog1.FileName)); + RMGridReport1.LoadFromFile(LabelFileName.Text); + RMGridReport1.Preview :=RMPreview1; + RMGridReport1.ShowReport ; + end; +end; + +procedure TfrmLabelAdd.BtOpenClick(Sender: TObject); +begin + + +end; +//////////////////////////////////////////////////////////// + //ʼ +//////////////////////////////////////////////////////////// +procedure TfrmLabelAdd.InitWinData(); +begin + try + with ADOQueryTmp do + begin + close; + sql.Clear ; + sql.Add('select A.*'); + // sql.Add('customNoName=isnull((select customName from BC_customer where customNO=A.customNo),A.customNo)'); + sql.Add('from P_Label A'); + sql.Add('WHERE LabelId='+fkeyNo); + Open; + if isEmpty then + begin + close; + exit; + end; + + SSetWinData(ADOQueryTmp,panel1); + RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile'))); + RMGridReport2.FileName:=trim(fieldByName('labelFileName').AsString); + RMGridReport2.LoadFromBlobField(tblobfield(fieldbyname('labelFile'))); + RMGridReport1.Preview :=RMPreview1; + //RMGridReport1.PrepareReport; + RMGridReport1.ShowReport ; + end; + except + end; +end; + +procedure TfrmLabelAdd.FormShow(Sender: TObject); +begin + if fWinStatus>0 then + InitWinData(); +end; + +procedure TfrmLabelAdd.RMPreview1DblClick(Sender: TObject); +begin + //btOpen.Click ; +end; +//////////////////////////////////////////////////////////// + // +//////////////////////////////////////////////////////////// +procedure TfrmLabelAdd.InitVarDictionary(); +var + i:integer; +begin +{ try + with RMGridReport2 do + begin + Dictionary.Variables.Clear ; + Dictionary.Variables.AddCategory('ͻλϢ'); + with ADOQueryTmp do + begin + close; + sql.clear; + sql.Add('exec P_Label_CustPrintData'); + sql.Add(quotedStr(fCustomNo)); + Open; + for i:=0 to FieldCount-1 do + begin + + Dictionary.Variables.Add(trim(fields[i].FieldName) + ,''); + Dictionary.Variables.AsString[trim(fields[i].FieldName)]:=trim(fields[i].AsString); + end; + end; + end; + finally + + end; } +end; +///////////////////////////////////////////////// + // +///////////////////////////////////////////////// +procedure TfrmLabelAdd.InitDataSetDictionary(); +begin +{ with ADOQuery1 do + begin + close; + sql.Clear ; + sql.Add('exec P_Label_PrintSet'); + sql.Add(quotedStr('')); + //sql.Add(','+quotedStr('')); + //sql.Add(','+quotedStr('')); + //sql.Add(','+quotedStr('')); + //sql.Add(','+quotedStr('')); + OPen; + end; + with RMGridReport2 do + begin + Dictionary.FieldAliases.Clear; + Dictionary.FieldAliases['RMDS_Main']:= 'ǩ'; + Dictionary.FieldAliases['RMDS_Main."barcode"']:='ǩ'; + end; } +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_LabelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_LabelList.dfm new file mode 100644 index 0000000..90fcebd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_LabelList.dfm @@ -0,0 +1,438 @@ +object frmLabelList: TfrmLabelList + Left = 145 + Top = 10 + Width = 1057 + Height = 693 + BorderIcons = [biMaximize] + Caption = #26631#31614#20449#24687 + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poOwnerFormCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 12 + Top = 80 + Width = 452 + Height = 561 + BevelOuter = bvNone + TabOrder = 0 + object Panel2: TPanel + Left = 0 + Top = 3 + Width = 452 + Height = 558 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 448 + Height = 554 + Align = alClient + TabOrder = 0 + object tv1: TcxGridDBTableView + OnDblClick = tv1DblClick + NavigatorButtons.ConfirmDelete = False + OnCellClick = tv1CellClick + OnFocusedRecordChanged = tv1FocusedRecordChanged + DataController.DataSource = DS_Label + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object tv1labelId: TcxGridDBColumn + Caption = #26631#31614'ID' + DataBinding.FieldName = 'labelId' + Visible = False + Width = 53 + end + object tv1labeltype: TcxGridDBColumn + Caption = #26631#31614#31867#22411 + DataBinding.FieldName = 'labeltype' + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + Width = 107 + end + object tv1labelCaption: TcxGridDBColumn + Caption = #26631#31614#21517#31216 + DataBinding.FieldName = 'labelCaption' + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + Width = 261 + end + object tv1labelFile: TcxGridDBColumn + Caption = #25991#20214#21517 + DataBinding.FieldName = 'labelFile' + Visible = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + Width = 167 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = tv1 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 452 + Height = 3 + Align = alTop + Caption = 'Panel3' + TabOrder = 1 + Visible = False + object Label1: TLabel + Left = 40 + Top = 13 + Width = 60 + Height = 12 + Caption = #23458#25143#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label2: TLabel + Left = 52 + Top = 35 + Width = 48 + Height = 12 + Caption = #19994#21153#21592#65306 + Visible = False + end + object Label4: TLabel + Left = 40 + Top = 61 + Width = 60 + Height = 12 + Caption = #30005#35805#21495#30721#65306 + end + object Label5: TLabel + Left = 39 + Top = 86 + Width = 60 + Height = 12 + Caption = #20844#21496#21517#31216#65306 + end + object Label6: TLabel + Left = 14 + Top = 108 + Width = 84 + Height = 12 + Caption = #20844#21496#33521#25991#21517#31216#65306 + end + object Label7: TLabel + Left = 61 + Top = 133 + Width = 36 + Height = 12 + Caption = #22320#22336#65306 + end + object Label8: TLabel + Left = 37 + Top = 157 + Width = 60 + Height = 12 + Caption = #33521#25991#22320#22336#65306 + end + object Label3: TLabel + Left = 61 + Top = 192 + Width = 36 + Height = 12 + Caption = #22791#27880#65306 + end + object Note: TMemo + Left = 120 + Top = 175 + Width = 293 + Height = 63 + ScrollBars = ssBoth + TabOrder = 0 + end + object EngAddress: TEdit + Left = 120 + Top = 151 + Width = 294 + Height = 20 + Enabled = False + TabOrder = 1 + end + object ChnAddress: TEdit + Left = 120 + Top = 127 + Width = 293 + Height = 20 + TabOrder = 2 + end + object engFactory: TEdit + Left = 119 + Top = 104 + Width = 295 + Height = 20 + TabOrder = 3 + end + object ChnFactory: TEdit + Left = 119 + Top = 81 + Width = 294 + Height = 20 + TabOrder = 4 + end + object TelePhone: TEdit + Left = 119 + Top = 58 + Width = 294 + Height = 20 + TabOrder = 5 + end + object ywy: TEdit + Tag = 99 + Left = 119 + Top = 31 + Width = 295 + Height = 20 + ReadOnly = True + TabOrder = 6 + Text = 'ywy' + Visible = False + end + object customNo: TBtnEditA + Tag = 1 + Left = 120 + Top = 7 + Width = 295 + Height = 20 + Enabled = False + ReadOnly = True + TabOrder = 7 + OnBtnClick = customNoBtnClick + end + end + end + object RMPreview1: TRMPreview + Left = 488 + Top = 85 + Width = 553 + Height = 569 + Align = alRight + BevelOuter = bvLowered + Caption = 'Insert After' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 1 + OnDblClick = RMPreview1DblClick + Options.RulerUnit = rmutScreenPixels + Options.RulerVisible = False + Options.DrawBorder = False + Options.BorderPen.Color = clGray + Options.BorderPen.Style = psDash + end + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1041 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar2' + Color = clBtnFace + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 2 + Transparent = False + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object TOK: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = TOkClick + end + object Tadd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686#26631#31614 + ImageIndex = 1 + OnClick = TaddClick + end + object Tupd: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20462#25913#26631#31614 + ImageIndex = 11 + OnClick = TupdClick + end + object Tdel: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #21024#38500#26631#31614 + ImageIndex = 3 + OnClick = TdelClick + end + object Tclose: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TcloseClick + end + end + object Panel4: TPanel + Left = 0 + Top = 32 + Width = 1041 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label9: TLabel + Left = 36 + Top = 20 + Width = 48 + Height = 12 + Caption = #26631#31614#31867#22411 + end + object Label10: TLabel + Left = 280 + Top = 20 + Width = 48 + Height = 12 + Caption = #26631#31614#26631#39064 + end + object LabelCaption: TEdit + Left = 332 + Top = 16 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = LabelTypeChange + end + object LabelType: TFTComboBox + Tag = 99 + Left = 88 + Top = 17 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + OnChange = LabelTypeChange + Items.Strings = ( + '' + #20013#25991#26631#31614 + #33521#25991#26631#31614 + #20013#33521#25991#26631#31614) + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + CommandTimeout = 300 + Parameters = <> + Left = 508 + Top = 208 + end + object OpenDialog1: TOpenDialog + Filter = 'RMFl(*.rmf)|*.rmf' + InitialDir = '.' + Left = 316 + Top = 148 + end + object RMGridReport1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + ModalPreview = False + ShowProgress = False + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + Preview = RMPreview1 + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 436 + Top = 152 + ReportData = {} + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + CommandTimeout = 300 + Parameters = <> + Left = 528 + Top = 184 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 392 + Top = 228 + end + object DS_Label: TDataSource + DataSet = ADOQueryLabel + Left = 66 + Top = 456 + end + object ADOQueryLabel10: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + CommandTimeout = 300 + Parameters = <> + Left = 234 + Top = 296 + end + object ADOQueryLabel: TClientDataSet + Aggregates = <> + Params = <> + Left = 156 + Top = 267 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_LabelList.pas b/坯布码单待检(PBMDDJ.dll)/U_LabelList.pas new file mode 100644 index 0000000..23a768f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_LabelList.pas @@ -0,0 +1,591 @@ +unit U_LabelList; + +interface + +uses + Windows, Messages, SysUtils, StrUtils,Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB, + RM_System, RM_Common, RM_Class, RM_GridReport, Buttons, FTComboBox, + RM_Preview, RM_e_Xls, RM_e_Graphic, RM_e_bmp, RM_BarCode, + RM_DsgGridReport, RM_Dataset, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, DBClient; + +type + TfrmLabelList = class(TForm) + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + OpenDialog1: TOpenDialog; + RMGridReport1: TRMGridReport; + ADOQueryTmp: TADOQuery; + RMPreview1: TRMPreview; + ADOQuery1: TADOQuery; + Panel2: TPanel; + cxGrid1: TcxGrid; + tv1: TcxGridDBTableView; + tv1labeltype: TcxGridDBColumn; + tv1labelCaption: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + tv1labelFile: TcxGridDBColumn; + DS_Label: TDataSource; + ADOQueryLabel10: TADOQuery; + Panel3: TPanel; + Note: TMemo; + EngAddress: TEdit; + ChnAddress: TEdit; + engFactory: TEdit; + ChnFactory: TEdit; + TelePhone: TEdit; + ywy: TEdit; + customNo: TBtnEditA; + Label1: TLabel; + Label2: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label3: TLabel; + tv1labelId: TcxGridDBColumn; + ToolBar2: TToolBar; + Tadd: TToolButton; + Tupd: TToolButton; + Tdel: TToolButton; + TOK: TToolButton; + Tclose: TToolButton; + Panel4: TPanel; + ToolButton1: TToolButton; + Label9: TLabel; + Label10: TLabel; + LabelCaption: TEdit; + LabelType: TFTComboBox; + ADOQueryLabel: TClientDataSet; + procedure TcloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TsaveClick(Sender: TObject); + procedure customNoBtnClick(Sender: TObject); + procedure BtOpenClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure RMPreview1DblClick(Sender: TObject); + procedure TaddClick(Sender: TObject); + procedure TupdClick(Sender: TObject); + procedure tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure TdelClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure TOkClick(Sender: TObject); + procedure tv1DblClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure LabelTypeChange(Sender: TObject); + procedure tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + isLoad:Boolean; + function SaveData():Boolean; + function EditData():Boolean; + function IsCheckCustOk():Boolean; + function DeleteData():Boolean; + procedure InitWinData(); + procedure InitVarDictionary(); + procedure InitDataSetDictionary(); + procedure InitGrid(); + procedure OpenLabel(); + procedure SetWinStatus(); + procedure DoFilter(); + public + fSelLabelId,LBName,LBInt,SLBName:String; + fKeyNo:string; + fchg:Boolean; + fIsShowModal:Boolean; + fWinStatus:integer; + end; + +var + frmLabelList: TfrmLabelList; + +implementation +uses + U_DataLink, U_LabelAdd,U_RTFun; +{$R *.dfm} +procedure TfrmLabelList.DoFilter(); +var + filterStr:string; +begin + filterStr:=''; + + if trim(LabelType.Text) <>'' then + begin + filterStr:=' and LabelType like '+quotedStr('%'+trim(LabelType.Text)+'%'); + end; + // + if trim(LabelCaption.Text)<>'' then + begin + filterStr:=filterStr+' and LabelCaption like '+quotedStr('%'+trim(LabelCaption.Text)+'%'); + end; + try + ADOQueryLabel10.DisableControls ; + if trim(filterStr)='' then + begin + ADOQueryLabel.Filtered:=false; + ADOQueryLabel.EnableControls; + exit; + end; + filterStr:=trim(RightBStr(filterStr,length(filterStr)-4)); + with ADOQueryLabel do + begin + filtered:=false; + filter:=filterStr; + filtered:=true; + end; + SCreateCDS20(ADOQueryLabel10,ADOQueryLabel); + SInitCDSData20(ADOQueryLabel10,ADOQueryLabel); + finally + ADOQueryLabel10.EnableControls; + end; +end; +procedure TfrmLabelList.TcloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmLabelList.FormCreate(Sender: TObject); +begin + panel1.Align :=alClient; + // ClearWinData(panel3); + fSelLabelId := ''; + + + +end; + +procedure TfrmLabelList.TsaveClick(Sender: TObject); +begin + if trim(customNO.Text)='' then + begin + application.MessageBox('ͻƲΪ,ѡͻ','ʾ'); + customNo.SetFocus; + exit; + end; + if application.MessageBox('ȷҪ?','ʾϢ',1)=2 then exit; + if fWinStatus=0 then + begin + if not IsCheckCustOk() then exit; + if SaveData() then + begin + fWinStatus:=1; + fchg:=true; + SetWinStatus(); + end; + end + else + begin + if EditData() then + begin + fchg:=true; + application.MessageBox('ɹ!','ʾϢ',0) + end; + end; +end; +///////////////////////////////////////////////////////////////////// + //ܣ +///////////////////////////////////////////////////////////////////// +function TfrmLabelList.SaveData():Boolean; +begin + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JD_Label'); + sql.Add('where 1<>1'); + Open; + + Append; + fieldByName('customno').value:=trim(customno.txtCode); + fieldByName('ChnFactory').value:=trim(ChnFactory.text); + fieldByName('engFactory').value:=trim(engFactory.text); + fieldByName('TelePhone').value:=trim(TelePhone.text); + fieldByName('ChnAddress').value:=trim(ChnAddress.text); + fieldByName('EngAddress').value:=trim(EngAddress.text); + fieldByName('filler').value:=Dname; + fieldByName('filltime').value:=DServerDate; + fieldByName('note').value:= trim(Note.text); + Post; + end; + result:=true; + except + Result:=false; + application.MessageBox('ǩģ!','Ϣ',0); + end; +end; + +///////////////////////////////////////////////////////////////////// + //ܣ +///////////////////////////////////////////////////////////////////// +function TfrmLabelList.EditData():Boolean; +begin + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JD_Label'); + sql.Add('where customNo='+fKeyNo); + Open; + + Edit; + fieldByName('customno').value:=trim(customno.txtCode); + fieldByName('ChnFactory').value:=trim(ChnFactory.text); + fieldByName('engFactory').value:=trim(engFactory.text); + fieldByName('TelePhone').value:=trim(TelePhone.text); + fieldByName('ChnAddress').value:=trim(ChnAddress.text); + fieldByName('EngAddress').value:=trim(EngAddress.text); + fieldByName('note').value:= trim(Note.text); + Post; + end; + result:=true; + except + Result:=false; + application.MessageBox('ǩģ!','Ϣ',0); + end; +end; + +procedure TfrmLabelList.customNoBtnClick(Sender: TObject); + begin + { FormGetCust:=TFormGetCust.Create(self); + + if FormGetCust.ShowModal=mrok then + begin + customNo.TxtCode:=trim(FormGetCust.ADOQuery1.Fieldbyname('customno').AsString); + customNo.Text:=trim(FormGetCust.ADOQuery1.Fieldbyname('shortname').AsString); + end; + FormGetCust.Free; } +{ frmCustHelp:=TfrmCustHelp.create(self); + with frmCustHelp do + begin + if showModal=1 then + begin + customNo.TxtCode:=trim(ADOQueryHelp.Fieldbyname('customno').AsString); + customNo.Text:=trim(ADOQueryHelp.Fieldbyname('shortname').AsString); + end; + free; + end; + } +end; + +procedure TfrmLabelList.BtOpenClick(Sender: TObject); +begin + +end; +//////////////////////////////////////////////////////////// + //ʼ +//////////////////////////////////////////////////////////// +procedure TfrmLabelList.InitWinData(); +begin + try + with ADOQueryTmp do + begin + close; + sql.Clear ; + sql.Add('select A.* ,B.customName as customNoName'); + sql.Add('from JD_Label A'); + sql.Add('INNER JOIN BC_customer B ON A.customNO=B.customNo'); + sql.Add('WHERE B.customNo='''+fkeyNo+''''); + Open; + if isEmpty then + begin + close; + exit; + end; + + // SetWinData(ADOQueryTmp,panel3); + { + RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile'))); + RMGridReport1.Preview :=RMPreview1; + RMGridReport1.PrepareReport; + RMGridReport1.ShowReport ; + } + end; + except + end; +end; + +procedure TfrmLabelList.FormShow(Sender: TObject); +begin + if fWinStatus=1 then tok.Visible:=false; + InitGrid(); + if Trim(SLBName)<>'' then + begin + ADOQueryLabel.Locate('labelCaption',SLBName,[]); + end; +end; + +procedure TfrmLabelList.RMPreview1DblClick(Sender: TObject); +begin + //btOpen.Click ; +end; +//////////////////////////////////////////////////////////// + // +//////////////////////////////////////////////////////////// +procedure TfrmLabelList.InitVarDictionary(); +var + TmpList:Tstrings; + mm:string; + i:integer; +begin + try + TmpList:=TstringList.Create(); + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select distinct ItemType from JC_LabelSetItems '); + sql.Add('where valid=''Y'''); + Open; + TmpList.Clear ; + while not Eof do + begin + TmpList.Add(trim(fieldByName('ItemType').AsString)); + Next; + end; + end; + finally + TmpList.Free ; + end; +end; +///////////////////////////////////////////////// + // +///////////////////////////////////////////////// +procedure TfrmLabelList.InitDataSetDictionary(); +begin +{ with ADOQuery1 do + begin + close; + sql.Clear ; + sql.Add('exec P_Get_LabelPrintData'); + sql.Add(quotedStr('')); + sql.Add(','+quotedStr('')); + sql.Add(','+quotedStr('')); + OPen; + end; } +end; + +procedure TfrmLabelList.TaddClick(Sender: TObject); +begin + try + frmLabelAdd:=TfrmLabelAdd.create(self); + with frmLabelAdd do + begin + if showModal =1 then + begin + fchg:=true; + InitGrid(); + end; + end; + finally + frmLabelAdd.Free; + end; +end; + +procedure TfrmLabelList.TupdClick(Sender: TObject); +begin + if ADOQueryLabel.IsEmpty then exit; + try + frmLabelAdd:=TfrmLabelAdd.create(self); + with frmLabelAdd do + begin + fKeyNo:=ADOQueryLabel.fieldByName('LabelId').AsString ; + fWinstatus:=1; + if showModal =1 then + begin + fchg:=true; + InitGrid(); + end; + end; + finally + frmLabelAdd.Free; + end; + +end; +///////////////////////////////////////////// + // +///////////////////////////////////////////// +procedure TfrmLabelList.InitGrid(); +begin + try + isLoad:=false; + ADOQueryLabel10.DisableControls ; + with ADOQueryLabel10 do + begin + close; + sql.Clear ; + sql.Add('select * from P_Label'); + sql.Add('where valid=''Y'''); + sql.Add(' order by labelCaption'); + Open; + end; + SCreateCDS20(ADOQueryLabel10,ADOQueryLabel); + SInitCDSData20(ADOQueryLabel10,ADOQueryLabel); + finally + ADOQueryLabel10.EnableControls; + isLoad:=true; + //DoFilter(); + //OpenLabel(); + end; +end; +//////////////////////////////////////////////////////// + //ܣ򿪱ǩļ +//////////////////////////////////////////////////////// +procedure TfrmLabelList.OpenLabel(); +begin + if ADOQueryLabel.IsEmpty then exit; + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; +end; +procedure TfrmLabelList.tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + +end; +////////////////////////////////////////////////////////// + //ܣÿͻıǩǷѴ +///////////////////////////////////////////////////////// +function TfrmLabelList.IsCheckCustOk():Boolean; +begin + try + with ADOQueryTmp do + begin + close; + sql.Clear ; + sql.Add('select count(customNO)as cnt from P_Label'); + sql.Add('where customNO='''+trim(customNO.TxtCode)+''''); + Open; + + if fieldByName('cnt').AsInteger>0 then + begin + Result:=false ; + application.MessageBox('ÿͻǩϢѴ!','Ϣ',0); + end + else + Result:=true; + end; + except + result:=false; + application.MessageBox('ÿͻǩϢǷѴʱ!','Ϣ',0); + end; +end; +///////////////////////////////////////////////////////////// + // +///////////////////////////////////////////////////////////// +function TfrmLabelList.DeleteData():Boolean; +begin + try + with ADOQueryCmd do + begin + close; + sql.clear; + sql.Add('delete P_Label'); + sql.Add('where labelId='+ADOQueryLabel.fieldByName('LabelID').asString); + execSql; + end; + result:=true; + except + result:=false; + application.MessageBox('ɾʧ!','Ϣ',0); + end; +end; +procedure TfrmLabelList.TdelClick(Sender: TObject); +begin + if ADOQueryLabel.IsEmpty then exit; + if application.MessageBox('ȷҪɾ˱ǩ','Ϣ',1)=2 then exit; + if DeleteData() then + begin + fchg:=true; + InitGrid(); + end; +end; +////////////////////////////////////////////////////////// + // +///////////////////////////////////////////////////////// +procedure TfrmLabelList.SetWinStatus(); +begin + case fWinStatus of + 0: + begin + // ToolBar2.Visible :=false; + // tsave.Visible :=true; + customNo.Enabled :=true; + panel3.Enabled :=true; + end; + 1: + begin + // ToolBar2.Visible :=true; + // tsave.Visible :=false; + customNo.Enabled :=false; + panel3.Enabled :=false; + TOK.Visible:=false; + end; + 5: + begin + // ToolBar2.Visible :=false; + // tsave.Visible :=false; + panel1.Enabled :=false; + panel3.Enabled :=false; + end; + end ; +end; + +procedure TfrmLabelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + {if fIsShowModal then + Application:=MainApplication ; } + Action:=caFree; +end; + +procedure TfrmLabelList.FormDestroy(Sender: TObject); +begin + frmLabelList:=nil; +end; + +procedure TfrmLabelList.TOkClick(Sender: TObject); +begin + if ADOQueryLabel.IsEmpty then exit; + LBName:=Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString); + ModalResult:=1; +end; + +procedure TfrmLabelList.tv1DblClick(Sender: TObject); +begin + TOk.Click ; +end; + +procedure TfrmLabelList.ToolButton1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmLabelList.LabelTypeChange(Sender: TObject); +begin + DoFilter(); +end; + +procedure TfrmLabelList.tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if isLoad then + OpenLabel(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.dfm new file mode 100644 index 0000000..7018661 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.dfm @@ -0,0 +1,1622 @@ +object frmMDChkFL: TfrmMDChkFL + Left = 19 + Top = 75 + Width = 1225 + Height = 608 + Caption = #30721#21333#26680#26597#19982#20998#31867 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1209 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25209#37327#20445#23384 + ImageIndex = 5 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 339 + Top = 0 + Caption = #20379#24212#21830#22686#21152 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 434 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 33 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 560 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton7Click + end + object ToolButton9: TToolButton + Left = 647 + Top = 0 + AutoSize = True + Caption = #26377#20105#35758#36865#23457 + ImageIndex = 35 + OnClick = ToolButton9Click + end + object ToolButton10: TToolButton + Left = 746 + Top = 0 + AutoSize = True + Caption = #20105#35758#25764#38144 + ImageIndex = 34 + OnClick = ToolButton10Click + end + object TBExport: TToolButton + Left = 833 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 896 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 983 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1209 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 106 + Top = 39 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 217 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 344 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label1: TLabel + Left = 217 + Top = 39 + Width = 36 + Height = 12 + Caption = #21327#21830#20070 + end + object Label14: TLabel + Left = 736 + Top = 16 + Width = 76 + Height = 29 + Caption = #20313#39069':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 824 + Top = 16 + Width = 16 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 121 + Top = 35 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 253 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 380 + Top = 11 + Width = 67 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object Panel3: TPanel + Left = 455 + Top = 1 + Width = 274 + Height = 57 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label11: TLabel + Left = 9 + Top = 14 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label12: TLabel + Left = 80 + Top = 14 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 168 + Top = 14 + Width = 24 + Height = 12 + Caption = #37329#39069 + end + object PS: TEdit + Left = 34 + Top = 10 + Width = 43 + Height = 20 + TabOrder = 0 + end + object Qty: TEdit + Left = 105 + Top = 10 + Width = 60 + Height = 20 + TabOrder = 1 + end + object Money: TEdit + Left = 193 + Top = 10 + Width = 73 + Height = 20 + TabOrder = 2 + end + object Button2: TButton + Left = 57 + Top = 35 + Width = 75 + Height = 18 + Caption = #37325#26032#35745#31639 + TabOrder = 3 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 163 + Top = 36 + Width = 49 + Height = 17 + Caption = #19978#38754 + TabOrder = 4 + OnClick = CheckBox1Click + end + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399 + #25353#23545#36134#26085#26399) + end + object XSSNO: TEdit + Tag = 2 + Left = 253 + Top = 35 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = orderNoChange + end + object Button1: TButton + Left = 380 + Top = 35 + Width = 67 + Height = 20 + Caption = #20184#27454#35760#24405 + TabOrder = 7 + OnClick = Button1Click + end + end + object Panel2: TPanel + Left = 0 + Top = 113 + Width = 1209 + Height = 157 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 823 + Top = 2 + Width = 384 + Height = 153 + Align = alRight + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 813 + Height = 153 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v1Column19: TcxGridDBColumn + Tag = 66 + Caption = #21327#21830#20070#32534#21495 + DataBinding.FieldName = 'XSSNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v1FactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1PSNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1ToFactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'YSFKDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneClMaroon + Styles.Header = DataLink_CYZZ.FoneClMaroon + Width = 66 + end + object v1Column21: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'YSFKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FonePurple + Styles.Header = DataLink_CYZZ.FonePurple + Width = 65 + end + object v1Column17: TcxGridDBColumn + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YingFuYMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column18: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'DuiZhangTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Options.Editing = False + Width = 78 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 815 + Top = 2 + Width = 8 + Height = 153 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxSplitter2: TcxSplitter + Left = 0 + Top = 270 + Width = 1209 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + object Panel5: TPanel + Left = 0 + Top = 278 + Width = 1209 + Height = 291 + Align = alBottom + TabOrder = 4 + object cxGrid3: TcxGrid + Left = 51 + Top = 21 + Width = 1157 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxTabControl1: TcxTabControl + Left = 1 + Top = 1 + Width = 1207 + Height = 20 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1207 + ClientRectTop = 22 + end + object Panel6: TPanel + Left = 1 + Top = 21 + Width = 50 + Height = 269 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button3: TButton + Left = 3 + Top = 66 + Width = 41 + Height = 20 + Caption = #26680#26597 + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 3 + Top = 162 + Width = 41 + Height = 20 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button4Click + end + end + end + object Panel4: TPanel + Left = 524 + Top = 226 + Width = 549 + Height = 269 + TabOrder = 5 + Visible = False + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 547 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = ' '#20184#27454#35760#24405#26597#35810 + Color = clGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 523 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object cxGrid4: TcxGrid + Left = 1 + Top = 24 + Width = 547 + Height = 244 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + Column = v5Column12 + end + item + Kind = skSum + Column = v5Column11 + end + item + Kind = skSum + Column = v5Column13 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v5Column13: TcxGridDBColumn + Caption = #26412#26399#26680#38144#37329#39069 + DataBinding.FieldName = 'BQHXMoney' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v5Column12: TcxGridDBColumn + Caption = #24635#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column11: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv5 + end + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 92 + Width = 1209 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 1 + TabOrder = 6 + Tabs.Strings = ( + #24453#26680#23545 + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1209 + ClientRectTop = 23 + end + object PopupMenu1: TPopupMenu + Left = 423 + Top = 404 + object N1: TMenuItem + Caption = #26597#35810#31383#20307 + Visible = False + OnClick = N1Click + end + object N3: TMenuItem + Caption = #26680#26597#25764#38144 + OnClick = N3Click + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 896 + Top = 167 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 959 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 294 + Top = 131 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 199 + Top = 156 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 230 + Top = 157 + end + object ClientDataSet33: TClientDataSet + Aggregates = <> + Params = <> + Left = 196 + Top = 414 + end + object ClientDataSet66: TClientDataSet + Aggregates = <> + Params = <> + Left = 284 + Top = 422 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 744 + Top = 279 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 773 + Top = 280 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 807 + Top = 281 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.pas new file mode 100644 index 0000000..b8b745d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFL.pas @@ -0,0 +1,2330 @@ +unit U_MDChkFL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v77Column1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + Panel3: TPanel; + Label11: TLabel; + PS: TEdit; + Label12: TLabel; + Qty: TEdit; + Label13: TLabel; + Money: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column14: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabControl1: TcxTabControl; + Panel4: TPanel; + Panel10: TPanel; + Image2: TImage; + N3: TMenuItem; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel6: TPanel; + Button3: TButton; + Button4: TButton; + ToolButton9: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton10: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label1: TLabel; + XSSNO: TEdit; + ClientDataSet33: TClientDataSet; + ClientDataSet66: TClientDataSet; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Button2: TButton; + CheckBox1: TCheckBox; + Label14: TLabel; + Label15: TLabel; + cxGrid4: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Button1: TButton; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + v5Column8: TcxGridDBColumn; + v5Column11: TcxGridDBColumn; + v5Column12: TcxGridDBColumn; + v5Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure N1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1FactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v1PSNamePropertiesEditValueChanged(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure v1ToFactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v72Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button1Click(Sender: TObject); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure InitGridMD(); + function YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; + function DelYFHZData():Boolean; + function HXYFK(FFactoryName:String):Boolean; + public + { Public declarations } + end; + +var + frmMDChkFL: TfrmMDChkFL; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFL.FormDestroy(Sender: TObject); +begin + frmMDChkFL:=nil; +end; + +procedure TfrmMDChkFL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥˲'); + WriteCxGrid('Tv2',Tv2,'뵥˲'); + WriteCxGrid('Tv3',Tv3,'뵥˲'); + close; +end; + +procedure TfrmMDChkFL.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmMDChkFL.Panel10MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmMDChkFL.N1Click(Sender: TObject); +begin + Panel4.Left:=cxSplitter1.Left+20; + Panel4.Top:=Panel1.Top+150; + Panel4.Visible:=True; +end; + +procedure TfrmMDChkFL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where'); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +function TfrmMDChkFL.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.ToolButton5Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>0 then Exit; + SaveData(); +end; + +procedure TfrmMDChkFL.FormShow(Sender: TObject); +begin + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MDID in('); + sql.Add('select MDID from JYOrder_Main_MD A where isnull(MHID,'''')<>'''' '); + sql.Add('and not exists(select * from JYOrder_Main_MD_HZ B where '); + sql.Add('B.MHID=A.MHID and B.ORDMainId=A.ORDMainId and isnull(B.OrderNo,'''')<>''''))'); + ExecSQL; + end; } + cxTabControl2.TabIndex:=0; + cxTabControl1.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + ReadCxGrid('Tv1',Tv1,'뵥˲'); + ReadCxGrid('Tv2',Tv2,'뵥˲'); + ReadCxGrid('Tv3',Tv3,'뵥˲'); + InitGrid(); +end; + +procedure TfrmMDChkFL.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFL.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FOrderNo,fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' and isnull(MHID,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar('Ѵں˲뵥ܸĶ!'),'ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(mvalue)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar(':'+Trim(mvalue)+'!'),'ʾ',0); + Exit; + end else + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('TaiTou').Value:=Trim(ADOQueryTemp.fieldbyname('ComTaiTou').AsString); + FieldByName('MPRTCode').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOQueryTemp.fieldbyname('MPRTGY').AsString); + FieldByName('MPRTGY').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('ORDMainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + + Post; + end; + end; + {fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + fsj:='select distinct(FactoryName) Name,Code='''' from JYOrder_Main_MD where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,0,False,''); } + + InitGridMD(); + + +end; +procedure TfrmMDChkFL.InitGridMD(); +var + fsj:String; +begin + fsj:=''; + if ((Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='') + and + (Trim(ClientDataSet1.fieldbyname('PSName').AsString)='')) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(MHID,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and (isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''+ + ' Or isnull(JMM.DutyFactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''')'; + end; + {if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end;} + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; +procedure TfrmMDChkFL.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagName:='Ŀ'; + fnote:=True; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('ItemName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDChkFL.ToolButton1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('MHDate').AsString)='' then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + //while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then + begin + + N3.Visible:=False; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + + N3.Visible:=True; + end; + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); +end; + +procedure TfrmMDChkFL.MenuItem1Click(Sender: TObject); +var + fsj:string; +begin + +end; + + +procedure TfrmMDChkFL.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj,FName:String; +begin + Label15.Caption:=Trim(ClientDataSet1.FieldByName('KCMoney').AsString)+'('+ + Trim(ClientDataSet1.FieldByName('FactoryName').AsString)+')'; + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if cxTabControl2.TabIndex=2 then + begin + if Trim(FName)='Ssel' then + begin + Tv1.OptionsData.Editing:=True; + end else + begin + Tv1.OptionsData.Editing:=False; + end; + end; + if cxTabControl2.TabIndex>1 then exit; + + if Trim(FName)='GenDan' then + begin + fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + end else + if Trim(FName)='FactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,1,False,''); + end else + if Trim(FName)='ToFactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1ToFactoryName,fsj,1,False,''); + end else + if Trim(FName)='PSName' then + begin + fsj:='select PSName Name,Code='''' from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+'''' + +' order by PSXH '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1PSName,fsj,0,False,''); + end; + + +end; + +procedure TfrmMDChkFL.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('FKDays').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + Post; + end; +end; + +procedure TfrmMDChkFL.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=Null; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MHDate').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + if mvalue=Null then + begin + FieldByName('YFDate').Value:=Null; + end else + begin + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + end; + Post; + end; +end; + +procedure TfrmMDChkFL.v1FactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=mvalue; + FieldByName('FactoryNo').Value:=TA((v1FactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1FactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFL.v1PSNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('PSName').Value:=mvalue; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFL.N3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=True then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end else + begin + FPS:=FPS-ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet3.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + {if cxTabControl1.TabIndex=0 then + begin + with ClientDataSet1 do + begin + Edit; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)='' then + begin + FieldByName('PS').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)='' then + begin + FieldByName('Qty').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)='' then + begin + FieldByName('Money').Value:=0; + end; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('').Value:= + Post; + end; + end; } +end; + +procedure TfrmMDChkFL.ToolButton6Click(Sender: TObject); +var + FOrderNo,fsj:String; +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('MDType').AsString)='ۿ' then + begin + Application.MessageBox('ɾۿ뵥!','ʾ',0); + Exit; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + if Trim(ForderNo)<>'' then + begin + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('к˲Ϣɾ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + + if Application.MessageBox('ȷҪɾϢ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmMDChkFL.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('˲ܵ',cxGrid1); +end; + +procedure TfrmMDChkFL.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥˲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFL.ToolButton3Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then exit; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString) ; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMDChkFL.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FtyMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Getdate(),'); + SQL.Add('DuiZhangPerson='''+Trim(DName)+''',DuiZhangStatus=''Ѷ'' ' ); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + YFHZData(Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + HXYFK(Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + ClientDataSet1.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMDChkFL.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+Trim(CRID)); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set YFID=Null where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmMDChkFL.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>2 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('鲻ִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX A inner join YF_Money_CR B on A.YFID=B.YFID'); + sql.Add(' inner join JYOrder_Main_MD_HZ C on B.MHID=C.MHID'); + sql.Add(' where C.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('и¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Null,'); + SQL.Add('DuiZhangPerson=Null,DuiZhangStatus=Null,FtyQty=Null,FtyPrice=Null,FtyMoney=Null,ChaEMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + DelYFHZData(); + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.cxTabControl2Change(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then + begin + //Tv1.OptionsSelection.CellSelect:=True; + Tv1.OptionsData.Editing:=True; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + Tv1.OptionsData.Editing:=False; + end; + InitGrid(); +end; +function TfrmMDChkFL.HXYFK(FFactoryName:String):Boolean; +var + factoryname,FFKMoney,maxno:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select AA.* from('); + sql.Add(' select CRTIme,YFID, '); + sql.Add(' DHXMoney=isnull(Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX B where B.FKID=A.YFID),0)'); + sql.Add(' from YF_Money_CR A'); + SQL.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + sql.Add(' and A.CRTYpe=''Ǽ'' )AA'); + sql.Add(' where isnull(DHXMoney,0)>0'); + sql.Add(' order by CRTime'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet66); + SInitCDSData20(ADOQueryTemp,ClientDataSet66); + with ClientDataSet66 do + begin + First; + while not eof do + begin + FFKMoney:=ClientDataSet66.fieldbyname('DHXMoney').AsString; + if StrToFloat(FFKMoney)>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,YingFuMoney=Money-YiFuMoney '); + sql.Add(' ,DZMoney=(select isnull(Money,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' ,DZChaEMoney=(select isnull(ChaEMoney,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' from YF_Money_CR A '); + sql.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + //SQL.Add(' and CRID='+Trim(ClientDataSet2.fieldbyname('CRID').AsString)); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and (Money-YiFuMoney)<>0'); + sql.Add(' order by CRTime,Money'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet33); + SInitCDSData20(ADOQueryTemp,ClientDataSet33); + with ClientDataSet33 do + begin + First; + while not Eof do + begin + if ClientDataSet33.FieldByName('DZMoney').Value<0 then + begin + if ClientDataSet33.FieldByName('DZChaEMoney').Value<>0 then + begin + Next; + end; + end; + if ClientDataSet33.FieldByName('YingFuMoney').Value<=StrToFloat(FFKMoney) then //ӦСڵڸ + begin + if StrToFloat(FFKMoney)>0 then + begin + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=ClientDataSet33.FieldByName('YingFuMoney').Value; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=ClientDataSet2.FieldByName('Money').Value; + FieldByName('YFYMoney').Value:=0; + post; + end; } + FFKMoney:=FloatToStr(StrToFloat(FFKMoney)-ClientDataSet33.FieldByName('YingFuMoney').Value); + ClientDataSet33.Delete; + end else + begin + ClientDataSet33.Last; + end; + end else + //Ӧڸ + begin + if StrToFloat(FFKMoney)=0 then + begin + ClientDataSet33.Last; + end; + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=FFKMoney; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=FieldByName('YiFuMoney').Value+strtofloat(FFKMoney); + FieldByName('YFYMoney').Value:=FieldByName('Money').Value-FieldByName('YiFuMoney').Value; + post; + end; } + FFKMoney:='0'; + ClientDataSet33.Delete; + ClientDataSet33.Last; + end; + end; + end; + Result:=True; + end; + Next; + end; + end; + + + +end; + +function TfrmMDChkFL.YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CWFactoryName)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(CWFactoryName)+''''); + sql.Add(' and MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet1.fieldbyname('YFDate').Value; + FieldByName('Qty').Value:=ClientDataSet1.fieldbyname('Qty').Value; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end; + + FieldByName('Price').Value:=ClientDataSet1.fieldbyname('Price').Value; + FieldByName('Money').Value:=ClientDataSet1.fieldbyname('Money').Value; + FieldByName('BBMoney').Value:=ClientDataSet1.fieldbyname('Money').Value; + //FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ItemName').AsString); + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + FieldByName('MHID').Value:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + // FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +procedure TfrmMDChkFL.v1ToFactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('ToFactoryName').Value:=mvalue; + FieldByName('ToFactoryNo').Value:=TA((v1ToFactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1ToFactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; +end; + +procedure TfrmMDChkFL.v72Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('Price').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + FtyQty:=Trim(ClientDataSet1.fieldbyname('FtyQty').AsString); + if Trim(FtyQty)='' then + begin + FtyQty:='0'; + end; + FtyPrice:=Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString); + if Trim(FtyPrice)='' then + begin + FtyPrice:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(Qty)*StrToFloat(Price); + FieldByName('FtyMoney').Value:=StrToFloat(FtyQty)*StrToFloat(FtyPrice); + FieldByName('ChaEMoney').Value:=StrToFloat(Qty)*StrToFloat(Price)-StrToFloat(FtyQty)*StrToFloat(FtyPrice); + Post; + end; +end; + +procedure TfrmMDChkFL.Button2Click(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; + FMDID:String; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + + PS.Text:='0'; + FPS:=StrToFloat(PS.Text); + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if CheckBox1.Checked=False then + begin + if ClientDataSet3.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet3.Locate('MDID',FMDID,[]); + end else + begin + if ClientDataSet1.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + //FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet1.Locate('MHID',FMDID,[]); + end; + +end; + +procedure TfrmMDChkFL.ToolButton8Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;OrderNo',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHDate',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;PSName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FactoryName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end else + begin + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('SSel').Value:=False; + ClientDataSet1.Post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmMDChkFL.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('δ治ܺ˲!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˲쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmMDChkFL.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFL.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFL.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFL.ToolButton9Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus='''',SSTime=Getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''N'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Now; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFL.ToolButton10Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus=Null,SSTime=Null,SSPerson=Null'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''Y'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Null; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFL.v1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=False then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end else + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS-0; + end; + //FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet1.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); +end; + +procedure TfrmMDChkFL.CheckBox1Click(Sender: TObject); +begin + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + Button2.Click; +end; + +procedure TfrmMDChkFL.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.OrderNo like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmMDChkFL.Button1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then Exit; + Panel4.Visible:=True; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YMR.* '); + SQL.Add(',BQHXMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where exists( select * from'); + sql.Add('(select C.FKID,B.YFID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VVV where VVV.FKID=BB.FKID and VVV.YFID=BB.YFID and VVV.FKID=YMR.YFID)'); + sql.Add(')'); + sql.Add(' ,HXMoney=isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' ,DHXMoney=isnull(YMR.Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' from YF_Money_CR YMR where exists(select * from '); + sql.Add('(select C.FKID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VV where VV.FKID=YMR.YFID)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.dfm new file mode 100644 index 0000000..1f45716 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.dfm @@ -0,0 +1,1650 @@ +object frmMDChkFLFK: TfrmMDChkFLFK + Left = 38 + Top = 85 + Width = 1225 + Height = 608 + Caption = #30721#21333#26680#26597#19982#20998#31867 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1209 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + Caption = #20379#24212#21830#22686#21152 + ImageIndex = 22 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 410 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 473 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 33 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 536 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton7Click + end + object ToolButton9: TToolButton + Left = 623 + Top = 0 + AutoSize = True + Caption = #26377#20105#35758#36865#23457 + ImageIndex = 35 + Visible = False + OnClick = ToolButton9Click + end + object ToolButton10: TToolButton + Left = 722 + Top = 0 + AutoSize = True + Caption = #20105#35758#25764#38144 + ImageIndex = 34 + Visible = False + OnClick = ToolButton10Click + end + object TBExport: TToolButton + Left = 809 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 872 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 959 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1209 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 106 + Top = 39 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 217 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 344 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label1: TLabel + Left = 217 + Top = 39 + Width = 36 + Height = 12 + Caption = #21327#21830#20070 + end + object Label14: TLabel + Left = 736 + Top = 16 + Width = 76 + Height = 29 + Caption = #20313#39069':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 824 + Top = 16 + Width = 16 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 121 + Top = 35 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 253 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 380 + Top = 11 + Width = 67 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + OnKeyPress = FactoryNameKeyPress + end + object Panel3: TPanel + Left = 455 + Top = 1 + Width = 274 + Height = 57 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label11: TLabel + Left = 9 + Top = 14 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label12: TLabel + Left = 80 + Top = 14 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 168 + Top = 14 + Width = 24 + Height = 12 + Caption = #37329#39069 + end + object PS: TEdit + Left = 34 + Top = 10 + Width = 43 + Height = 20 + TabOrder = 0 + end + object Qty: TEdit + Left = 105 + Top = 10 + Width = 60 + Height = 20 + TabOrder = 1 + end + object Money: TEdit + Left = 193 + Top = 10 + Width = 73 + Height = 20 + TabOrder = 2 + end + object Button2: TButton + Left = 57 + Top = 35 + Width = 75 + Height = 18 + Caption = #37325#26032#35745#31639 + TabOrder = 3 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 163 + Top = 36 + Width = 49 + Height = 17 + Caption = #19978#38754 + TabOrder = 4 + OnClick = CheckBox1Click + end + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399 + #25353#23545#36134#26085#26399) + end + object XSSNO: TEdit + Tag = 2 + Left = 253 + Top = 35 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = orderNoChange + end + object Button1: TButton + Left = 380 + Top = 35 + Width = 67 + Height = 20 + Caption = #20184#27454#35760#24405 + TabOrder = 7 + OnClick = Button1Click + end + end + object Panel2: TPanel + Left = 0 + Top = 113 + Width = 1209 + Height = 157 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 823 + Top = 2 + Width = 384 + Height = 153 + Align = alRight + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v2Column1: TcxGridDBColumn + Caption = #21512#21516#20132#26399 + DataBinding.FieldName = 'DLYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 813 + Height = 153 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v1Column19: TcxGridDBColumn + Tag = 66 + Caption = #21327#21830#20070#32534#21495 + DataBinding.FieldName = 'XSSNO' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 99 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v1FactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1PSNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1ToFactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1Column22: TcxGridDBColumn + Caption = #19981#24320#31080 + DataBinding.FieldName = 'BuKPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'YSFKDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneClMaroon + Styles.Header = DataLink_DDMD.FoneClMaroon + Width = 66 + end + object v1Column21: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'YSFKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FonePurple + Styles.Header = DataLink_DDMD.FonePurple + Width = 65 + end + object v1Column17: TcxGridDBColumn + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YingFuYMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column18: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'DuiZhangTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 71 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Visible = False + Hidden = True + Options.Editing = False + Width = 78 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 815 + Top = 2 + Width = 8 + Height = 153 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxSplitter2: TcxSplitter + Left = 0 + Top = 270 + Width = 1209 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + object Panel5: TPanel + Left = 0 + Top = 278 + Width = 1209 + Height = 291 + Align = alBottom + TabOrder = 4 + object cxGrid3: TcxGrid + Left = 51 + Top = 21 + Width = 1157 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v3Column21: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 88 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 114 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxTabControl1: TcxTabControl + Left = 1 + Top = 1 + Width = 1207 + Height = 20 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1207 + ClientRectTop = 22 + end + object Panel6: TPanel + Left = 1 + Top = 21 + Width = 50 + Height = 269 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button3: TButton + Left = 3 + Top = 66 + Width = 41 + Height = 20 + Caption = #26680#26597 + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 3 + Top = 162 + Width = 41 + Height = 20 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button4Click + end + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 92 + Width = 1209 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 5 + Tabs.Strings = ( + #24453#26680#23545 + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1209 + ClientRectTop = 23 + end + object Panel4: TPanel + Left = 380 + Top = 88 + Width = 525 + Height = 212 + TabOrder = 6 + Visible = False + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 523 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = ' '#20184#27454#35760#24405#26597#35810 + Color = clGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 499 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object cxGrid4: TcxGrid + Left = 1 + Top = 24 + Width = 523 + Height = 187 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v5Column13: TcxGridDBColumn + Caption = #25903#20184#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v5Column12: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'Payment' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv5 + end + end + end + object PopupMenu1: TPopupMenu + Left = 423 + Top = 404 + object N1: TMenuItem + Caption = #26597#35810#31383#20307 + Visible = False + OnClick = N1Click + end + object N3: TMenuItem + Caption = #26680#26597#25764#38144 + OnClick = N3Click + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 896 + Top = 167 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 959 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 258 + Top = 158 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 286 + Top = 155 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 199 + Top = 156 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 230 + Top = 157 + end + object ClientDataSet33: TClientDataSet + Aggregates = <> + Params = <> + Left = 196 + Top = 414 + end + object ClientDataSet66: TClientDataSet + Aggregates = <> + Params = <> + Left = 284 + Top = 422 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 744 + Top = 279 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 773 + Top = 280 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 807 + Top = 281 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.pas new file mode 100644 index 0000000..448bfee --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLFK.pas @@ -0,0 +1,2587 @@ +unit U_MDChkFLFK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFLFK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v77Column1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + Panel3: TPanel; + Label11: TLabel; + PS: TEdit; + Label12: TLabel; + Qty: TEdit; + Label13: TLabel; + Money: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column14: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabControl1: TcxTabControl; + N3: TMenuItem; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel6: TPanel; + Button3: TButton; + Button4: TButton; + ToolButton9: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton10: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label1: TLabel; + XSSNO: TEdit; + ClientDataSet33: TClientDataSet; + ClientDataSet66: TClientDataSet; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Button2: TButton; + CheckBox1: TCheckBox; + Label14: TLabel; + Label15: TLabel; + Button1: TButton; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + v2Column1: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + Panel4: TPanel; + Panel10: TPanel; + Image2: TImage; + cxGrid4: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v5Column13: TcxGridDBColumn; + v5Column12: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure N1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1FactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v1PSNamePropertiesEditValueChanged(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure v1ToFactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v72Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button1Click(Sender: TObject); + procedure FactoryNameKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure InitGridMD(); + function YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; + function DelYFHZData():Boolean; + function HXYFK(FFactoryName:String):Boolean; + public + { Public declarations } + end; + +var + frmMDChkFLFK: TfrmMDChkFLFK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFLFK.FormDestroy(Sender: TObject); +begin + frmMDChkFLFK:=nil; +end; + +procedure TfrmMDChkFLFK.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFLFK.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥˲'); + WriteCxGrid('Tv2',Tv2,'뵥˲'); + WriteCxGrid('Tv3',Tv3,'뵥˲'); + close; +end; + +procedure TfrmMDChkFLFK.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmMDChkFLFK.Panel10MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmMDChkFLFK.N1Click(Sender: TObject); +begin + Panel4.Left:=cxSplitter1.Left+20; + Panel4.Top:=Panel1.Top+150; + Panel4.Visible:=True; +end; + +procedure TfrmMDChkFLFK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where'); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + if Trim(FactoryName.Text)<>'' then + begin + sql.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +function TfrmMDChkFLFK.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.ToolButton5Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>0 then Exit; + if ClientDataSet1.Locate('FactoryName',Null,[]) then + begin + Application.MessageBox('δ!','',0); + Exit; + end; + SaveData(); +end; + +procedure TfrmMDChkFLFK.FormShow(Sender: TObject); +begin + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MDID in('); + sql.Add('select MDID from JYOrder_Main_MD A where isnull(MHID,'''')<>'''' '); + sql.Add('and not exists(select * from JYOrder_Main_MD_HZ B where '); + sql.Add('B.MHID=A.MHID and B.ORDMainId=A.ORDMainId and isnull(B.OrderNo,'''')<>''''))'); + ExecSQL; + end; } + cxTabControl2.TabIndex:=0; + cxTabControl1.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + ReadCxGrid('Tv1',Tv1,'뵥˲'); + ReadCxGrid('Tv2',Tv2,'뵥˲'); + ReadCxGrid('Tv3',Tv3,'뵥˲'); + InitGrid(); +end; + +procedure TfrmMDChkFLFK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLFK.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FOrderNo,fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' and isnull(MHID,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar('Ѵں˲뵥ܸĶ!'),'ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(mvalue)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar(':'+Trim(mvalue)+'!'),'ʾ',0); + Exit; + end else + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('TaiTou').Value:=Trim(ADOQueryTemp.fieldbyname('ComTaiTou').AsString); + FieldByName('MPRTCode').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOQueryTemp.fieldbyname('MPRTGY').AsString); + FieldByName('MPRTGY').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('ORDMainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + + Post; + end; + end; + {fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + fsj:='select distinct(FactoryName) Name,Code='''' from JYOrder_Main_MD where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,0,False,''); } + + InitGridMD(); + + +end; +procedure TfrmMDChkFLFK.InitGridMD(); +var + fsj:String; +begin + fsj:=''; + if ClientDataSet1.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + if ((Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='') + and + (Trim(ClientDataSet1.fieldbyname('PSName').AsString)='')) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(MHID,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and (isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''+ + ' Or isnull(JMM.DutyFactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''')'; + end; + {if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end;} + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; +procedure TfrmMDChkFLFK.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagName:='Ŀ'; + fnote:=True; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('ItemName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDChkFLFK.ToolButton1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('MHDate').AsString)='' then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + //while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then + begin + + N3.Visible:=False; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + + N3.Visible:=True; + end; + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); +end; + +procedure TfrmMDChkFLFK.MenuItem1Click(Sender: TObject); +var + fsj:string; +begin + +end; + + +procedure TfrmMDChkFLFK.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj,FName:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(Money*QtyFlag) KCMoney from YF_Money_CR '); + sql.Add(' where Factoryname='''+Trim(ClientDataSet1.FieldByName('FactoryName').AsString)+''''); + Open; + end; + Label15.Caption:=Trim(ADOQueryTemp.FieldByName('KCMoney').AsString)+'('+ + Trim(ClientDataSet1.FieldByName('FactoryName').AsString)+')'; + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if cxTabControl2.TabIndex=2 then + begin + if (Trim(FName)='Ssel') or (Trim(FName)='BuKPFlag') then + begin + Tv1.OptionsData.Editing:=True; + end else + begin + Tv1.OptionsData.Editing:=False; + end; + end; + if cxTabControl2.TabIndex>1 then exit; + + if Trim(FName)='GenDan' then + begin + fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + end else + if Trim(FName)='FactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,1,False,''); + end else + if Trim(FName)='ToFactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1ToFactoryName,fsj,1,False,''); + end else + if Trim(FName)='PSName' then + begin + fsj:='select PSName Name,Code='''' from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+'''' + +' order by PSXH '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1PSName,fsj,0,False,''); + end; + + +end; + +procedure TfrmMDChkFLFK.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('FKDays').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + Post; + end; +end; + +procedure TfrmMDChkFLFK.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=Null; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MHDate').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + if mvalue=Null then + begin + FieldByName('YFDate').Value:=Null; + end else + begin + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + end; + Post; + end; +end; + +procedure TfrmMDChkFLFK.v1FactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=mvalue; + FieldByName('FactoryNo').Value:=TA((v1FactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1FactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFLFK.v1PSNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('PSName').Value:=mvalue; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFLFK.N3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=True then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end else + begin + FPS:=FPS-ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet3.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + {if cxTabControl1.TabIndex=0 then + begin + with ClientDataSet1 do + begin + Edit; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)='' then + begin + FieldByName('PS').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)='' then + begin + FieldByName('Qty').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)='' then + begin + FieldByName('Money').Value:=0; + end; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('').Value:= + Post; + end; + end; } +end; + +procedure TfrmMDChkFLFK.ToolButton6Click(Sender: TObject); +var + FOrderNo,fsj:String; +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('MDType').AsString)='ۿ' then + begin + Application.MessageBox('ɾۿ뵥!','ʾ',0); + Exit; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + if Trim(ForderNo)<>'' then + begin + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('к˲Ϣɾ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + + if Application.MessageBox('ȷҪɾϢ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('insert into JYOrder_Main_MD_HZ_DelLog '); + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ_DelLog Set Note=Isnull(Note,'''')+''ɾ:''+'''+Trim(DName)+''''); + sql.Add('+'' ''+Convert(Varchar(20),getdate(),120)'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmMDChkFLFK.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('˲ܵ',cxGrid1); +end; + +procedure TfrmMDChkFLFK.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥˲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFLFK.ToolButton3Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then exit; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString) ; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMDChkFLFK.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FtyMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + //ToolButton8.Click; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + if ClientDataSet1.FieldByName('Money').Value<>ClientDataSet1.FieldByName('FtyMoney').Value then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('벻Ϊ㣬ܶ!','ʾ',0); + Exit; + end; + if ClientDataSet1.FieldByName('ChaEMoney').Value<>0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('벻Ϊ㣬ܶ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + if ClientDataSet1.FieldByName('BuKPFlag').AsBoolean=True then + begin + FieldByName('BuKPFlag').Value:=1; + end else + begin + FieldByName('BuKPFlag').Value:=0; + end; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Getdate(),'); + SQL.Add('DuiZhangPerson='''+Trim(DName)+''',DuiZhangStatus=''Ѷ'' ' ); + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)<>'' then + begin + SQL.Add(',Qty='+Trim(ClientDataSet1.fieldbyname('Qty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('Price').AsString)<>'' then + begin + SQL.Add(',Price='+Trim(ClientDataSet1.fieldbyname('Price').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)<>'' then + begin + SQL.Add(',Money='+Trim(ClientDataSet1.fieldbyname('Money').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set ChaEMoney=isnull(Money,0)-isnull(FtyMoney,0)'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + YFHZData(Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + HXYFK(Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + ClientDataSet1.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMDChkFLFK.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+Trim(CRID)); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set YFID=Null where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmMDChkFLFK.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>2 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('鲻ִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX A inner join YF_Money_CR B on A.YFID=B.YFID'); + sql.Add(' inner join JYOrder_Main_MD_HZ C on B.MHID=C.MHID'); + sql.Add(' where C.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('и¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ſ¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Null,'); + SQL.Add('DuiZhangPerson=Null,DuiZhangStatus=Null,FtyQty=Null,FtyPrice=Null,FtyMoney=Null,ChaEMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + DelYFHZData(); + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.cxTabControl2Change(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then + begin + //Tv1.OptionsSelection.CellSelect:=True; + Tv1.OptionsData.Editing:=True; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + Tv1.OptionsData.Editing:=False; + end; + InitGrid(); +end; +function TfrmMDChkFLFK.HXYFK(FFactoryName:String):Boolean; +var + factoryname,FFKMoney,maxno:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select AA.* from('); + sql.Add(' select CRTIme,YFID, '); + sql.Add(' DHXMoney=isnull(Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX B where B.FKID=A.YFID),0)'); + sql.Add(' from YF_Money_CR A'); + SQL.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + sql.Add(' and A.CRTYpe=''Ǽ'' and isnull(FXType,'''')<>'''')AA'); + sql.Add(' where isnull(DHXMoney,0)>0'); + sql.Add(' order by CRTime'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet66); + SInitCDSData20(ADOQueryTemp,ClientDataSet66); + with ClientDataSet66 do + begin + First; + while not eof do + begin + FFKMoney:=ClientDataSet66.fieldbyname('DHXMoney').AsString; + if StrToFloat(FFKMoney)>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,YingFuMoney=Money-YiFuMoney '); + sql.Add(' ,DZMoney=(select isnull(Money,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' ,DZChaEMoney=(select isnull(ChaEMoney,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' from YF_Money_CR A '); + sql.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + //SQL.Add(' and CRID='+Trim(ClientDataSet2.fieldbyname('CRID').AsString)); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and (Money-YiFuMoney)<>0'); + sql.Add(' and not exists(select * from JYOrder_Main_MD_HZ C where C.YFID=A.YFID and isnull(C.ItemName,'''')='''')'); + sql.Add(' order by CRTime,Money'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet33); + SInitCDSData20(ADOQueryTemp,ClientDataSet33); + with ClientDataSet33 do + begin + First; + while not Eof do + begin + if ClientDataSet33.FieldByName('DZMoney').Value<0 then + begin + if ClientDataSet33.FieldByName('DZChaEMoney').Value<>0 then + begin + Next; + end; + end; + if ClientDataSet33.FieldByName('YingFuMoney').Value<=StrToFloat(FFKMoney) then //ӦСڵڸ + begin + if StrToFloat(FFKMoney)>0 then + begin + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=ClientDataSet33.FieldByName('YingFuMoney').Value; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=ClientDataSet2.FieldByName('Money').Value; + FieldByName('YFYMoney').Value:=0; + post; + end; } + FFKMoney:=FloatToStr(StrToFloat(FFKMoney)-ClientDataSet33.FieldByName('YingFuMoney').Value); + ClientDataSet33.Delete; + end else + begin + ClientDataSet33.Last; + end; + end else + //Ӧڸ + begin + if StrToFloat(FFKMoney)=0 then + begin + ClientDataSet33.Last; + end; + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=FFKMoney; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=FieldByName('YiFuMoney').Value+strtofloat(FFKMoney); + FieldByName('YFYMoney').Value:=FieldByName('Money').Value-FieldByName('YiFuMoney').Value; + post; + end; } + FFKMoney:='0'; + ClientDataSet33.Delete; + ClientDataSet33.Last; + end; + end; + end; + Result:=True; + end; + Next; + end; + end; + + + +end; + +function TfrmMDChkFLFK.YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CWFactoryName)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(CWFactoryName)+''''); + sql.Add(' and MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet1.fieldbyname('YFDate').Value; + FieldByName('Qty').Value:=ClientDataSet1.fieldbyname('Qty').Value; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end; + + FieldByName('Price').Value:=ClientDataSet1.fieldbyname('Price').Value; + FieldByName('Money').Value:=ClientDataSet1.fieldbyname('Money').Value; + FieldByName('BBMoney').Value:=ClientDataSet1.fieldbyname('Money').Value; + //FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ItemName').AsString); + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + FieldByName('MHID').Value:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + // FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +procedure TfrmMDChkFLFK.v1ToFactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('ToFactoryName').Value:=mvalue; + FieldByName('ToFactoryNo').Value:=TA((v1ToFactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1ToFactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; +end; + +procedure TfrmMDChkFLFK.v72Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('Price').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + FtyQty:=Trim(ClientDataSet1.fieldbyname('FtyQty').AsString); + if Trim(FtyQty)='' then + begin + FtyQty:='0'; + end; + FtyPrice:=Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString); + if Trim(FtyPrice)='' then + begin + FtyPrice:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(Qty)*StrToFloat(Price); + FieldByName('FtyMoney').Value:=StrToFloat(FtyQty)*StrToFloat(FtyPrice); + FieldByName('ChaEMoney').Value:=StrToFloat(Qty)*StrToFloat(Price)-StrToFloat(FtyQty)*StrToFloat(FtyPrice); + Post; + end; +end; + +procedure TfrmMDChkFLFK.Button2Click(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; + FMDID:String; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + + PS.Text:='0'; + FPS:=StrToFloat(PS.Text); + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if CheckBox1.Checked=False then + begin + if ClientDataSet3.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet3.Locate('MDID',FMDID,[]); + end else + begin + if ClientDataSet1.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + //FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet1.Locate('MHID',FMDID,[]); + end; + +end; + +procedure TfrmMDChkFLFK.ToolButton8Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;OrderNo',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHDate',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;PSName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FactoryName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + if ClientDataSet1.FieldByName('BuKPFlag').AsBoolean=True then + begin + FieldByName('BuKPFlag').Value:=1; + end else + begin + FieldByName('BuKPFlag').Value:=0; + end; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end else + begin + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('SSel').Value:=False; + ClientDataSet1.Post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmMDChkFLFK.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('δ治ܺ˲!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl2.TabIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:=''; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + end; + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˲쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLFK.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmMDChkFLFK.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFLFK.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLFK.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLFK.ToolButton9Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus='''',SSTime=Getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''N'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Now; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFLFK.ToolButton10Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus=Null,SSTime=Null,SSPerson=Null'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''Y'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Null; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFLFK.v1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=False then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end else + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS-0; + end; + //FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet1.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); +end; + +procedure TfrmMDChkFLFK.CheckBox1Click(Sender: TObject); +begin + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + Button2.Click; +end; + +procedure TfrmMDChkFLFK.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.OrderNo like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmMDChkFLFK.Button1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then Exit; + Panel4.Visible:=True; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.YFID,A.CRTime,A.FactoryName,A.Money,A.CRID '); + sql.Add(' ,PSName=isnull(A.PSName,D.PSName),C.OrderNo'); + sql.Add(' ,YFName=isnull(A.YFName,D.PKYongTu)'); + sql.Add(' ,ComTaiTou=isnull(A.ComTaiTou,D.ComTaiTou)'); + sql.Add(' ,PayMent=isnull(A.PayMent,D.PayMent)'); + sql.Add(' ,Note=isnull(A.Note,D.FKNote)'); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join YF_Money_PaiKuan D on A.YFID=D.FKID'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''Ǽ'' '); + sql.Add(' and A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + SQL.Add(' order by A.CRTime'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YMR.* '); + SQL.Add(',BQHXMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where exists( select * from'); + sql.Add('(select C.FKID,B.YFID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VVV where VVV.FKID=BB.FKID and VVV.YFID=BB.YFID and VVV.FKID=YMR.YFID)'); + sql.Add(')'); + sql.Add(' ,HXMoney=isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' ,DHXMoney=isnull(YMR.Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' from YF_Money_CR YMR where exists(select * from '); + sql.Add('(select C.FKID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VV where VV.FKID=YMR.YFID)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5);} +end; + +procedure TfrmMDChkFLFK.FactoryNameKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(FactoryName.Text)='' then Exit; + if Length(Trim(FactoryName.Text))<2 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.dfm new file mode 100644 index 0000000..08f1be6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.dfm @@ -0,0 +1,1588 @@ +object frmMDChkFLView: TfrmMDChkFLView + Left = 158 + Top = 97 + Width = 1146 + Height = 608 + Caption = #30721#21333#26680#26597#19982#20998#31867#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1130 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + Visible = False + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25209#37327#20445#23384 + ImageIndex = 5 + Visible = False + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 339 + Top = 0 + Caption = #20379#24212#21830#22686#21152 + ImageIndex = 22 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 434 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 33 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 560 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + Visible = False + OnClick = ToolButton7Click + end + object ToolButton9: TToolButton + Left = 647 + Top = 0 + AutoSize = True + Caption = #26377#20105#35758#36865#23457 + ImageIndex = 35 + Visible = False + OnClick = ToolButton9Click + end + object ToolButton10: TToolButton + Left = 746 + Top = 0 + AutoSize = True + Caption = #20105#35758#25764#38144 + ImageIndex = 34 + Visible = False + OnClick = ToolButton10Click + end + object TBExport: TToolButton + Left = 833 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 896 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 983 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1130 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 210 + Top = 15 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 321 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 476 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 223 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 357 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 512 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object Panel3: TPanel + Left = 627 + Top = 1 + Width = 347 + Height = 39 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label11: TLabel + Left = 9 + Top = 14 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label12: TLabel + Left = 80 + Top = 14 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 196 + Top = 14 + Width = 24 + Height = 12 + Caption = #37329#39069 + end + object PS: TEdit + Left = 34 + Top = 10 + Width = 43 + Height = 20 + TabOrder = 0 + end + object Qty: TEdit + Left = 105 + Top = 10 + Width = 88 + Height = 20 + TabOrder = 1 + end + object Money: TEdit + Left = 221 + Top = 10 + Width = 118 + Height = 20 + TabOrder = 2 + end + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399 + #25353#23545#36134#26085#26399) + end + object Button2: TButton + Left = 976 + Top = 11 + Width = 75 + Height = 21 + Caption = #37325#26032#35745#31639 + TabOrder = 6 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 1052 + Top = 13 + Width = 49 + Height = 17 + Caption = #19978#38754 + TabOrder = 7 + OnClick = CheckBox1Click + end + end + object Panel2: TPanel + Left = 0 + Top = 94 + Width = 1130 + Height = 176 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 744 + Top = 2 + Width = 384 + Height = 172 + Align = alRight + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 734 + Height = 172 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v1FactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1PSNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1ToFactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 81 + end + object v1Column17: TcxGridDBColumn + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YingFuYMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column18: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'DuiZhangTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 71 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Visible = False + Hidden = True + Options.Editing = False + Width = 78 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 736 + Top = 2 + Width = 8 + Height = 172 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxSplitter2: TcxSplitter + Left = 0 + Top = 270 + Width = 1130 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + object Panel5: TPanel + Left = 0 + Top = 278 + Width = 1130 + Height = 291 + Align = alBottom + TabOrder = 4 + object cxGrid3: TcxGrid + Left = 51 + Top = 21 + Width = 1078 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxTabControl1: TcxTabControl + Left = 1 + Top = 1 + Width = 1128 + Height = 20 + Align = alTop + Style = 8 + TabIndex = 1 + TabOrder = 1 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1128 + ClientRectTop = 22 + end + object Panel6: TPanel + Left = 1 + Top = 21 + Width = 50 + Height = 269 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button3: TButton + Left = 3 + Top = 66 + Width = 41 + Height = 20 + Caption = #26680#26597 + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 3 + Top = 162 + Width = 41 + Height = 20 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button4Click + end + end + end + object Panel4: TPanel + Left = 514 + Top = 356 + Width = 387 + Height = 145 + TabOrder = 5 + Visible = False + object Label6: TLabel + Left = 21 + Top = 35 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label4: TLabel + Left = 21 + Top = 86 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label8: TLabel + Left = 199 + Top = 35 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object Label9: TLabel + Left = 199 + Top = 60 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label3: TLabel + Left = 199 + Top = 86 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label10: TLabel + Left = 23 + Top = 110 + Width = 42 + Height = 12 + Caption = #33457' '#22411 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 385 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = ' '#26597#35810#31383#20307 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 355 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object MDNO: TEdit + Tag = 2 + Left = 72 + Top = 31 + Width = 113 + Height = 20 + TabOrder = 1 + end + object MDType: TComboBox + Tag = 2 + Left = 257 + Top = 31 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object PSName: TComboBox + Tag = 2 + Left = 257 + Top = 56 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object ComboBox1: TComboBox + Tag = 2 + Left = 257 + Top = 82 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + end + object ComboBox2: TComboBox + Tag = 2 + Left = 72 + Top = 82 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + end + object ComboBox3: TComboBox + Tag = 2 + Left = 72 + Top = 107 + Width = 113 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + end + object Edit1: TEdit + Tag = 2 + Left = 72 + Top = 56 + Width = 113 + Height = 20 + TabOrder = 7 + end + object Button1: TButton + Left = 199 + Top = 108 + Width = 56 + Height = 19 + Caption = #26597#35810 + TabOrder = 8 + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 73 + Width = 1130 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 6 + Tabs.Strings = ( + #24453#26680#23545 + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1130 + ClientRectTop = 23 + end + object PopupMenu1: TPopupMenu + Left = 423 + Top = 404 + object N1: TMenuItem + Caption = #26597#35810#31383#20307 + Visible = False + OnClick = N1Click + end + object N3: TMenuItem + Caption = #26680#26597#25764#38144 + OnClick = N3Click + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 896 + Top = 167 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 959 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 294 + Top = 131 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 199 + Top = 124 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 230 + Top = 125 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.pas new file mode 100644 index 0000000..8016dbb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLView.pas @@ -0,0 +1,2044 @@ +unit U_MDChkFLView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFLView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v77Column1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + Panel3: TPanel; + Label11: TLabel; + PS: TEdit; + Label12: TLabel; + Qty: TEdit; + Label13: TLabel; + Money: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column14: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabControl1: TcxTabControl; + Panel4: TPanel; + Label6: TLabel; + Label4: TLabel; + Label8: TLabel; + Label9: TLabel; + Label3: TLabel; + Label10: TLabel; + Panel10: TPanel; + Image2: TImage; + MDNO: TEdit; + MDType: TComboBox; + PSName: TComboBox; + ComboBox1: TComboBox; + ComboBox2: TComboBox; + ComboBox3: TComboBox; + Edit1: TEdit; + Button1: TButton; + N3: TMenuItem; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + Button2: TButton; + v1Column4: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel6: TPanel; + Button3: TButton; + Button4: TButton; + ToolButton9: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton10: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + CheckBox1: TCheckBox; + v1Column18: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure N1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1FactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v1PSNamePropertiesEditValueChanged(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure v1ToFactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v72Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure InitGridMD(); + function YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; + function DelYFHZData():Boolean; + public + { Public declarations } + end; + +var + frmMDChkFLView: TfrmMDChkFLView; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFLView.FormDestroy(Sender: TObject); +begin + frmMDChkFLView:=nil; +end; + +procedure TfrmMDChkFLView.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFLView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥˲'); + WriteCxGrid('Tv2',Tv2,'뵥˲'); + WriteCxGrid('Tv3',Tv3,'뵥˲'); + close; +end; + +procedure TfrmMDChkFLView.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmMDChkFLView.Panel10MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmMDChkFLView.N1Click(Sender: TObject); +begin + Panel4.Left:=cxSplitter1.Left+20; + Panel4.Top:=Panel1.Top+150; + Panel4.Visible:=True; +end; + +procedure TfrmMDChkFLView.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where'); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +function TfrmMDChkFLView.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.ToolButton5Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>0 then Exit; + SaveData(); +end; + +procedure TfrmMDChkFLView.FormShow(Sender: TObject); +begin + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MDID in('); + sql.Add('select MDID from JYOrder_Main_MD A where isnull(MHID,'''')<>'''' '); + sql.Add('and not exists(select * from JYOrder_Main_MD_HZ B where '); + sql.Add('B.MHID=A.MHID and B.ORDMainId=A.ORDMainId and isnull(B.OrderNo,'''')<>''''))'); + ExecSQL; + end; } + cxTabControl2.TabIndex:=0; + cxTabControl1.TabIndex:=1; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + ReadCxGrid('Tv1',Tv1,'뵥˲'); + ReadCxGrid('Tv2',Tv2,'뵥˲'); + ReadCxGrid('Tv3',Tv3,'뵥˲'); + InitGrid(); +end; + +procedure TfrmMDChkFLView.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLView.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FOrderNo,fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' and isnull(MHID,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar('Ѵں˲뵥ܸĶ!'),'ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(mvalue)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar(':'+Trim(mvalue)+'!'),'ʾ',0); + Exit; + end else + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('TaiTou').Value:=Trim(ADOQueryTemp.fieldbyname('ComTaiTou').AsString); + FieldByName('MPRTCode').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOQueryTemp.fieldbyname('MPRTGY').AsString); + FieldByName('MPRTGY').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('ORDMainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + + Post; + end; + end; + {fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + fsj:='select distinct(FactoryName) Name,Code='''' from JYOrder_Main_MD where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,0,False,''); } + + InitGridMD(); + + +end; +procedure TfrmMDChkFLView.InitGridMD(); +var + fsj:String; +begin + fsj:=''; + if ClientDataSet1.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + if ((Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='') + and + (Trim(ClientDataSet1.fieldbyname('PSName').AsString)='')) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(MHID,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; +procedure TfrmMDChkFLView.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagName:='Ŀ'; + fnote:=True; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('ItemName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDChkFLView.ToolButton1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('MHDate').AsString)='' then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + //while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then + begin + + N3.Visible:=False; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + + N3.Visible:=True; + end; + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); +end; + +procedure TfrmMDChkFLView.MenuItem1Click(Sender: TObject); +var + fsj:string; +begin + +end; + + +procedure TfrmMDChkFLView.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if cxTabControl2.TabIndex=2 then + begin + if Trim(FName)='Ssel' then + begin + Tv1.OptionsData.Editing:=True; + end else + begin + Tv1.OptionsData.Editing:=False; + end; + end; + if cxTabControl2.TabIndex>1 then exit; + + if Trim(FName)='GenDan' then + begin + fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + end else + if Trim(FName)='FactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,1,False,''); + end else + if Trim(FName)='ToFactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1ToFactoryName,fsj,1,False,''); + end else + if Trim(FName)='PSName' then + begin + fsj:='select PSName Name,Code='''' from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+'''' + +' order by PSXH '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1PSName,fsj,0,False,''); + end; + + +end; + +procedure TfrmMDChkFLView.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('FKDays').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + Post; + end; +end; + +procedure TfrmMDChkFLView.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=Null; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MHDate').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + if mvalue=Null then + begin + FieldByName('YFDate').Value:=Null; + end else + begin + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + end; + Post; + end; +end; + +procedure TfrmMDChkFLView.v1FactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=mvalue; + FieldByName('FactoryNo').Value:=TA((v1FactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1FactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFLView.v1PSNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('PSName').Value:=mvalue; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkFLView.N3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=True then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end else + begin + FPS:=FPS-ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet3.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + {if cxTabControl1.TabIndex=0 then + begin + with ClientDataSet1 do + begin + Edit; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)='' then + begin + FieldByName('PS').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)='' then + begin + FieldByName('Qty').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)='' then + begin + FieldByName('Money').Value:=0; + end; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('').Value:= + Post; + end; + end; } +end; + +procedure TfrmMDChkFLView.ToolButton6Click(Sender: TObject); +var + FOrderNo,fsj:String; +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + if Trim(ForderNo)<>'' then + begin + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('к˲Ϣɾ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + + if Application.MessageBox('ȷҪɾϢ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmMDChkFLView.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('˲ܵ',cxGrid1); +end; + +procedure TfrmMDChkFLView.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥˲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFLView.ToolButton3Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then exit; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString) ; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMDChkFLView.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FtyMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Getdate(),'); + SQL.Add('DuiZhangPerson='''+Trim(DName)+''',DuiZhangStatus=''Ѷ'' ' ); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + YFHZData(Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + ClientDataSet1.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMDChkFLView.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+Trim(CRID)); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set YFID=Null where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmMDChkFLView.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>2 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('鲻ִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX A inner join YF_Money_CR B on A.YFID=B.YFID'); + sql.Add(' inner join JYOrder_Main_MD_HZ C on B.MHID=C.MHID'); + sql.Add(' where C.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('и¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Null,'); + SQL.Add('DuiZhangPerson=Null,DuiZhangStatus=Null,FtyQty=Null,FtyPrice=Null,FtyMoney=Null,ChaEMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + DelYFHZData(); + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.cxTabControl2Change(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then + begin + //Tv1.OptionsSelection.CellSelect:=True; + Tv1.OptionsData.Editing:=True; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + Tv1.OptionsData.Editing:=False; + end; + InitGrid(); +end; +function TfrmMDChkFLView.YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet1.fieldbyname('YFDate').Value; + FieldByName('Qty').Value:=ClientDataSet1.fieldbyname('Qty').Value; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end; + + FieldByName('Price').Value:=ClientDataSet1.fieldbyname('Price').Value; + FieldByName('Money').Value:=ClientDataSet1.fieldbyname('Money').Value; + FieldByName('BBMoney').Value:=ClientDataSet1.fieldbyname('Money').Value; + //FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ItemName').AsString); + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + FieldByName('MHID').Value:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + // FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +procedure TfrmMDChkFLView.v1ToFactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('ToFactoryName').Value:=mvalue; + FieldByName('ToFactoryNo').Value:=TA((v1ToFactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1ToFactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; +end; + +procedure TfrmMDChkFLView.v72Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('Price').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + FtyQty:=Trim(ClientDataSet1.fieldbyname('FtyQty').AsString); + if Trim(FtyQty)='' then + begin + FtyQty:='0'; + end; + FtyPrice:=Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString); + if Trim(FtyPrice)='' then + begin + FtyPrice:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(Qty)*StrToFloat(Price); + FieldByName('FtyMoney').Value:=StrToFloat(FtyQty)*StrToFloat(FtyPrice); + FieldByName('ChaEMoney').Value:=StrToFloat(Qty)*StrToFloat(Price)-StrToFloat(FtyQty)*StrToFloat(FtyPrice); + Post; + end; +end; + +procedure TfrmMDChkFLView.Button2Click(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; + FMDID:String; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + + PS.Text:='0'; + FPS:=StrToFloat(PS.Text); + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if CheckBox1.Checked=False then + begin + if ClientDataSet3.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet3.Locate('MDID',FMDID,[]); + end else + begin + if ClientDataSet1.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + //FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet1.Locate('MHID',FMDID,[]); + end; + +end; + +procedure TfrmMDChkFLView.ToolButton8Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;OrderNo',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHDate',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;PSName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FactoryName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end else + begin + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('SSel').Value:=False; + ClientDataSet1.Post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmMDChkFLView.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('δ治ܺ˲!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˲쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLView.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmMDChkFLView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFLView.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLView.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLView.ToolButton9Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus='''',SSTime=Getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''N'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Now; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFLView.ToolButton10Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus=Null,SSTime=Null,SSPerson=Null'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''Y'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Null; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmMDChkFLView.v1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=False then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end else + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS-0; + end; + //FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet1.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); +end; + +procedure TfrmMDChkFLView.CheckBox1Click(Sender: TObject); +begin + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + Button2.Click; +end; + +procedure TfrmMDChkFLView.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.OrderNo like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.dfm new file mode 100644 index 0000000..2dbbb6f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.dfm @@ -0,0 +1,995 @@ +object frmMDChkFLZhengYiCL: TfrmMDChkFLZhengYiCL + Left = 147 + Top = 82 + Width = 1146 + Height = 608 + Caption = #20105#35758#30721#21333#22788#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1138 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22788#29702 + ImageIndex = 36 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton7Click + end + object TBExport: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1138 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 210 + Top = 15 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 321 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 476 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 223 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 357 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + end + object FactoryName: TEdit + Tag = 2 + Left = 512 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399) + end + end + object Panel2: TPanel + Left = 0 + Top = 94 + Width = 1138 + Height = 483 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1134 + Height = 247 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Options.Editing = False + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Options.Editing = False + Width = 65 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel5: TPanel + Left = 2 + Top = 257 + Width = 1134 + Height = 224 + Align = alBottom + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 1 + Top = 1 + Width = 1132 + Height = 222 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 249 + Width = 1134 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 73 + Width = 1138 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#22788#29702 + #24050#22788#29702 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1138 + ClientRectTop = 23 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 294 + Top = 131 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 199 + Top = 124 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 230 + Top = 125 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.pas new file mode 100644 index 0000000..7050c2b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCL.pas @@ -0,0 +1,448 @@ +unit U_MDChkFLZhengYiCL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFLZhengYiCL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter2: TcxSplitter; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure v1Column9PropertiesEditValueChanged(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMDChkFLZhengYiCL: TfrmMDChkFLZhengYiCL; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFLZhengYiCL.FormDestroy(Sender: TObject); +begin + frmMDChkFLZhengYiCL:=nil; +end; + +procedure TfrmMDChkFLZhengYiCL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFLZhengYiCL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥'); + WriteCxGrid('Tv3',Tv3,'뵥'); + close; +end; + +procedure TfrmMDChkFLZhengYiCL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where 1=1 '); + if cxTabControl2.TabIndex<>0 then + begin + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + end; + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''') in('''',''˲ͨ'') '); + end else + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''') in(''Ѵ'',''ͨ'')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + + + +procedure TfrmMDChkFLZhengYiCL.FormShow(Sender: TObject); +begin + cxTabControl2.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-30; + ReadCxGrid('Tv1',Tv1,'뵥'); + ReadCxGrid('Tv3',Tv3,'뵥'); + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCL.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCL.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('뵥',cxGrid1); +end; + +procedure TfrmMDChkFLZhengYiCL.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFLZhengYiCL.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>0 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLQty',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLPrice',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set CLTime=Getdate(),'); + SQL.Add('CLPerson='''+Trim(DName)+''',ChkStatus=''Ѵ'' ' ); + if Trim(ClientDataSet1.fieldbyname('CLQty').AsString)<>'' then + begin + SQL.Add(',CLQty='+Trim(ClientDataSet1.fieldbyname('CLQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('CLPrice').AsString)<>'' then + begin + SQL.Add(',CLPrice='+Trim(ClientDataSet1.fieldbyname('CLPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('CLMoney').AsString)<>'' then + begin + SQL.Add(',CLMoney='+Trim(ClientDataSet1.fieldbyname('CLMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + {Edit; + FieldByName('CLPerson').Value:=Trim(DName); + FieldByName('CLTime').Value:=Now; + Post; } + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCL.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'ͨ']),[loPartialKey]) then + begin + Application.MessageBox('ִͨв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set CLTime=Null,'); + SQL.Add('CLPerson=Null,ChkStatus='''',CLQty=Null,CLPrice=Null,CLMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCL.cxTabControl2Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCL.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFLZhengYiCL.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCL.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCL.v1Column9PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('CLQty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('CLPrice').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('CLMoney').Value:=StrToFloat(Qty)*StrToFloat(Price); + Post; + end; +end; + +procedure TfrmMDChkFLZhengYiCL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.dfm new file mode 100644 index 0000000..cb1d99c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.dfm @@ -0,0 +1,1002 @@ +object frmMDChkFLZhengYiCLChk: TfrmMDChkFLZhengYiCLChk + Left = 147 + Top = 82 + Width = 1146 + Height = 608 + Caption = #20105#35758#30721#21333#23457#26680 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1138 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 213 + Top = 0 + Caption = #23457#26680#19981#36890#36807 + ImageIndex = 32 + OnClick = ToolButton1Click + end + object ToolButton7: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton7Click + end + object TBExport: TToolButton + Left = 395 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 458 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 545 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1138 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 210 + Top = 15 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 321 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 476 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 223 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 357 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + end + object FactoryName: TEdit + Tag = 2 + Left = 512 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399) + end + end + object Panel2: TPanel + Left = 0 + Top = 94 + Width = 1138 + Height = 483 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1134 + Height = 247 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Options.Editing = False + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Options.Editing = False + Width = 65 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel5: TPanel + Left = 2 + Top = 257 + Width = 1134 + Height = 224 + Align = alBottom + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 1 + Top = 1 + Width = 1132 + Height = 222 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 249 + Width = 1134 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 73 + Width = 1138 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1138 + ClientRectTop = 23 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 294 + Top = 131 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 199 + Top = 124 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 230 + Top = 125 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.pas new file mode 100644 index 0000000..110c265 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLChk.pas @@ -0,0 +1,486 @@ +unit U_MDChkFLZhengYiCLChk; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFLZhengYiCLChk = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton1: TToolButton; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter2: TcxSplitter; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure v1Column9PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMDChkFLZhengYiCLChk: TfrmMDChkFLZhengYiCLChk; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFLZhengYiCLChk.FormDestroy(Sender: TObject); +begin + frmMDChkFLZhengYiCLChk:=nil; +end; + +procedure TfrmMDChkFLZhengYiCLChk.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFLZhengYiCLChk.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥'); + WriteCxGrid('Tv3',Tv3,'뵥'); + close; +end; + +procedure TfrmMDChkFLZhengYiCLChk.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where 1=1 '); + if cxTabControl2.TabIndex<>0 then + begin + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + end; + sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(ChkStatus,'''')<>'''' '); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''') in(''Ѵ'') '); + end else + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''') in(''˲ͨ'',''ͨ'')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + + + +procedure TfrmMDChkFLZhengYiCLChk.FormShow(Sender: TObject); +begin + cxTabControl2.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-30; + ReadCxGrid('Tv1',Tv1,'뵥'); + ReadCxGrid('Tv3',Tv3,'뵥'); + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCLChk.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCLChk.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('뵥',cxGrid1); +end; + +procedure TfrmMDChkFLZhengYiCLChk.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFLZhengYiCLChk.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>0 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_HZ Set ChkTime=Getdate(),'); + SQL.Add(' Chker='''+Trim(DName)+''',ChkStatus=''ͨ'' ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update YF_Money_CR Set Valid=''Y'' '); + sql.Add(' ,Qty='+ClientDataSet1.fieldbyname('CLQty').AsString); + sql.Add(' ,Price='+ClientDataSet1.fieldbyname('CLPrice').AsString); + sql.Add(' ,Money='+ClientDataSet1.fieldbyname('CLMoney').AsString); + sql.Add(' ,BBMoney='+ClientDataSet1.fieldbyname('CLMoney').AsString); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set Qty=CLQty,Price=CLPrice,Money=CLMoney'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCLChk.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set ChkTime=Null,'); + SQL.Add('Chker=Null,ChkStatus=''Ѵ'' ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update YF_Money_CR Set Valid=''N'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCLChk.cxTabControl2Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCLChk.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFLZhengYiCLChk.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCLChk.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCLChk.v1Column9PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('CLQty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('CLPrice').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('CLMoney').Value:=StrToFloat(Qty)*StrToFloat(Price); + Post; + end; +end; + +procedure TfrmMDChkFLZhengYiCLChk.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>0 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_HZ Set ChkTime=Getdate(),'); + SQL.Add(' Chker='''+Trim(DName)+''',ChkStatus=''˲ͨ'' ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCLChk.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.dfm new file mode 100644 index 0000000..38c468a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.dfm @@ -0,0 +1,997 @@ +object frmMDChkFLZhengYiCLList: TfrmMDChkFLZhengYiCLList + Left = 147 + Top = 82 + Width = 1146 + Height = 608 + Caption = #20105#35758#30721#21333#22788#29702#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1130 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22788#29702 + ImageIndex = 36 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + Visible = False + OnClick = ToolButton7Click + end + object TBExport: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1130 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 210 + Top = 15 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 321 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 476 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 223 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 357 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + end + object FactoryName: TEdit + Tag = 2 + Left = 512 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399) + end + end + object Panel2: TPanel + Left = 0 + Top = 94 + Width = 1130 + Height = 475 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1126 + Height = 239 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Options.Editing = False + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Options.Editing = False + Width = 65 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel5: TPanel + Left = 2 + Top = 249 + Width = 1126 + Height = 224 + Align = alBottom + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 1 + Top = 1 + Width = 1124 + Height = 222 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 241 + Width = 1126 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 73 + Width = 1130 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#22788#29702 + #24050#22788#29702 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1130 + ClientRectTop = 23 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 294 + Top = 131 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 199 + Top = 124 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 230 + Top = 125 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.pas new file mode 100644 index 0000000..3d81eb8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkFLZhengYiCLList.pas @@ -0,0 +1,464 @@ +unit U_MDChkFLZhengYiCLList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmMDChkFLZhengYiCLList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + v1Column1: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter2: TcxSplitter; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure v1Column9PropertiesEditValueChanged(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMDChkFLZhengYiCLList: TfrmMDChkFLZhengYiCLList; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkFLZhengYiCLList.FormDestroy(Sender: TObject); +begin + frmMDChkFLZhengYiCLList:=nil; +end; + +procedure TfrmMDChkFLZhengYiCLList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkFLZhengYiCLList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥'); + WriteCxGrid('Tv3',Tv3,'뵥'); + close; +end; + +procedure TfrmMDChkFLZhengYiCLList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where 1=1 '); + if cxTabControl2.TabIndex<>0 then + begin + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + end; + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''') in('''',''˲ͨ'') '); + end else + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''') in(''Ѵ'',''ͨ'')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + + + +procedure TfrmMDChkFLZhengYiCLList.FormShow(Sender: TObject); +begin + cxTabControl2.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-30; + ReadCxGrid('Tv1',Tv1,'뵥'); + ReadCxGrid('Tv3',Tv3,'뵥'); + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCLList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkFLZhengYiCLList.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('뵥',cxGrid1); +end; + +procedure TfrmMDChkFLZhengYiCLList.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkFLZhengYiCLList.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>0 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLQty',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLPrice',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;CLMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set CLTime=Getdate(),'); + SQL.Add('CLPerson='''+Trim(DName)+''',ChkStatus=''Ѵ'' ' ); + if Trim(ClientDataSet1.fieldbyname('CLQty').AsString)<>'' then + begin + SQL.Add(',CLQty='+Trim(ClientDataSet1.fieldbyname('CLQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('CLPrice').AsString)<>'' then + begin + SQL.Add(',CLPrice='+Trim(ClientDataSet1.fieldbyname('CLPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('CLMoney').AsString)<>'' then + begin + SQL.Add(',CLMoney='+Trim(ClientDataSet1.fieldbyname('CLMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + {Edit; + FieldByName('CLPerson').Value:=Trim(DName); + FieldByName('CLTime').Value:=Now; + Post; } + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCLList.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'ͨ']),[loPartialKey]) then + begin + Application.MessageBox('ִͨв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set CLTime=Null,'); + SQL.Add('CLPerson=Null,ChkStatus='''',CLQty=Null,CLPrice=Null,CLMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkFLZhengYiCLList.cxTabControl2Change(Sender: TObject); +var + fsj:string; +begin + InitGrid(); + if ClientDataSet1.IsEmpty=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:='www324567'; + fsj:=' and isnull(MHID,'''')=''1234567ytrty'' '; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + end; +end; + +procedure TfrmMDChkFLZhengYiCLList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkFLZhengYiCLList.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCLList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkFLZhengYiCLList.v1Column9PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('CLQty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('CLPrice').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('CLMoney').Value:=StrToFloat(Qty)*StrToFloat(Price); + Post; + end; +end; + +procedure TfrmMDChkFLZhengYiCLList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + fsj:String; +begin + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.dfm new file mode 100644 index 0000000..b9f884d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.dfm @@ -0,0 +1,1347 @@ +object frmMDChkKKFL: TfrmMDChkKKFL + Left = 32 + Top = 100 + Width = 1146 + Height = 608 + Caption = #25187#27454#30721#21333#19982#20998#31867 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1130 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25209#37327#20445#23384 + ImageIndex = 5 + Visible = False + OnClick = ToolButton8Click + end + object ToolButton1: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 402 + Top = 0 + Caption = #20379#24212#21830#22686#21152 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 497 + Top = 0 + Caption = #21327#21830#20070#22686#21152 + ImageIndex = 66 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 592 + Top = 0 + Caption = #25171#21360#21327#21830#20070 + ImageIndex = 4 + OnClick = ToolButton7Click + end + object TBExport: TToolButton + Left = 687 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 750 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 837 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1130 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 210 + Top = 15 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 321 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 476 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 223 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 357 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + end + object FactoryName: TEdit + Tag = 2 + Left = 512 + Top = 11 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object Panel3: TPanel + Left = 627 + Top = 1 + Width = 347 + Height = 39 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label11: TLabel + Left = 9 + Top = 14 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label12: TLabel + Left = 80 + Top = 14 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 196 + Top = 14 + Width = 24 + Height = 12 + Caption = #37329#39069 + end + object PS: TEdit + Left = 34 + Top = 10 + Width = 43 + Height = 20 + TabOrder = 0 + end + object Qty: TEdit + Left = 105 + Top = 10 + Width = 88 + Height = 20 + TabOrder = 1 + end + object Money: TEdit + Left = 221 + Top = 10 + Width = 118 + Height = 20 + TabOrder = 2 + end + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399 + #25353#23545#36134#26085#26399) + end + object Button2: TButton + Left = 976 + Top = 11 + Width = 75 + Height = 21 + Caption = #37325#26032#35745#31639 + TabOrder = 6 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 1052 + Top = 13 + Width = 49 + Height = 17 + Caption = #19978#38754 + TabOrder = 7 + OnClick = CheckBox1Click + end + end + object Panel2: TPanel + Left = 0 + Top = 94 + Width = 1130 + Height = 176 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 744 + Top = 2 + Width = 384 + Height = 172 + Align = alRight + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 734 + Height = 172 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v1FactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1PSNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1ToFactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = #25187#27454#24037#24207 + DataBinding.FieldName = 'KKNote' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #25187#27454#21407#22240 + DataBinding.FieldName = 'KKReason' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column8: TcxGridDBColumn + Caption = #21327#21830#20070#32534#21495 + DataBinding.FieldName = 'XSSNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 81 + end + object v1Column17: TcxGridDBColumn + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YingFuYMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column18: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'DuiZhangTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 736 + Top = 2 + Width = 8 + Height = 172 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxSplitter2: TcxSplitter + Left = 0 + Top = 270 + Width = 1130 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + object Panel5: TPanel + Left = 0 + Top = 278 + Width = 1130 + Height = 291 + Align = alBottom + TabOrder = 4 + object cxGrid3: TcxGrid + Left = 51 + Top = 21 + Width = 1078 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 60 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v3Column21: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxTabControl1: TcxTabControl + Left = 1 + Top = 1 + Width = 1128 + Height = 20 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1128 + ClientRectTop = 22 + end + object Panel6: TPanel + Left = 1 + Top = 21 + Width = 50 + Height = 269 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button3: TButton + Left = 3 + Top = 66 + Width = 41 + Height = 20 + Caption = #26680#26597 + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 3 + Top = 162 + Width = 41 + Height = 20 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button4Click + end + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 73 + Width = 1130 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 5 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1130 + ClientRectTop = 23 + end + object PopupMenu1: TPopupMenu + Left = 831 + Top = 436 + object N1: TMenuItem + Caption = #26597#35810#31383#20307 + Visible = False + end + object N3: TMenuItem + Caption = #26680#26597#25764#38144 + OnClick = N3Click + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 317 + Top = 126 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 346 + Top = 127 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 371 + Top = 128 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 896 + Top = 167 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 959 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 258 + Top = 126 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 286 + Top = 123 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 199 + Top = 124 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 230 + Top = 125 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 504 + Top = 184 + ReportData = {} + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 504 + Top = 216 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 504 + Top = 120 + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 468 + Top = 184 + end + object ADOQuery2: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 302 + Top = 195 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.pas b/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.pas new file mode 100644 index 0000000..fb12a23 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDChkKKFL.pas @@ -0,0 +1,1852 @@ +unit U_MDChkKKFL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport; + +type + TfrmMDChkKKFL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v77Column1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + Panel3: TPanel; + Label11: TLabel; + PS: TEdit; + Label12: TLabel; + Qty: TEdit; + Label13: TLabel; + Money: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column14: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabControl1: TcxTabControl; + N3: TMenuItem; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + Button2: TButton; + v1Column4: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel6: TPanel; + Button3: TButton; + Button4: TButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + CheckBox1: TCheckBox; + v1Column18: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + v1Column9: TcxGridDBColumn; + RM1: TRMGridReport; + CDS_PRT: TClientDataSet; + RMDBMain: TRMDBDataSet; + RMXLSExport2: TRMXLSExport; + ADOQuery2: TADOQuery; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1FactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v1PSNamePropertiesEditValueChanged(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure v1ToFactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v72Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure v72Column4PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure InitGridMD(); + function YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; + function DelYFHZData():Boolean; + public + { Public declarations } + end; + +var + frmMDChkKKFL: TfrmMDChkKKFL; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDChkKKFL.FormDestroy(Sender: TObject); +begin + frmMDChkKKFL:=nil; +end; + +procedure TfrmMDChkKKFL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDChkKKFL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'KK뵥˲'); + WriteCxGrid('Tv2',Tv2,'KK뵥˲'); + WriteCxGrid('Tv3',Tv3,'KK뵥˲'); + close; +end; + +procedure TfrmMDChkKKFL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where isnull(A.MDType,'''')=''ۿ'' '); + + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + sql.Add(' and isnull(A.Status,'''')<>'''' '); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +function TfrmMDChkKKFL.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkKKFL.ToolButton5Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>0 then Exit; + with ClientDataSet1 do + begin + Append; + //FieldByName('MHID').Value:=''; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + //SaveData(); +end; + +procedure TfrmMDChkKKFL.FormShow(Sender: TObject); +begin + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MDID in('); + sql.Add('select MDID from JYOrder_Main_MD A where isnull(MHID,'''')<>'''' '); + sql.Add('and not exists(select * from JYOrder_Main_MD_HZ B where '); + sql.Add('B.MHID=A.MHID and B.ORDMainId=A.ORDMainId and isnull(B.OrderNo,'''')<>''''))'); + ExecSQL; + end; } + cxTabControl2.TabIndex:=0; + cxTabControl1.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + ReadCxGrid('Tv1',Tv1,'KK뵥˲'); + ReadCxGrid('Tv2',Tv2,'KK뵥˲'); + ReadCxGrid('Tv3',Tv3,'KK뵥˲'); + InitGrid(); +end; + +procedure TfrmMDChkKKFL.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMDChkKKFL.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FOrderNo,fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' and isnull(MHID,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar('Ѵں˲뵥ܸĶ!'),'ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(mvalue)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar(':'+Trim(mvalue)+'!'),'ʾ',0); + Exit; + end else + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('TaiTou').Value:=Trim(ADOQueryTemp.fieldbyname('ComTaiTou').AsString); + FieldByName('MPRTCode').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOQueryTemp.fieldbyname('MPRTGY').AsString); + FieldByName('MPRTGY').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('ORDMainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + + Post; + end; + end; + {fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + fsj:='select distinct(FactoryName) Name,Code='''' from JYOrder_Main_MD where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,0,False,''); } + + InitGridMD(); + + +end; +procedure TfrmMDChkKKFL.InitGridMD(); +var + fsj:String; +begin + fsj:=''; + if ((Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='') + and + (Trim(ClientDataSet1.fieldbyname('PSName').AsString)='')) then + begin + with ADOQuery2 do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQuery2,ClientDataSet3); + SInitCDSData20(ADOQuery2,ClientDataSet3); + Exit; + end; + with ADOQuery2 do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(MHID,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.DutyFactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + {if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end;} + fsj:=fsj+' '+ //and isnull(PF.CKName,'''')<>''ڲֿ'' + ' and exists(select * from JYOrder_Main_MD_KK JMMK where JMMK.MDID=JMM.MDID)'; + + //Parameters.ParamByName('WSql').Value:=fsj; + // ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQuery2,ClientDataSet3); + SInitCDSData20(ADOQuery2,ClientDataSet3); +end; +procedure TfrmMDChkKKFL.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagName:='Ŀ'; + fnote:=True; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('ItemName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDChkKKFL.ToolButton1Click(Sender: TObject); +var + maxNo:string; +begin + if cxTabControl2.TabIndex<>0 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('MHDate').AsString)='' then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + //while ClientDataSet1.Locate('SSel',True,[]) do + begin + if Trim(ClientDataSet1.fieldbyname('MHID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + end else + begin + maxNo:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet1.fieldbyname('MHID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MHID').Value:=Trim(maxNo); + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + FieldByName('MDType').Value:='ۿ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + Edit; + FieldByName('MHID').Value:=Trim(maxNo); + Post; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(maxNo)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + {if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end; } + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkKKFL.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then + begin + + N3.Visible:=False; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + + N3.Visible:=True; + end; + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); +end; + +procedure TfrmMDChkKKFL.MenuItem1Click(Sender: TObject); +var + fsj:string; +begin + +end; + + +procedure TfrmMDChkKKFL.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if cxTabControl2.TabIndex=2 then + begin + if Trim(FName)='Ssel' then + begin + Tv1.OptionsData.Editing:=True; + end else + begin + Tv1.OptionsData.Editing:=False; + end; + end; + if cxTabControl2.TabIndex>1 then exit; + + if Trim(FName)='GenDan' then + begin + fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + end else + if Trim(FName)='FactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,1,False,''); + end else + if Trim(FName)='ToFactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1ToFactoryName,fsj,1,False,''); + end else + if Trim(FName)='PSName' then + begin + fsj:='select PSName Name,Code='''' from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+'''' + +' order by PSXH '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1PSName,fsj,0,False,''); + end; + if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + +end; + +procedure TfrmMDChkKKFL.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('FKDays').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + Post; + end; +end; + +procedure TfrmMDChkKKFL.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=Null; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MHDate').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + if mvalue=Null then + begin + FieldByName('YFDate').Value:=Null; + end else + begin + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + end; + Post; + end; +end; + +procedure TfrmMDChkKKFL.v1FactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=mvalue; + FieldByName('FactoryNo').Value:=TA((v1FactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1FactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkKKFL.v1PSNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('PSName').Value:=mvalue; + Post; + end; + InitGridMD(); +end; + +procedure TfrmMDChkKKFL.N3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkKKFL.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=True then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('TJXSMoney').Value; + end else + begin + FPS:=FPS-ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet3.fieldbyname('TJXSMoney').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + {if cxTabControl1.TabIndex=0 then + begin + with ClientDataSet1 do + begin + Edit; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)='' then + begin + FieldByName('PS').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)='' then + begin + FieldByName('Qty').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)='' then + begin + FieldByName('Money').Value:=0; + end; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('').Value:= + Post; + end; + end; } +end; + +procedure TfrmMDChkKKFL.ToolButton6Click(Sender: TObject); +var + FOrderNo,fsj:String; +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + if Trim(ForderNo)<>'' then + begin + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('к˲Ϣɾ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + + if Application.MessageBox('ȷҪɾϢ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('insert into JYOrder_Main_MD_HZ_DelLog '); + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ_DelLog Set Note=Isnull(Note,'''')+''ɾ:''+'''+Trim(DName)+''''); + sql.Add('+'' ''+Convert(Varchar(20),getdate(),120)'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmMDChkKKFL.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('˲ܵ',cxGrid1); +end; + +procedure TfrmMDChkKKFL.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥˲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDChkKKFL.ToolButton3Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then exit; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString) ; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +function TfrmMDChkKKFL.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+Trim(CRID)); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set YFID=Null where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmMDChkKKFL.cxTabControl2Change(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then + begin + //Tv1.OptionsSelection.CellSelect:=True; + Tv1.OptionsData.Editing:=True; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + Tv1.OptionsData.Editing:=False; + end; + InitGrid(); +end; +function TfrmMDChkKKFL.YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet1.fieldbyname('YFDate').Value; + FieldByName('Qty').Value:=ClientDataSet1.fieldbyname('Qty').Value; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end; + + FieldByName('Price').Value:=ClientDataSet1.fieldbyname('Price').Value; + FieldByName('Money').Value:=ClientDataSet1.fieldbyname('Money').Value; + FieldByName('BBMoney').Value:=ClientDataSet1.fieldbyname('Money').Value; + //FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ItemName').AsString); + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + FieldByName('MHID').Value:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + // FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +procedure TfrmMDChkKKFL.v1ToFactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('ToFactoryName').Value:=mvalue; + FieldByName('ToFactoryNo').Value:=TA((v1ToFactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1ToFactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; +end; + +procedure TfrmMDChkKKFL.v72Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('Price').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + FtyQty:=Trim(ClientDataSet1.fieldbyname('FtyQty').AsString); + if Trim(FtyQty)='' then + begin + FtyQty:='0'; + end; + FtyPrice:=Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString); + if Trim(FtyPrice)='' then + begin + FtyPrice:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(Qty)*StrToFloat(Price); + FieldByName('FtyMoney').Value:=StrToFloat(FtyQty)*StrToFloat(FtyPrice); + FieldByName('ChaEMoney').Value:=StrToFloat(Qty)*StrToFloat(Price)-StrToFloat(FtyQty)*StrToFloat(FtyPrice); + Post; + end; +end; + +procedure TfrmMDChkKKFL.Button2Click(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; + FMDID:String; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + + PS.Text:='0'; + FPS:=StrToFloat(PS.Text); + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if CheckBox1.Checked=False then + begin + if ClientDataSet3.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('TJXSMoney').Value; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet3.Locate('MDID',FMDID,[]); + end else + begin + if ClientDataSet1.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + //FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet1.Locate('MHID',FMDID,[]); + end; + +end; + +procedure TfrmMDChkKKFL.ToolButton8Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;OrderNo',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHDate',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;PSName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FactoryName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + FieldByName('MDType').Value:='ۿ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end else + begin + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('SSel').Value:=False; + ClientDataSet1.Post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmMDChkKKFL.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMDChkKKFL.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˲쳣!','ʾ',0); + end; +end; + +procedure TfrmMDChkKKFL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); } +end; + +procedure TfrmMDChkKKFL.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmMDChkKKFL.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkKKFL.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmMDChkKKFL.v1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=False then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end else + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS-0; + end; + //FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet1.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); +end; + +procedure TfrmMDChkKKFL.CheckBox1Click(Sender: TObject); +begin + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + Button2.Click; +end; + +procedure TfrmMDChkKKFL.v72Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice,Money,FtyMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Money:=Trim(ClientDataSet1.fieldbyname('Money').AsString); + if Trim(Money)='' then + begin + Money:='0'; + end; + FtyMoney:=Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString); + if Trim(FtyMoney)='' then + begin + FtyMoney:='0'; + end; + FtyMoney:=Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString); + if Trim(FtyMoney)='' then + begin + FtyMoney:='0'; + end; + with ClientDataSet1 do + begin + Edit; + if StrToFloat(Qty)<>0 then + begin + FieldByName('Price').Value:=StrToFloat(Money)*1.00/StrToFloat(Qty); + end; + {if StrToFloat(FtyQty)<>0 then + begin + FieldByName('FtyPrice').Value:=StrToFloat(FtyMoney)*1.00/StrToFloat(FtyQty); + end;} + FieldByName('ChaEMoney').Value:=StrToFloat(Money)-StrToFloat(FtyMoney); + Post; + end; +end; + +procedure TfrmMDChkKKFL.ToolButton4Click(Sender: TObject); +var + maxno:String; +begin + if cxTabControl2.TabIndex<>0 then Exit; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHID',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'XS','JYOrder_Main_MD_HZ',2,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡЭʧ!','ʾ',0); + Exit; + end; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set XSSNO='''+Trim(maxno)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('XSSNO').Value:=Trim(maxno); + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; + +procedure TfrmMDChkKKFL.ToolButton7Click(Sender: TObject); +var + fPrintFile:string; +begin + if ClientDataSet1.IsEmpty then Exit; + if Trim(ClientDataSet1.fieldbyname('XSSNO').AsString)='' then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Э.rmf' ; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*,B.MPRTKZ,B.MPRTCodeName '); + SQL.Add(',KHName=(select KHName from ZH_KH_Info where ZKID=A.FactoryNo)'); + sql.Add(',GSTT=(select Top 1 ZdyStr1 from KH_Zdy AA where AA.ZdyName=A.TaiTou)'); + sql.Add(' from JYOrder_Main_MD_HZ A'); + sql.Add(' inner join JYOrder_Main B on A.ORDMainid=B.MainId'); + sql.Add(' where A.XSSNO='''+Trim(ClientDataSet1.fieldbyname('XSSNO').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Э.rmf'),'ʾ',0); + end; + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDList.dfm new file mode 100644 index 0000000..7fcc956 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDList.dfm @@ -0,0 +1,1057 @@ +object frmMDList: TfrmMDList + Left = 39 + Top = 102 + Width = 1235 + Height = 572 + Caption = #30721#21333#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1219 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1219 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 42 + Height = 12 + Caption = #21697' '#21517 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label9: TLabel + Left = 536 + Top = 12 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label11: TLabel + Left = 357 + Top = 36 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object ConName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object PSName: TComboBox + Tag = 2 + Left = 587 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 105 + Width = 1219 + Height = 428 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 428 + ClientRectRight = 1219 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + Column = v3Column15 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v3Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'ConPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v3Column16: TcxGridDBColumn + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v3Column17: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column7: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column12: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'ConPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv1Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 48 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #26080#21333#32433#32447#30721#21333 + ImageIndex = 2 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn27: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column3: TcxGridDBColumn + Caption = #21407#26009#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21407#26009#32534#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #33394#21035 + DataBinding.FieldName = 'SeBie' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20928#37325'(Kg)' + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #26080#21333#22383#24067#30721#21333 + ImageIndex = 3 + object cxGrid5: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn41 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn42 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn31: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object cxGridDBColumn38: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn39: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object cxGridDBColumn40: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn41: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn42: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object cxGridDBColumn43: TcxGridDBColumn + Caption = #37319#36141#21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + Width = 81 + end + object cxGridDBColumn44: TcxGridDBColumn + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn45: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 77 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 216 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 488 + Top = 248 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 248 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 553 + Top = 249 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 521 + Top = 313 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 457 + Top = 305 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDList.pas b/坯布码单待检(PBMDDJ.dll)/U_MDList.pas new file mode 100644 index 0000000..c070b76 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDList.pas @@ -0,0 +1,444 @@ +unit U_MDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox; + +type + TfrmMDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + ConName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Label6: TLabel; + MDNO: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + PSName: TComboBox; + Label9: TLabel; + Label11: TLabel; + FactoryName: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn27: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridDBColumn38: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn39: TcxGridDBColumn; + cxGridDBColumn40: TcxGridDBColumn; + cxGridDBColumn41: TcxGridDBColumn; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn43: TcxGridDBColumn; + cxGridDBColumn44: TcxGridDBColumn; + cxGridDBColumn45: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + v3Column2: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + canshu1,canshu2:string; + public + { Public declarations } + end; + +var + frmMDList: TfrmMDList; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmMDList.FormDestroy(Sender: TObject); +begin + frmMDList:=nil; +end; + +procedure TfrmMDList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex<2 then + begin + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'' '); + sql.Add(',orderNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + end else + if cxPageControl1.ActivePageIndex=3 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'',orderno='''' '); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate and isnull(CKName,'''')='''' '); + SQL.Add(' and CRFlag='''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmMDList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmMDList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('CWTV1',Tv1,'뵥'); + WriteCxGrid('CWTV2',Tv2,'뵥'); + WriteCxGrid('CWTV3',Tv3,'뵥'); + WriteCxGrid('CWTV5',Tv5,'뵥'); + Close; +end; + +procedure TfrmMDList.cxPageControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmMDList.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmMDList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if cxPageControl1.ActivePageIndex>1 then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + {if Trim(canshu2)<>'Ȩ' then + begin + fsj:=fsj+' and JMM.Filler='''+Trim(DName)+''''; + end; } + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmMDList.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex<2 then + begin + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'' '); + sql.Add(',orderNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.SPID like '''+'%'+Trim(MDNO.Text)+'%'+''''); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + end else + if cxPageControl1.ActivePageIndex=3 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'',orderno='''' '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.SPID like '''+'%'+Trim(MDNO.Text)+'%'+''''); + SQL.Add(' and CRFlag='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmMDList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else if cxPageControl1.ActivePageIndex=1 then + TcxGridToExcel('ֿ뵥',cxGrid1) + else if cxPageControl1.ActivePageIndex=2 then + TcxGridToExcel('޵ɴ뵥',cxGrid2) + else if cxPageControl1.ActivePageIndex=5 then + TcxGridToExcel('޵뵥',cxGrid1); +end; + +procedure TfrmMDList.FormShow(Sender: TObject); +begin + READCxGrid('CWTV1',Tv1,'뵥'); + READCxGrid('CWTV2',Tv2,'뵥'); + READCxGrid('CWTV3',Tv3,'뵥'); + READCxGrid('CWTV5',Tv5,'뵥'); +end; + +procedure TfrmMDList.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmMDList.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + +begin + PSName.Clear; +end; + +procedure TfrmMDList.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + +begin + PSName.Clear; +end; + +procedure TfrmMDList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDManage.dfm new file mode 100644 index 0000000..f1f807f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDManage.dfm @@ -0,0 +1,1654 @@ +object frmMDManage: TfrmMDManage + Left = 27 + Top = 83 + Width = 1185 + Height = 627 + Caption = #30721#21333#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1169 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #37325#26032#25351#23450 + ImageIndex = 134 + Visible = False + OnClick = ToolButton3Click + end + object TBExport: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1169 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label10: TLabel + Left = 526 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#21378#32568#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label8: TLabel + Left = 664 + Top = 12 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object Label9: TLabel + Left = 664 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object ConName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object PRTColorHZ: TEdit + Tag = 2 + Left = 579 + Top = 8 + Width = 68 + Height = 20 + TabOrder = 1 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object gangNo: TEdit + Tag = 2 + Left = 579 + Top = 32 + Width = 68 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object ConCode: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object MDType: TComboBox + Tag = 2 + Left = 715 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object PSName: TComboBox + Tag = 2 + Left = 715 + Top = 32 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + end + object CheckBox1: TCheckBox + Left = 831 + Top = 34 + Width = 97 + Height = 17 + Caption = #26080#21512#21516#30721#21333 + TabOrder = 10 + Visible = False + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 93 + Width = 664 + Height = 495 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 495 + ClientRectRight = 664 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 664 + Height = 472 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + Column = v3Column17 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Styles.Header = DataLink_DDMD.FontBlue + Width = 62 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 44 + end + object v3Column2: TcxGridDBColumn + Tag = 99 + Caption = #24037#21378#32568#21495 + DataBinding.FieldName = 'gangNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 58 + end + object v3Column13: TcxGridDBColumn + Tag = 99 + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'selfGangNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 70 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv3Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 71 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v3Column20: TcxGridDBColumn + Caption = #24050#26680#26597 + DataBinding.FieldName = 'HCFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v3Column21: TcxGridDBColumn + Caption = #26680#26597#26102#38388 + DataBinding.FieldName = 'HCDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v3Column22: TcxGridDBColumn + Caption = #26680#26597#20154 + DataBinding.FieldName = 'HCPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 664 + Height = 472 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 39 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 64 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 46 + end + object Tv1Column1: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Tag = 99 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Tag = 99 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 70 + end + object v1Column13: TcxGridDBColumn + Tag = 99 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 48 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v1Column8: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Options.Editing = False + Width = 59 + end + object v1Column9: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Options.Editing = False + Width = 55 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column12: TcxGridDBColumn + Caption = #24050#26680#26597 + DataBinding.FieldName = 'HCFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column14: TcxGridDBColumn + Caption = #26680#26597#26102#38388 + DataBinding.FieldName = 'HCDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #26680#26597#20154 + DataBinding.FieldName = 'HCPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 664 + Top = 93 + Width = 505 + Height = 495 + Align = alRight + TabOrder = 3 + Visible = False + object Panel3: TPanel + Left = 0 + Top = 23 + Width = 501 + Height = 19 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 5 + Top = 2 + Width = 66 + Height = 12 + Caption = #29983#20135#27969#31243' 1' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid71: TcxGrid + Left = 0 + Top = 42 + Width = 501 + Height = 109 + Align = alTop + TabOrder = 1 + object Tv71: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource71 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object V2XH: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 52 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 180 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv71 + end + end + object Panel7: TPanel + Left = 0 + Top = 151 + Width = 501 + Height = 21 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label23: TLabel + Left = 12 + Top = 4 + Width = 92 + Height = 12 + Caption = #35746#21333#23433#25490#20449#24687' 2' + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object cxGrid72: TcxGrid + Left = 0 + Top = 172 + Width = 501 + Height = 100 + Align = alClient + TabOrder = 3 + object Tv72: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource72 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 42 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + DataBinding.FieldName = 'WCL' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv72 + end + end + object Panel2: TPanel + Left = 0 + Top = 272 + Width = 501 + Height = 20 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 4 + object Label21: TLabel + Left = 5 + Top = 3 + Width = 92 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516' 3' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid77: TcxGrid + Left = 0 + Top = 292 + Width = 501 + Height = 199 + Align = alBottom + TabOrder = 5 + object Tv77: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource77 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv77 + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 501 + Height = 23 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object Label11: TLabel + Left = 176 + Top = 5 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button1: TButton + Left = 40 + Top = 2 + Width = 53 + Height = 18 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 102 + Top = 2 + Width = 53 + Height = 18 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Edit1: TEdit + Tag = 2 + Left = 218 + Top = 1 + Width = 209 + Height = 20 + TabOrder = 2 + OnChange = Edit1Change + end + end + object cxGrid6: TcxGrid + Left = 219 + Top = 20 + Width = 207 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 195 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 219 + Top = 247 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 488 + Top = 248 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 248 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 553 + Top = 249 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object DataSource71: TDataSource + DataSet = ClientDataSet71 + Left = 720 + Top = 184 + end + object ClientDataSet71: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 184 + end + object cxGridPopupMenu71: TcxGridPopupMenu + Grid = cxGrid71 + PopupMenus = <> + Left = 761 + Top = 185 + end + object DataSource72: TDataSource + DataSet = ClientDataSet72 + Left = 880 + Top = 304 + end + object ClientDataSet72: TClientDataSet + Aggregates = <> + Params = <> + Left = 912 + Top = 304 + end + object cxGridPopupMenu72: TcxGridPopupMenu + Grid = cxGrid72 + PopupMenus = <> + Left = 945 + Top = 305 + end + object DataSource77: TDataSource + DataSet = ClientDataSet77 + Left = 872 + Top = 440 + end + object ClientDataSet77: TClientDataSet + Aggregates = <> + Params = <> + Left = 912 + Top = 440 + end + object cxGridPopupMenu77: TcxGridPopupMenu + Grid = cxGrid77 + PopupMenus = <> + Left = 961 + Top = 441 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 144 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 1048 + Top = 144 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 960 + Top = 496 + end + object ClientDataSet9: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 496 + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 896 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDManage.pas b/坯布码单待检(PBMDDJ.dll)/U_MDManage.pas new file mode 100644 index 0000000..2a248c2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDManage.pas @@ -0,0 +1,1549 @@ +unit U_MDManage; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox, cxButtonEdit; + +type + TfrmMDManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label4: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label10: TLabel; + ConName: TEdit; + PRTColorHZ: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + gangNo: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label6: TLabel; + MDNO: TEdit; + Label7: TLabel; + ConCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + v3Column12: TcxGridDBColumn; + MDType: TComboBox; + Label8: TLabel; + PSName: TComboBox; + Label9: TLabel; + v3Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + v3Column14: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + ScrollBox1: TScrollBox; + Panel3: TPanel; + Label13: TLabel; + cxGrid71: TcxGrid; + Tv71: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + V2XH: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Panel7: TPanel; + Label23: TLabel; + cxGrid72: TcxGrid; + Tv72: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel2: TPanel; + Label21: TLabel; + cxGrid77: TcxGrid; + Tv77: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Panel4: TPanel; + Button1: TButton; + Button2: TButton; + DataSource71: TDataSource; + ClientDataSet71: TClientDataSet; + cxGridPopupMenu71: TcxGridPopupMenu; + DataSource72: TDataSource; + ClientDataSet72: TClientDataSet; + cxGridPopupMenu72: TcxGridPopupMenu; + DataSource77: TDataSource; + ClientDataSet77: TClientDataSet; + cxGridPopupMenu77: TcxGridPopupMenu; + Label11: TLabel; + Edit1: TEdit; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + VOrderNo: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + v77Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton2: TToolButton; + v3Column15: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + ClientDataSet8: TClientDataSet; + v1Column13: TcxGridDBColumn; + ClientDataSet9: TClientDataSet; + ADOTemp: TADOQuery; + v3Column19: TcxGridDBColumn; + CheckBox1: TCheckBox; + v3Column20: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3Column1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Edit1Change(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + canshu1,canshu2,FMainId,FOrderNo:string; + procedure UPMDWCdata(FQtyUnit,FPFID:String); + function UpdateTJCKQty10(FFPFID:string):Boolean; + function UpdateTJCKQty(FFPFID:string):Boolean; + public + { Public declarations } + end; + +var + frmMDManage: TfrmMDManage; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDManage.FormDestroy(Sender: TObject); +begin + frmMDManage:=nil; +end; + +procedure TfrmMDManage.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDManage.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if CheckBox1.Checked=False then + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MD_NoCon :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmMDManage.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmMDManage.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('뵥',Tv3,'뵥'); + WriteCxGrid('ڲֿ뵥',Tv1,'뵥'); + Close; +end; + +procedure TfrmMDManage.cxPageControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmMDManage.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmMDManage.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if CheckBox1.Checked=False then + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MD_NoCon :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + {if Trim(canshu2)<>'Ȩ' then + begin + fsj:=fsj+' and JMM.Filler='''+Trim(DName)+''''; + end; } + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + + end; + +end; + +procedure TfrmMDManage.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if CheckBox1.Checked=False then + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql') + else + sql.Add('exec P_View_MD_NoCon :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + {if Trim(canshu2)<>'Ȩ' then + begin + fsj:=fsj+' and JMM.Filler='''+Trim(DName)+''''; + end; } + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmMDManage.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else + TcxGridToExcel('ڲֿ뵥',cxGrid1); +end; + +procedure TfrmMDManage.FormShow(Sender: TObject); +begin + READCxGrid('뵥',Tv3,'뵥'); + READCxGrid('ڲֿ뵥',Tv1,'뵥'); +end; + +procedure TfrmMDManage.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ToolBar1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while ClientDataSet3.Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + if cxPageControl1.ActivePageIndex=0 then + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',99) + else + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet3,'JYOrder_Main_MD',99); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + if ClientDataSet3.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + FieldByName('OtherOrdFlag').Value:=1; + end else + begin + FieldByName('OtherOrdFlag').Value:=0; + end; + if ClientDataSet3.FieldByName('HXFlag').AsBoolean=True then + begin + FieldByName('HXFlag').Value:=1; + end else + begin + FieldByName('HXFlag').Value:=0; + end; + if ClientDataSet3.FieldByName('CiPinFlag').AsBoolean=True then + begin + FieldByName('CiPinFlag').Value:=1; + end else + begin + FieldByName('CiPinFlag').Value:=0; + end; + FieldByName('RKDate').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + FieldByName('RKPS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('RKQty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + FieldByName('RKQtyUnit').Value:=ClientDataSet3.fieldbyname('QtyUnit').Value; + Post; + end; + + if cxPageControl1.ActivePageIndex=0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if Trim(ADOQueryTemp.fieldbyname('CKName').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set DiaoYongCKPS=(select Sum(PS) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(',DiaoYongCKQty=(select Sum(Qty) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + if Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select Sum(DiaoYongCKPS) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select Sum(DiaoYongCKQty) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + end; + + end; + end; + {if UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString))=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Exit; + end; } + end; + {if UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString)) then + begin + + end else + begin + ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ʧ!','ʾ',0); + exit; + end;} + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMDManage.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Result:=True; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + if Application.MessageBox('ڵ,ȷҪ¼뵥','ʾ',32+4)<>IDYES then + begin + Result:=False; + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + sql.Add(' order by CKQty'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + if ClientDataSet8.RecordCount>1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS)+',SJCKQty='+floattostr(FQty)); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=0; + FQty:=0; + ClientDataSet8.Delete; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Result:=True; +end; +function TfrmMDManage.UpdateTJCKQty10(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + Application.MessageBox('ڵ¼뵥!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; +end; +procedure TfrmMDManage.Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + fsj:='select PSName Name, Cast('''' as varchar(20)) code from JYOrder_Process '+ + ' where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''' order by PSXH'; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmMDManage.Tv3Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv3Column1.Properties as TcxComboBoxProperties).Items.Objects[(Tv3Column1.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMDManage.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while Locate('SSel',True,[])=true do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY where APID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Exit; + end; + if cxPageControl1.ActivePageIndex=1 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(CKQty,0) from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('CKQty').Value<>0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('еݲɾ!','ʾ',0); + Exit; + end; + end ; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + + if cxPageControl1.ActivePageIndex=0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if Trim(ADOQueryTemp.fieldbyname('CKName').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set DiaoYongCKPS=(select isnull(Sum(PS),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(',DiaoYongCKQty=(select isnull(Sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + if Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select isnull(Sum(DiaoYongCKPS),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select isnull(Sum(DiaoYongCKQty),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + end; + + end; + end; + end; + ClientDataSet3.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɾɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + +end; + +procedure TfrmMDManage.Tv1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DutyReason'; + flagname:='ԭ'; + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('DutyReason').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDManage.Tv1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMDManage.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv1Column2,fsj,1,True,''); + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(PFGenDanPerson,'''')<>'''' group by PFGenDanPerson'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv1Column1,fsj,1,True,''); + fsj:='select PSName Name, Cast('''' as varchar(20)) code from JYOrder_Process '+ + 'where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''' order by PSXH'; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmMDManage.Tv1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('DutyFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv1Column2.Properties as TcxComboBoxProperties).Items.Objects[(Tv1Column2.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('DutyFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMDManage.ToolButton3Click(Sender: TObject); +begin + ScrollBox1.Visible:=True; + ScrollBox1.Refresh; + + +end; + +procedure TfrmMDManage.Button2Click(Sender: TObject); +begin + ScrollBox1.Visible:=False; +end; + +procedure TfrmMDManage.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID,ConType:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet71.fieldbyname('PSID').AsString); + with ClientDataSet71 do + begin + while ClientDataSet71.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet71.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet71.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet72); + SInitCDSData20(ADOQuery1,ClientDataSet72); + if Mvalue=True then + begin + ClientDataSet71.Locate('SSel',True,[]); + ConType:=Trim(ClientDataSet71.fieldbyname('PSName').AsString); + end else + begin + ConType:=''; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + if Trim(ConType)<>'' then + begin + sql.Add(' and A.ConType='''+Trim(ConType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); +end; + +procedure TfrmMDManage.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet72.fieldbyname('PFID').AsString); + with ClientDataSet72 do + begin + while ClientDataSet72.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet72.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet72.fieldbyname('PSName').AsString)+''''); + sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet72.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet72.fieldbyname('PSName').AsString)+''''); + //sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + end; +end; + +procedure TfrmMDManage.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet77.fieldbyname('SubID').AsString); + with ClientDataSet77 do + begin + while ClientDataSet77.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet77.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; +end; + +procedure TfrmMDManage.Button1Click(Sender: TObject); +var + FQtyUnit,FPFID:String; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet71.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet72.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if ClientDataSet77.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet71.Locate('SSel',True,[]); + ClientDataSet72.Locate('SSel',True,[]); + ClientDataSet77.Locate('SSel',True,[]); + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while Locate('SSel',True,[])=True do + begin + FQtyUnit:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FPFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + {if ClientDataSet3.FieldByName('RKQty').AsFloat>0 then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ⲻָ!','',0); + Exit; + end;} + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('UPdate JYOrder_Main_MD Set Editer='''+Trim(DName)+''',EditTime=getdate(),'); + sql.Add(' ORDMainId='''+Trim(ClientDataSet72.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,ORDSubId='''+Trim(ClientDataSet72.fieldbyname('SubId').AsString)+''''); + sql.Add(' ,PSId='''+Trim(ClientDataSet72.fieldbyname('PSId').AsString)+''''); + sql.Add(' ,PFId='''+Trim(ClientDataSet72.fieldbyname('PFId').AsString)+''''); + sql.Add(' ,ConMainId='''+Trim(ClientDataSet77.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,ConSubId='''+Trim(ClientDataSet77.fieldbyname('SubId').AsString)+''''); + SQL.Add(' ,PSName='''+Trim(ClientDataSet71.fieldbyname('PSName').AsString)+''''); + SQL.Add(' ,FactoryNo='''+Trim(ClientDataSet77.fieldbyname('FactoryNo').AsString)+''''); + SQL.Add(' ,FactoryName='''+Trim(ClientDataSet77.fieldbyname('FactoryNoName').AsString)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + UPMDWCdata(FQtyUnit,FPFID); + UPMDWCdata(FQtyUnit,Trim(ClientDataSet72.fieldbyname('PFId').AsString)); + if cxPageControl1.ActivePageIndex=0 then + UpdateTJCKQty(FPFID); + Edit; + FieldByName('SSel').Value:=false; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +procedure TfrmMDManage.UPMDWCdata(FQtyUnit,FPFID:String); +begin + if Trim(FQtyUnit)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('isnull((select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + end + else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('isnull((select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')*'); + end; + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID),0)'); + sql.Add(' where PFID='''+Trim(FPFID)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')'); + end; + sql.Add(' where PFID='''+Trim(FPFID)+''''); + ExecSQL; + end; + end; +end; + +procedure TfrmMDManage.Edit1Change(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(Edit1.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMDManage.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + Edit1.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + //sql.Add(',PFGenDanPerson=dbo.F_Get_Order_SubStr(A.MainId,''PFGenDanPerson'')'); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(Edit1.Text)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Edit1.Text); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet72); + SInitCDSData20(ADOQueryTemp,ClientDataSet72); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(Edit1.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet71); + SInitCDSData20(ADOQueryTemp,ClientDataSet71); +end; + +procedure TfrmMDManage.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDManage.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('RKYongTu').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDManage.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; +begin + mvalue:=TcxCheckBox(Sender).EditingValue; + if ClientDataSet3.FieldByName('HCFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('Ѻ˲鲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; + if ClientDataSet3.FieldByName('JSFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('᲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmMDManage.v1Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; +begin + mvalue:=TcxCheckBox(Sender).EditingValue; + if ClientDataSet3.FieldByName('HCFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('Ѻ˲鲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; + if ClientDataSet3.FieldByName('JSFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('᲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.dfm b/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.dfm new file mode 100644 index 0000000..ff8a279 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.dfm @@ -0,0 +1,1660 @@ +object frmMDManageChk: TfrmMDManageChk + Left = 62 + Top = 44 + Width = 1185 + Height = 627 + Caption = #25968#25454#20973#35777#26680#26597 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1169 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26680#26597#36890#36807 + ImageIndex = 22 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #26680#26597#25764#38144 + ImageIndex = 52 + OnClick = ToolButton6Click + end + object ToolButton4: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #37325#26032#25351#23450 + ImageIndex = 134 + Visible = False + OnClick = ToolButton3Click + end + object TBExport: TToolButton + Left = 513 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 576 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1169 + Height = 61 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label10: TLabel + Left = 526 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#21378#32568#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label8: TLabel + Left = 664 + Top = 12 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object Label9: TLabel + Left = 664 + Top = 36 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object ConName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object PRTColorHZ: TEdit + Tag = 2 + Left = 579 + Top = 8 + Width = 68 + Height = 20 + TabOrder = 1 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object gangNo: TEdit + Tag = 2 + Left = 579 + Top = 32 + Width = 68 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object ConCode: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object MDType: TComboBox + Tag = 2 + Left = 715 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object PSName: TComboBox + Tag = 2 + Left = 715 + Top = 32 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 120 + Width = 664 + Height = 468 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 468 + ClientRectRight = 664 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 664 + Height = 445 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 62 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 44 + end + object v3Column2: TcxGridDBColumn + Tag = 99 + Caption = #24037#21378#32568#21495 + DataBinding.FieldName = 'gangNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.handBlack + Width = 58 + end + object v3Column13: TcxGridDBColumn + Tag = 99 + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'selfGangNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 70 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv3Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 71 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 664 + Height = 445 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object v1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 39 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 64 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 46 + end + object Tv1Column1: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Tag = 99 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Tag = 99 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Tag = 99 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column13: TcxGridDBColumn + Tag = 99 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 48 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v1Column8: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1Column9: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Options.Editing = False + Options.Focusing = False + Width = 55 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 664 + Top = 120 + Width = 505 + Height = 468 + Align = alRight + TabOrder = 3 + Visible = False + object Panel3: TPanel + Left = 0 + Top = 23 + Width = 501 + Height = 19 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 5 + Top = 2 + Width = 66 + Height = 12 + Caption = #29983#20135#27969#31243' 1' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid71: TcxGrid + Left = 0 + Top = 42 + Width = 501 + Height = 109 + Align = alTop + TabOrder = 1 + object Tv71: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource71 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object V2XH: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 52 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 180 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv71 + end + end + object Panel7: TPanel + Left = 0 + Top = 151 + Width = 501 + Height = 21 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label23: TLabel + Left = 12 + Top = 4 + Width = 92 + Height = 12 + Caption = #35746#21333#23433#25490#20449#24687' 2' + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object cxGrid72: TcxGrid + Left = 0 + Top = 172 + Width = 501 + Height = 73 + Align = alClient + TabOrder = 3 + object Tv72: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource72 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 42 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + DataBinding.FieldName = 'WCL' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv72 + end + end + object Panel2: TPanel + Left = 0 + Top = 245 + Width = 501 + Height = 20 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 4 + object Label21: TLabel + Left = 5 + Top = 3 + Width = 92 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516' 3' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid77: TcxGrid + Left = 0 + Top = 265 + Width = 501 + Height = 199 + Align = alBottom + TabOrder = 5 + object Tv77: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource77 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv77 + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 501 + Height = 23 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object Label11: TLabel + Left = 176 + Top = 5 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button1: TButton + Left = 40 + Top = 2 + Width = 53 + Height = 18 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 102 + Top = 2 + Width = 53 + Height = 18 + Caption = #21462#28040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Edit1: TEdit + Tag = 2 + Left = 218 + Top = 1 + Width = 209 + Height = 20 + TabOrder = 2 + OnChange = Edit1Change + end + end + object cxGrid6: TcxGrid + Left = 219 + Top = 20 + Width = 207 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 195 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 94 + Width = 1169 + Height = 26 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 4 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 26 + ClientRectRight = 1169 + ClientRectTop = 23 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 219 + Top = 247 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 488 + Top = 248 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 248 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 553 + Top = 249 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object DataSource71: TDataSource + DataSet = ClientDataSet71 + Left = 720 + Top = 184 + end + object ClientDataSet71: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 184 + end + object cxGridPopupMenu71: TcxGridPopupMenu + Grid = cxGrid71 + PopupMenus = <> + Left = 761 + Top = 185 + end + object DataSource72: TDataSource + DataSet = ClientDataSet72 + Left = 880 + Top = 304 + end + object ClientDataSet72: TClientDataSet + Aggregates = <> + Params = <> + Left = 912 + Top = 304 + end + object cxGridPopupMenu72: TcxGridPopupMenu + Grid = cxGrid72 + PopupMenus = <> + Left = 945 + Top = 305 + end + object DataSource77: TDataSource + DataSet = ClientDataSet77 + Left = 872 + Top = 440 + end + object ClientDataSet77: TClientDataSet + Aggregates = <> + Params = <> + Left = 912 + Top = 440 + end + object cxGridPopupMenu77: TcxGridPopupMenu + Grid = cxGrid77 + PopupMenus = <> + Left = 961 + Top = 441 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 144 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 1048 + Top = 144 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 960 + Top = 496 + end + object ClientDataSet9: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 496 + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 896 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.pas b/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.pas new file mode 100644 index 0000000..97973d8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MDManageChk.pas @@ -0,0 +1,1572 @@ +unit U_MDManageChk; //29 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox, cxButtonEdit; + +type + TfrmMDManageChk = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label4: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label10: TLabel; + ConName: TEdit; + PRTColorHZ: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + gangNo: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label6: TLabel; + MDNO: TEdit; + Label7: TLabel; + ConCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + v3Column12: TcxGridDBColumn; + MDType: TComboBox; + Label8: TLabel; + PSName: TComboBox; + Label9: TLabel; + v3Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + v3Column14: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + ScrollBox1: TScrollBox; + Panel3: TPanel; + Label13: TLabel; + cxGrid71: TcxGrid; + Tv71: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + V2XH: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Panel7: TPanel; + Label23: TLabel; + cxGrid72: TcxGrid; + Tv72: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel2: TPanel; + Label21: TLabel; + cxGrid77: TcxGrid; + Tv77: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Panel4: TPanel; + Button1: TButton; + Button2: TButton; + DataSource71: TDataSource; + ClientDataSet71: TClientDataSet; + cxGridPopupMenu71: TcxGridPopupMenu; + DataSource72: TDataSource; + ClientDataSet72: TClientDataSet; + cxGridPopupMenu72: TcxGridPopupMenu; + DataSource77: TDataSource; + ClientDataSet77: TClientDataSet; + cxGridPopupMenu77: TcxGridPopupMenu; + Label11: TLabel; + Edit1: TEdit; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + VOrderNo: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + v77Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ToolButton2: TToolButton; + v3Column15: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + ClientDataSet8: TClientDataSet; + v1Column13: TcxGridDBColumn; + ClientDataSet9: TClientDataSet; + ADOTemp: TADOQuery; + v3Column19: TcxGridDBColumn; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + cxTabControl1: TcxTabControl; + v3Column20: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3Column1PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Edit1Change(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + canshu1,canshu2,FMainId,FOrderNo:string; + procedure UPMDWCdata(FQtyUnit,FPFID:String); + function UpdateTJCKQty10(FFPFID:string):Boolean; + function UpdateTJCKQty(FFPFID:string):Boolean; + public + { Public declarations } + end; + +var + frmMDManageChk: TfrmMDManageChk; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmMDManageChk.FormDestroy(Sender: TObject); +begin + frmMDManageChk:=nil; +end; + +procedure TfrmMDManageChk.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMDManageChk.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and JMM.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''' + +' and JMM.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1))+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and HCFlag=0'; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and HCFlag=1'; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmMDManageChk.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmMDManageChk.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('뵥',Tv3,'뵥'); + WriteCxGrid('ڲֿ뵥',Tv1,'뵥'); + Close; +end; + +procedure TfrmMDManageChk.cxPageControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmMDManageChk.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmMDManageChk.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and HCFlag=0'; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and HCFlag=1'; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + + end; + +end; + +procedure TfrmMDManageChk.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + if cxTabControl1.TabIndex=0 then + begin + fsj:=fsj+' and HCFalg=0'; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and HCFalg=1'; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmMDManageChk.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else + TcxGridToExcel('ڲֿ뵥',cxGrid1); +end; + +procedure TfrmMDManageChk.FormShow(Sender: TObject); +begin + READCxGrid('뵥',Tv3,'뵥'); + READCxGrid('ڲֿ뵥',Tv1,'뵥'); +end; + +procedure TfrmMDManageChk.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ToolBar1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while ClientDataSet3.Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + if cxPageControl1.ActivePageIndex=0 then + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',99) + else + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet3,'JYOrder_Main_MD',99); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + if ClientDataSet3.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + FieldByName('OtherOrdFlag').Value:=1; + end else + begin + FieldByName('OtherOrdFlag').Value:=0; + end; + if ClientDataSet3.FieldByName('HXFlag').AsBoolean=True then + begin + FieldByName('HXFlag').Value:=1; + end else + begin + FieldByName('HXFlag').Value:=0; + end; + if ClientDataSet3.FieldByName('CiPinFlag').AsBoolean=True then + begin + FieldByName('CiPinFlag').Value:=1; + end else + begin + FieldByName('CiPinFlag').Value:=0; + end; + FieldByName('RKDate').Value:=ClientDataSet3.fieldbyname('MDDate').Value; + FieldByName('RKPS').Value:=ClientDataSet3.fieldbyname('PS').Value; + FieldByName('RKQty').Value:=ClientDataSet3.fieldbyname('Qty').Value; + FieldByName('RKQtyUnit').Value:=ClientDataSet3.fieldbyname('QtyUnit').Value; + Post; + end; + if Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + end + else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')*'); + end; + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')'); + end; + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + if cxPageControl1.ActivePageIndex=0 then + begin + UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString)); + end; + {if UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString)) then + begin + + end else + begin + ADOQueryCmd.Connection.RollbackTrans; + //Application.MessageBox('ʧ!','ʾ',0); + exit; + end;} + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMDManageChk.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Exit; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + Application.MessageBox('ڵ¼뵥!','ʾ',0); + Exit; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + sql.Add(' order by CKQty'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + if ClientDataSet8.RecordCount>1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS)+',SJCKQty='+floattostr(FQty)); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=0; + FQty:=0; + ClientDataSet8.Delete; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; +end; +function TfrmMDManageChk.UpdateTJCKQty10(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + Application.MessageBox('ڵ¼뵥!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; +end; +procedure TfrmMDManageChk.Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + fsj:='select PSName Name, Cast('''' as varchar(20)) code from JYOrder_Process '+ + ' where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''' order by PSXH'; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmMDManageChk.Tv3Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv3Column1.Properties as TcxComboBoxProperties).Items.Objects[(Tv3Column1.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMDManageChk.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while Locate('SSel',True,[])=true do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY where APID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Exit; + end; + if ClientDataSet3.FieldByName('RKQty').AsFloat>0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ⲻɾ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + if Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + end + else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')*'); + end; + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')'); + end; + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + if cxPageControl1.ActivePageIndex=0 then + begin + UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString)); + end; + ClientDataSet3.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɾɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + +end; + +procedure TfrmMDManageChk.Tv1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DutyReason'; + flagname:='ԭ'; + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('DutyReason').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDManageChk.Tv1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMDManageChk.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv1Column2,fsj,1,True,''); + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''+ + ' and isnull(PFGenDanPerson,'''')<>'''' group by PFGenDanPerson'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv1Column1,fsj,1,True,''); + fsj:='select PSName Name, Cast('''' as varchar(20)) code from JYOrder_Process '+ + 'where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''' order by PSXH'; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmMDManageChk.Tv1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('DutyFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv1Column2.Properties as TcxComboBoxProperties).Items.Objects[(Tv1Column2.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('DutyFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMDManageChk.ToolButton3Click(Sender: TObject); +begin + ScrollBox1.Visible:=True; + ScrollBox1.Refresh; + + +end; + +procedure TfrmMDManageChk.Button2Click(Sender: TObject); +begin + ScrollBox1.Visible:=False; +end; + +procedure TfrmMDManageChk.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID,ConType:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet71.fieldbyname('PSID').AsString); + with ClientDataSet71 do + begin + while ClientDataSet71.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet71.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet71.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet72); + SInitCDSData20(ADOQuery1,ClientDataSet72); + if Mvalue=True then + begin + ClientDataSet71.Locate('SSel',True,[]); + ConType:=Trim(ClientDataSet71.fieldbyname('PSName').AsString); + end else + begin + ConType:=''; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + if Trim(ConType)<>'' then + begin + sql.Add(' and A.ConType='''+Trim(ConType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); +end; + +procedure TfrmMDManageChk.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet72.fieldbyname('PFID').AsString); + with ClientDataSet72 do + begin + while ClientDataSet72.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet72.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet72.fieldbyname('PSName').AsString)+''''); + sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet72.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(FOrderNo)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet72.fieldbyname('PSName').AsString)+''''); + //sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + end; +end; + +procedure TfrmMDManageChk.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet77.fieldbyname('SubID').AsString); + with ClientDataSet77 do + begin + while ClientDataSet77.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet77.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; +end; + +procedure TfrmMDManageChk.Button1Click(Sender: TObject); +var + FQtyUnit,FPFID:String; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet71.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet72.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if ClientDataSet77.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet71.Locate('SSel',True,[]); + ClientDataSet72.Locate('SSel',True,[]); + ClientDataSet77.Locate('SSel',True,[]); + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + while Locate('SSel',True,[])=True do + begin + FQtyUnit:=Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString); + FPFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + {if ClientDataSet3.FieldByName('RKQty').AsFloat>0 then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ⲻָ!','',0); + Exit; + end;} + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('UPdate JYOrder_Main_MD Set Editer='''+Trim(DName)+''',EditTime=getdate(),'); + sql.Add(' ORDMainId='''+Trim(ClientDataSet72.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,ORDSubId='''+Trim(ClientDataSet72.fieldbyname('SubId').AsString)+''''); + sql.Add(' ,PSId='''+Trim(ClientDataSet72.fieldbyname('PSId').AsString)+''''); + sql.Add(' ,PFId='''+Trim(ClientDataSet72.fieldbyname('PFId').AsString)+''''); + sql.Add(' ,ConMainId='''+Trim(ClientDataSet77.fieldbyname('MainId').AsString)+''''); + sql.Add(' ,ConSubId='''+Trim(ClientDataSet77.fieldbyname('SubId').AsString)+''''); + SQL.Add(' ,PSName='''+Trim(ClientDataSet71.fieldbyname('PSName').AsString)+''''); + SQL.Add(' ,FactoryNo='''+Trim(ClientDataSet77.fieldbyname('FactoryNo').AsString)+''''); + SQL.Add(' ,FactoryName='''+Trim(ClientDataSet77.fieldbyname('FactoryNoName').AsString)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + UPMDWCdata(FQtyUnit,FPFID); + UPMDWCdata(FQtyUnit,Trim(ClientDataSet72.fieldbyname('PFId').AsString)); + if cxPageControl1.ActivePageIndex=0 then + UpdateTJCKQty(FPFID); + Edit; + FieldByName('SSel').Value:=false; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +procedure TfrmMDManageChk.UPMDWCdata(FQtyUnit,FPFID:String); +begin + if Trim(FQtyUnit)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('isnull((select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + end + else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('isnull((select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')*'); + end; + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID),0)'); + sql.Add(' where PFID='''+Trim(FPFID)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')=''ڲֿ'')'); + end; + sql.Add(' where PFID='''+Trim(FPFID)+''''); + ExecSQL; + end; + end; +end; + +procedure TfrmMDManageChk.Edit1Change(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(Edit1.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMDManageChk.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + Edit1.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + //sql.Add(',PFGenDanPerson=dbo.F_Get_Order_SubStr(A.MainId,''PFGenDanPerson'')'); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(Edit1.Text)+''''); + Open; + end; + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Edit1.Text); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet72); + SInitCDSData20(ADOQueryTemp,ClientDataSet72); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(Edit1.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet77); + SInitCDSData20(ADOQueryTemp,ClientDataSet77); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet71); + SInitCDSData20(ADOQueryTemp,ClientDataSet71); +end; + +procedure TfrmMDManageChk.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMDManageChk.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('RKYongTu').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMDManageChk.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; +begin + mvalue:=TcxCheckBox(Sender).EditingValue; + if ClientDataSet3.FieldByName('JSFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('᲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmMDManageChk.v1Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; +begin + mvalue:=TcxCheckBox(Sender).EditingValue; + if ClientDataSet3.FieldByName('JSFlag').AsBoolean=True then + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Application.MessageBox('᲻ܸ!','ʾ',0); + Exit; + end else + begin + with ClientDataSet3 do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + end; +end; + +procedure TfrmMDManageChk.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmMDManageChk.ToolButton5Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if cxTabControl1.TabIndex<>0 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ClientDataSet3 do + begin + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; +end; + +procedure TfrmMDManageChk.ToolButton6Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ClientDataSet3 do + begin + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set HCFlag=0,HCDate=Null,HCPerson=Null '); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJEdit.dfm b/坯布码单待检(PBMDDJ.dll)/U_MJEdit.dfm new file mode 100644 index 0000000..ca8244d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJEdit.dfm @@ -0,0 +1,418 @@ +object frmMJEdit: TfrmMJEdit + Left = 204 + Top = 180 + Width = 870 + Height = 500 + Caption = #24067#21305#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 854 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20316#24223 + ImageIndex = 3 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 30 + Width = 854 + Height = 83 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 25 + Top = 16 + Width = 52 + Height = 12 + Caption = #24067#21305#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 33 + Top = 48 + Width = 7 + Height = 12 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label4: TLabel + Left = 443 + Top = 48 + Width = 24 + Height = 12 + Caption = #27611#37325 + end + object M: TLabel + Left = 413 + Top = 16 + Width = 6 + Height = 12 + Caption = 'M' + end + object Label6: TLabel + Left = 332 + Top = 16 + Width = 24 + Height = 12 + Caption = #38271#24230 + end + object Ma: TLabel + Left = 524 + Top = 16 + Width = 12 + Height = 12 + Caption = 'Kg' + end + object Label7: TLabel + Left = 443 + Top = 16 + Width = 24 + Height = 12 + Caption = #30382#37325 + end + object Label5: TLabel + Left = 292 + Top = 48 + Width = 6 + Height = 12 + Caption = 'M' + end + object Label8: TLabel + Left = 219 + Top = 48 + Width = 24 + Height = 12 + Caption = #24133#23485 + end + object Label9: TLabel + Left = 300 + Top = 48 + Width = 12 + Height = 12 + Caption = 'cm' + end + object Label10: TLabel + Left = 524 + Top = 48 + Width = 12 + Height = 12 + Caption = 'Kg' + end + object Label3: TLabel + Left = 331 + Top = 48 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label11: TLabel + Left = 412 + Top = 48 + Width = 24 + Height = 12 + Caption = 'g/'#13217 + end + object Label13: TLabel + Left = 220 + Top = 16 + Width = 24 + Height = 12 + Caption = #36192#36865 + end + object Label12: TLabel + Left = 547 + Top = 48 + Width = 24 + Height = 12 + Caption = #20928#37325 + end + object Label14: TLabel + Left = 628 + Top = 48 + Width = 12 + Height = 12 + Caption = 'Kg' + end + object MJID: TEdit + Left = 80 + Top = 10 + Width = 110 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnKeyPress = MJIDKeyPress + end + object MJMaoZ: TEdit + Left = 468 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 1 + OnChange = MJMaoZChange + OnExit = MJMaoZExit + end + object MJLen: TEdit + Left = 357 + Top = 12 + Width = 54 + Height = 20 + TabOrder = 2 + end + object RadioGroup1: TRadioGroup + Left = 664 + Top = -5 + Width = 153 + Height = 88 + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340) + TabOrder = 3 + end + object MJQty3: TEdit + Left = 468 + Top = 12 + Width = 54 + Height = 20 + TabOrder = 4 + end + object MJFK: TEdit + Left = 244 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 5 + end + object MJSJKZ: TEdit + Left = 356 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 6 + end + object MJQty2: TEdit + Left = 245 + Top = 12 + Width = 54 + Height = 20 + TabOrder = 7 + end + object MJQty4: TEdit + Left = 572 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 8 + OnChange = MJQty4Change + OnExit = MJQty4Exit + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 113 + Width = 854 + Height = 348 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.TextSHuangSe + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = tv2CDTypePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_CYZZ.Default + Width = 144 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = tv2CDWZPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_CYZZ.Default + Width = 96 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.Default + Width = 93 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = DataLink_CYZZ.Default + Width = 93 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 131 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 832 + Top = 72 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 200 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 832 + Top = 40 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 528 + Top = 200 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 200 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJEdit.pas b/坯布码单待检(PBMDDJ.dll)/U_MJEdit.pas new file mode 100644 index 0000000..1432394 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJEdit.pas @@ -0,0 +1,686 @@ +unit U_MJEdit; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, + ComCtrls, ToolWin, cxButtonEdit; + +type + TfrmMJEdit = class(TForm) + ToolBar1: TToolBar; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + MJID: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOTmp: TADOQuery; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + Label2: TLabel; + MJMaoZ: TEdit; + Label4: TLabel; + M: TLabel; + Label6: TLabel; + MJLen: TEdit; + RadioGroup1: TRadioGroup; + Ma: TLabel; + Label7: TLabel; + MJQty3: TEdit; + Label5: TLabel; + Label8: TLabel; + MJFK: TEdit; + Label9: TLabel; + Label10: TLabel; + Label3: TLabel; + Label11: TLabel; + MJSJKZ: TEdit; + ToolButton4: TToolButton; + Label13: TLabel; + MJQty2: TEdit; + Label12: TLabel; + Label14: TLabel; + MJQty4: TEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure MJIDKeyPress(Sender: TObject; var Key: Char); + procedure tv2CDTypePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure tv2CDWZPropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + private + { Private declarations } + + function SaveData():Boolean; + public + KgZMiXS:String; + { Public declarations } + end; + +var + frmMJEdit: TfrmMJEdit; + +implementation +uses + U_RTFun,U_ZDYHelp,U_DataLink; + +{$R *.dfm} + +procedure TfrmMJEdit.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMJEdit.FormDestroy(Sender: TObject); +begin + frmMJEdit:=nil; +end; + +procedure TfrmMJEdit.MJIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select A.*,AOrddefstr3=(select AOrddefstr3 from JYOrder_Sub_AnPai B where B.APID=A.APID), '); + sql.Add('AOrddefstr2=(select AOrddefstr2 from JYOrder_Sub_AnPai B where B.APID=A.APID) from WFB_MJJY A'); + sql.Add(' where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJID.Text:=''; + Label2.Caption:=''; + Label2.Visible:=False; + Application.MessageBox('!','ʾ',0); + Exit; + end; + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('MJQty3').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJQty4.Text:=Trim(ADOTmp.fieldbyname('MJQty4').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + M.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString)); + Ma.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString)); + if Trim(m.Caption)='' then + begin + m.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + end; + if Trim(Ma.Caption)='' then + begin + Ma.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + end; + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=0 + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=1; + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='' then + begin + RadioGroup1.ItemIndex:=2; + end; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY_CD A where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + Label2.Caption:=Trim(MJID.Text); + Label2.Visible:=True; + MJID.Text:=''; + SCreateCDS20(ADOTmp,Order_MJ); + SInitCDSData20(ADOTmp,Order_MJ); + + end; +end; + +procedure TfrmMJEdit.tv2CDTypePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + if ShowModal=1 then + begin + Self.Order_MJ.Edit; + Self.Order_MJ.FieldByName('CDName').value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJEdit.tv2CDWZPropertiesEditValueChanged(Sender: TObject); +var + mvalue,CDBeg,CDEnd:string; + FFReal:Double; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_MJ do + begin + Edit; + FieldByName('CDBeg').Value:=mvalue; + Post; + end; + CDBeg:=Trim(Order_MJ.fieldbyname('CDBeg').AsString); + CDEnd:=Trim(Order_MJ.fieldbyname('CDEnd').AsString); + if (Trim(CDBeg)<>'') and (Trim(CDEnd)<>'') then + begin + if TryStrToFloat(CDBeg,FFReal) and TryStrToFloat(CDBeg,FFReal) then + begin + if StrToFloat(CDEnd)'') and (Trim(CDEnd)<>'') then + begin + if TryStrToFloat(CDBeg,FFReal) and TryStrToFloat(CDBeg,FFReal) then + begin + if StrToFloat(CDEnd)'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY_CD where MCID='''+Trim(Order_MJ.fieldbyname('MCID').AsString)+''''); + ExecSQL; + end; + end; + Order_MJ.Delete; +end; +function TfrmMJEdit.SaveData():Boolean; +var + maxno,KgZMiXs,KgZMaXs:String; + FFreal:Double; +begin + try + ADOCmd.Connection.BeginTrans; + ///õ + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_MJ.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_MJ.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(Label2.Caption); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,Order_MJ,'WFB_MJJY_CD',0); + Post; + end; + + Order_MJ.Edit; + Order_MJ.FieldByName('MCID').Value:=Trim(maxno); + Order_MJ.FieldByName('MJID').Value:=Trim(Label2.Caption); + Next; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + if Trim(MJLen.Text)<>'' then + begin + if TryStrToFloat(MJLen.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȷǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty4.Text)<>'' then + begin + if TryStrToFloat(MJQty4.Text,FFreal)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFB_MJJY Set MJTypeOther='''+Trim(M.Caption)+''''); + sql.Add(',MJStr1='''+Trim(Ma.Caption)+''''); + if Trim(MJLen.Text)<>'' then + begin + sql.Add(',MJLen='+Trim(MJLen.Text)); + end else + begin + sql.Add(',MJLen=0'); + end; + if Trim(MJQty3.Text)<>'' then + begin + sql.Add(',MJQty3='+Trim(MJQty3.Text)); + end else + begin + sql.Add(',MJQty3=0'); + end; + if Trim(MJQty2.Text)<>'' then + begin + sql.Add(',MJQty2='+Trim(MJQty2.Text)); + end else + begin + sql.Add(',MJQty2=0'); + end; + if Trim(MJFK.Text)<>'' then + begin + sql.Add(',MJFK='+Trim(MJFK.Text)); + end else + begin + sql.Add(',MJFK=0'); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + sql.Add(',MJMaoZ='+Trim(MJMaoZ.Text)); + end else + begin + sql.Add(',MJMaoZ=0'); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + sql.Add(',MJSJKZ='+Trim(MJSJKZ.Text)); + end else + begin + sql.Add(',MJSJKZ=0'); + end; + if Trim(MJQty4.Text)<>'' then + begin + sql.Add(',MJQty4='+Trim(MJQty4.Text)); + end else + begin + sql.Add(',MJQty4=0'); + end; + if RadioGroup1.ItemIndex=0 then + begin + sql.Add(',MJType=''Ʒ'' '); + end else + if RadioGroup1.ItemIndex=1 then + begin + sql.Add(',MJType=''Ʒ'' '); + end else + if RadioGroup1.ItemIndex=2 then + begin + sql.Add(',MJType=''ƴ'' '); + end; + sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set '); + SQL.Add(' MJLenMa=MJLen*1.0936'); + sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_main where Mainid=('); + sql.Add('select Mainid from WFB_MJJY where MJID='''+Trim(Label2.Caption)+''')'); + Open; + end; + KgZMiXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + KgZMaXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + if Trim(KgZMiXs)='' then + begin + KgZMiXs:='0'; + end; + if Trim(KgZMaXs)='' then + begin + KgZMaXs:='0'; + end; + with ADOCmd do + begin + if Trim(KgZMiXs)<>'0' then + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set '); + SQL.Add(' MJLen=MJQty4*'+KgZMiXs); + if Trim(KgZMaXs)='0' then + begin + SQL.Add(' ,MJLenMa=MJQty4*1.0936*'+KgZMiXs); + end; + sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + end; + with ADOCmd do + begin + if Trim(KgZMaXs)<>'0' then + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set '); + SQL.Add(' MJLenMa=MJQty4*'+KgZMaXs); + if Trim(KgZMiXs)='0' then + begin + SQL.Add(',MJLen=MJQty4*0.9144*'+KgZMaXs); + end; + sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJEdit.ToolButton2Click(Sender: TObject); +begin + if Trim(Label2.Caption)='' then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; +end; + +procedure TfrmMJEdit.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ƥ',Tv2,'Ⱦ'); +end; + +procedure TfrmMJEdit.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥ',Tv2,'Ⱦ'); +end; + +procedure TfrmMJEdit.ToolButton4Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where MJID='''+Trim(Label2.Caption)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Application.MessageBox('Ѳݲɾ!','ʾ',0); + Exit; + end else + begin + if Application.MessageBox('ȷҪϺݲָܻ','ʾ',32+4)=IDYES then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID='''+Trim(Label2.Caption)+''''); + sql.Add('delete WFB_MJJY_CD where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + Label2.Caption:=''; + end; + end; +end; + +procedure TfrmMJEdit.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + { if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); } + if Trim(KgZMiXS)='' then + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else begin + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + end; +end; + +procedure TfrmMJEdit.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + if Trim(MJQty4.Text)='' then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(KgZMiXS)='' then + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else begin + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + end; +end; + +procedure TfrmMJEdit.MJMaoZExit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJMaoZ.Text)<>'') then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + exit; + end; +end; + +procedure TfrmMJEdit.MJQty4Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.dfm new file mode 100644 index 0000000..1b564e8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.dfm @@ -0,0 +1,2670 @@ +object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF + Left = 36 + Top = 28 + Width = 1286 + Height = 700 + Caption = #25104#21697#26816#39564 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 609 + Top = 81 + Width = 360 + Height = 580 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skCount + Column = v3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 92 + end + object v3Column2: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 72 + end + object v3Column4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 61 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Footer = cxStyle4 + Styles.Header = cxStyle4 + Width = 57 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 81 + Width = 405 + Height = 580 + Align = alLeft + TabOrder = 1 + Visible = False + object SpeedButton13: TSpeedButton + Left = 7 + Top = 3 + Width = 50 + Height = 50 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 63 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 119 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 175 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 231 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 287 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 343 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 7 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 63 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 119 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 175 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 231 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 287 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton30: TSpeedButton + Left = 343 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 7 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 63 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 119 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 175 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 231 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 287 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton39: TSpeedButton + Left = 343 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 7 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 63 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 119 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton45: TSpeedButton + Left = 175 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton46: TSpeedButton + Left = 231 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton47: TSpeedButton + Left = 287 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton48: TSpeedButton + Left = 343 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton50: TSpeedButton + Left = 7 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton51: TSpeedButton + Left = 63 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton54: TSpeedButton + Left = 119 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton55: TSpeedButton + Left = 175 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton56: TSpeedButton + Left = 231 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton57: TSpeedButton + Left = 287 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton58: TSpeedButton + Left = 343 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton59: TSpeedButton + Left = 7 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton62: TSpeedButton + Left = 63 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton63: TSpeedButton + Left = 119 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton64: TSpeedButton + Left = 175 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton65: TSpeedButton + Left = 231 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton66: TSpeedButton + Left = 287 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton67: TSpeedButton + Left = 343 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton70: TSpeedButton + Left = 7 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton71: TSpeedButton + Left = 63 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton72: TSpeedButton + Left = 119 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton73: TSpeedButton + Left = 175 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton74: TSpeedButton + Left = 231 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton75: TSpeedButton + Left = 287 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 343 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 7 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 63 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 119 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton35: TSpeedButton + Left = 175 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton36: TSpeedButton + Left = 231 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton43: TSpeedButton + Left = 287 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton44: TSpeedButton + Left = 343 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton52: TSpeedButton + Left = 7 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton53: TSpeedButton + Left = 63 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton60: TSpeedButton + Left = 119 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton61: TSpeedButton + Left = 175 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton68: TSpeedButton + Left = 231 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton69: TSpeedButton + Left = 287 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton76: TSpeedButton + Left = 343 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton77: TSpeedButton + Left = 7 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton78: TSpeedButton + Left = 63 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton79: TSpeedButton + Left = 119 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton80: TSpeedButton + Left = 175 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton81: TSpeedButton + Left = 231 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton82: TSpeedButton + Left = 287 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton83: TSpeedButton + Left = 343 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Panel2: TPanel + Left = 405 + Top = 81 + Width = 204 + Height = 580 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label9: TLabel + Left = 160 + Top = 159 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + OnClick = Label9Click + end + object Label3: TLabel + Left = 160 + Top = 246 + Width = 26 + Height = 22 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 160 + Top = 109 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 19 + Top = 155 + Width = 40 + Height = 23 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 19 + Top = 242 + Width = 40 + Height = 23 + Caption = #24133#23485 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 19 + Top = 109 + Width = 40 + Height = 23 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 19 + Top = 339 + Width = 40 + Height = 23 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 104 + Top = 339 + Width = 40 + Height = 22 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 358 + Top = 54 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 207 + Top = 58 + Width = 60 + Height = 23 + Caption = #21407#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 81 + Top = 282 + Width = 5 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 160 + Top = 289 + Width = 36 + Height = 22 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 19 + Top = 288 + Width = 40 + Height = 23 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 19 + Top = 201 + Width = 40 + Height = 23 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 19 + Top = 390 + Width = 40 + Height = 22 + Caption = #22810#25340 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 103 + Top = 390 + Width = 40 + Height = 22 + Caption = #20986#32440 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 204 + Top = 14 + Width = 58 + Height = 23 + Caption = #26588' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label30: TLabel + Left = 19 + Top = 18 + Width = 40 + Height = 23 + Caption = #30382#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 160 + Top = 63 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 19 + Top = 63 + Width = 40 + Height = 23 + Caption = #20928#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 160 + Top = 18 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 19 + Top = 438 + Width = 40 + Height = 22 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 63 + Top = 237 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJLen: TEdit + Left = 63 + Top = 146 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object MJMaoZ: TEdit + Left = 63 + Top = 100 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnChange = MJMaoZChange + OnClick = Edit1Click + OnExit = MJMaoZExit + OnKeyPress = MJMaoZKeyPress + end + object BTPrint: TButton + Left = 3 + Top = 492 + Width = 83 + Height = 54 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = BTPrintClick + OnKeyPress = BTPrintKeyPress + end + object Button5: TButton + Left = 115 + Top = 492 + Width = 83 + Height = 54 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + OnClick = Button5Click + end + object Edit3: TEdit + Left = 64 + Top = 329 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Text = #8730 + OnClick = Edit3Click + OnKeyPress = MJstr3KeyPress + end + object Edit4: TEdit + Left = 142 + Top = 329 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + OnClick = Edit4Click + OnKeyPress = MJstr3KeyPress + end + object MJQty1: TEdit + Left = 261 + Top = 49 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJSJKZ: TEdit + Left = 63 + Top = 279 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty2: TEdit + Left = 63 + Top = 192 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Edit1Click + OnKeyPress = MJQty2KeyPress + end + object Edit5: TEdit + Left = 64 + Top = 380 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + OnClick = Edit5Click + OnKeyPress = MJstr3KeyPress + end + object Edit6: TEdit + Left = 142 + Top = 380 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 13 + Text = #8730 + OnClick = Edit6Click + OnKeyPress = MJstr3KeyPress + end + object MJstr3: TEdit + Left = 261 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty3: TEdit + Left = 63 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Edit1Click + OnExit = MJQty3Exit + OnKeyPress = MJstr3KeyPress + end + object MJQty4: TEdit + Left = 63 + Top = 54 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = MJQty4Change + OnClick = Edit1Click + OnExit = MJQty4Exit + OnKeyPress = MJQty4KeyPress + end + object ComboBox1: TComboBox + Left = 64 + Top = 430 + Width = 122 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 15 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object Panel3: TPanel + Left = 6 + Top = 426 + Width = 383 + Height = 231 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 3 + Width = 70 + Height = 70 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 78 + Top = 3 + Width = 70 + Height = 70 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 152 + Top = 3 + Width = 70 + Height = 70 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 226 + Top = 3 + Width = 70 + Height = 70 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 4 + Top = 75 + Width = 70 + Height = 70 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 78 + Top = 75 + Width = 70 + Height = 70 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 152 + Top = 75 + Width = 70 + Height = 70 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 226 + Top = 75 + Width = 70 + Height = 70 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 4 + Top = 150 + Width = 70 + Height = 70 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 78 + Top = 150 + Width = 70 + Height = 70 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 152 + Top = 150 + Width = 70 + Height = 70 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 226 + Top = 150 + Width = 70 + Height = 70 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 303 + Top = 81 + Width = 65 + Height = 57 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1270 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 1266 + Height = 77 + Align = alClient + TabOrder = 0 + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1264 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 653 + Top = 15 + Width = 42 + Height = 20 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 357 + Top = 15 + Width = 63 + Height = 20 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 509 + Top = 15 + Width = 42 + Height = 20 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label35: TLabel + Left = 997 + Top = 15 + Width = 80 + Height = 19 + Caption = #33258#21160#21462#20540 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label36: TLabel + Left = 805 + Top = 15 + Width = 60 + Height = 19 + Caption = #25353#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = APIDClick + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 1211 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 1155 + Top = 8 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 2 + Visible = False + OnClick = BTEditClick + end + object Button3: TButton + Left = 272 + Top = 13 + Width = 63 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object Edit7: TEdit + Left = 968 + Top = 12 + Width = 28 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Text = #8730 + Visible = False + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 776 + Top = 12 + Width = 28 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Edit8Click + end + end + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1264 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 22 + Visible = False + OnClick = TBCDClick + end + object ToolButton2: TToolButton + Left = 150 + Top = 0 + Caption = #25351#31034#21333#20449#24687 + ImageIndex = 25 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + end + end + object MovePanel1: TMovePanel + Left = 7 + Top = 88 + Width = 391 + Height = 337 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label17: TLabel + Left = 29 + Top = 24 + Width = 68 + Height = 16 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 178 + Top = 27 + Width = 17 + Height = 16 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 8 + Top = 0 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label20: TLabel + Left = 272 + Top = 25 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 293 + Top = 25 + Width = 63 + Height = 16 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 178 + Top = 61 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 29 + Top = 61 + Width = 70 + Height = 16 + Caption = #38271' '#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 100 + Top = 14 + Width = 73 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = Edit2Change + OnClick = Edit1Click + end + object Button1: TButton + Left = 172 + Top = 277 + Width = 66 + Height = 43 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button4: TButton + Left = 278 + Top = 277 + Width = 64 + Height = 42 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button4Click + end + object Edit2: TEdit + Left = 196 + Top = 15 + Width = 73 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = Edit2Change + OnClick = Edit1Click + end + object CDQty: TEdit + Left = 100 + Top = 51 + Width = 73 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + end + object RadioGroup1: TRadioGroup + Left = 0 + Top = 83 + Width = 389 + Height = 185 + Columns = 2 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + Items.Strings = ( + '0-9CM' + '9CM-18CM' + '18CM-27CM' + #8805'28CM' + #30772#27934 + '1'#31859#20869#36830#32493#20986#29616#29781#30133) + ParentFont = False + TabOrder = 5 + end + object Button2: TButton + Left = 14 + Top = 277 + Width = 75 + Height = 42 + Caption = #21462#28040#36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Button2Click + end + end + object Panel7: TPanel + Left = 969 + Top = 81 + Width = 301 + Height = 580 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 297 + Height = 251 + Align = alTop + TabOrder = 0 + Visible = False + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end + item + Kind = skSum + Column = v2Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = cxStyle3 + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 75 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 52 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 51 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 55 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 60 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel8: TPanel + Left = 2 + Top = 253 + Width = 297 + Height = 41 + Align = alTop + Caption = 'A<=25 2533' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + end + object BZNote: TRichEdit + Left = 2 + Top = 294 + Width = 297 + Height = 284 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 2 + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 608 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + Left = 312 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 344 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + Left = 104 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 280 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.pas b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.pas new file mode 100644 index 0000000..6210867 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNew.pas @@ -0,0 +1,2210 @@ +unit U_MJManageNewFDNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';} + {function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; } + + +type + TfrmMJManageNewFDNewSF = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + SpeedButton45: TSpeedButton; + SpeedButton46: TSpeedButton; + SpeedButton47: TSpeedButton; + SpeedButton48: TSpeedButton; + SpeedButton50: TSpeedButton; + SpeedButton51: TSpeedButton; + SpeedButton54: TSpeedButton; + SpeedButton55: TSpeedButton; + SpeedButton56: TSpeedButton; + SpeedButton57: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton59: TSpeedButton; + SpeedButton62: TSpeedButton; + SpeedButton63: TSpeedButton; + SpeedButton64: TSpeedButton; + SpeedButton65: TSpeedButton; + SpeedButton66: TSpeedButton; + SpeedButton67: TSpeedButton; + SpeedButton70: TSpeedButton; + SpeedButton71: TSpeedButton; + SpeedButton72: TSpeedButton; + SpeedButton73: TSpeedButton; + SpeedButton74: TSpeedButton; + SpeedButton75: TSpeedButton; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + Label27: TLabel; + MJQty2: TEdit; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + Label29: TLabel; + MJstr3: TEdit; + Label30: TLabel; + MJQty3: TEdit; + Label31: TLabel; + Label32: TLabel; + MJQty4: TEdit; + Label33: TLabel; + Panel4: TPanel; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label7: TLabel; + Label8: TLabel; + Edit1: TEdit; + Button1: TButton; + Button4: TButton; + Edit2: TEdit; + CDQty: TEdit; + RadioGroup1: TRadioGroup; + Button2: TButton; + Panel5: TPanel; + Panel6: TPanel; + Label1: TLabel; + Label2: TLabel; + Label16: TLabel; + Label24: TLabel; + Label25: TLabel; + APID: TEdit; + BTAdd: TButton; + BTEdit: TButton; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBCD: TToolButton; + TBClose: TToolButton; + Panel7: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel8: TPanel; + Button3: TButton; + BZNote: TRichEdit; + Label34: TLabel; + ComboBox1: TComboBox; + Edit7: TEdit; + Label35: TLabel; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + SpeedButton43: TSpeedButton; + SpeedButton44: TSpeedButton; + SpeedButton52: TSpeedButton; + SpeedButton53: TSpeedButton; + SpeedButton60: TSpeedButton; + SpeedButton61: TSpeedButton; + SpeedButton68: TSpeedButton; + SpeedButton69: TSpeedButton; + SpeedButton76: TSpeedButton; + SpeedButton77: TSpeedButton; + SpeedButton78: TSpeedButton; + SpeedButton79: TSpeedButton; + SpeedButton80: TSpeedButton; + SpeedButton81: TSpeedButton; + SpeedButton82: TSpeedButton; + SpeedButton83: TSpeedButton; + v3Column4: TcxGridDBColumn; + Label36: TLabel; + Edit8: TEdit; + ToolButton2: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure Edit1Click(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + procedure Edit5Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure MJstr3KeyPress(Sender: TObject; var Key: Char); + procedure MJQty3Exit(Sender: TObject); + procedure MJMaoZExit(Sender: TObject); + procedure Label9Click(Sender: TObject); + procedure MJLenExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure APIDClick(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure MJFKChange(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure BTPrintKeyPress(Sender: TObject; var Key: Char); + procedure MJQty4KeyPress(Sender: TObject; var Key: Char); + procedure MJQty2KeyPress(Sender: TObject; var Key: Char); + procedure MJLenKeyPress(Sender: TObject; var Key: Char); + procedure MJMaoZKeyPress(Sender: TObject; var Key: Char); + procedure Edit8Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + procedure PrtData(FMJID:String); + procedure On1201(Var Message:Tmessage);Message 1201; + public + { Public declarations } + + end; + +var + frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam,U_OrderInPut; + +{$R *.dfm} + +procedure TfrmMJManageNewFDNewSF.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNewSF:=nil; +end; +procedure TfrmMJManageNewFDNewSF.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + //Edit1.Text:= floattostr(i1 *i2 /100000 ); + MJMaoZ.Text:= floattostr(i1 *i2 /100000 ); +end; + +procedure TfrmMJManageNewFDNewSF.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; + {if FCK=9 then + begin + CommClose(pchar(PortNoStr)); + end; } + +end; +procedure TfrmMJManageNewFDNewSF.InitCDGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNewSF.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select '); + sql.Add('Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH '); + sql.Add(', A.* from WFB_MJJY A where APID='''+Trim(FAPID)+''''); + if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNewSF.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFDNewSF.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFDNewSF.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFDNewSF.FormShow(Sender: TObject); +begin + //InitJP(); + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; } + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; + {if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + end else + begin + FCk:=9; + end; } +end; +procedure TfrmMJManageNewFDNewSF.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>69 then + begin + i:=69; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManageNewFDNewSF.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewSF.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNewSF.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; +procedure TfrmMJManageNewFDNewSF.AddSLNew(Fbtn:TSpeedButton); +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=11 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit1.SelectAll; + end else + if FInt=12 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit2.SelectAll; + end;{ else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewSF.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFDNewSF.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewSF.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewSF.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewSF.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewSF.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewSF.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNewFDNewSF.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFDNewSF.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewSF.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + if FInt=4 then Exit; + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + end; + + + end; + end; +end; + +function TfrmMJManageNewFDNewSF.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; +begin + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + FieldByName('MJstr3').Value:=Trim(MJstr3.Text); + // FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + end; + if Trim(MJQty1.Text)<>'' then + begin + FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text); + end; + if Trim(MJQty2.Text)<>'' then + begin + FieldByName('MJQty2').Value:=StrToFloat(MJQty2.Text); + end; + + FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); + FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('MJType').Value:='ƴ'; + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + {if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; } + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + + end; + {strsql:=' UPdate WFB_MJJY Set MJXH=(select isnull(max(X1.MJXH),0)+1 '+ + ' from WFB_MJJY X1,JYorder_sub X2 '+ + ' where X1.mainID=X2.mainID and X1.subID=X2.SubID '+ + ' and X1.MainID=A.MainID and X2.PrTColor=B.PrTColor '+ + ' and isnull(X1.MJstr3,'''')='+quotedstr(trim(MJstr3.Text)); + if Trim(Edit3.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + if Trim(Edit4.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + if Trim(Edit5.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + strsql:=strsql+' )FROM WFB_MJJY A '+ + ' inner join JYorder_sub B on B.MainID=A.MainID and B.subID=A.subID '+ + ' where MJID ='+quotedstr(trim(maxno)); } + with ADOCmd do + begin + Close; + sql.Clear; + //SQL.Add(strsql); + SQL.Add('UPdate WFB_MJJY Set MJXH=(select max(MJXH)+1 '); + SQL.Add(' from WFB_MJJY A '); + SQL.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' where A.SubID=WFB_MJJY.SubID'); + sql.Add(' and B.SelfGangNo='''+Trim(Label2.Caption)+''''); + if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'''); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' '); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType=''ƴ'' '); + end; + sql.Add(' )where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + Next; + end; + end; + with CDS_MJID do + begin + Append; + FieldByName('MJID').Value:=Trim(FMJID); + Post; + end; + + //SavedataCK(); + ADOCmd.Connection.CommitTrans; + Result:=True; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewSF.BTAddClick(Sender: TObject); +begin + //if Trim(Label2.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNewSF.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNewSF.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i:Integer; +begin + if trim(MJMaoZ.Text)='' then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + end; + + if trim(MJQty4.Text)='' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + end; + + if trim(MJQty3.Text)='' then + MJQty3.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty4.Text),0) ); + + if Trim(FAPID)='' then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + + + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then + begin + Application.MessageBox('أëزܶΪ!','ʾ',0); + Exit; + end; + + +{ if Trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } +{ if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; } + {if Trim(MJQty1.Text)='' then + begin + Application.MessageBox('ԭ벻Ϊ!','ʾ',0); + Exit; + end; } + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('ͳ¼!','ʾ',0); + Exit; + end; + end; + {if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; } + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + //BtnStatus(False); + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + //MJQty3.Text:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; + if Trim(Edit6.Text)='' then + begin + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(FFFMJID); + end; + {with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add('Case when '); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; } + end; + + Label16.Caption:=''; + BTAdd.Click; + //MJQty4.SetFocus; + MJMaoZ.SetFocus; +end; +procedure TfrmMJManageNewFDNewSF.PrtData(FMJID:String); +var + fPrintFile:String; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(FMJID); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; +procedure TfrmMJManageNewFDNewSF.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewSF.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFDNewSF.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + if Trim(Label2.Caption)='' then Exit; + if Label2.Visible=False then Exit; + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from Order_JYResult where APID='''+Trim(FAPID)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ŷδ¼,ܼ!','ʾ',0); + Exit; + end; } + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + end; + if Trim(Label15.Caption)<>'' then + begin + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + + end; + if Trim(FAPID)='' then Exit; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + FInt:=11; + Edit1.SetFocus; + //CDQty.SetFocus; + Panel3.Visible:=True; + PState:=1; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + end; + end; + end; + +end; + +procedure TfrmMJManageNewFDNewSF.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFDNewSF.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + { if Trim(Edit1.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; } + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(Edit1.Text); + FieldByName('CDEnd').Value:=Trim(Edit2.Text); + if RadioGroup1.ItemIndex>-1 then + FieldByName('KouFenType').Value:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + if RadioGroup1.ItemIndex>-1 then + begin + if RadioGroup1.ItemIndex<3 then + begin + FieldByName('KouFenQty').Value:=RadioGroup1.ItemIndex+1; + end else + begin + FieldByName('KouFenQty').Value:=4; + end; + end; + + if Trim(CDQty.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDQty.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + {if Trim(Edit2.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; } + + Post; + end; + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewSF.Button4Click(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewSF.ToolButton1Click(Sender: TObject); +begin + //InitGrid(); + // InitJP(); + + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; +end; + +procedure TfrmMJManageNewFDNewSF.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; + + PState:=1; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; + { with ADOQueryPrint do + begin + Close; + SQL.Clear; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + //SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + //Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; } + +end; + +procedure TfrmMJManageNewFDNewSF.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewSF.APIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + '޴: '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + {if Trim(SCXFlag)<>Trim(ADOTmp.fieldbyname('AOrdDefNote29').AsString) then + begin + APID.Text:=''; + if Application.MessageBox('̨뵱ǰ̨һ,'+#13+'Ƿ飿','ʾ',32+4)<>IDYES then + begin + Label2.Visible:=False; + Label2.Caption:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + + end; } + APID.Text:=''; + BTAdd.Click; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit1Click(Sender: TObject); +var + i:Integer; +begin + {Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewSF.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); +end; + +procedure TfrmMJManageNewFDNewSF.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit5Click(Sender: TObject); +begin + if Trim(Edit5.Text)='' then + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + //MJQty2.SetFocus; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty3Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; + +end; + +procedure TfrmMJManageNewFDNewSF.MJMaoZExit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJMaoZ.Text)<>'') then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject); +begin + {if trim(Label9.Caption)='M' then + begin + Label9.Caption:='Y'; + Label19.Caption:='Y'; + Label20.Caption:='Y'; + Label7.Caption:='Y'; + end + else + begin + Label9.Caption:='M'; + Label19.Caption:='M'; + Label20.Caption:='M'; + Label7.Caption:='M'; + end; } +end; + +procedure TfrmMJManageNewFDNewSF.MJLenExit(Sender: TObject); +begin + MJQty3.OnExit(self); +end; + +procedure TfrmMJManageNewFDNewSF.MJQty4Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewSF.Button2Click(Sender: TObject); +begin + RadioGroup1.ItemIndex:=-1; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + + if Trim(MJQty4.Text)='' then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + end; +end; + +procedure TfrmMJManageNewFDNewSF.APIDClick(Sender: TObject); +var + i:Integer; +begin + { Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + + +procedure TfrmMJManageNewFDNewSF.Button3Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + ': '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; +end; + +procedure TfrmMJManageNewFDNewSF.MJFKChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject); +begin + {if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + if FCK=9 then + begin + if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + Exit; + end + else + begin + FCK:=9; + end; + end; + end else + begin + Edit7.Text:=''; + if FCK=9 then + CommClose(pchar(PortNoStr)) + else begin + Exit; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewSF.BTPrintKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty4KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJQty2KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + BTPrint.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJLenKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJQty2.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.MJMaoZKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewSF.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit8.Text:=''; + end else + begin + Edit8.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewSF.ToolButton2Click(Sender: TObject); +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + frmOrderInPut.FMainId:=Trim(Self.FMainId); + frmOrderInPut.PState:=1; + frmOrderInPut.cxPageControl1.Pages[2].TabVisible:=False; + frmOrderInPut.cxPageControl1.Pages[3].TabVisible:=False; + frmOrderInPut.cxPageControl1.Pages[4].TabVisible:=False; + frmOrderInPut.ToolBar2.Visible:=False; + frmOrderInPut.ToolButton18.Visible:=False; + frmOrderInPut.ToolButton13.Visible:=False; + frmOrderInPut.TBSave.Visible:=False; + frmOrderInPut.ToolBar7.Visible:=False; + frmOrderInPut.JYInt:=99; + frmOrderInPut.Panel1.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.dfm b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.dfm new file mode 100644 index 0000000..a7edf3d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.dfm @@ -0,0 +1,2404 @@ +object frmMJManageNewFDNewCD: TfrmMJManageNewFDNewCD + Left = 87 + Top = 27 + Width = 1026 + Height = 700 + Caption = #25104#21697#26816#39564'('#30133#28857')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 493 + Top = 81 + Width = 260 + Height = 580 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skCount + Column = v3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 76 + end + object v3Column2: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 55 + end + object v3Column4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 43 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 39 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Footer = cxStyle4 + Styles.Header = cxStyle4 + Width = 40 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 81 + Width = 289 + Height = 580 + Align = alLeft + TabOrder = 1 + object SpeedButton13: TSpeedButton + Left = 7 + Top = 3 + Width = 50 + Height = 50 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 63 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 119 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 175 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 231 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 7 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 63 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 119 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 175 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 231 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 7 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 63 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 119 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 175 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 231 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 7 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 63 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton30: TSpeedButton + Left = 119 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 175 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 231 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 7 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 63 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton35: TSpeedButton + Left = 119 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton36: TSpeedButton + Left = 175 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 231 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 7 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton39: TSpeedButton + Left = 63 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 119 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 175 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 231 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton43: TSpeedButton + Left = 7 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton44: TSpeedButton + Left = 63 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton45: TSpeedButton + Left = 119 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton46: TSpeedButton + Left = 175 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton47: TSpeedButton + Left = 231 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton48: TSpeedButton + Left = 7 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton50: TSpeedButton + Left = 63 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton51: TSpeedButton + Left = 119 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton52: TSpeedButton + Left = 175 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton53: TSpeedButton + Left = 231 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton54: TSpeedButton + Left = 7 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton55: TSpeedButton + Left = 63 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton56: TSpeedButton + Left = 119 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton57: TSpeedButton + Left = 175 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton58: TSpeedButton + Left = 231 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton59: TSpeedButton + Left = 7 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton60: TSpeedButton + Left = 63 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton61: TSpeedButton + Left = 119 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton62: TSpeedButton + Left = 175 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton63: TSpeedButton + Left = 231 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Panel2: TPanel + Left = 289 + Top = 81 + Width = 204 + Height = 580 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label9: TLabel + Left = 160 + Top = 152 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + OnClick = Label9Click + end + object Label3: TLabel + Left = 160 + Top = 287 + Width = 26 + Height = 22 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 160 + Top = 109 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 19 + Top = 197 + Width = 40 + Height = 23 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 19 + Top = 283 + Width = 40 + Height = 23 + Caption = #24133#23485 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 19 + Top = 109 + Width = 40 + Height = 23 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 19 + Top = 380 + Width = 40 + Height = 23 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 104 + Top = 380 + Width = 40 + Height = 22 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 358 + Top = 54 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 207 + Top = 58 + Width = 60 + Height = 23 + Caption = #21407#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 81 + Top = 323 + Width = 5 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 160 + Top = 330 + Width = 36 + Height = 22 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 19 + Top = 329 + Width = 40 + Height = 23 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 19 + Top = 242 + Width = 40 + Height = 23 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 19 + Top = 431 + Width = 40 + Height = 22 + Caption = #22810#25340 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 103 + Top = 431 + Width = 40 + Height = 22 + Caption = #20986#32440 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 204 + Top = 14 + Width = 58 + Height = 23 + Caption = #26588' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label30: TLabel + Left = 19 + Top = 18 + Width = 40 + Height = 23 + Caption = #30382#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 160 + Top = 63 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 19 + Top = 63 + Width = 40 + Height = 23 + Caption = #20928#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 160 + Top = 18 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 19 + Top = 479 + Width = 40 + Height = 22 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label37: TLabel + Left = 19 + Top = 153 + Width = 40 + Height = 23 + Caption = #30721#34920 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 63 + Top = 278 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJLen: TEdit + Left = 63 + Top = 189 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object MJMaoZ: TEdit + Left = 63 + Top = 100 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnChange = MJMaoZChange + OnClick = Edit1Click + OnExit = MJMaoZExit + OnKeyPress = MJMaoZKeyPress + end + object BTPrint: TButton + Left = 3 + Top = 513 + Width = 83 + Height = 54 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = BTPrintClick + OnKeyPress = BTPrintKeyPress + end + object Button5: TButton + Left = 115 + Top = 513 + Width = 83 + Height = 54 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + OnClick = Button5Click + end + object Edit3: TEdit + Left = 64 + Top = 370 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Text = #8730 + OnClick = Edit3Click + OnKeyPress = MJstr3KeyPress + end + object Edit4: TEdit + Left = 142 + Top = 370 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + OnClick = Edit4Click + OnKeyPress = MJstr3KeyPress + end + object MJQty1: TEdit + Left = 261 + Top = 49 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJSJKZ: TEdit + Left = 63 + Top = 320 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty2: TEdit + Left = 63 + Top = 233 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Edit1Click + OnKeyPress = MJQty2KeyPress + end + object Edit5: TEdit + Left = 64 + Top = 421 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + OnClick = Edit5Click + OnKeyPress = MJstr3KeyPress + end + object Edit6: TEdit + Left = 142 + Top = 421 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 13 + Text = #8730 + OnClick = Edit6Click + OnKeyPress = MJstr3KeyPress + end + object MJstr3: TEdit + Left = 261 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty3: TEdit + Left = 63 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Edit1Click + OnExit = MJQty3Exit + OnKeyPress = MJstr3KeyPress + end + object MJQty4: TEdit + Left = 63 + Top = 54 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = MJQty4Change + OnClick = Edit1Click + OnExit = MJQty4Exit + OnKeyPress = MJQty4KeyPress + end + object ComboBox1: TComboBox + Left = 64 + Top = 471 + Width = 122 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 15 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object Edit9: TEdit + Left = 63 + Top = 143 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 16 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object Button2: TButton + Left = 152 + Top = 190 + Width = 49 + Height = 37 + Caption = #32467#26463 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 17 + OnClick = Button2Click + end + end + object Panel3: TPanel + Left = -2 + Top = 330 + Width = 291 + Height = 259 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object SpeedButton1: TSpeedButton + Left = 11 + Top = 3 + Width = 60 + Height = 60 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 76 + Top = 3 + Width = 60 + Height = 60 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 141 + Top = 3 + Width = 60 + Height = 60 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 11 + Top = 67 + Width = 60 + Height = 60 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 76 + Top = 67 + Width = 60 + Height = 60 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 141 + Top = 67 + Width = 60 + Height = 60 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 11 + Top = 130 + Width = 60 + Height = 60 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 76 + Top = 130 + Width = 60 + Height = 60 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 141 + Top = 130 + Width = 60 + Height = 60 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 11 + Top = 194 + Width = 60 + Height = 60 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 76 + Top = 194 + Width = 60 + Height = 60 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 141 + Top = 194 + Width = 60 + Height = 60 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 216 + Top = 97 + Width = 65 + Height = 57 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1010 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 1006 + Height = 77 + Align = alClient + TabOrder = 0 + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1004 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 588 + Top = 15 + Width = 40 + Height = 19 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 357 + Top = 15 + Width = 60 + Height = 19 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 482 + Top = 15 + Width = 40 + Height = 19 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label35: TLabel + Left = 825 + Top = 15 + Width = 80 + Height = 19 + Caption = #33258#21160#21462#20540 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 695 + Top = 15 + Width = 60 + Height = 19 + Caption = #25353#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = APIDClick + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 1211 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 1155 + Top = 8 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 2 + Visible = False + OnClick = BTEditClick + end + object Button3: TButton + Left = 272 + Top = 13 + Width = 63 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object Edit7: TEdit + Left = 775 + Top = 4 + Width = 42 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Text = #8730 + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 651 + Top = 4 + Width = 42 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Edit8Click + end + end + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1004 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 22 + OnClick = TBCDClick + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + end + end + object MovePanel1: TMovePanel + Left = 3 + Top = 88 + Width = 290 + Height = 241 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label17: TLabel + Left = 29 + Top = 24 + Width = 68 + Height = 16 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 158 + Top = 24 + Width = 17 + Height = 16 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 8 + Top = 0 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label20: TLabel + Left = 238 + Top = 22 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 208 + Top = 102 + Width = 63 + Height = 16 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 178 + Top = 101 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 29 + Top = 102 + Width = 70 + Height = 16 + Caption = #38271' '#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 100 + Top = 16 + Width = 56 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = Edit2Change + OnClick = Edit1Click + end + object Button1: TButton + Left = 60 + Top = 149 + Width = 66 + Height = 43 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button4: TButton + Left = 142 + Top = 149 + Width = 64 + Height = 42 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button4Click + end + object Edit2: TEdit + Left = 177 + Top = 16 + Width = 56 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = Edit2Change + OnClick = Edit1Click + end + object CDQty: TEdit + Left = 100 + Top = 94 + Width = 77 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = CDQtyChange + OnClick = Edit1Click + end + object BitBtn1: TBitBtn + Left = 176 + Top = 56 + Width = 57 + Height = 33 + Caption = #32456#27490 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = BitBtn1Click + end + end + object Panel7: TPanel + Left = 753 + Top = 81 + Width = 257 + Height = 580 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 253 + Height = 251 + Align = alTop + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end + item + Kind = skSum + Column = v2Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = cxStyle3 + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 72 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #20301#32622#36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 59 + end + object v2Column2: TcxGridDBColumn + Caption = #20301#32622#27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 48 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 48 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 60 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel8: TPanel + Left = 2 + Top = 253 + Width = 253 + Height = 41 + Align = alTop + Caption = 'A<=25 2533' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + end + object BZNote: TRichEdit + Left = 2 + Top = 294 + Width = 253 + Height = 284 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 2 + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 608 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + Left = 312 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 344 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + Left = 104 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 280 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.pas b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.pas new file mode 100644 index 0000000..aad1c12 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCD.pas @@ -0,0 +1,2347 @@ +unit U_MJManageNewFDNewCD; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel; + + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen1301(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose1301(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + //function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; + + +type + TfrmMJManageNewFDNewCD = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + Label27: TLabel; + MJQty2: TEdit; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + Label29: TLabel; + MJstr3: TEdit; + Label30: TLabel; + MJQty3: TEdit; + Label31: TLabel; + Label32: TLabel; + MJQty4: TEdit; + Label33: TLabel; + Panel4: TPanel; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label7: TLabel; + Label8: TLabel; + Edit1: TEdit; + Button1: TButton; + Button4: TButton; + Edit2: TEdit; + CDQty: TEdit; + Panel5: TPanel; + Panel6: TPanel; + Label1: TLabel; + Label2: TLabel; + Label16: TLabel; + Label24: TLabel; + Label25: TLabel; + APID: TEdit; + BTAdd: TButton; + BTEdit: TButton; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBCD: TToolButton; + TBClose: TToolButton; + Panel7: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel8: TPanel; + Button3: TButton; + BZNote: TRichEdit; + Label34: TLabel; + ComboBox1: TComboBox; + Edit7: TEdit; + Label35: TLabel; + v3Column4: TcxGridDBColumn; + Label36: TLabel; + Edit8: TEdit; + SpeedButton18: TSpeedButton; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + SpeedButton43: TSpeedButton; + SpeedButton44: TSpeedButton; + SpeedButton45: TSpeedButton; + SpeedButton46: TSpeedButton; + SpeedButton47: TSpeedButton; + SpeedButton48: TSpeedButton; + SpeedButton50: TSpeedButton; + SpeedButton51: TSpeedButton; + SpeedButton52: TSpeedButton; + SpeedButton53: TSpeedButton; + SpeedButton54: TSpeedButton; + SpeedButton55: TSpeedButton; + SpeedButton56: TSpeedButton; + SpeedButton57: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton59: TSpeedButton; + SpeedButton60: TSpeedButton; + SpeedButton61: TSpeedButton; + SpeedButton62: TSpeedButton; + SpeedButton63: TSpeedButton; + Edit9: TEdit; + Button2: TButton; + Label37: TLabel; + BitBtn1: TBitBtn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure Edit1Click(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + procedure Edit5Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure MJstr3KeyPress(Sender: TObject; var Key: Char); + procedure MJQty3Exit(Sender: TObject); + procedure MJMaoZExit(Sender: TObject); + procedure Label9Click(Sender: TObject); + procedure MJLenExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure APIDClick(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure MJFKChange(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure BTPrintKeyPress(Sender: TObject; var Key: Char); + procedure MJQty4KeyPress(Sender: TObject; var Key: Char); + procedure MJQty2KeyPress(Sender: TObject; var Key: Char); + procedure MJLenKeyPress(Sender: TObject; var Key: Char); + procedure MJMaoZKeyPress(Sender: TObject; var Key: Char); + procedure Edit8Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure BitBtn1Click(Sender: TObject); + procedure CDQtyChange(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK,FCKCheng:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID,NewFlag:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + procedure PrtData(FMJID:String); + procedure On1201(Var Message:Tmessage);Message 1201; + procedure On1301(Var Message:Tmessage);Message 1301; + public + { Public declarations } + + end; + +var + frmMJManageNewFDNewCD: TfrmMJManageNewFDNewCD; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam; + +{$R *.dfm} + +procedure TfrmMJManageNewFDNewCD.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNewCD:=nil; +end; +procedure TfrmMJManageNewFDNewCD.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + //Edit1.Text:= floattostr(i1 *i2 /100000 ); + edit9.Text:= floattostr(i1/100000 ); +end; +procedure TfrmMJManageNewFDNewCD.On1301(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + MJMaoZ.Text:= floattostr(i1/100000 ); +end; + +procedure TfrmMJManageNewFDNewCD.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; + if FCK=9 then + begin + CommClose(pchar(PortNoStr)); + end; + if FCKCheng=9 then + begin + CommClose1301(pchar(PortNoStr)); + end; + +end; +procedure TfrmMJManageNewFDNewCD.InitCDGrid(); +begin + if PState=1 then + begin + if CDS_MJCD.IsEmpty=False then Exit; + end; + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + begin + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + end + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNewCD.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select '); + sql.Add('Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH '); + sql.Add(', A.* from WFB_MJJY A where APID='''+Trim(FAPID)+''''); + if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNewCD.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFDNewCD.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFDNewCD.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFDNewCD.FormShow(Sender: TObject); +begin + //InitJP(); + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; } + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; + //{if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + if CommOpen(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + end else + begin + FCk:=9; + end; + if CommOpen1301(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),1000,1)<1 then + begin + FCKCheng:=1; + showmessage('ӳƴڴʧ!'); + end else + begin + FCKCheng:=9; + end; + NewFlag:=''; +end; +procedure TfrmMJManageNewFDNewCD.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_CD where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + end; + + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>49 then + begin + i:=49; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCD.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCD.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCD.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; +procedure TfrmMJManageNewFDNewCD.AddSLNew(Fbtn:TSpeedButton); +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=11 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit1.SelectAll; + end else + if FInt=12 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit2.SelectAll; + end;{ else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewCD.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFDNewCD.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCD.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCD.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCD.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCD.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCD.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNewFDNewCD.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFDNewCD.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCD.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + if FInt=4 then Exit; + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + end; + + + end; + end; +end; + +function TfrmMJManageNewFDNewCD.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; +begin + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + FieldByName('MJstr3').Value:=Trim(MJstr3.Text); + // FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + end; + if Trim(MJQty1.Text)<>'' then + begin + FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text); + end; + if Trim(MJQty2.Text)<>'' then + begin + FieldByName('MJQty2').Value:=StrToFloat(MJQty2.Text); + end; + + FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); + FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('MJType').Value:='ƴ'; + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + {if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; } + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + + end; + {strsql:=' UPdate WFB_MJJY Set MJXH=(select isnull(max(X1.MJXH),0)+1 '+ + ' from WFB_MJJY X1,JYorder_sub X2 '+ + ' where X1.mainID=X2.mainID and X1.subID=X2.SubID '+ + ' and X1.MainID=A.MainID and X2.PrTColor=B.PrTColor '+ + ' and isnull(X1.MJstr3,'''')='+quotedstr(trim(MJstr3.Text)); + if Trim(Edit3.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + if Trim(Edit4.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + if Trim(Edit5.Text)<>'' then + begin + strsql:=strsql+' and X1.MJType= ''Ʒ'' '; + end; + strsql:=strsql+' )FROM WFB_MJJY A '+ + ' inner join JYorder_sub B on B.MainID=A.MainID and B.subID=A.subID '+ + ' where MJID ='+quotedstr(trim(maxno)); } + with ADOCmd do + begin + Close; + sql.Clear; + //SQL.Add(strsql); + SQL.Add('UPdate WFB_MJJY Set MJXH=(select max(MJXH)+1 '); + SQL.Add(' from WFB_MJJY A '); + SQL.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' where A.SubID=WFB_MJJY.SubID'); + sql.Add(' and B.SelfGangNo='''+Trim(Label2.Caption)+''''); + if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'''); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' '); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType=''ƴ'' '); + end; + sql.Add(' )where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('SFlag').AsString)='' then + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + // FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + Post; + end; + CDS_MJCD.Delete; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('SFlag').Value:=''; + Next; + end; + + //CDS_MJCD.Edit; + //CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + //Next; + end; + end; + with CDS_MJID do + begin + Append; + FieldByName('MJID').Value:=Trim(FMJID); + Post; + end; + + //SavedataCK(); + ADOCmd.Connection.CommitTrans; + Result:=True; + NewFlag:=''; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewCD.BTAddClick(Sender: TObject); +begin + //if Trim(Label2.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNewCD.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNewCD.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i:Integer; +begin + if trim(MJMaoZ.Text)='' then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + end; + + if trim(MJQty4.Text)='' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + end; + + if trim(MJQty3.Text)='' then + MJQty3.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty4.Text),0) ); + + if Trim(FAPID)='' then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + + + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then + begin + Application.MessageBox('أëزܶΪ!','ʾ',0); + Exit; + end; + + +{ if Trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } +{ if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; } + {if Trim(MJQty1.Text)='' then + begin + Application.MessageBox('ԭ벻Ϊ!','ʾ',0); + Exit; + end; } + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('ͳ¼!','ʾ',0); + Exit; + end; + end; + {if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; } + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + //BtnStatus(False); + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + //MJQty3.Text:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; + if Trim(Edit6.Text)='' then + begin + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(FFFMJID); + end; + {with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add('Case when '); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; } + end; + + Label16.Caption:=''; + BTAdd.Click; + //MJQty4.SetFocus; + MJMaoZ.SetFocus; +end; +procedure TfrmMJManageNewFDNewCD.PrtData(FMJID:String); +var + fPrintFile:String; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(FMJID); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; +procedure TfrmMJManageNewFDNewCD.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCD.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFDNewCD.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewCD.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewCD.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewCD.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + if Trim(Label2.Caption)='' then Exit; + if Label2.Visible=False then Exit; + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from Order_JYResult where APID='''+Trim(FAPID)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ŷδ¼,ܼ!','ʾ',0); + Exit; + end; } + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + end; + if Trim(Label15.Caption)<>'' then + begin + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + + end; + if Trim(FAPID)='' then Exit; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + FInt:=11; + Edit1.SetFocus; + if Trim(Edit7.Text)<>'' then + Edit1.Text:=Trim(Edit9.Text); + //CDQty.SetFocus; + Panel3.Visible:=True; + PState:=1; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + end; + end; + end; + +end; + +procedure TfrmMJManageNewFDNewCD.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFDNewCD.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + { if Trim(Edit1.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; } + {if Trim(Edit7.Text)<>'' then + Edit2.Text:=Trim(Edit9.Text); } + + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); + if CDQty.Text<>'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(Edit1.Text); + FieldByName('CDEnd').Value:=Trim(Edit2.Text); + FieldByName('SFlag').Value:=NewFlag; + {if RadioGroup1.ItemIndex>-1 then + FieldByName('KouFenType').Value:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + if RadioGroup1.ItemIndex>-1 then + begin + if RadioGroup1.ItemIndex<3 then + begin + FieldByName('KouFenQty').Value:=RadioGroup1.ItemIndex+1; + end else + begin + FieldByName('KouFenQty').Value:=4; + end; + end; } + + if Trim(CDQty.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDQty.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + {if Trim(Edit2.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; } + + Post; + end; + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCD.Button4Click(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCD.ToolButton1Click(Sender: TObject); +begin + + InitJP(); + + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + InitCDGridID(); + InitCDGrid(); + if Trim(FAPID)<>'' then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + FInt:=11; + end; + end; + + //BTAdd.Click; + + MJMaoZ.SetFocus; +end; + +procedure TfrmMJManageNewFDNewCD.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; + + PState:=1; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; + { with ADOQueryPrint do + begin + Close; + SQL.Clear; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + //SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + //Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; } + +end; + +procedure TfrmMJManageNewFDNewCD.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCD.APIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + '޴: '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + {if Trim(SCXFlag)<>Trim(ADOTmp.fieldbyname('AOrdDefNote29').AsString) then + begin + APID.Text:=''; + if Application.MessageBox('̨뵱ǰ̨һ,'+#13+'Ƿ飿','ʾ',32+4)<>IDYES then + begin + Label2.Visible:=False; + Label2.Caption:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + + end; } + APID.Text:=''; + BTAdd.Click; + InitJP(); + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit1Click(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); +end; + +procedure TfrmMJManageNewFDNewCD.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit5Click(Sender: TObject); +begin + if Trim(Edit5.Text)='' then + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJstr3KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + //MJQty2.SetFocus; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJQty3Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; + +end; + +procedure TfrmMJManageNewFDNewCD.MJMaoZExit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJMaoZ.Text)<>'') then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Label9Click(Sender: TObject); +begin + {if trim(Label9.Caption)='M' then + begin + Label9.Caption:='Y'; + Label19.Caption:='Y'; + Label20.Caption:='Y'; + Label7.Caption:='Y'; + end + else + begin + Label9.Caption:='M'; + Label19.Caption:='M'; + Label20.Caption:='M'; + Label7.Caption:='M'; + end; } +end; + +procedure TfrmMJManageNewFDNewCD.MJLenExit(Sender: TObject); +begin + MJQty3.OnExit(self); +end; + +procedure TfrmMJManageNewFDNewCD.MJQty4Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + + if Trim(MJQty4.Text)='' then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + {if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; } +end; + +procedure TfrmMJManageNewFDNewCD.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + {if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + end; } +end; + +procedure TfrmMJManageNewFDNewCD.APIDClick(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + + +procedure TfrmMJManageNewFDNewCD.Button3Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + ': '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; + InitJP(); +end; + +procedure TfrmMJManageNewFDNewCD.MJFKChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + + {if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; } +end; + +procedure TfrmMJManageNewFDNewCD.Edit7Click(Sender: TObject); +begin + if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + if FCK=9 then + begin + if CommOpen(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + Exit; + end + else + begin + FCK:=9; + end; + end; + if FCKCheng=9 then + begin + if CommOpen1301(frmMJManageNewFDNewCD.Handle,pchar(PortNoStr),1000,1)<1 then + begin + FCKCheng:=1; + showmessage('ӳƴڴʧ!'); + Exit; + end + else + begin + FCKCheng:=9; + end; + end; + end else + begin + Edit7.Text:=''; + if FCK=9 then + CommClose(pchar(PortNoStr)); + if FCKCheng=9 then + CommClose1301(pchar(PortNoStr)); + end; +end; + +procedure TfrmMJManageNewFDNewCD.BTPrintKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJQty4KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJQty2KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + BTPrint.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJLenKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJQty2.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCD.MJMaoZKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCD.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit8.Text:=''; + end else + begin + Edit8.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCD.Button2Click(Sender: TObject); +begin + MJLen.Text:=Trim(Edit9.Text); + NewFlag:='1'; +end; + +procedure TfrmMJManageNewFDNewCD.BitBtn1Click(Sender: TObject); +var + mvalue:Double; +begin + Edit2.Text:=Trim(Edit9.Text); + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); + if CDQty.Text<>'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCD.CDQtyChange(Sender: TObject); +var + FReal:Double; +begin + if Trim(CDQty.Text)<>'' then + begin + if TryStrToFloat(CDQty.Text,FReal)=False then + begin + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,FReal)=False then + begin + Exit; + end; + end else + begin + Exit; + end; + Edit2.Text:=FloatToStr((StrToFloat(Edit1.Text)+StrToFloat(CDQty.Text)) ); + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.dfm b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.dfm new file mode 100644 index 0000000..decafc6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.dfm @@ -0,0 +1,2572 @@ +object frmMJManageNewFDNewCDLable: TfrmMJManageNewFDNewCDLable + Left = 74 + Top = 28 + Width = 1225 + Height = 700 + Caption = #25104#21697#26816#39564'('#30133#28857#26631#31614')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 472 + Top = 81 + Width = 225 + Height = 580 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skCount + Column = v3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 82 + end + object v3Column2: TcxGridDBColumn + Caption = #31859 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = 'Kg' + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 34 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 34 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Footer = cxStyle4 + Styles.Header = cxStyle4 + Width = 34 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 81 + Width = 289 + Height = 580 + Align = alLeft + TabOrder = 1 + object SpeedButton13: TSpeedButton + Left = 7 + Top = 3 + Width = 50 + Height = 50 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 63 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 119 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 175 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 231 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 7 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton19: TSpeedButton + Left = 63 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 119 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton21: TSpeedButton + Left = 175 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 231 + Top = 59 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 7 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 63 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 119 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 175 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 231 + Top = 115 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 7 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 63 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton30: TSpeedButton + Left = 119 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 175 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 231 + Top = 171 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 7 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 63 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton35: TSpeedButton + Left = 119 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton36: TSpeedButton + Left = 175 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 231 + Top = 227 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 7 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton39: TSpeedButton + Left = 63 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 119 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 175 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 231 + Top = 283 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton43: TSpeedButton + Left = 7 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton44: TSpeedButton + Left = 63 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton45: TSpeedButton + Left = 119 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton46: TSpeedButton + Left = 175 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton47: TSpeedButton + Left = 231 + Top = 339 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton48: TSpeedButton + Left = 7 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton50: TSpeedButton + Left = 63 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton51: TSpeedButton + Left = 119 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton52: TSpeedButton + Left = 175 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton53: TSpeedButton + Left = 231 + Top = 395 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton54: TSpeedButton + Left = 7 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton55: TSpeedButton + Left = 63 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton56: TSpeedButton + Left = 119 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton57: TSpeedButton + Left = 175 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton58: TSpeedButton + Left = 231 + Top = 451 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton59: TSpeedButton + Left = 7 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton60: TSpeedButton + Left = 63 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton61: TSpeedButton + Left = 119 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton62: TSpeedButton + Left = 175 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton63: TSpeedButton + Left = 231 + Top = 507 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + end + object Panel2: TPanel + Left = 289 + Top = 81 + Width = 183 + Height = 580 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label9: TLabel + Left = 146 + Top = 152 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + OnClick = Label9Click + end + object Label3: TLabel + Left = 146 + Top = 287 + Width = 26 + Height = 22 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 146 + Top = 109 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 5 + Top = 197 + Width = 40 + Height = 23 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 5 + Top = 283 + Width = 40 + Height = 23 + Caption = #24133#23485 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 5 + Top = 109 + Width = 40 + Height = 23 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 5 + Top = 380 + Width = 40 + Height = 23 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 90 + Top = 380 + Width = 40 + Height = 22 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 358 + Top = 54 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 207 + Top = 58 + Width = 60 + Height = 23 + Caption = #21407#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 67 + Top = 323 + Width = 5 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 146 + Top = 330 + Width = 36 + Height = 22 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 5 + Top = 329 + Width = 40 + Height = 23 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 5 + Top = 242 + Width = 40 + Height = 23 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 5 + Top = 431 + Width = 40 + Height = 22 + Caption = #22810#25340 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 89 + Top = 479 + Width = 40 + Height = 22 + Caption = #20986#32440 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 204 + Top = 14 + Width = 58 + Height = 23 + Caption = #26588' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label30: TLabel + Left = 5 + Top = 18 + Width = 40 + Height = 23 + Caption = #30382#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 146 + Top = 63 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 5 + Top = 63 + Width = 40 + Height = 23 + Caption = #20928#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 146 + Top = 18 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 5 + Top = 479 + Width = 40 + Height = 22 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label37: TLabel + Left = 5 + Top = 153 + Width = 40 + Height = 23 + Caption = #30721#34920 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 49 + Top = 278 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJLen: TEdit + Left = 49 + Top = 189 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object MJMaoZ: TEdit + Left = 49 + Top = 100 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnChange = MJMaoZChange + OnClick = Edit1Click + OnExit = MJMaoZExit + OnKeyPress = MJMaoZKeyPress + end + object BTPrint: TButton + Left = 57 + Top = 513 + Width = 81 + Height = 51 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = BTPrintClick + OnKeyPress = BTPrintKeyPress + end + object Button5: TButton + Left = 151 + Top = 513 + Width = 81 + Height = 51 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + Visible = False + OnClick = Button5Click + end + object Edit3: TEdit + Left = 50 + Top = 370 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Text = #8730 + OnClick = Edit3Click + OnKeyPress = MJstr3KeyPress + end + object Edit4: TEdit + Left = 128 + Top = 370 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + OnClick = Edit4Click + OnKeyPress = MJstr3KeyPress + end + object MJQty1: TEdit + Left = 261 + Top = 49 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJSJKZ: TEdit + Left = 49 + Top = 320 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnChange = MJFKChange + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty2: TEdit + Left = 49 + Top = 233 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Edit1Click + OnKeyPress = MJQty2KeyPress + end + object Edit5: TEdit + Left = 50 + Top = 421 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + OnClick = Edit5Click + OnKeyPress = MJstr3KeyPress + end + object Edit6: TEdit + Left = 128 + Top = 469 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 13 + Text = #8730 + OnClick = Edit6Click + OnKeyPress = MJstr3KeyPress + end + object MJstr3: TEdit + Left = 261 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end + object MJQty3: TEdit + Left = 49 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Edit1Click + OnExit = MJQty3Exit + OnKeyPress = MJstr3KeyPress + end + object MJQty4: TEdit + Left = 49 + Top = 54 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = MJQty4Change + OnClick = Edit1Click + OnExit = MJQty4Exit + OnKeyPress = MJQty4KeyPress + end + object ComboBox1: TComboBox + Left = 50 + Top = 470 + Width = 41 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 15 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object Edit9: TEdit + Left = 49 + Top = 143 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 16 + OnClick = Edit1Click + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object Button2: TButton + Left = 138 + Top = 190 + Width = 41 + Height = 37 + Caption = #32467#26463 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 17 + Visible = False + OnClick = Button2Click + end + object ZSUnit: TComboBox + Left = 137 + Top = 235 + Width = 44 + Height = 29 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 21 + ItemIndex = 0 + ParentFont = False + TabOrder = 18 + Text = 'KG' + Items.Strings = ( + 'KG' + 'M' + 'Y') + end + object DuoPinNote: TEdit + Left = 88 + Top = 427 + Width = 80 + Height = 32 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = 'Arial Narrow' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 19 + OnClick = Edit1Click + OnKeyPress = MJQty2KeyPress + end + object MJLenMa: TEdit + Left = 67 + Top = 210 + Width = 68 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 20 + Visible = False + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + end + object Panel3: TPanel + Left = -2 + Top = 330 + Width = 291 + Height = 259 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object SpeedButton1: TSpeedButton + Left = 11 + Top = 3 + Width = 60 + Height = 60 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 76 + Top = 3 + Width = 60 + Height = 60 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 141 + Top = 3 + Width = 60 + Height = 60 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 11 + Top = 67 + Width = 60 + Height = 60 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 76 + Top = 67 + Width = 60 + Height = 60 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 141 + Top = 67 + Width = 60 + Height = 60 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 11 + Top = 130 + Width = 60 + Height = 60 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 76 + Top = 130 + Width = 60 + Height = 60 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 141 + Top = 130 + Width = 60 + Height = 60 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 11 + Top = 194 + Width = 60 + Height = 60 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 76 + Top = 194 + Width = 60 + Height = 60 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 141 + Top = 194 + Width = 60 + Height = 60 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 216 + Top = 97 + Width = 65 + Height = 57 + Caption = #38544#34255 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1209 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 1205 + Height = 77 + Align = alClient + TabOrder = 0 + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1203 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 660 + Top = 15 + Width = 40 + Height = 19 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 357 + Top = 15 + Width = 60 + Height = 19 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 524 + Top = 15 + Width = 40 + Height = 19 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label35: TLabel + Left = 923 + Top = 15 + Width = 80 + Height = 19 + Caption = #33258#21160#21462#20540 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 793 + Top = 15 + Width = 60 + Height = 19 + Caption = #25353#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = APIDClick + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 1027 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 1155 + Top = 8 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 2 + Visible = False + OnClick = BTEditClick + end + object Button3: TButton + Left = 272 + Top = 13 + Width = 63 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object Edit7: TEdit + Left = 873 + Top = 4 + Width = 42 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Text = #8730 + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 749 + Top = 4 + Width = 42 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Edit8Click + end + end + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1203 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 22 + OnClick = TBCDClick + end + object TBClose: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + end + end + object MovePanel1: TMovePanel + Left = 3 + Top = 88 + Width = 284 + Height = 241 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label17: TLabel + Left = 29 + Top = 24 + Width = 68 + Height = 16 + Caption = #36215#22987#20301#32622 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 158 + Top = 24 + Width = 17 + Height = 16 + Caption = #21040 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 8 + Top = 6 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label20: TLabel + Left = 238 + Top = 22 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 208 + Top = 102 + Width = 63 + Height = 16 + Caption = 'Label21' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 178 + Top = 101 + Width = 11 + Height = 19 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 29 + Top = 102 + Width = 70 + Height = 16 + Caption = #38271' '#24230 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label38: TLabel + Left = 29 + Top = 138 + Width = 70 + Height = 16 + Caption = #25187' '#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 100 + Top = 16 + Width = 56 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = Edit2Change + OnClick = Edit1Click + end + object Button1: TButton + Left = 60 + Top = 187 + Width = 66 + Height = 43 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button4: TButton + Left = 142 + Top = 187 + Width = 64 + Height = 42 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button4Click + end + object Edit2: TEdit + Left = 177 + Top = 16 + Width = 56 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = Edit2Change + OnClick = Edit1Click + end + object CDQty: TEdit + Left = 100 + Top = 94 + Width = 77 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = CDQtyChange + OnClick = Edit1Click + end + object BitBtn1: TBitBtn + Left = 176 + Top = 56 + Width = 57 + Height = 33 + Caption = #32456#27490 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = BitBtn1Click + end + object KouFen: TComboBox + Left = 100 + Top = 132 + Width = 77 + Height = 32 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 24 + ParentFont = False + TabOrder = 6 + Items.Strings = ( + '0' + '1' + '2' + '3' + '4') + end + end + object Panel7: TPanel + Left = 697 + Top = 81 + Width = 512 + Height = 580 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object RMPreview1: TRMPreview + Left = 2 + Top = 227 + Width = 508 + Height = 351 + Align = alClient + BevelOuter = bvLowered + Caption = 'Insert After' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 0 + Options.RulerUnit = rmutScreenPixels + Options.RulerVisible = False + Options.DrawBorder = False + Options.BorderPen.Color = clGray + Options.BorderPen.Style = psDash + end + object Panel1: TPanel + Left = 2 + Top = 2 + Width = 508 + Height = 225 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 183 + Height = 221 + Align = alLeft + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = Tv2CDQty + end + item + Kind = skSum + Column = v2Column3 + end + item + Format = '0' + Kind = skSum + Column = v2Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = cxStyle3 + object tv2CDType: TcxGridDBColumn + Caption = #30133#28857 + DataBinding.FieldName = 'CDName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 38 + end + object tv2CDWZ: TcxGridDBColumn + Caption = #36215 + DataBinding.FieldName = 'CDBeg' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 34 + end + object v2Column2: TcxGridDBColumn + Caption = #27490 + DataBinding.FieldName = 'CDend' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 35 + end + object Tv2CDQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CDQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2CDQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 40 + end + object Tv2CDReason: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'CDReason' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = cxStyle2 + Styles.Header = cxStyle1 + Width = 60 + end + object v2Column1: TcxGridDBColumn + DataBinding.FieldName = 'CDQty' + Visible = False + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + object v2Column4: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFen' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Header = cxStyle1 + Width = 32 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object BZNote: TRichEdit + Left = 185 + Top = 2 + Width = 321 + Height = 221 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 1 + end + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 608 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 416 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + Left = 312 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 344 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + Left = 104 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 280 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end + object ADOQueryLabel: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 827 + Top = 435 + end + object RMGridReport1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + ModalPreview = False + ShowProgress = False + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + Preview = RMPreview1 + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 876 + Top = 474 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.pas b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.pas new file mode 100644 index 0000000..75ad798 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewCDLable.pas @@ -0,0 +1,2534 @@ +unit U_MJManageNewFDNewCDLable; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel, RM_Preview; + + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen1301(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose1301(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + //function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; + + +type + TfrmMJManageNewFDNewCDLable = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + Label27: TLabel; + MJQty2: TEdit; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + Label29: TLabel; + MJstr3: TEdit; + Label30: TLabel; + MJQty3: TEdit; + Label31: TLabel; + Label32: TLabel; + MJQty4: TEdit; + Label33: TLabel; + Panel4: TPanel; + MovePanel1: TMovePanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label7: TLabel; + Label8: TLabel; + Edit1: TEdit; + Button1: TButton; + Button4: TButton; + Edit2: TEdit; + CDQty: TEdit; + Panel5: TPanel; + Panel6: TPanel; + Label1: TLabel; + Label2: TLabel; + Label16: TLabel; + Label24: TLabel; + Label25: TLabel; + APID: TEdit; + BTAdd: TButton; + BTEdit: TButton; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBCD: TToolButton; + TBClose: TToolButton; + Panel7: TPanel; + Button3: TButton; + Label34: TLabel; + ComboBox1: TComboBox; + Edit7: TEdit; + Label35: TLabel; + v3Column4: TcxGridDBColumn; + Label36: TLabel; + Edit8: TEdit; + SpeedButton18: TSpeedButton; + SpeedButton19: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton21: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + SpeedButton43: TSpeedButton; + SpeedButton44: TSpeedButton; + SpeedButton45: TSpeedButton; + SpeedButton46: TSpeedButton; + SpeedButton47: TSpeedButton; + SpeedButton48: TSpeedButton; + SpeedButton50: TSpeedButton; + SpeedButton51: TSpeedButton; + SpeedButton52: TSpeedButton; + SpeedButton53: TSpeedButton; + SpeedButton54: TSpeedButton; + SpeedButton55: TSpeedButton; + SpeedButton56: TSpeedButton; + SpeedButton57: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton59: TSpeedButton; + SpeedButton60: TSpeedButton; + SpeedButton61: TSpeedButton; + SpeedButton62: TSpeedButton; + SpeedButton63: TSpeedButton; + Edit9: TEdit; + Button2: TButton; + Label37: TLabel; + BitBtn1: TBitBtn; + RMPreview1: TRMPreview; + ADOQueryLabel: TADOQuery; + ZSUnit: TComboBox; + DuoPinNote: TEdit; + Panel1: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + tv2CDType: TcxGridDBColumn; + tv2CDWZ: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2CDQty: TcxGridDBColumn; + Tv2CDReason: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + BZNote: TRichEdit; + RMGridReport1: TRMGridReport; + MJLenMa: TEdit; + Label38: TLabel; + KouFen: TComboBox; + v2Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJMaoZClick(Sender: TObject); + procedure MJLenClick(Sender: TObject); + procedure MJFKClick(Sender: TObject); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure Edit1Click(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + procedure Edit5Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure MJstr3KeyPress(Sender: TObject; var Key: Char); + procedure MJQty3Exit(Sender: TObject); + procedure MJMaoZExit(Sender: TObject); + procedure Label9Click(Sender: TObject); + procedure MJLenExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure APIDClick(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure MJFKChange(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure BTPrintKeyPress(Sender: TObject; var Key: Char); + procedure MJQty4KeyPress(Sender: TObject; var Key: Char); + procedure MJQty2KeyPress(Sender: TObject; var Key: Char); + procedure MJLenKeyPress(Sender: TObject; var Key: Char); + procedure MJMaoZKeyPress(Sender: TObject; var Key: Char); + procedure Edit8Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure BitBtn1Click(Sender: TObject); + procedure CDQtyChange(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK,FCKCheng:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID,NewFlag,KgZMiXS,KgZMaXS:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + procedure PrtData(FMJID:String); + procedure On1201(Var Message:Tmessage);Message 1201; + procedure On1301(Var Message:Tmessage);Message 1301; + public + { Public declarations } + + end; + +var + frmMJManageNewFDNewCDLable: TfrmMJManageNewFDNewCDLable; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam; + +{$R *.dfm} + +procedure TfrmMJManageNewFDNewCDLable.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNewCDLable:=nil; +end; +procedure TfrmMJManageNewFDNewCDLable.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + //Edit1.Text:= floattostr(i1 *i2 /100000 ); + edit9.Text:= floattostr(i1/100000 ); +end; +procedure TfrmMJManageNewFDNewCDLable.On1301(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + MJMaoZ.Text:= floattostr(i1/100000 ); +end; + +procedure TfrmMJManageNewFDNewCDLable.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; + if FCK=9 then + begin + CommClose(pchar(PortNoStr)); + end; + if FCKCheng=9 then + begin + CommClose1301(pchar(PortNoStr)); + end; + +end; +procedure TfrmMJManageNewFDNewCDLable.InitCDGrid(); +begin + if PState=1 then + begin + if CDS_MJCD.IsEmpty=False then + begin + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + CDS_MJCD.Delete; + end else + begin + Next; + end; + end; + end; + Exit; + end; + end; + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + begin + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + end + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNewCDLable.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select '); + sql.Add('Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH '); + sql.Add(', A.* from WFB_MJJY A where APID='''+Trim(FAPID)+''''); + {if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); } + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNewCDLable.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFDNewCDLable.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFDNewCDLable.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.FormShow(Sender: TObject); +begin + //InitJP(); + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; } + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; + //{if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + if CommOpen(frmMJManageNewFDNewCDLable.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + end else + begin + FCk:=9; + end; + if CommOpen1301(frmMJManageNewFDNewCDLable.Handle,pchar(PortNoStr),1000,1)<1 then + begin + FCKCheng:=1; + showmessage('ӳƴڴʧ!'); + end else + begin + FCKCheng:=9; + end; + NewFlag:=''; +end; +procedure TfrmMJManageNewFDNewCDLable.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_CD where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); + Open; + end; + end; + + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ûжõ㣡','ʾ',0); + Exit; + end; + with ADOTmp do + begin + First; + i:=0; + while not Eof do + begin + AA[i]:=Trim(fieldbyname('ZDYName').AsString); + i:=i+1; + Next; + end; + end; + i:=i-1; + if i>49 then + begin + i:=49; + end; + for j:=0 to i do + begin + with ScrollBox1 do + begin + TSpeedButton(Controls[j]).Visible:=True; + TSpeedButton(Controls[j]).Hint:=AA[j]; + if Length(AA[j])>4 then + begin + TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); + end else + TSpeedButton(Controls[j]).Caption:=AA[j]; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCDLable.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCDLable.AddSL(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; +end; +procedure TfrmMJManageNewFDNewCDLable.AddSLNew(Fbtn:TSpeedButton); +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + + //if MJMaoZ.Focused then + if FInt=4 then Exit; + if FInt=11 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit1.SelectAll; + end else + if FInt=12 then + begin + if TSpeedButton(Fbtn).Tag=9 then Exit; + Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + Edit2.SelectAll; + end;{ else + if CDS_MJCD.IsEmpty=False then + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + with CDS_MJCD do + begin + Edit; + FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString)<>'' then + Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + Post; + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewCDLable.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFDNewCDLable.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCDLable.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNewFDNewCDLable.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFDNewCDLable.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewCDLable.Button12Click(Sender: TObject); +var + fsj:string; +begin + if PState<1 then Exit; + if Trim(FAPID)='' then Exit; + if FInt=4 then Exit; + begin + FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn)<>'' then + begin + if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + begin + with CDS_MJCD do + begin + Edit; + if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + begin + FieldByName(FColumn).Value:=null ; + FieldByName('CDQty').Value:=0; + end + else + begin + FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); + FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + end; + Post; + end; + end; + + + end; + end; +end; + +function TfrmMJManageNewFDNewCDLable.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; +begin + ReadINIFile(); + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + FieldByName('MJstr3').Value:=Trim(MJstr3.Text); + // FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + {if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + FieldByName('MJLenMa').Value:=StrToFloat(MJLen.Text)*1.0936; + end; } + {if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + end; + if Trim(MJLenMa.Text)<>'' then + begin + FieldByName('MJLenMa').Value:=StrToFloat(MJLenMa.Text); + end; } + if Trim(KgZMiXS)<>'' then + begin + FieldByName('MiXS').Value:=StrToFloat(KgZMiXS); + end; + if Trim(KgZMaXS)<>'' then + begin + FieldByName('MaXS').Value:=StrToFloat(KgZMaXS); + end; + if Trim(MJQty1.Text)<>'' then + begin + FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text); + end; + if Trim(MJQty2.Text)<>'' then + begin + FieldByName('MJQty2').Value:=StrToFloat(MJQty2.Text); + end; + + FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); + FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('MJType').Value:='ƴ'; + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + FieldByName('ZSUnit').Value:=Trim(ZSUnit.Text); + DuoPinNote.Text:=Trim(DuoPinNote.Text); + {if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; } + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + + end; + if Trim(KgZMiXS)<>'' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*MiXS'); + sql.Add(' ,MJLenMa=Cast(MJQty4*MiXS*1.0936 as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + if Trim(KgZMaXS)<>'' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*MAXS*0.9144'); + sql.Add(' ,MJLenMa=Cast(MJQty4*MAXS as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + if (Trim(KgZMiXS)='') and (Trim(KgZMaXS)='') then + begin + if Trim(MJLen.Text)='' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*100*1000*1.00/(MJFK*MJSJKZ)'); + sql.Add(' ,MJLenMa=Cast(MJQty4*100*1000*1.00/(MJFK*MJSJKZ)*1.0936 as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen='+Trim(MJLen.Text)); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set '); + sql.Add(' MJLenMa=Cast(MJLen*1.0936 as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + + end; + with ADOCmd do + begin + Close; + sql.Clear; + //SQL.Add(strsql); + SQL.Add('UPdate WFB_MJJY Set MJXH=(select isnull(max(MJXH),0)+1 '); + SQL.Add(' from WFB_MJJY A '); + SQL.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' where A.SubID=WFB_MJJY.SubID'); + sql.Add(' and B.SelfGangNo='''+Trim(Label2.Caption)+''''); + if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType in(''Ʒ'',''ƴ'') '); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' '); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType in(''Ʒ'',''ƴ'') '); + end; + sql.Add(' )where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('SFlag').AsString)='' then + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + // FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + Post; + end; + CDS_MJCD.Delete; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('SFlag').Value:=''; + Next; + end; + + //CDS_MJCD.Edit; + //CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + //Next; + end; + end; + with CDS_MJID do + begin + Append; + FieldByName('MJID').Value:=Trim(FMJID); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set KouFenHZ='); + SQL.Add('(select Sum(isnull(KouFen,0)) from WFB_MJJY_CD A where A.MJID=WFB_MJJY.MJID)'); + sql.Add(' where MJID='''+Trim(FMJID)+''''); + ExecSQL; + end; + //SavedataCK(); + ADOCmd.Connection.CommitTrans; + Result:=True; + NewFlag:=''; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.BTAddClick(Sender: TObject); +begin + //if Trim(Label2.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNewCDLable.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNewCDLable.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i:Integer; +begin + if trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('ëزΪ!','ʾ',0); + Exit; + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + end else + begin + if StrToFloat(MJMaoZ.Text)=0 then + begin + Application.MessageBox('ëزΪ!','ʾ',0); + Exit; + end; + end; + if trim(MJQty4.Text)='' then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + //MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + end else + begin + if StrToFloat(MJQty4.Text)=0 then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + end; + if Trim(MJLen.Text)<>'' then + begin + if StrToFloat(MJLen.Text)=0 then + begin + Application.MessageBox('ȲΪ!','ʾ',0); + Exit; + end; + end; + if trim(MJQty4.Text)='' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + end; + + if trim(MJQty3.Text)='' then + MJQty3.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty4.Text),0) ); + + if Trim(FAPID)='' then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + + + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then + begin + Application.MessageBox('أëزܶΪ!','ʾ',0); + Exit; + end; + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('ͳ¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJLen.Text)<>'' then + begin + if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + {if Trim(KgZMiXS)='' then + begin + if Trim(KgZMaXS)='' then + //MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)*0.9144); + end + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + if Trim(KgZMaXS)='' then + begin + if Trim(KgZMiXS)='' then + begin + if Trim(MJLen.Text)<>'' then + begin + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJLen.Text)*1.0936); + end; + end + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)*1.0936); + end + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)); } + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; + if Trim(Edit6.Text)='' then + begin + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(FFFMJID); + end; + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + sql.Add(' and isnull(C.PiTiaoQty,0)>0'); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(FFFMJID); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ƥǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; + end; + + end; + + Label16.Caption:=''; + BTAdd.Click; + //MJQty4.SetFocus; + MJMaoZ.SetFocus; +end; +procedure TfrmMJManageNewFDNewCDLable.PrtData(FMJID:String); +var + fPrintFile,LabName:String; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(FMJID); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('CPTYpe').AsString)<>'Ʒ' then + begin + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + LabName:=Trim(ADOQueryPrint.fieldbyname('SLBName').AsString); + end else + begin + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf'; + LabName:='Ʒǩ.rmf'; + end; + + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)),'ʾ',0); + end; +end; +procedure TfrmMJManageNewFDNewCDLable.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewCDLable.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFDNewCDLable.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewCDLable.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewCDLable.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + if Trim(Label2.Caption)='' then Exit; + if Label2.Visible=False then Exit; + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from Order_JYResult where APID='''+Trim(FAPID)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ŷδ¼,ܼ!','ʾ',0); + Exit; + end; } + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + end; + if Trim(Label15.Caption)<>'' then + begin + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + + end; + if Trim(FAPID)='' then Exit; + FCDName:=Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible:=True; + Label21.Caption:=Trim(FCDName); + FInt:=11; + Edit1.SetFocus; + if Trim(Edit7.Text)<>'' then + Edit1.Text:=Trim(Edit9.Text); + //CDQty.SetFocus; + Panel3.Visible:=True; + PState:=1; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + end; + end; + end; + +end; + +procedure TfrmMJManageNewFDNewCDLable.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFDNewCDLable.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + { if Trim(Edit1.Text)='' then + begin + Application.MessageBox('λòΪգ','ʾ',0); + exit; + end; } + {if Trim(Edit7.Text)<>'' then + Edit2.Text:=Trim(Edit9.Text); } + + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); + if CDQty.Text<>'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; + if Trim(KouFen.Text)='' then + begin + Application.MessageBox('۷ֲΪ!','ʾ',0); + Exit; + end; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(FCDName); + FieldByName('CDbeg').Value:=Trim(Edit1.Text); + FieldByName('CDEnd').Value:=Trim(Edit2.Text); + FieldByName('KouFen').Value:=Trim(KouFen.Text); + FieldByName('SFlag').Value:=NewFlag; + {if RadioGroup1.ItemIndex>-1 then + FieldByName('KouFenType').Value:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + if RadioGroup1.ItemIndex>-1 then + begin + if RadioGroup1.ItemIndex<3 then + begin + FieldByName('KouFenQty').Value:=RadioGroup1.ItemIndex+1; + end else + begin + FieldByName('KouFenQty').Value:=4; + end; + end; } + + if Trim(CDQty.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(CDQty.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; + {if Trim(Edit2.Text)<>'' then + begin + FieldByName('CDQty').Value:=StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text); + end else + begin + FieldByName('CDQty').Value:=0; + end; } + + Post; + end; + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + KouFen.ItemIndex:=-1; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCDLable.Button4Click(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCDLable.ToolButton1Click(Sender: TObject); +begin + + InitJP(); + + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + InitCDGridID(); + InitCDGrid(); + if Trim(FAPID)<>'' then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + begin + BTAdd.Click; + FInt:=11; + end; + end; + + //BTAdd.Click; + + MJMaoZ.SetFocus; +end; + +procedure TfrmMJManageNewFDNewCDLable.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; + + PState:=1; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; + { with ADOQueryPrint do + begin + Close; + SQL.Clear; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + //SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + //Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; } + +end; + +procedure TfrmMJManageNewFDNewCDLable.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNewCDLable.APIDKeyPress(Sender: TObject; var Key: Char); +var + fPrintFile:string; +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote,B.KgZMiXs,B.KgZMaXs'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + '޴: '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + 'ϵ: '+Trim(ADOTmp.fieldbyname('KgZMiXS').AsString)+'(ÿＸ)'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + KgZMiXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + KgZMaXS:=Trim(ADOTmp.fieldbyname('KgZMaXS').AsString); + with ADOQueryLabel do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label'); + sql.Add('where valid=''Y'''); + sql.Add(' and labelCaption='); + sql.Add('(select SLBName from JYorder_Sub A where A.SubId='''+Trim(FSubId)+''')'); + Open; + end; + if ADOQueryLabel.IsEmpty then exit; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(FSubId)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; + + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; + InitJP(); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit1Click(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit5Click(Sender: TObject); +begin + if Trim(Edit5.Text)='' then + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJstr3KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + //MJQty2.SetFocus; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJQty3Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; + +end; + +procedure TfrmMJManageNewFDNewCDLable.MJMaoZExit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJMaoZ.Text)<>'') then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Label9Click(Sender: TObject); +begin + {if trim(Label9.Caption)='M' then + begin + Label9.Caption:='Y'; + Label19.Caption:='Y'; + Label20.Caption:='Y'; + Label7.Caption:='Y'; + end + else + begin + Label9.Caption:='M'; + Label19.Caption:='M'; + Label20.Caption:='M'; + Label7.Caption:='M'; + end; } +end; + +procedure TfrmMJManageNewFDNewCDLable.MJLenExit(Sender: TObject); +begin + MJQty3.OnExit(self); +end; + +procedure TfrmMJManageNewFDNewCDLable.MJQty4Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + + if Trim(MJQty4.Text)='' then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + {if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; } +end; + +procedure TfrmMJManageNewFDNewCDLable.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + {if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + end; } +end; + +procedure TfrmMJManageNewFDNewCDLable.APIDClick(Sender: TObject); +var + i:Integer; +begin + Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; +end; + + +procedure TfrmMJManageNewFDNewCDLable.Button3Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote,B.KgZMiXS,B.KgZMaXS'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + ': '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + 'ϵ: '+Trim(ADOTmp.fieldbyname('KgZMiXS').AsString)+'(ÿＸ)'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + KgZMiXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + KgZMaXS:=Trim(ADOTmp.fieldbyname('KgZMaXS').AsString); + with ADOQueryLabel do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label'); + sql.Add('where valid=''Y'''); + sql.Add(' and labelCaption='); + sql.Add('(select SLBName from JYorder_Sub A where A.SubId='''+Trim(FSubId)+''')'); + Open; + end; + if ADOQueryLabel.IsEmpty then exit; + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; + InitJP(); +end; + +procedure TfrmMJManageNewFDNewCDLable.MJFKChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + + {if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; } +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit7Click(Sender: TObject); +begin + if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + if FCK=9 then + begin + if CommOpen(frmMJManageNewFDNewCDLable.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + Exit; + end + else + begin + FCK:=9; + end; + end; + if FCKCheng=9 then + begin + if CommOpen1301(frmMJManageNewFDNewCDLable.Handle,pchar(PortNoStr),1000,1)<1 then + begin + FCKCheng:=1; + showmessage('ӳƴڴʧ!'); + Exit; + end + else + begin + FCKCheng:=9; + end; + end; + end else + begin + Edit7.Text:=''; + if FCK=9 then + CommClose(pchar(PortNoStr)); + if FCKCheng=9 then + CommClose1301(pchar(PortNoStr)); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.BTPrintKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJQty4KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJQty2KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + BTPrint.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJLenKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJQty2.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.MJMaoZKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit8.Text:=''; + end else + begin + Edit8.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.Button2Click(Sender: TObject); +begin + MJLen.Text:=Trim(Edit9.Text); + NewFlag:='1'; +end; + +procedure TfrmMJManageNewFDNewCDLable.BitBtn1Click(Sender: TObject); +var + mvalue:Double; +begin + Edit2.Text:=Trim(Edit9.Text); + if Trim(Edit1.Text)<>'' then + begin + if Trim(Edit2.Text)<>'' then + begin + if StrToFloat(Edit2.Text)'' then + begin + if TryStrToFloat(Edit1.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit2.Text)<>'' then + begin + if TryStrToFloat(Edit2.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end else + begin + Exit; + end; + CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); + if CDQty.Text<>'' then + begin + if TryStrToFloat(CDQty.Text,mvalue)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + end; +end; + +procedure TfrmMJManageNewFDNewCDLable.CDQtyChange(Sender: TObject); +var + FReal:Double; +begin + if Trim(CDQty.Text)<>'' then + begin + if TryStrToFloat(CDQty.Text,FReal)=False then + begin + Exit; + end; + end else + begin + Exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToFloat(Edit1.Text,FReal)=False then + begin + Exit; + end; + end else + begin + Exit; + end; + Edit2.Text:=FloatToStr((StrToFloat(Edit1.Text)+StrToFloat(CDQty.Text)) ); + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.dfm b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.dfm new file mode 100644 index 0000000..5cce77e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.dfm @@ -0,0 +1,1290 @@ +object frmMJManageNewFDNewLable: TfrmMJManageNewFDNewLable + Left = 76 + Top = 32 + Width = 1286 + Height = 700 + Caption = #25104#21697#26816#39564 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClick = FormClick + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid3: TcxGrid + Left = 203 + Top = 81 + Width = 360 + Height = 580 + Align = alLeft + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column2 + end + item + Kind = skSum + Column = v3Column4 + end + item + Kind = skCount + Column = v3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle4 + Styles.IncSearch = cxStyle4 + Styles.Selection = cxStyle4 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 92 + end + object v3Column2: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 72 + end + object v3Column4: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Footer = cxStyle3 + Styles.Header = cxStyle3 + Width = 61 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 53 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Footer = cxStyle4 + Styles.Header = cxStyle4 + Width = 57 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 0 + Top = 81 + Width = 203 + Height = 580 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 160 + Top = 159 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + OnClick = Label9Click + end + object Label3: TLabel + Left = 160 + Top = 246 + Width = 26 + Height = 22 + Caption = 'cm' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 160 + Top = 109 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 19 + Top = 155 + Width = 40 + Height = 23 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 19 + Top = 242 + Width = 40 + Height = 23 + Caption = #24133#23485 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 19 + Top = 109 + Width = 40 + Height = 23 + Caption = #27611#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 19 + Top = 339 + Width = 40 + Height = 23 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 104 + Top = 339 + Width = 40 + Height = 22 + Caption = #27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 358 + Top = 54 + Width = 15 + Height = 22 + Caption = 'M' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 207 + Top = 58 + Width = 60 + Height = 23 + Caption = #21407#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 81 + Top = 282 + Width = 5 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label22: TLabel + Left = 160 + Top = 289 + Width = 36 + Height = 22 + Caption = 'g/'#13217 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 19 + Top = 288 + Width = 40 + Height = 23 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 19 + Top = 201 + Width = 40 + Height = 23 + Caption = #36192#36865 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 19 + Top = 390 + Width = 40 + Height = 22 + Caption = #22810#25340 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 103 + Top = 437 + Width = 40 + Height = 22 + Caption = #20986#32440 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 204 + Top = 14 + Width = 58 + Height = 23 + Caption = #26588' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label30: TLabel + Left = 19 + Top = 18 + Width = 40 + Height = 23 + Caption = #30382#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 160 + Top = 63 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 19 + Top = 63 + Width = 40 + Height = 23 + Caption = #20928#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 160 + Top = 18 + Width = 28 + Height = 22 + Caption = 'KG' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 19 + Top = 438 + Width = 40 + Height = 22 + Caption = #20221#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 63 + Top = 237 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnChange = MJFKChange + OnClick = MJLenMaClick + OnKeyPress = MJstr3KeyPress + end + object MJLen: TEdit + Left = 63 + Top = 146 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnChange = MJLenChange + OnClick = MJLenMaClick + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object MJMaoZ: TEdit + Left = 63 + Top = 100 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnChange = MJMaoZChange + OnClick = MJLenMaClick + OnExit = MJMaoZExit + OnKeyPress = MJMaoZKeyPress + end + object BTPrint: TButton + Left = 3 + Top = 492 + Width = 83 + Height = 54 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = BTPrintClick + OnKeyPress = BTPrintKeyPress + end + object Button5: TButton + Left = 115 + Top = 492 + Width = 83 + Height = 54 + Caption = #37325#25171 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + OnClick = Button5Click + end + object Edit3: TEdit + Left = 64 + Top = 329 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + Text = #8730 + OnClick = Edit3Click + OnKeyPress = MJstr3KeyPress + end + object Edit4: TEdit + Left = 142 + Top = 329 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + OnClick = Edit4Click + OnKeyPress = MJstr3KeyPress + end + object MJQty1: TEdit + Left = 261 + Top = 49 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = MJLenMaClick + OnKeyPress = MJstr3KeyPress + end + object MJSJKZ: TEdit + Left = 63 + Top = 279 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnChange = MJFKChange + OnClick = MJLenMaClick + OnKeyPress = MJstr3KeyPress + end + object MJQty2: TEdit + Left = 63 + Top = 192 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnChange = MJQty2Change + OnKeyPress = MJQty2KeyPress + end + object Edit5: TEdit + Left = 64 + Top = 380 + Width = 39 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + OnClick = Edit5Click + OnKeyPress = MJstr3KeyPress + end + object Edit6: TEdit + Left = 142 + Top = 427 + Width = 40 + Height = 43 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 13 + Text = #8730 + OnClick = Edit6Click + OnKeyPress = MJstr3KeyPress + end + object MJstr3: TEdit + Left = 261 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Visible = False + OnClick = MJLenMaClick + OnKeyPress = MJstr3KeyPress + end + object MJQty3: TEdit + Left = 63 + Top = 9 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = MJLenMaClick + OnExit = MJQty3Exit + OnKeyPress = MJstr3KeyPress + end + object MJQty4: TEdit + Left = 63 + Top = 54 + Width = 90 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = MJQty4Change + OnExit = MJQty4Exit + OnKeyPress = MJQty4KeyPress + end + object ComboBox1: TComboBox + Left = 64 + Top = 430 + Width = 39 + Height = 40 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ItemHeight = 32 + ItemIndex = 0 + ParentFont = False + TabOrder = 15 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object MJLenMa: TEdit + Left = 181 + Top = 146 + Width = 68 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 16 + Visible = False + OnClick = MJLenMaClick + OnExit = MJLenExit + OnKeyPress = MJLenKeyPress + end + object DuoPinNote: TEdit + Left = 102 + Top = 387 + Width = 80 + Height = 32 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = 'Arial Narrow' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 17 + OnClick = MJLenMaClick + OnKeyPress = MJQty2KeyPress + end + object ZSUnit: TComboBox + Left = 151 + Top = 195 + Width = 53 + Height = 37 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 29 + ItemIndex = 0 + ParentFont = False + TabOrder = 18 + Text = 'KG' + Items.Strings = ( + 'KG' + 'M' + 'Y') + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1270 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 1266 + Height = 77 + Align = alClient + TabOrder = 0 + object Panel6: TPanel + Left = 1 + Top = 31 + Width = 1264 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 9 + Top = 16 + Width = 80 + Height = 19 + Caption = #25195#25551#20837#21475 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 653 + Top = 15 + Width = 42 + Height = 20 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 357 + Top = 15 + Width = 63 + Height = 20 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 509 + Top = 15 + Width = 42 + Height = 20 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label35: TLabel + Left = 997 + Top = 15 + Width = 80 + Height = 19 + Caption = #33258#21160#21462#20540 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label36: TLabel + Left = 805 + Top = 15 + Width = 60 + Height = 19 + Caption = #25353#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object APID: TEdit + Left = 88 + Top = 12 + Width = 185 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = APIDClick + OnKeyPress = APIDKeyPress + end + object BTAdd: TButton + Left = 1211 + Top = 8 + Width = 46 + Height = 25 + Caption = #26032#22686 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnClick = BTAddClick + end + object BTEdit: TButton + Left = 1155 + Top = 8 + Width = 38 + Height = 25 + Caption = #20462#25913 + TabOrder = 2 + Visible = False + OnClick = BTEditClick + end + object Button3: TButton + Left = 272 + Top = 13 + Width = 63 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object Edit7: TEdit + Left = 968 + Top = 12 + Width = 28 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + Text = #8730 + Visible = False + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 776 + Top = 12 + Width = 28 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + OnClick = Edit8Click + end + end + object ToolBar1: TToolBar + Left = 1 + Top = 1 + Width = 1264 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object TBCD: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 22 + Visible = False + OnClick = TBCDClick + end + object ToolButton2: TToolButton + Left = 150 + Top = 0 + Caption = #25351#31034#21333#20449#24687 + ImageIndex = 25 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + end + end + object Panel7: TPanel + Left = 563 + Top = 81 + Width = 707 + Height = 580 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Panel1: TPanel + Left = 2 + Top = 2 + Width = 703 + Height = 576 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object BZNote: TRichEdit + Left = 2 + Top = 2 + Width = 699 + Height = 259 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 0 + end + object RMPreview1: TRMPreview + Left = 2 + Top = 261 + Width = 699 + Height = 313 + Align = alClient + BevelOuter = bvLowered + Caption = 'Insert After' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ParentShowHint = False + ShowHint = False + TabOrder = 1 + Options.RulerUnit = rmutScreenPixels + Options.RulerVisible = False + Options.DrawBorder = False + Options.BorderPen.Color = clGray + Options.BorderPen.Style = psDash + end + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 608 + Top = 8 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [fsBold] + TextColor = clDefault + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 400 + end + object DataSource1: TDataSource + DataSet = Order_MJ + Left = 672 + end + object Order_MJ: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 536 + end + object ADOTmp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 648 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 464 + ReportData = {} + end + object DataSource2: TDataSource + DataSet = CDS_MJCD + Left = 696 + end + object CDS_MJCD: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + end + object DataSource3: TDataSource + DataSet = CDS_MJID + Left = 1000 + Top = 296 + end + object CDS_MJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 1016 + Top = 312 + end + object Timer1: TTimer + Interval = 100 + Left = 944 + Top = 320 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + end + object cxStyleRepository2: TcxStyleRepository + Left = 312 + object cxStyle3: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 344 + object cxStyle4: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end + object cxStyleRepository4: TcxStyleRepository + Left = 104 + object cxStyle5: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object cxStyleRepository5: TcxStyleRepository + Left = 280 + object cxStyle6: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 616 + Top = 587 + end + object ADOQueryMainDSC: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 840 + Top = 144 + end + object ADOQueryLabel: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + SQL.Strings = ( + 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' + ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' + + ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + + 'e WM.APId=A.APId and len(WM.MJID)>8),' + + ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + + 'FB_MJJY WM where WM.APId=A.APId )>0 ' + + ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' + 'from WFBOrder_Sub_AnPai A ' + 'inner join WFBOrder_Sub B on A.SubId=B.SubId' + 'inner join WFBOrder_Main C on A.MainId=C.MainId' + + 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + + ' ' + 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' + '') + Left = 827 + Top = 459 + end + object RMGridReport1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + ModalPreview = False + ShowProgress = False + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + Preview = RMPreview1 + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 676 + Top = 450 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.pas b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.pas new file mode 100644 index 0000000..9426fc7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.pas @@ -0,0 +1,2029 @@ +unit U_MJManageNewFDNewLable; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, + cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, + cxSplitter, cxCheckBox, MovePanel, RM_Preview; +{function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer):integer;stdcall;external 'JCYData.DLL'; +function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL';} + {function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JZCRS323C.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JZCRS323C.DLL'; + + function GetCommData(fhandle:hwnd;var defnum1,defnum2:double;var fisjz:integer):integer;stdcall;external 'JZCRS323C.DLL'; } + + +type + TfrmMJManageNewFDNewLable = class(TForm) + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_MJ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOCmd: TADOQuery; + ADOTmp: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource2: TDataSource; + CDS_MJCD: TClientDataSet; + DataSource3: TDataSource; + CDS_MJID: TClientDataSet; + Timer1: TTimer; + ADOQueryPrint: TADOQuery; + cxStyleRepository2: TcxStyleRepository; + cxStyle3: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle4: TcxStyle; + cxStyleRepository4: TcxStyleRepository; + cxStyle5: TcxStyle; + cxStyleRepository5: TcxStyleRepository; + cxStyle6: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMainDSC: TADOQuery; + Panel2: TPanel; + Label9: TLabel; + MJFK: TEdit; + Label3: TLabel; + MJLen: TEdit; + Label4: TLabel; + MJMaoZ: TEdit; + Label5: TLabel; + Label6: TLabel; + Label11: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + MJQty1: TEdit; + Label15: TLabel; + Label22: TLabel; + Label23: TLabel; + MJSJKZ: TEdit; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + Label27: TLabel; + MJQty2: TEdit; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + Label29: TLabel; + MJstr3: TEdit; + Label30: TLabel; + MJQty3: TEdit; + Label31: TLabel; + Label32: TLabel; + MJQty4: TEdit; + Label33: TLabel; + Panel4: TPanel; + Panel5: TPanel; + Panel6: TPanel; + Label1: TLabel; + Label2: TLabel; + Label16: TLabel; + Label24: TLabel; + Label25: TLabel; + APID: TEdit; + BTAdd: TButton; + BTEdit: TButton; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBCD: TToolButton; + TBClose: TToolButton; + Panel7: TPanel; + Button3: TButton; + Label34: TLabel; + ComboBox1: TComboBox; + Edit7: TEdit; + Label35: TLabel; + v3Column4: TcxGridDBColumn; + Label36: TLabel; + Edit8: TEdit; + ToolButton2: TToolButton; + Panel1: TPanel; + BZNote: TRichEdit; + RMPreview1: TRMPreview; + ADOQueryLabel: TADOQuery; + RMGridReport1: TRMGridReport; + MJLenMa: TEdit; + DuoPinNote: TEdit; + ZSUnit: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBCDClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure MJBanZuClick(Sender: TObject); + procedure MJSJKZClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure FormClick(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure BTAddClick(Sender: TObject); + procedure BTEditClick(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton13Click(Sender: TObject); + procedure cxGridDBColumn2PropertiesChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure APIDKeyPress(Sender: TObject; var Key: Char); + procedure MJLenMaClick(Sender: TObject); + procedure Edit2Change(Sender: TObject); + procedure Edit3Click(Sender: TObject); + procedure Edit4Click(Sender: TObject); + procedure Edit5Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure MJstr3KeyPress(Sender: TObject; var Key: Char); + procedure MJQty3Exit(Sender: TObject); + procedure MJMaoZExit(Sender: TObject); + procedure Label9Click(Sender: TObject); + procedure MJLenExit(Sender: TObject); + procedure MJQty4Exit(Sender: TObject); + procedure MJQty4Change(Sender: TObject); + procedure MJMaoZChange(Sender: TObject); + procedure APIDClick(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure MJFKChange(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure BTPrintKeyPress(Sender: TObject; var Key: Char); + procedure MJQty4KeyPress(Sender: TObject; var Key: Char); + procedure MJQty2KeyPress(Sender: TObject; var Key: Char); + procedure MJLenKeyPress(Sender: TObject; var Key: Char); + procedure MJMaoZKeyPress(Sender: TObject; var Key: Char); + procedure Edit8Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure MJLenChange(Sender: TObject); + procedure MJQty2Change(Sender: TObject); + private + { Private declarations } + FInt,PState,PrintInt,SCInitGrid,FState,FCK:Integer; + FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID,KgZMiXS,KgZMaXS:String; + MValue,FCDName:String; + procedure InitJP(); + procedure InitCDGrid(); + procedure InitCDGridID(); + procedure AddCD(Fbtn:TButton); + procedure AddSL(Fbtn:TButton); + function SaveData():Boolean; + procedure BtnStatus(BSInt:Boolean); + procedure AddSLNew(Fbtn:TSpeedButton); + procedure AddCDNew(Fbtn:TSpeedButton); + procedure SavedataCK(); + procedure PrtData(FMJID:String); + procedure On1201(Var Message:Tmessage);Message 1201; + public + { Public declarations } + + end; + +var + frmMJManageNewFDNewLable: TfrmMJManageNewFDNewLable; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_iniParam,U_OrderInPut; + +{$R *.dfm} + +procedure TfrmMJManageNewFDNewLable.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNewLable:=nil; +end; +procedure TfrmMJManageNewFDNewLable.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + //Edit1.Text:= floattostr(i1 *i2 /100000 ); + MJMaoZ.Text:= floattostr(i1 *i2 /100000 ); +end; + +procedure TfrmMJManageNewFDNewLable.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; + {if FCK=9 then + begin + CommClose(pchar(PortNoStr)); + end; } + +end; +procedure TfrmMJManageNewFDNewLable.InitCDGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + sql.Add('select * from WFB_MJJY_CD where MJID='''' ') + else + sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNewLable.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select '); + sql.Add('Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH '); + sql.Add(', A.* from WFB_MJJY A where APID='''+Trim(FAPID)+''''); + {if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); } + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNewLable.TBCloseClick(Sender: TObject); +var + maxno:string; +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + begin + //try + //ADOCmd.Connection.BeginTrans; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete from WFB_MJJY_CD_Temp where JTType='''+Trim(SCXFlag)+''''); + Execsql; + end; + with CDS_MJCD do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd,maxno,'LS','WFB_MJJY_CD_Temp',2,1)=False then + begin + // ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõʱʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY_CD_Temp where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MCID').Value:=Trim(maxno); + SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD_Temp',0); + FieldByName('JTType').Value:=Trim(SCXFlag); + Post; + end; + Next; + end; + end; } + close; + //ADOCmd.Connection.CommitTrans; + //ModalResult:=1; + //except + //ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʱʧܣ','ʾ',0); + //end; + end else + begin + Close; + end; + end else + begin + Close; + end; + + + +end; + +procedure TfrmMJManageNewFDNewLable.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + //FInt:=0; + //Tv1.DataController.FocusedRecordIndex; + //fsj:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; +end; + +procedure TfrmMJManageNewFDNewLable.TBCDClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + Self.InitJP(); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMJManageNewFDNewLable.FormShow(Sender: TObject); +begin + //InitJP(); + {with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + Open; + FBanZu:=Trim(Fieldbyname('BanZu').AsString); + end; } + {if Trim(FBanZu)='' then + begin + Application.MessageBox('Ϊգð飡','ʾ',0); + Exit; + end; } + APID.SetFocus; + {if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + end else + begin + FCk:=9; + end; } + if IsINIFile() then + ReadINIFile() +end; +procedure TfrmMJManageNewFDNewLable.InitJP(); +var + AA:array[0..100] of string; + i,j:Integer; +begin + +end; + +procedure TfrmMJManageNewFDNewLable.AddCD(Fbtn:TButton); +begin + if PState<1 then Exit; + if Order_MJ.IsEmpty then Exit; + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewLable.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNewLable.AddSL(Fbtn:TButton); +begin + +end; +procedure TfrmMJManageNewFDNewLable.AddSLNew(Fbtn:TSpeedButton); +begin + +end; + +procedure TfrmMJManageNewFDNewLable.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //if Tv2.OptionsSelection.CellSelect=True then + if CDS_MJCD.IsEmpty then Exit; + + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + CDS_MJCD.Delete; + end; + +end; + +procedure TfrmMJManageNewFDNewLable.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewLable.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewLable.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + //DataLink_WFBProducttion.ADOLink.Connected:=False; + FInt:=4; + // if PState=1 then Exit; + InitCDGridID(); + //InitCDGrid(); + {with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJMaoZ.Text:=''; + MJLen.Text:=''; + MJFK.Text:=''; + MJSJKZ.Text:=''; + end else + SSetWinData(ADOTmp,Panel5); } +end; + +procedure TfrmMJManageNewFDNewLable.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_MJCD.IsEmpty=False then + begin + if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + begin + Application.MessageBox('δ,!','ʾ',0); + Exit; + end; + end; + + FInt:=4; + PState:=0; + InitCDGrid(); + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + DuoPinNote.Text:=Trim(ADOTmp.fieldbyname('DuoPinNote').AsString); + ZSUnit.Text:=Trim(ADOTmp.fieldbyname('ZSUnit').AsString); + Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; + BtnStatus(False); + Label16.Caption:=''; +end; + + +procedure TfrmMJManageNewFDNewLable.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNewLable.Button12Click(Sender: TObject); +var + fsj:string; +begin + +end; + +function TfrmMJManageNewFDNewLable.SaveData():Boolean; +var + maxno,FMJID,BZID,strsql:String; + FMJLen:Double; + FOrder:Integer; +begin + ReadINIFile(); + if PState=1 then + FMJID:='' + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + Append; + if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + end + else begin + maxno:=Trim(FMJID); + Edit; + end; + FieldByName('MainId').value:=Trim(FMainId); + FieldByName('SubId').value:=Trim(FSubId); + FieldByName('APId').value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(maxno); + FieldByName('MJStr2').Value:='δ'; + FieldByName('MJBanZu').Value:=Trim(FBanZu); + FieldByName('MJstr3').Value:=Trim(MJstr3.Text); + FieldByName('DuoPinNote').Value:=Trim(DuoPinNote.Text); + FieldByName('ZSunit').Value:=Trim(ZSunit.Text); + // FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + {if Trim(MJLen.Text)<>'' then + begin + FieldByName('MJLen').Value:=StrToFloat(MJLen.Text); + end; + if Trim(MJLenMa.Text)<>'' then + begin + FieldByName('MJLenMa').Value:=StrToFloat(MJLenMa.Text); + end; } + if Trim(KgZMiXS)<>'' then + begin + FieldByName('MiXS').Value:=StrToFloat(KgZMiXS); + end; + if Trim(KgZMaXS)<>'' then + begin + FieldByName('MaXS').Value:=StrToFloat(KgZMaXS); + end; + if Trim(MJQty1.Text)<>'' then + begin + FieldByName('MJQty1').Value:=StrToFloat(MJQty1.Text); + end; + if Trim(MJQty2.Text)<>'' then + begin + FieldByName('MJQty2').Value:=StrToFloat(MJQty2.Text); + end else + begin + FieldByName('MJQty2').Value:=0; + end; + + FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); + FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('MJType').Value:='Ʒ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('MJType').Value:='ƴ'; + end; + FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); + FieldByName('MJStr1').Value:=Trim(Label13.Caption); + {if Trim(MJSJKZ.Text)<>'' then + begin + FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + end; } + if Trim(FMJID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + end; + if Trim(SCXFlag)<>'' then + begin + FieldByName('JTType').Value:=Trim(SCXFlag); + end; + Post; + + end; + if Trim(KgZMiXS)<>'' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*MiXS'); + sql.Add(' ,MJLenMa=Cast(MJQty4*MiXS*1.0936 as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + if Trim(KgZMaXS)<>'' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*MAXS*0.9144'); + sql.Add(' ,MJLenMa=Cast(MJQty4*MAXS as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + if (Trim(KgZMiXS)='') and (Trim(KgZMaXS)='') then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY Set MJLen=MJQty4*100*1000*1.00/(MJFK*MJSJKZ)'); + sql.Add(' ,MJLenMa=Cast(MJQty4*100*1000*1.00/(MJFK*MJSJKZ)*1.0936 as decimal(18,1))'); + sql.Add(' where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ADOCmd do + begin + Close; + sql.Clear; + //SQL.Add(strsql); + SQL.Add('UPdate WFB_MJJY Set MJXH=(select isnull(max(MJXH),0)+1 '); + SQL.Add(' from WFB_MJJY A '); + SQL.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' where A.SubID=WFB_MJJY.SubID'); + sql.Add(' and B.SelfGangNo='''+Trim(Label2.Caption)+''''); + if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType in(''Ʒ'',''ƴ'')'); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' '); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType in(''Ʒ'',''ƴ'')'); + end; + {if Trim(Edit3.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'''); + end; + if Trim(Edit4.Text)<>'' then + begin + sql.Add(' and A.MJType=''Ʒ'' '); + end; + if Trim(Edit5.Text)<>'' then + begin + sql.Add(' and A.MJType=''ƴ'' '); + end; } + sql.Add(' )where MJID='''+Trim(maxno)+''''); + ExecSQL; + end; + FMJID:=Trim(maxno); + FFFMJID:=Trim(maxno); + ///ĸõ + with CDS_MJCD do + begin + First; + while not Eof do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + begin + if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY_CD '); + sql.Add(' where MCID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + Append + else + Edit; + FieldByName('MJId').Value:=Trim(FMJID); + FieldByName('MCID').Value:=Trim(maxno); + //SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); + FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + Next; + end; + end; + with CDS_MJID do + begin + Append; + FieldByName('MJID').Value:=Trim(FMJID); + Post; + end; + + //SavedataCK(); + ADOCmd.Connection.CommitTrans; + Result:=True; + PState:=0; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewLable.BTAddClick(Sender: TObject); +begin + //if Trim(Label2.Caption)='' then Exit; + PState:=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNewLable.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNewLable.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + i:Integer; +begin + if trim(MJMaoZ.Text)='' then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + end; + + if trim(MJQty4.Text)='' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + end; + + if trim(MJQty3.Text)='' then + MJQty3.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty4.Text),0) ); + + if Trim(FAPID)='' then Exit; + if FInt=4 then + begin + if CDS_MJID.IsEmpty=False then + begin + Application.MessageBox('Ѵ룿볢ش','ʾ',0); + Exit; + end; + end; + + + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then + begin + Application.MessageBox('أëزܶΪ!','ʾ',0); + Exit; + end; + + +{ if Trim(MJMaoZ.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } +{ if TryStrToFloat(MJLen.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; } + {if Trim(MJQty1.Text)='' then + begin + Application.MessageBox('ԭ벻Ϊ!','ʾ',0); + Exit; + end; } + if Trim(MJQty1.Text)<>'' then + begin + if TryStrToFloat(MJQty1.Text,mvalue)=False then + begin + Application.MessageBox('ԭ¼!','ʾ',0); + Exit; + end; + end; + + if Trim(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJMaoZ.Text)<>'' then + begin + if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; + if Trim(MJQty2.Text)<>'' then + begin + if TryStrToFloat(MJQty2.Text,mvalue)=False then + begin + Application.MessageBox('ͳ¼!','ʾ',0); + Exit; + end; + end; + {if Trim(MJSJKZ.Text)<>'' then + begin + if TryStrToFloat(MJSJKZ.Text,mvalue)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + end; } + if PState=1 then + begin + if Application.MessageBox('ǷҪӡ룿ӡݽ޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + if SaveData() then + begin + //BtnStatus(False); + //MJFK.Text:=''; + //MJSJKZ.Text:=''; + MJLen.Text:=''; + MJLenMa.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + //MJSJKZ.Text:=''; + Label15.Caption:=''; + //MJQty3.Text:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + DuoPinNote.Text:=''; + end; + if Trim(Edit6.Text)='' then + begin + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(FFFMJID); + end; + {with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add('Case when '); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)),'ʾ',0); + end; } + end; + + Label16.Caption:=''; + BTAdd.Click; + //MJQty4.SetFocus; + MJMaoZ.SetFocus; +end; +procedure TfrmMJManageNewFDNewLable.PrtData(FMJID:String); +var + fPrintFile:String; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(FMJID); + Open; + end; + if Trim(Edit4.Text)='' then + begin + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\Ʒǩ.rmf' ; + end else + begin + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + end; + + if FileExists(fPrintFile) then + begin + + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; +procedure TfrmMJManageNewFDNewLable.SavedataCK(); +var + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; +begin + //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then + //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(FSubId); + FieldByName('APID').Value:=Trim(FAPID); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('Qty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('QtyUnit').Value:=Trim(Label9.Caption); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('CPType').Value:='Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text)<>'' then + begin + FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNewLable.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFDNewLable.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + try + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)<>'' then + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.Post; + end else + begin + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.Post; + end; + CDS_MJCD.Edit; + CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + except + Application.MessageBox('Ƿ֣','ʾ',0); + end; +end; + +procedure TfrmMJManageNewFDNewLable.SpeedButton1Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TSpeedButton(Sender).Hint); + if Trim(fsj)='' then Exit; + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewLable.SpeedButton12Click(Sender: TObject); +var + fsj:string; +begin + fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj)='' then Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmMJManageNewFDNewLable.SpeedButton13Click(Sender: TObject); +var + i:Integer; +begin + + +end; + +procedure TfrmMJManageNewFDNewLable.cxGridDBColumn2PropertiesChange(Sender: TObject); +var + fsj:String; +begin + + fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + Order_MJ.DisableControls; + with Order_MJ do + begin + First; + while not Eof do + begin + if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + begin + Edit; + FieldByName('SSel').Value:=False; + end; + Next; + end; + end; + Order_MJ.EnableControls; + Order_MJ.Locate('SubId',fsj,[]); +end; + +procedure TfrmMJManageNewFDNewLable.Button1Click(Sender: TObject); +var + mvalue:Double; +begin + +end; + +procedure TfrmMJManageNewFDNewLable.ToolButton1Click(Sender: TObject); +begin + //InitGrid(); + // InitJP(); + + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + DuoPinNote.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; +end; + +procedure TfrmMJManageNewFDNewLable.Button5Click(Sender: TObject); +var + fPrintFile:String; + i:Integer; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + for i:=1 to StrToInt(ComboBox1.Text) do + begin + PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); + end; + + PState:=1; + MJLen.Text:=''; + MJMaoZ.Text:=''; + MJQty1.Text:=''; + MJQty2.Text:=''; + Label15.Caption:=''; + MJQty4.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + BTAdd.Click; + FInt:=11; + MJMaoZ.SetFocus; + { with ADOQueryPrint do + begin + Close; + SQL.Clear; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.MJID,A.MJXH,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,GangNo=D.AOrddefStr1,PRTColorEng=E.Note,B.LBName '); + sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as Qty '); + sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)'); + sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,C.*,A.* '); + sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); + sql.Add(' from WFB_MJJY A') ; + sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + sql.Add(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' '); + sql.Add(' inner join JYOrder_Sub_AnPai D on A.APId=D.APId '); + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + //SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + //Open; + end; + if Trim(ADOQueryPrint.fieldbyname('LBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('LBName').AsString)+'.rmf' + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; } + +end; + +procedure TfrmMJManageNewFDNewLable.APIDKeyPress(Sender: TObject; var Key: Char); +var + fPrintFile:String; +begin + if Key=#13 then + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote,B.KgZMiXs,B.KgZMaXs'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + '޴: '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + 'ϵ: '+Trim(ADOTmp.fieldbyname('KgZMiXS').AsString)+'(ÿＸ)'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + KgZMiXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + KgZMaXS:=Trim(ADOTmp.fieldbyname('KgZMaXS').AsString); + with ADOQueryLabel do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label'); + sql.Add('where valid=''Y'''); + sql.Add(' and labelCaption='); + sql.Add('(select SLBName from JYorder_Sub A where A.SubId='''+Trim(FSubId)+''')'); + Open; + end; + if ADOQueryLabel.IsEmpty then exit; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(FSubId)+''''); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; + + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + {if Trim(SCXFlag)<>Trim(ADOTmp.fieldbyname('AOrdDefNote29').AsString) then + begin + APID.Text:=''; + if Application.MessageBox('̨뵱ǰ̨һ,'+#13+'Ƿ飿','ʾ',32+4)<>IDYES then + begin + Label2.Visible:=False; + Label2.Caption:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + + end; } + APID.Text:=''; + BTAdd.Click; + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJLenMaClick(Sender: TObject); +var + i:Integer; +begin + {Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewLable.Edit2Change(Sender: TObject); +var + mvalue:Double; +begin + +end; + +procedure TfrmMJManageNewFDNewLable.Edit3Click(Sender: TObject); +begin + if Trim(Edit3.Text)='' then + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end else + begin + Edit3.Text:=''; + Edit4.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewLable.Edit4Click(Sender: TObject); +begin + if Trim(Edit4.Text)='' then + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end else + begin + Edit4.Text:=''; + Edit3.Text:=''; + Edit5.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewLable.Edit5Click(Sender: TObject); +begin + if Trim(Edit5.Text)='' then + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end else + begin + Edit5.Text:=''; + Edit3.Text:=''; + Edit4.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewLable.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJstr3KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + //MJQty2.SetFocus; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJQty3Exit(Sender: TObject); +begin + if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; + +end; + +procedure TfrmMJManageNewFDNewLable.MJMaoZExit(Sender: TObject); +begin + {if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJMaoZ.Text)<>'') then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + if MJQty2.Text<>'' then + begin + if Trim(ZSUnit.Text)='KG' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJQty4.Text),0)-strtofloatdef(trim(MJQty2.Text),0) ); + end; + end; + exit; + end; } +end; + +procedure TfrmMJManageNewFDNewLable.Label9Click(Sender: TObject); +begin + {if trim(Label9.Caption)='M' then + begin + Label9.Caption:='Y'; + Label19.Caption:='Y'; + Label20.Caption:='Y'; + Label7.Caption:='Y'; + end + else + begin + Label9.Caption:='M'; + Label19.Caption:='M'; + Label20.Caption:='M'; + Label7.Caption:='M'; + end; } +end; + +procedure TfrmMJManageNewFDNewLable.MJLenExit(Sender: TObject); +begin + //MJQty3.OnExit(self); +end; + +procedure TfrmMJManageNewFDNewLable.MJQty4Exit(Sender: TObject); +begin + {if (trim(MJMaoZ.Text)='') and (trim(MJQty4.Text)='') then exit; + if (trim(MJMaoZ.Text)='') and (trim(MJQty3.Text)='') then exit; + if (trim(MJQty4.Text)='') and (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty3.Text)='') then exit; + + if (trim(MJQty4.Text)<>'') then + begin + MJMaoZ.Text:=floattostr(strtofloatdef(trim(MJQty3.Text),0)+strtofloatdef(trim(MJQty4.Text),0) ); + exit; + end; } +end; + +procedure TfrmMJManageNewFDNewLable.MJQty4Change(Sender: TObject); +var + FReal:Double; +begin + + {if Trim(MJQty4.Text)='' then + begin + MJLen.Text:=''; + MJMaoZ.Text:=''; + Exit; + end; + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=True then + MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); + end else + begin + MJMaoZ.Text:=MJQty4.Text; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(KgZMiXS)='' then + begin + if Trim(KgZMaXS)='' then + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)*0.9144); + end + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + if Trim(KgZMaXS)='' then + begin + if Trim(KgZMiXS)='' then + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936) + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)*1.0936); + end + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)); } +end; + +procedure TfrmMJManageNewFDNewLable.MJMaoZChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(MJMaoZ.Text)='' then + begin + MJLen.Text:=''; + MJQty4.Text:=''; + Exit; + end; + if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; + if Trim(MJQty3.Text)<>'' then + begin + if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); + end else + begin + MJQty4.Text:=MJMaoZ.Text; + end; + if Trim(MJQty2.Text)<>'' then + begin + if Trim(ZSUnit.Text)='KG' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJQty4.Text),0)-strtofloatdef(trim(MJQty2.Text),0) ); + end; + end else + begin + if Trim(ZSUnit.Text)='KG' then + begin + MJQty4.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty3.Text),0) ); + end; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(KgZMiXS)='' then + begin + if Trim(KgZMaXS)='' then + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)*0.9144); + end + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + if Trim(KgZMaXS)='' then + begin + if Trim(KgZMiXS)='' then + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936) + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)*1.0936); + end + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)); +end; + +procedure TfrmMJManageNewFDNewLable.APIDClick(Sender: TObject); +var + i:Integer; +begin + { Panel3.Visible:=True; + with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + + +procedure TfrmMJManageNewFDNewLable.Button3Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.BZNote,B.PiZhong '); + sql.Add(',B.MPRTMF,B.MPRTKZ,OrderNoM=B.OrderNo,C.PRTHX,C.PRTColor,C.PRTColorNo'); + sql.add(',B.ZGLen,B.ZGHD,B.ZGKg,B.NRDHD,B.ZGNote,B.KgZMiXS,B.KgZMaXS'); + sql.Add('from JYOrder_Main_MD A'); + SQL.Add(' inner join JYOrder_Main B on A.OrdMainId=B.MainId'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubId=C.SubId'); + sql.Add('where MDID='''+Trim(APID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty=False then + begin + Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('SelfGangNo').AsString); + Label24.Visible:=True; + Label24.Caption:=Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label25.Visible:=True; + Label25.Caption:=Trim(ADOTmp.fieldbyname('PRTColor').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('OrdMainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('OrdSubId').AsString); + BZNote.Text:='ֽܳ: '+Trim(ADOTmp.fieldbyname('ZGLen').AsString)+'cm'+ + ',ֽܺ: '+Trim(ADOTmp.fieldbyname('ZGHD').AsString)+'cm'+ + ',ֽ: '+Trim(ADOTmp.fieldbyname('ZGKg').AsString)+'Kg'+#13+ + ': '+Trim(ADOTmp.fieldbyname('NRDHD').AsString)+'˿'+#13+ + 'ϵ: '+Trim(ADOTmp.fieldbyname('KgZMiXS').AsString)+'(ÿＸ)'+#13+ + '˵:'+Trim(ADOTmp.fieldbyname('ZGNote').AsString)+#13+ + Trim(ADOTmp.fieldbyname('BZNote').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MPRTMF').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MPRTKZ').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('PiZhong').AsString); + KgZMiXs:=Trim(ADOTmp.fieldbyname('KgZMiXs').AsString); + KgZMaXS:=Trim(ADOTmp.fieldbyname('KgZMaXS').AsString); + with ADOQueryLabel do + begin + Close; + sql.Clear; + sql.Add('select * from P_Label'); + sql.Add('where valid=''Y'''); + sql.Add(' and labelCaption='); + sql.Add('(select SLBName from JYorder_Sub A where A.SubId='''+Trim(FSubId)+''')'); + Open; + end; + if ADOQueryLabel.IsEmpty then exit; + with RMGridReport1 do + begin + LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile'))); + //Preview :=RMPreview1; + ShowReport ; + end; + {if Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString)<>'' then + begin + Label9.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); + Label19.Caption:=Label9.Caption; + Label20.Caption:=Label9.Caption; + Label7.Caption:=Label9.Caption; + end; + Label13.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); + if ADOTmp.FieldByName('JYMF').Value>0 then + MJFK.Text:=Trim(ADOTmp.fieldbyname('JYMF').AsString); + if ADOTmp.FieldByName('JYKZ').Value>0 then + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('JYKZ').AsString); } + MJMaoZ.SetFocus; + end else + begin + Application.MessageBox('!','ʾ',0); + Label2.Visible:=False; + Label2.Caption:=''; + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + BZNote.Text:=''; + Exit; + end; + APID.Text:=''; + BTAdd.Click; +end; + +procedure TfrmMJManageNewFDNewLable.MJFKChange(Sender: TObject); +var + FReal:Double; +begin + // if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + + if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(Label9.Caption)='M' then + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text))); + end else + begin + //MJLen.Text:=FloatToStr(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936); + MJLen.Text:=IntToStr(Round(StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936)); + end; +end; + +procedure TfrmMJManageNewFDNewLable.Edit7Click(Sender: TObject); +begin + {if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + if FCK=9 then + begin + if CommOpen(frmMJManageNewFDNewSF.Handle,pchar(PortNoStr),500,1)<1 then + begin + FCK:=1; + showmessage('ڴʧ!'); + Exit; + end + else + begin + FCK:=9; + end; + end; + end else + begin + Edit7.Text:=''; + if FCK=9 then + CommClose(pchar(PortNoStr)) + else begin + Exit; + end; + end; } +end; + +procedure TfrmMJManageNewFDNewLable.BTPrintKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJQty4KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJQty2KeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + BTPrint.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJLenKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJQty2.SetFocus; + // SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJMaoZKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + Key:= #0; + MJLen.SetFocus; + //SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmMJManageNewFDNewLable.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit8.Text:=''; + end else + begin + Edit8.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNewLable.ToolButton2Click(Sender: TObject); +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + frmOrderInPut.FMainId:=Trim(Self.FMainId); + frmOrderInPut.PState:=1; + frmOrderInPut.cxPageControl1.Pages[2].TabVisible:=False; + frmOrderInPut.cxPageControl1.Pages[3].TabVisible:=False; + frmOrderInPut.cxPageControl1.Pages[4].TabVisible:=False; + frmOrderInPut.ToolBar2.Visible:=False; + frmOrderInPut.ToolButton18.Visible:=False; + frmOrderInPut.ToolButton13.Visible:=False; + frmOrderInPut.TBSave.Visible:=False; + frmOrderInPut.ToolBar7.Visible:=False; + frmOrderInPut.JYInt:=99; + frmOrderInPut.Panel1.Enabled:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmMJManageNewFDNewLable.MJLenChange(Sender: TObject); +begin + MJLenMa.Text:=''; +end; + +procedure TfrmMJManageNewFDNewLable.MJQty2Change(Sender: TObject); +var + FReal:Double; +begin + // if TryStrToFloat(MJQty2.Text,FReal)=False then Exit; + if Trim(MJMaoZ.Text)='' then Exit; + if Trim(MJQty2.Text)<>'' then + begin + if Trim(ZSUnit.Text)='KG' then + begin + MJQty4.Text:=FloatToStr(StrToFloat(MJQty4.Text)-StrToFloat(MJQty2.Text)) ; + end; + end else + begin + if Trim(ZSUnit.Text)='KG' then + begin + MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)) ; + end; + end; + if Trim(MJSJKZ.Text)='' then Exit; + if TryStrToFloat(MJSJKZ.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if Trim(MJFK.Text)='' then Exit; + if TryStrToFloat(MJFK.Text,FReal)=False then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if StrToFloat(MJSJKZ.Text)*StrToFloat(MJFK.Text)=0 then Exit; + if Trim(KgZMiXS)='' then + begin + if Trim(KgZMaXS)='' then + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)) + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)*0.9144); + end + else + MJLen.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)); + if Trim(KgZMaXS)='' then + begin + if Trim(KgZMiXS)='' then + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*1000*100/StrToFloat(MJSJKZ.Text)/StrToFloat(MJFK.Text)*1.0936) + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMiXS)*1.0936); + end + else + MJLenMa.Text:=FormatFloat('0.0',StrToFloat(MJQty4.Text)*StrToFloat(KgZMaXS)); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.dfm new file mode 100644 index 0000000..40c6d19 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.dfm @@ -0,0 +1,1122 @@ +object frmMaDanManage: TfrmMaDanManage + Left = 64 + Top = 47 + Width = 1287 + Height = 701 + Caption = #30721#21333#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1271 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1271 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 16 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 65 + Width = 1271 + Height = 264 + Align = alTop + TabOrder = 2 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 585 + Height = 260 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 120 + Width = 581 + Height = 19 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 7 + Top = 3 + Width = 60 + Height = 14 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 581 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 60 + Height = 14 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 139 + Width = 581 + Height = 117 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 89 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Sorting = False + Width = 85 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 290 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 0 + Top = 25 + Width = 581 + Height = 95 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label12: TLabel + Left = 200 + Top = 30 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 391 + Top = 30 + Width = 67 + Height = 12 + Caption = #20811' '#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 200 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 8 + Top = 32 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 200 + Top = 53 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 391 + Top = 53 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 391 + Top = 9 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 8 + Top = 53 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 8 + Top = 76 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 260 + Top = 49 + Width = 120 + Height = 20 + Hint = 'ChuanY/'#33337#26679 + TabOrder = 0 + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 456 + Top = 49 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 2 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 70 + Top = 27 + Width = 120 + Height = 20 + TabOrder = 3 + end + object MPRTCF: TEdit + Tag = 2 + Left = 456 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 4 + end + object MPRTMF: TEdit + Tag = 2 + Left = 260 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 5 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 456 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 6 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 71 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 7 + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 70 + Top = 5 + Width = 120 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 8 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 70 + Top = 72 + Width = 120 + Height = 20 + TabOrder = 9 + end + end + end + object ScrollBox6: TScrollBox + Left = 585 + Top = 0 + Width = 682 + Height = 260 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 119 + Width = 678 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 90 + Height = 14 + Caption = #35746#21333#26126#32454#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 24 + Width = 678 + Height = 95 + Align = alTop + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + Width = 60 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + Width = 73 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 79 + end + object v5Column3: TcxGridDBColumn + Caption = #21517#31216 + HeaderAlignmentHorz = taCenter + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + Width = 57 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20215 + Width = 68 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 678 + Height = 24 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 14 + Top = 4 + Width = 90 + Height = 14 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 139 + Width = 678 + Height = 117 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSEl' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 40 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 85 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 103 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'PRTColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 329 + Width = 1271 + Height = 333 + Align = alClient + TabOrder = 3 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 329 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 21 + Width = 49 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + end + object Button2: TButton + Left = 4 + Top = 57 + Width = 49 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + end + object Button3: TButton + Left = 4 + Top = 93 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + end + end + object Panel6: TPanel + Left = 57 + Top = 0 + Width = 744 + Height = 329 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 740 + Height = 193 + Align = alTop + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + Width = 63 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 101 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + Width = 56 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20379#24212#21830 + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21305#25968 + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327 + Width = 44 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21333#20301 + Width = 37 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #22270#29255#19978#20256 + Width = 57 + end + object Tv3Column1: TcxGridDBColumn + Caption = #21069#36947#20379#24212#21830 + HeaderAlignmentHorz = taCenter + Width = 76 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + HeaderAlignmentHorz = taCenter + Width = 45 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + HeaderAlignmentHorz = taCenter + end + object v3Column2: TcxGridDBColumn + Caption = #32568#21495 + HeaderAlignmentHorz = taCenter + Width = 51 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 195 + Width = 740 + Height = 132 + Align = alClient + TabOrder = 1 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#35299#20179#24211 + Width = 730 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Caption = #22320#28857 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 148 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Caption = #25968#37327 + HeaderAlignmentHorz = taCenter + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Caption = #21333#20301 + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #36131#20219#20154 + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #36131#20219#24037#21378 + HeaderAlignmentHorz = taCenter + Width = 120 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #21407#22240 + HeaderAlignmentHorz = taCenter + Width = 213 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + end + object ScrollBox2: TScrollBox + Left = 800 + Top = 1 + Width = 361 + Height = 194 + TabOrder = 2 + object Label4: TLabel + Left = 2 + Top = 6 + Width = 51 + Height = 16 + Caption = #21021#26816#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 120 + Top = 3 + Width = 51 + Height = 16 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 4 + Top = 24 + Width = 48 + Height = 12 + Caption = #38376' '#24133 + end + object Label11: TLabel + Left = 4 + Top = 53 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label14: TLabel + Left = 4 + Top = 111 + Width = 48 + Height = 12 + Caption = #33394' '#29282' '#24230 + end + object Label19: TLabel + Left = 4 + Top = 82 + Width = 48 + Height = 12 + Caption = #25163' '#24863 + end + object Label20: TLabel + Left = 4 + Top = 140 + Width = 48 + Height = 12 + Caption = #29305#27530#35201#27714 + end + object Label22: TLabel + Left = 4 + Top = 169 + Width = 52 + Height = 12 + Caption = #21021#26816#32467#26524 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object cxRichEdit1: TcxRichEdit + Left = 121 + Top = 21 + Lines.Strings = ( + '') + TabOrder = 0 + Height = 163 + Width = 210 + end + object Button4: TButton + Left = 263 + Top = 1 + Width = 65 + Height = 20 + Caption = #25171#21360#32568#26465#30721 + TabOrder = 1 + end + object ComboBox1: TComboBox + Left = 59 + Top = 20 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ComboBox2: TComboBox + Left = 59 + Top = 49 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ComboBox3: TComboBox + Left = 59 + Top = 107 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ComboBox4: TComboBox + Left = 59 + Top = 78 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ComboBox5: TComboBox + Left = 59 + Top = 136 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ComboBox6: TComboBox + Left = 59 + Top = 165 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.pas new file mode 100644 index 0000000..d2f3276 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManage.pas @@ -0,0 +1,169 @@ +unit U_MaDanManage; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit; + +type + TfrmMaDanManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Panel2: TPanel; + Label1: TLabel; + v5Column8: TcxGridDBColumn; + Panel3: TPanel; + Label2: TLabel; + Panel5: TPanel; + Label9: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v2Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column2: TcxGridDBColumn; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label21: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + MPRTCode: TBtnEditA; + LiDanPerson: TEdit; + ScrollBox1: TScrollBox; + Panel8: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Panel6: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + ScrollBox2: TScrollBox; + Label4: TLabel; + Label5: TLabel; + cxRichEdit1: TcxRichEdit; + Button4: TButton; + Label10: TLabel; + ComboBox1: TComboBox; + Label11: TLabel; + ComboBox2: TComboBox; + Label14: TLabel; + ComboBox3: TComboBox; + Label19: TLabel; + ComboBox4: TComboBox; + Label20: TLabel; + ComboBox5: TComboBox; + Label22: TLabel; + ComboBox6: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmMaDanManage: TfrmMaDanManage; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmMaDanManage.FormDestroy(Sender: TObject); +begin + frmMaDanManage:=nil; +end; + +procedure TfrmMaDanManage.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManage.TBCloseClick(Sender: TObject); +begin + close; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.dfm new file mode 100644 index 0000000..99f51ff --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.dfm @@ -0,0 +1,2215 @@ +object frmMaDanManageST: TfrmMaDanManageST + Left = 44 + Top = 26 + Width = 1287 + Height = 686 + Caption = #30721#21333#24405#20837'('#23454#20307')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1271 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 16 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button9: TButton + Left = 571 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button9Click + end + object Button10: TButton + Left = 472 + Top = 5 + Width = 75 + Height = 22 + Caption = #25805#20316#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button10Click + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 33 + Width = 1271 + Height = 318 + Align = alTop + TabOrder = 1 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 1267 + Height = 314 + Align = alClient + TabOrder = 0 + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1263 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 52 + Height = 12 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel4: TPanel + Left = 0 + Top = 20 + Width = 1263 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label12: TLabel + Left = 385 + Top = 12 + Width = 39 + Height = 12 + Caption = #38376#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 468 + Top = 12 + Width = 39 + Height = 12 + Caption = #20811#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 196 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 828 + Top = 32 + Width = 39 + Height = 12 + Caption = #35268#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 196 + Top = 32 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 828 + Top = 12 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 565 + Top = 12 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 385 + Top = 32 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 565 + Top = 32 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 8 + Top = 32 + Width = 39 + Height = 12 + Caption = #24037#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 256 + Top = 28 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 256 + Top = 8 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 864 + Top = 28 + Width = 237 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 864 + Top = 8 + Width = 236 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 418 + Top = 8 + Width = 49 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 503 + Top = 8 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 624 + Top = 8 + Width = 200 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 445 + Top = 28 + Width = 114 + Height = 20 + TabOrder = 7 + end + object PFGenDanPerson: TEdit + Left = 624 + Top = 28 + Width = 200 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 8 + Width = 121 + Height = 20 + TabOrder = 9 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 41 + Top = 28 + Width = 150 + Height = 20 + TabOrder = 10 + end + end + object ScrollBox6: TScrollBox + Left = 0 + Top = 76 + Width = 610 + Height = 234 + Align = alLeft + TabOrder = 2 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 606 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 5 + Top = 3 + Width = 66 + Height = 12 + Caption = #29983#20135#27969#31243' 1' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 20 + Width = 606 + Height = 94 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Options.Sorting = False + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 295 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 114 + Width = 606 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label21: TLabel + Left = 5 + Top = 3 + Width = 92 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516' 3' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 134 + Width = 606 + Height = 96 + Align = alClient + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 64 + end + object v5Column12: TcxGridDBColumn + Caption = #32039#24613#21512#21516 + DataBinding.FieldName = 'JYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Options.Sorting = False + Width = 61 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 58 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 54 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object ScrollBox8: TScrollBox + Left = 610 + Top = 76 + Width = 653 + Height = 234 + Align = alClient + TabOrder = 3 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 649 + Height = 21 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label23: TLabel + Left = 12 + Top = 4 + Width = 92 + Height = 12 + Caption = #35746#21333#23433#25490#20449#24687' 2' + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object Button15: TButton + Left = 127 + Top = 0 + Width = 103 + Height = 20 + Caption = #35843#29992#30003#35831#19982#23433#25490 + TabOrder = 0 + OnClick = Button15Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 21 + Width = 649 + Height = 209 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 43 + end + object v1Column9: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'APType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 42 + end + object v1Column12: TcxGridDBColumn + Caption = #35843#29992#35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column6: TcxGridDBColumn + Caption = #35843#29992#21305#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 43 + end + object v1Column10: TcxGridDBColumn + Caption = #23458#20154#25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 58 + end + object v1Column11: TcxGridDBColumn + Caption = #23458#20154#21333#20301 + DataBinding.FieldName = 'OrderUnit' + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + Options.Sorting = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + end + object cxGrid6: TcxGrid + Left = 58 + Top = 27 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 351 + Width = 1271 + Height = 296 + ActivePage = cxTabSheet2 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabOrder = 3 + ClientRectBottom = 296 + ClientRectRight = 1271 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #20179#24211#30721#21333#24405#20837 + ImageIndex = 0 + object Panel9: TPanel + Left = 0 + Top = 0 + Width = 46 + Height = 273 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Button1: TButton + Left = 1 + Top = 21 + Width = 40 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 1 + Top = 53 + Width = 40 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 1 + Top = 84 + Width = 40 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + end + object cxGrid3: TcxGrid + Left = 46 + Top = 0 + Width = 874 + Height = 273 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv3FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + Column = v3Column10 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column10 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 32 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 36 + end + object v3Column10: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column11: TcxGridDBColumn + Tag = 2 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 62 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv3Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object v3Column13: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 58 + end + object v3Column14: TcxGridDBColumn + Caption = #22836#32568#24067 + DataBinding.FieldName = 'FirstGangFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v3Column5: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column7: TcxGridDBColumn + Tag = 2 + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'SelfGangNo' + Width = 58 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v3Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 49 + end + object v3Column9: TcxGridDBColumn + Caption = #21021#26816#32467#26524 + DataBinding.FieldName = 'ChkResult' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v3Column12: TcxGridDBColumn + Caption = #19981#25171#21360 + DataBinding.FieldName = 'NotPrint' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 54 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxPageControl2: TcxPageControl + Left = 928 + Top = 0 + Width = 343 + Height = 273 + ActivePage = cxTabSheet3 + Align = alRight + TabOrder = 2 + ClientRectBottom = 271 + ClientRectLeft = 2 + ClientRectRight = 341 + ClientRectTop = 22 + object cxTabSheet3: TcxTabSheet + Caption = #21021#26816 + ImageIndex = 0 + object ScrollBox2: TScrollBox + Left = 0 + Top = 0 + Width = 339 + Height = 249 + Align = alClient + TabOrder = 0 + object Label4: TLabel + Left = 2 + Top = 1 + Width = 39 + Height = 12 + Caption = #21021#26816#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 3 + Top = 144 + Width = 65 + Height = 12 + Caption = #21021#26816#22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 4 + Top = 24 + Width = 54 + Height = 12 + Caption = #38376' '#24133 + end + object Label11: TLabel + Left = 4 + Top = 44 + Width = 54 + Height = 12 + Caption = #20811' '#37325 + end + object Label14: TLabel + Left = 4 + Top = 84 + Width = 53 + Height = 12 + Caption = #33394' '#29282' '#24230 + end + object Label19: TLabel + Left = 4 + Top = 64 + Width = 54 + Height = 12 + Caption = #25163' '#24863 + end + object Label20: TLabel + Left = 4 + Top = 104 + Width = 52 + Height = 12 + Caption = #29305#27530#35201#27714 + end + object Label22: TLabel + Left = 4 + Top = 125 + Width = 52 + Height = 12 + Caption = #21021#26816#32467#26524 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 136 + Top = 5 + Width = 65 + Height = 12 + Caption = #21021#26816#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object MFChk: TComboBox + Tag = 2 + Left = 59 + Top = 20 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object KZChk: TComboBox + Tag = 2 + Left = 59 + Top = 40 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SLDChk: TComboBox + Tag = 2 + Left = 59 + Top = 80 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SGChk: TComboBox + Tag = 2 + Left = 59 + Top = 60 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object TSYQChk: TComboBox + Tag = 2 + Left = 59 + Top = 100 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ChkResult: TComboBox + Tag = 2 + Left = 59 + Top = 121 + Width = 67 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object Button8: TButton + Left = 65 + Top = 1 + Width = 57 + Height = 18 + Caption = #20445#23384 + TabOrder = 6 + OnClick = Button8Click + end + object CJNote: TcxRichEdit + Left = 137 + Top = 23 + Lines.Strings = ( + '') + TabOrder = 7 + Height = 117 + Width = 184 + end + object ChkNote: TMemo + Tag = 2 + Left = 5 + Top = 160 + Width = 314 + Height = 73 + TabOrder = 8 + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #32568#26465#30721'/'#33337#26679' '#30041#26679' '#38646#24067' '#22823#22359 + ImageIndex = 1 + object Label26: TLabel + Left = 9 + Top = 49 + Width = 65 + Height = 12 + Caption = #33337#26679#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 9 + Top = 97 + Width = 65 + Height = 12 + Caption = #38646#24067#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 9 + Top = 121 + Width = 65 + Height = 12 + Caption = #22823#22359#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 9 + Top = 72 + Width = 65 + Height = 12 + Caption = #30041#26679#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button7: TButton + Left = 3 + Top = 12 + Width = 68 + Height = 20 + Caption = #25171#21360#32568#26465#30721 + TabOrder = 0 + OnClick = Button7Click + end + object ChuanYangQty: TEdit + Tag = 2 + Left = 70 + Top = 45 + Width = 91 + Height = 20 + TabOrder = 1 + end + object ChuanYangUnit: TComboBox + Left = 160 + Top = 46 + Width = 49 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 2 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M') + end + object Button11: TButton + Left = 11 + Top = 148 + Width = 54 + Height = 20 + Caption = #20445#23384 + TabOrder = 3 + OnClick = Button11Click + end + object LingBuQty: TEdit + Tag = 2 + Left = 70 + Top = 93 + Width = 91 + Height = 20 + TabOrder = 4 + end + object LingBuUnit: TComboBox + Left = 160 + Top = 94 + Width = 49 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M') + end + object DaKuaiQty: TEdit + Tag = 2 + Left = 70 + Top = 117 + Width = 91 + Height = 20 + TabOrder = 6 + end + object DaKuaiUnit: TComboBox + Left = 160 + Top = 118 + Width = 49 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 7 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M') + end + object LiuYangQty: TEdit + Tag = 2 + Left = 70 + Top = 68 + Width = 91 + Height = 20 + TabOrder = 8 + end + object LiuYangUnit: TComboBox + Left = 160 + Top = 69 + Width = 49 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 9 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M') + end + end + end + object cxSplitter1: TcxSplitter + Left = 920 + Top = 0 + Width = 8 + Height = 273 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxPageControl2 + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#24405#20837 + ImageIndex = 1 + object Panel10: TPanel + Left = 0 + Top = 0 + Width = 46 + Height = 273 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Button4: TButton + Left = 1 + Top = 21 + Width = 40 + Height = 25 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = Button4Click + end + object Button5: TButton + Left = 1 + Top = 53 + Width = 40 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button5Click + end + object Button6: TButton + Left = 1 + Top = 84 + Width = 40 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = Button6Click + end + end + object ScrollBox1: TScrollBox + Left = 46 + Top = 0 + Width = 1225 + Height = 273 + Align = alClient + TabOrder = 1 + object cxGrid4: TcxGrid + Left = 0 + Top = 0 + Width = 1221 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBBandedColumn2 + end + item + Kind = skSum + Column = Tv6Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.handBlack + Styles.BandHeader = DataLink_DDMD.FontBlue + Bands = < + item + Caption = #24453#22788#29702#20179#24211 + Styles.Header = DataLink_DDMD.FoneRed + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 32 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 38 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v6Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 105 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 79 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Tag = 2 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column16PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 79 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Tag = 2 + Caption = #30133#28857#21517#31216 + DataBinding.FieldName = 'CDName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v6Column17PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 72 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + end + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 104 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 104 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 680 + Top = 31 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 704 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 1120 + Top = 216 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1152 + Top = 224 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 240 + Top = 208 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 288 + Top = 232 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 784 + Top = 464 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 752 + Top = 464 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 680 + Top = 544 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 409 + Top = 217 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 745 + Top = 257 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 833 + Top = 617 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 721 + Top = 465 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 345 + Top = 337 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 1088 + Top = 544 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 1064 + Top = 552 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1024 + Top = 543 + end + object PopupMenu1: TPopupMenu + Left = 232 + Top = 454 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 816 + Top = 464 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.pas new file mode 100644 index 0000000..1f36f72 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageST.pas @@ -0,0 +1,2556 @@ +unit U_MaDanManageST; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, RM_Common, + RM_Class, RM_GridReport, RM_System, RM_Dataset, Menus, cxSplitter; + +type + TfrmMaDanManageST = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + Panel5: TPanel; + Label9: TLabel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + Label1: TLabel; + Label2: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + PFGenDanPerson: TEdit; + MPRTCode: TEdit; + MPRTGYHZ: TEdit; + ScrollBox6: TScrollBox; + Panel3: TPanel; + Label13: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel2: TPanel; + Label21: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ScrollBox8: TScrollBox; + Panel7: TPanel; + Label23: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + Button9: TButton; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + Panel9: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel10: TPanel; + Button4: TButton; + Button5: TButton; + Button6: TButton; + cxPageControl2: TcxPageControl; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + ScrollBox2: TScrollBox; + Label4: TLabel; + Label5: TLabel; + Label10: TLabel; + Label11: TLabel; + Label14: TLabel; + Label19: TLabel; + Label20: TLabel; + Label22: TLabel; + MFChk: TComboBox; + KZChk: TComboBox; + SLDChk: TComboBox; + SGChk: TComboBox; + TSYQChk: TComboBox; + ChkResult: TComboBox; + Button8: TButton; + Button7: TButton; + Label24: TLabel; + CJNote: TcxRichEdit; + v5Column6: TcxGridDBColumn; + RMDBMain: TRMDBDataSet; + RM1: TRMGridReport; + ADOQueryPrint: TADOQuery; + Button10: TButton; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v3Column9: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + ChkNote: TMemo; + ChuanYangQty: TEdit; + Label26: TLabel; + ChuanYangUnit: TComboBox; + Button11: TButton; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + Label27: TLabel; + LingBuQty: TEdit; + LingBuUnit: TComboBox; + Label28: TLabel; + DaKuaiQty: TEdit; + DaKuaiUnit: TComboBox; + ClientDataSet8: TClientDataSet; + v3Column12: TcxGridDBColumn; + Button15: TButton; + ScrollBox1: TScrollBox; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column17: TcxGridDBBandedColumn; + Label29: TLabel; + LiuYangQty: TEdit; + LiuYangUnit: TComboBox; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v5Column12: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button8Click(Sender: TObject); + procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure Tv3Column1PropertiesEditValueChanged(Sender: TObject); + procedure v6Column8PropertiesEditValueChanged(Sender: TObject); + procedure v6Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure v6Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure Button15Click(Sender: TObject); + procedure v6Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxTabControl1Change(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + function UpdateTJCKQty(FFPFID:string):Boolean; + public + { Public declarations } + end; + +var + frmMaDanManageST: TfrmMaDanManageST; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ModuleNote,U_ZDYHelp, U_ZDYHelpSel,U_OrderInPutPrice, + U_GYSSelList; + +{$R *.dfm} + +procedure TfrmMaDanManageST.FormDestroy(Sender: TObject); +begin + frmMaDanManageST:=nil; + +end; + +procedure TfrmMaDanManageST.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageST.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ʵ뵥'); + WriteCxGrid('Tv2',Tv2,'ʵ뵥'); + WriteCxGrid('Tv3',Tv3,'ʵ뵥'); + WriteCxGrid('Tv5',Tv5,'ʵ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + close; +end; + +procedure TfrmMaDanManageST.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; +function TfrmMaDanManageST.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Result:=True; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + if Application.MessageBox('ڵ,ȷҪ¼뵥','ʾ',32+4)<>IDYES then + begin + Result:=False; + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + sql.Add(' order by CKQty'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + if ClientDataSet8.RecordCount>1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS)+',SJCKQty='+floattostr(FQty)); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=0; + FQty:=0; + ClientDataSet8.Delete; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmMaDanManageST.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',PFGenDanPerson=dbo.F_Get_Order_SubStr(A.MainId,''PFGenDanPerson'')'); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('JSFlag').AsBoolean=True then + begin + Panel10.Visible:=False; + Panel9.Visible:=False; + + Button11.Visible:=False; + Button15.Visible:=False; + end else + begin + Panel10.Visible:=True; + Panel9.Visible:=True; + + Button11.Visible:=True; + Button15.Visible:=True; + end; + CJNote.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTMFNote').AsString)+#13+ + Trim(ADOQueryTemp.fieldbyname('MPRTKZNote').AsString)+#13+ + Trim(ADOQueryTemp.fieldbyname('CJNote').AsString); + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + ChuanYangQty.Text:=Trim(ADOQueryTemp.fieldbyname('ChuanYangQty').AsString); + ChuanYangUnit.Text:=Trim(ADOQueryTemp.fieldbyname('ChuanYangUnit').AsString); + LiuYangQty.Text:=Trim(ADOQueryTemp.fieldbyname('LiuYangQty').AsString); + LiuYangUnit.Text:=Trim(ADOQueryTemp.fieldbyname('LiuYangUnit').AsString); + LingBuQty.Text:=Trim(ADOQueryTemp.fieldbyname('LingBuQty').AsString); + LingBuUnit.Text:=Trim(ADOQueryTemp.fieldbyname('LingBuUnit').AsString); + DaKuaiQty.Text:=Trim(ADOQueryTemp.fieldbyname('DaKuaiQty').AsString); + DaKuaiUnit.Text:=Trim(ADOQueryTemp.fieldbyname('DaKuaiUnit').AsString); + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(FMainId)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + //SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column8,fsj,1,True,''); + SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column2,fsj,1,True,''); + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(FMainId)+''''+ + ' and isnull(PFGenDanPerson,'''')<>'''' group by PFGenDanPerson'; + SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column1,fsj,1,True,''); + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,PRTColor=isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorNo,''''),B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName,B.FZGYNote '); + sql.Add(',Case when isnull(A.CKName,'''')='''' then '''' else '''' end as APType '); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=(select ORDMainid from JYOrder_Main_MD MD where MD.MDID=A.DiaoYongMDID))'); + //sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*, '); + sql.Add(' Case when A.MainId not like ''CM%'' then Cast(1 as bit ) else Cast(0 as bit ) end as DYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageST.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.ColorNote '); + sql.Add(',PRTColor=isnull(JS.PRTColor,'''')+'' ''+isnull(JS.PRTColorNo,'''')'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + {if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; } + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.ColorNote '); + sql.Add(',PRTColor=isnull(JS.PRTColor,'''')+'' ''+isnull(JS.PRTColorNo,'''')'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + {if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; } + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + {if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ClotheType,'''')<>''Ʒ'' '); + v6Column7.Options.Focusing:=True; + end else + begin + v6Column7.Options.Focusing:=False; + sql.Add(' and isnull(ClotheType,'''')=''Ʒ'' '); + end; } + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmMaDanManageST.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡɹӹͬ!','ʾ',0); + Exit; + end; + end else + begin + if Trim(ClientDataSet1.fieldbyname('DataType').AsString)='Χ' then + begin + Application.MessageBox('Χݣֹʵ뵥!','ʾ',0); + Exit; + end; + end; + + + + + with ClientDataSet3 do + begin + Append; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + ClientDataSet5.Locate('SSel',True,[]); + end; + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + FieldByName('MDDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet1.fieldbyname('PFTPUnit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColor').Value:=ClientDataSet1.fieldbyname('PRTColor').Value; + FieldByName('BatchNo').Value:=ClientDataSet1.fieldbyname('BatchNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageST.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID,ConType,fsj:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub A'+ + ' inner join JYOrder_Process B on A.PSID=B.PSID'+ + ' where A.MainId='''+Trim(FMainId)+''' and B.PSXH in('+ + Trim(ClientDataSet2.fieldbyname('PSXH').AsString)+','+ + inttostr(ClientDataSet2.fieldbyname('PSXH').AsInteger+1)+ + ' ) group by FactoryNo,FactoryName'; //and isnull(FactoryNo,'''')<>'''' + //ShowMessage(fsj); + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,PRTColor=isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorNo,''''),B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName,B.FZGYNote '); + sql.Add(',Case when isnull(A.CKName,'''')='''' then '''' else '''' end as APType '); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=(select ORDMainid from JYOrder_Main_MD MD where MD.MDID=A.DiaoYongMDID))'); + //sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + InitGrid(); + if Mvalue=True then + begin + ClientDataSet2.Locate('SSel',True,[]); + ConType:=Trim(ClientDataSet2.fieldbyname('PSName').AsString); + end else + begin + ConType:=''; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*, '); + sql.Add(' Case when A.MainId not like ''CM%'' then Cast(1 as bit ) else Cast(0 as bit ) end as DYFlag , '); + Sql.Add(' Case when isnull(A.JYType,'''')<>'''' then Cast(1 as bit) else Cast(0 as bit) end as JYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + if Trim(ConType)<>'' then + begin + sql.Add(' and A.ConType='''+Trim(ConType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); +end; + +procedure TfrmMaDanManageST.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageST.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageST.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID,maxCJNO,FAPType:string; +begin + Panel9.SetFocus; + if ClientDataSet3.IsEmpty then Exit; + if Tv3.GroupedItemCount<>0 then + begin + Application.MessageBox('˸ʽܱ!ѻܿеĿ!','ʾ',0); + Exit; + end; + //if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + end; + end; + if ClientDataSet3.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('MDDate',null,[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + {f ClientDataSet3.Locate('MDDate','',[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end;} + if ClientDataSet3.Locate('FromFactoryName',null,[])=True then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + {if ClientDataSet3.Locate('SelfGangNo',null,[])=True then + begin + Application.MessageBox('׺ŲΪ!','ʾ',0); + Exit; + end;} + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + FAPType:=Trim(ClientDataSet1.fieldbyname('APType').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + {if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; } + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + if Trim(ClientDataSet3.fieldbyname('FZQty').AsString)='' then + begin + FieldByName('FZQty').Value:=0; + end else + begin + FieldByName('FZQty').Value:=ClientDataSet3.fieldbyname('FZQty').Value; + end; + + if ClientDataSet3.FieldByName('NotPrint').AsBoolean=True then + begin + FieldByName('NotPrint').Value:=1; + end else + begin + FieldByName('NotPrint').Value:=0; + end; + if ClientDataSet3.FieldByName('FirstGangFlag').AsBoolean=True then + begin + FieldByName('FirstGangFlag').Value:=1; + end else + begin + FieldByName('FirstGangFlag').Value:=0; + end; + if ClientDataSet3.FieldByName('HXFlag').AsBoolean=True then + begin + FieldByName('HXFlag').Value:=1; + end else + begin + FieldByName('HXFlag').Value:=0; + end; + if Trim(FAPType)='' then + begin + FieldByName('MDNO').Value:='DC'+Trim(maxno); + end else + begin + FieldByName('MDNO').Value:='MD'+Trim(maxno); + end; + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + FieldByName('BatchNo').Value:=Trim(ClientDataSet3.fieldbyname('BatchNo').AsString); + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FieldByName('ConCode').Value:=ClientDataSet5.fieldbyname('C_Code').Value; + FieldByName('ConName').Value:=ClientDataSet5.fieldbyname('C_CodeName').Value; + FieldByName('ConSpec').Value:=ClientDataSet5.fieldbyname('C_Spec').Value; + FieldByName('ConCF').Value:=ClientDataSet5.fieldbyname('C_CF').Value; + FieldByName('ConMF').Value:=ClientDataSet5.fieldbyname('MFQty').AsString; + FieldByName('ConKZ').Value:=ClientDataSet5.fieldbyname('KZQty').AsString; + FieldByName('ConPrice').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + Post; + end; + if Trim(ClientDataSet1.fieldbyname('BatchNo').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add('ConName=(select ConName from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConSpec=(select ConSpec from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConCF=(select ConCF from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConMF=(select ConMF from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConKZ=(select ConKZ from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''')'); + //sql.Add('ConPrice=(select ConName from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + SQL.Add(' where MDID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add('ConName=(select Top 1 SPName from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConSpec=(select Top 1 SPSpec from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConCF=(select Top 1 SPCF from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConMF=(select Top 1 SPMF from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConKZ=(select Top 1 SPKZ from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConPrice=(select Top 1 CostPrice from CK_SXPB_CR A '); + sql.Add(' where A.BatchNO='''+Trim(ClientDataSet1.fieldbyname('BatchNO').AsString)+''' order by CRTime desc)'); + SQL.Add(' where MDID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where OrdSubId='''+Trim(OrdSubId)+''''); + sql.Add(' and SelfGangNo='''+Trim(ClientDataSet3.fieldbyname('SelfGangNo').AsString)+''''); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + if Application.MessageBox(Pchar('׺<'+Trim(ClientDataSet3.fieldbyname('SelfGangNo').AsString)+'>ظȷҪ'),'ʾ',32+4)<>IDYES then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select QtyUnit from JYOrder_Main_MD where PFID='''+Trim(PFID)+''''); + sql.Add(' and isnull(CKName,'''')='''' '); + sql.Add(' Group by QtyUnit'); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('λһ£ܱ!','ʾ',0); + Exit; + end; + + Edit; + FieldByName('MDID').Value:=Trim(maxno); + if Trim(FAPType)='' then + begin + FieldByName('MDNO').Value:='DC'+Trim(maxno); + end else + begin + FieldByName('MDNO').Value:='MD'+Trim(maxno); + end; + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + + if Trim(ClientDataSet1.fieldbyname('APType').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set DiaoYongCKPS=(select isnull(Sum(PS),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(',DiaoYongCKQty=(select isnull(Sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(' where PFID='''+Trim(PFID)+''''); + ExecSQL; + end; + if Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select isnull(Sum(DiaoYongCKPS),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select isnull(Sum(DiaoYongCKQty),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD '); + sql.Add(' where MDID='''+Trim(ClientDataSet1.fieldbyname('DiaoYongMDID').AsString)+''''); + sql.Add(' and Qty'' then + begin + if ClientDataSet3.FieldByName('HCFlag').AsBoolean=True then + begin + Application.MessageBox('Ѻ˲飬ɾ!','ʾ',0); + Exit; + end; + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY where APID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + {if Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if Trim(ADOQueryTemp.fieldbyname('CKName').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set DiaoYongCKPS=(select isnull(Sum(PS),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(',DiaoYongCKQty=(select isnull(Sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + if Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select isnull(Sum(DiaoYongCKPS),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select isnull(Sum(DiaoYongCKQty),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; + end else + begin + ClientDataSet3.Delete; + end; +end; + +procedure TfrmMaDanManageST.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡɹӹͬ!','ʾ',0); + Exit; + end; + end; + with ClientDataSet6 do + begin + Append; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + ClientDataSet5.Locate('SSel',True,[]); + end; + + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + end else + begin + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + end; + + + + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet1.fieldbyname('PFTPUnit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MDDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColor').Value:=ClientDataSet1.fieldbyname('PRTColor').Value; + FieldByName('BatchNo').Value:=ClientDataSet1.fieldbyname('BatchNo').Value; + { if cxTabControl1.TabIndex=0 then + begin + v6Column7.Options.Focusing:=True; + end else + begin + v6Column7.Options.Focusing:=False; + FieldByName('ClotheType').Value:='Ʒ'; + end;} + Post; + end; +end; + +procedure TfrmMaDanManageST.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѿòɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if ClientDataSet6.FieldByName('HCFlag').AsBoolean=True then + begin + Application.MessageBox('Ѻ˲飬ɾ!','ʾ',0); + Exit; + end; + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + if Trim(ClientDataSet6.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet6.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet6.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageST.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Tv6.GroupedItemCount<>0 then + begin + Application.MessageBox('˸ʽܱ!ѻܿеĿ!','ʾ',0); + Exit; + end; + //if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + { if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; } + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + end; + end; + if ClientDataSet6.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ŵص㲻Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('MDDate',null,[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + {if ClientDataSet6.Locate('MDDate','',[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; } + if ClientDataSet6.Locate('ToFactoryName','',[])=True then + begin + Application.MessageBox('ŵص㲻Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('DutyReason',null,[])=True then + begin + Application.MessageBox('ԭΪ!','ʾ',0); + Exit; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + {if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; } + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='TJ'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('ToFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('DutyFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + if ClientDataSet6.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + FieldByName('OtherOrdFlag').Value:=1; + end else + begin + FieldByName('OtherOrdFlag').Value:=0; + end; + if ClientDataSet6.FieldByName('CiPinFlag').AsBoolean=True then + begin + FieldByName('CiPinFlag').Value:=1; + end else + begin + FieldByName('CiPinFlag').Value:=0; + end; + FieldByName('RKDate').Value:=ClientDataSet6.fieldbyname('MDDate').Value; + FieldByName('RKPS').Value:=ClientDataSet6.fieldbyname('PS').Value; + FieldByName('RKQty').Value:=ClientDataSet6.fieldbyname('Qty').Value; + FieldByName('RKQtyUnit').Value:=ClientDataSet6.fieldbyname('QtyUnit').Value; + if Trim(ClientDataSet6.fieldbyname('ClotheType').AsString)<>'Ʒ' then + begin + FieldByName('Status').Value:='ȷ'; + FieldByName('LiYongXS').Value:=1; + end; + FieldByName('BatchNo').Value:=ClientDataSet6.fieldbyname('BatchNo').Value; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FieldByName('ConCode').Value:=ClientDataSet5.fieldbyname('C_Code').Value; + FieldByName('ConName').Value:=ClientDataSet5.fieldbyname('C_CodeName').Value; + FieldByName('ConSpec').Value:=ClientDataSet5.fieldbyname('C_Spec').Value; + FieldByName('ConCF').Value:=ClientDataSet5.fieldbyname('C_CF').Value; + FieldByName('ConMF').Value:=ClientDataSet5.fieldbyname('MFQty').AsString; + FieldByName('ConKZ').Value:=ClientDataSet5.fieldbyname('KZQty').AsString; + FieldByName('ConPrice').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + Post; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select QtyUnit from JYOrder_Main_MD where PFID='''+Trim(PFID)+''''); + sql.Add(' and isnull(CKName,'''')<>'''' '); + sql.Add(' Group by QtyUnit'); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet6.EnableControls; + Application.MessageBox('λһ£ܱ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='TJ'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + if Trim(ClientDataSet6.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(PFID)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')'); + sql.Add(' where PFID='''+Trim(PFID)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageST.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageST.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageST.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmMaDanManageST.Button8Click(Sender: TObject); +var + maxCJNO:String; +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)='' then + begin + Application.MessageBox('뵥δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrder_Main_MD',ScrollBox2,2); + FieldByName('ChkResultPerson').Value:=Trim(DName); + FieldByName('ChkResultDateTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ChkNote').Value:=Trim(ChkNote.Text); + Post; + end; + //ű + if Trim(ChkResult.Text)='ϸ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_CJ where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,maxCJNO,'CJ','JYOrder_Main_MD_CJ',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main_MD_CJ where CJID='''+Trim(maxCJNO)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CJID').Value:=Trim(maxCJNO); + FieldByName('MDID').Value:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + end; + + end; + //ű + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet3 do + begin + Edit; + FieldByName('ChkResult').Value:=Trim(ChkResult.Text); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ݱ쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageST.Tv3FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + i:Integer; +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox2,2); + with ScrollBox2 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TComboBox then + begin + if Trim(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString)<>'' then + begin + TComboBox(Controls[i]).ItemIndex:=TComboBox(Controls[i]).Items.IndexOf(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString) + end else + begin + TComboBox(Controls[i]).ItemIndex:=-1; + end; + end; + end; + end; + + ChkNote.Text:=Trim(ADOQuery1.fieldbyname('ChkNote').AsString); + +end; + +procedure TfrmMaDanManageST.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*, '); + sql.Add(' Case when A.MainId not like ''CM%'' then Cast(1 as bit ) else Cast(0 as bit ) end as DYFlag, '); + Sql.Add(' Case when isnull(A.JYType,'''')<>'''' then Cast(1 as bit) else Cast(0 as bit) end as JYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'װ' then + begin + if Trim(ClientDataSet1.fieldbyname('APType').AsString)='' then + begin + sql.Add(' and (A.MainId not like ''CM%'' or isnull(A.JYType,'''')<>'''') '); + end else + begin + //sql.Add(' and A.MainId like ''CM%'' '); + end; + end; + + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*, '); + sql.Add(' Case when A.MainId not like ''CM%'' then Cast(1 as bit ) else Cast(0 as bit ) end as DYFlag, '); + Sql.Add(' Case when isnull(A.JYType,'''')<>'''' then Cast(1 as bit) else Cast(0 as bit) end as JYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + //sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + end; + InitGrid(); +end; + +procedure TfrmMaDanManageST.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; } + if ClientDataSet6.IsEmpty then Exit; + if ClientDataSet6.fieldbyname('HCFlag').AsBoolean=True then + begin + Tv6.OptionsSelection.CellSelect:=False; + Exit; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(ClientDataSet6.fieldbyname('CRFlag').AsString)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageST.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + i:Integer; +begin + if ClientDataSet3.fieldbyname('HCFlag').AsBoolean=True then + begin + v3Column1.Options.Focusing:=False; + cxGridDBColumn2.Options.Focusing:=False; + cxGridDBColumn3.Options.Focusing:=False; + cxGridDBColumn7.Options.Focusing:=False; + cxGridDBColumn11.Options.Focusing:=False; + cxGridDBColumn14.Options.Focusing:=False; + cxGridDBColumn12.Options.Focusing:=False; + Tv3Column1.Options.Focusing:=False; + //v3Column5.Options.Focusing:=False; + // v3Column7.Options.Focusing:=False; + Exit; + end else + begin + v3Column1.Options.Focusing:=True; + cxGridDBColumn2.Options.Focusing:=True; + cxGridDBColumn3.Options.Focusing:=True; + cxGridDBColumn7.Options.Focusing:=True; + cxGridDBColumn11.Options.Focusing:=True; + cxGridDBColumn14.Options.Focusing:=True; + cxGridDBColumn12.Options.Focusing:=True; + Tv3Column1.Options.Focusing:=True; + v3Column5.Options.Focusing:=True; + v3Column7.Options.Focusing:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + v3Column1.Options.Focusing:=False; + cxGridDBColumn2.Options.Focusing:=False; + cxGridDBColumn3.Options.Focusing:=False; + cxGridDBColumn7.Options.Focusing:=False; + cxGridDBColumn11.Options.Focusing:=False; + cxGridDBColumn14.Options.Focusing:=False; + cxGridDBColumn12.Options.Focusing:=False; + Tv3Column1.Options.Focusing:=False; + //v3Column5.Options.Focusing:=False; + //v3Column7.Options.Focusing:=False; + end else + begin + v3Column1.Options.Focusing:=True; + cxGridDBColumn2.Options.Focusing:=True; + cxGridDBColumn3.Options.Focusing:=True; + cxGridDBColumn7.Options.Focusing:=True; + cxGridDBColumn11.Options.Focusing:=True; + cxGridDBColumn14.Options.Focusing:=True; + cxGridDBColumn12.Options.Focusing:=True; + Tv3Column1.Options.Focusing:=True; + v3Column5.Options.Focusing:=True; + v3Column7.Options.Focusing:=True; + end; +end; + +procedure TfrmMaDanManageST.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv111',Tv1,'ʵ뵥'); + ReadCxGrid('Tv2',Tv2,'ʵ뵥'); + ReadCxGrid('Tv3',Tv3,'ʵ뵥'); + ReadCxGrid('Tv5',Tv5,'ʵ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + cxPageControl1.ActivePageIndex:=0; + cxPageControl2.ActivePageIndex:=0; +end; + +procedure TfrmMaDanManageST.Button9Click(Sender: TObject); +begin + WriteCxGrid('Tv111',Tv1,'ʵ뵥'); + WriteCxGrid('Tv2',Tv2,'ʵ뵥'); + WriteCxGrid('Tv3',Tv3,'ʵ뵥'); + WriteCxGrid('Tv5',Tv5,'ʵ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + close; +end; + +procedure TfrmMaDanManageST.Tv3Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv3Column1.Properties as TcxComboBoxProperties).Items.Objects[(Tv3Column1.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMaDanManageST.v6Column8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + { mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((v6Column8.Properties as TcxComboBoxProperties).Items.Objects[(v6Column8.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end; } + +end; + +procedure TfrmMaDanManageST.v6Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryName').Value:=Trim(mvalue); + fsj:=TA((v6Column2.Properties as TcxComboBoxProperties).Items.Objects[(v6Column2.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('DutyFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMaDanManageST.Button7Click(Sender: TObject); +var + fPrintFile:String; +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('ChkResult').AsString)<>'ϸ' then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('鲻ϸܴӡ!','ʾ',0); + Exit; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + ClientDataSet3.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + ClientDataSet3.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + ClientDataSet3.EnableControls; +end; + +procedure TfrmMaDanManageST.Button10Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ֿ뵥¼'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMaDanManageST.v6Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DutyReason'; + flagname:='ԭ'; + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyReason').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMaDanManageST.N1Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,True); +end; + +procedure TfrmMaDanManageST.N2Click(Sender: TObject); +begin + SelOKNo(ClientDataSet3,False); +end; + +procedure TfrmMaDanManageST.Button11Click(Sender: TObject); +var + FReal:Double; +begin + if Trim(FMainId)='' then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if Trim(ChuanYangQty.Text)='' then + begin + ChuanYangQty.Text:='0'; + end; + if TryStrToFloat(ChuanYangQty.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + if Trim(LiuYangQty.Text)='' then + begin + LiuYangQty.Text:='0'; + end; + if TryStrToFloat(LiuYangQty.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + if Trim(LingBuQty.Text)='' then + begin + LingBuQty.Text:='0'; + end; + if TryStrToFloat(LingBuQty.Text,FReal)=False then + begin + Application.MessageBox('㲼Ƿ!','ʾ',0); + Exit; + end; + if Trim(DaKuaiQty.Text)='' then + begin + DaKuaiQty.Text:='0'; + end; + if TryStrToFloat(DaKuaiQty.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update JYOrder_Main Set ChuanYangQty='+Trim(ChuanYangQty.Text)); + sql.Add(',ChuanYangUnit='''+Trim(ChuanYangUnit.Text)+''''); + sql.Add(',LiuYangQty='+Trim(LiuYangQty.Text)); + sql.Add(',LiuYangUnit='''+Trim(LiuYangUnit.Text)+''''); + sql.Add(',LingBuQty='+Trim(LingBuQty.Text)); + sql.Add(',LingBuUnit='''+Trim(LingBuUnit.Text)+''''); + sql.Add(',DaKuaiQty='+Trim(DaKuaiQty.Text)); + sql.Add(',DaKuaiUnit='''+Trim(DaKuaiUnit.Text)+''''); + sql.Add(' where Mainid='''+Trim(FMainId)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageST.Button15Click(Sender: TObject); +begin + if Trim(OrderNo.Text)='' then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.FMainId); + FOrderNo:=Trim(Self.OrderNo.Text); + {cxTabSheet1.Caption:=''; + cxTabSheet1.Enabled:=False; + cxTabSheet2.Caption:=''; + cxTabSheet2.Enabled:=False; } + FST:='ֿ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmMaDanManageST.v6Column16PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('RKYongTu').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMaDanManageST.v6Column17PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CDName'; + flagname:='õ'; + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('CDName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMaDanManageST.cxTabControl1Change(Sender: TObject); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + {if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ClotheType,'''')<>''Ʒ'' '); + v6Column7.Options.Focusing:=True; + end else + begin + v6Column7.Options.Focusing:=False; + sql.Add(' and isnull(A.ClotheType,'''')=''Ʒ'' '); + end; } + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.dfm new file mode 100644 index 0000000..00c2d4c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.dfm @@ -0,0 +1,1693 @@ +object frmMaDanManageSTBAK: TfrmMaDanManageSTBAK + Left = 113 + Top = 48 + Width = 1287 + Height = 715 + Caption = #30721#21333#24405#20837'('#23454#20307')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1271 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1271 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 16 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 65 + Width = 1271 + Height = 264 + Align = alTop + TabOrder = 2 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 585 + Height = 260 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 120 + Width = 581 + Height = 19 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 7 + Top = 3 + Width = 60 + Height = 14 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 581 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 60 + Height = 14 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 139 + Width = 581 + Height = 117 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 89 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 85 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 290 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 0 + Top = 25 + Width = 581 + Height = 95 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label12: TLabel + Left = 200 + Top = 30 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 391 + Top = 30 + Width = 67 + Height = 12 + Caption = #20811' '#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 200 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 8 + Top = 32 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 391 + Top = 53 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 391 + Top = 9 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 8 + Top = 53 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 8 + Top = 77 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 200 + Top = 53 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 456 + Top = 49 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 70 + Top = 27 + Width = 120 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 456 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 260 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 456 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 71 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 6 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 5 + Width = 82 + Height = 20 + TabOrder = 7 + end + object MPRTGY: TEdit + Tag = 2 + Left = 153 + Top = 5 + Width = 37 + Height = 20 + TabOrder = 8 + end + object PFGenDanPerson: TEdit + Left = 70 + Top = 73 + Width = 507 + Height = 20 + TabOrder = 9 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 260 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 10 + end + end + end + object ScrollBox6: TScrollBox + Left = 585 + Top = 0 + Width = 682 + Height = 260 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 119 + Width = 678 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 90 + Height = 14 + Caption = #35746#21333#26126#32454#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 24 + Width = 678 + Height = 95 + Align = alTop + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 73 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 678 + Height = 24 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 14 + Top = 4 + Width = 90 + Height = 14 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Tag = 2 + Left = 149 + Top = 2 + Width = 168 + Height = 20 + TabOrder = 0 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 139 + Width = 678 + Height = 117 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 329 + Width = 1271 + Height = 347 + Align = alClient + TabOrder = 3 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 343 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 21 + Width = 49 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 53 + Width = 49 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 84 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 186 + Width = 49 + Height = 25 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 218 + Width = 49 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 249 + Width = 49 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button6Click + end + end + object Panel6: TPanel + Left = 57 + Top = 0 + Width = 1210 + Height = 343 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid4: TcxGrid + Left = 2 + Top = 171 + Width = 1206 + Height = 170 + Align = alClient + TabOrder = 0 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 119 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column8PropertiesButtonClick + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object ScrollBox5: TScrollBox + Left = 2 + Top = 2 + Width = 1206 + Height = 169 + Align = alTop + TabOrder = 1 + object ScrollBox2: TScrollBox + Left = 0 + Top = 0 + Width = 876 + Height = 165 + Align = alLeft + TabOrder = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 872 + Height = 161 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv3FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v3Column5: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v3Column6: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Width = 49 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object ScrollBox7: TScrollBox + Left = 876 + Top = 0 + Width = 326 + Height = 165 + Align = alClient + TabOrder = 1 + object Label4: TLabel + Left = 2 + Top = 1 + Width = 51 + Height = 16 + Caption = #21021#26816#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 120 + Top = 3 + Width = 51 + Height = 16 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 4 + Top = 24 + Width = 48 + Height = 12 + Caption = #38376' '#24133 + end + object Label11: TLabel + Left = 4 + Top = 48 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label14: TLabel + Left = 4 + Top = 96 + Width = 48 + Height = 12 + Caption = #33394' '#29282' '#24230 + end + object Label19: TLabel + Left = 4 + Top = 72 + Width = 48 + Height = 12 + Caption = #25163' '#24863 + end + object Label20: TLabel + Left = 4 + Top = 120 + Width = 48 + Height = 12 + Caption = #29305#27530#35201#27714 + end + object Label22: TLabel + Left = 4 + Top = 144 + Width = 52 + Height = 12 + Caption = #21021#26816#32467#26524 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ChkNote: TcxRichEdit + Tag = 2 + Left = 121 + Top = 21 + Lines.Strings = ( + '') + TabOrder = 0 + Height = 139 + Width = 169 + end + object Button7: TButton + Left = 224 + Top = 1 + Width = 65 + Height = 20 + Caption = #25171#21360#32568#26465#30721 + TabOrder = 1 + end + object MFChk: TComboBox + Tag = 2 + Left = 59 + Top = 20 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object KZChk: TComboBox + Tag = 2 + Left = 59 + Top = 44 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SLDChk: TComboBox + Tag = 2 + Left = 59 + Top = 92 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SGChk: TComboBox + Tag = 2 + Left = 59 + Top = 68 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object TSYQChk: TComboBox + Tag = 2 + Left = 59 + Top = 116 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ChkResult: TComboBox + Tag = 2 + Left = 59 + Top = 140 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object Button8: TButton + Left = 59 + Top = 1 + Width = 57 + Height = 18 + Caption = #20445#23384 + TabOrder = 8 + OnClick = Button8Click + end + end + end + end + end + object cxGrid6: TcxGrid + Left = 56 + Top = 59 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 104 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 104 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 568 + Top = 31 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 600 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 976 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1016 + Top = 240 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 216 + Top = 248 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 816 + Top = 456 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 776 + Top = 424 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 784 + Top = 544 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 329 + Top = 257 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 745 + Top = 257 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 817 + Top = 129 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 873 + Top = 409 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 849 + Top = 617 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.pas new file mode 100644 index 0000000..7a3d39e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBAK.pas @@ -0,0 +1,1223 @@ +unit U_MaDanManageSTBAK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmMaDanManageSTBAK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Panel2: TPanel; + Label1: TLabel; + v5Column8: TcxGridDBColumn; + Panel3: TPanel; + Label2: TLabel; + Panel5: TPanel; + Label9: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v2Column2: TcxGridDBColumn; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + ScrollBox1: TScrollBox; + Panel8: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Panel6: TPanel; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + Edit1: TEdit; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + v5Column9: TcxGridDBColumn; + Button4: TButton; + Button5: TButton; + Button6: TButton; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + v6Column7: TcxGridDBBandedColumn; + ScrollBox5: TScrollBox; + ScrollBox2: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column5: TcxGridDBColumn; + ScrollBox7: TScrollBox; + Label4: TLabel; + Label5: TLabel; + Label10: TLabel; + Label11: TLabel; + Label14: TLabel; + Label19: TLabel; + Label20: TLabel; + Label22: TLabel; + ChkNote: TcxRichEdit; + Button7: TButton; + MFChk: TComboBox; + KZChk: TComboBox; + SLDChk: TComboBox; + SGChk: TComboBox; + TSYQChk: TComboBox; + ChkResult: TComboBox; + Button8: TButton; + MPRTCode: TEdit; + MPRTGY: TEdit; + PFGenDanPerson: TEdit; + Label18: TLabel; + Label21: TLabel; + LiDanPerson: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button8Click(Sender: TObject); + procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMaDanManageSTBAK: TfrmMaDanManageSTBAK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList; + +{$R *.dfm} + +procedure TfrmMaDanManageSTBAK.FormDestroy(Sender: TObject); +begin + frmMaDanManageSTBAK:=nil; + +end; + +procedure TfrmMaDanManageSTBAK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageSTBAK.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ʵ뵥'); + WriteCxGrid('Tv2',Tv2,'ʵ뵥'); + WriteCxGrid('Tv3',Tv3,'ʵ뵥'); + WriteCxGrid('Tv5',Tv5,'ʵ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + close; +end; + +procedure TfrmMaDanManageSTBAK.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMaDanManageSTBAK.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',PFGenDanPerson=dbo.F_Get_Order_SubStr(A.MainId,''PFGenDanPerson'')'); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageSTBAK.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmMaDanManageSTBAK.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet3 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageSTBAK.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + InitGrid(); +end; + +procedure TfrmMaDanManageSTBAK.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageSTBAK.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBAK.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + except + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBAK.FormCreate(Sender: TObject); +begin + SParameters1:=Trim(DParameters1); +end; + +procedure TfrmMaDanManageSTBAK.Button2Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet3.Delete; +end; + +procedure TfrmMaDanManageSTBAK.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + with ClientDataSet6 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageSTBAK.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').asstring)='' then + begin + Application.MessageBox('Ѿⲻɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageSTBAK.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PSID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBAK.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBAK.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBAK.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBAK.Button8Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)='' then + begin + Application.MessageBox('뵥δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrder_Main_MD',ScrollBox7,2); + FieldByName('ChkResultPerson').Value:=Trim(DName); + FieldByName('ChkResultDateTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ChkNote').Value:=Trim(ChkNote.Text); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ݱ쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBAK.Tv3FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + i:Integer; +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox7,2); + with ScrollBox7 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TComboBox then + begin + if Trim(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString)<>'' then + begin + TComboBox(Controls[i]).ItemIndex:=TComboBox(Controls[i]).Items.IndexOf(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString) + end else + begin + TComboBox(Controls[i]).ItemIndex:=-1; + end; + end; + end; + end; + +{ if Trim(ADOQuery1.fieldbyname('MFChk').AsString)<>'' then + begin + MFChk.ItemIndex:=MFChk.Items.IndexOf(ADOQuery1.fieldbyname('MFChk').AsString) + end else + begin + MFChk.ItemIndex:=-1; + end; } + ChkNote.Text:=Trim(ADOQuery1.fieldbyname('ChkNote').AsString); +end; + +procedure TfrmMaDanManageSTBAK.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageSTBAK.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; } + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.fieldbyname('CRFlag').AsString)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageSTBAK.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageSTBAK.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv1',Tv1,'ʵ뵥'); + ReadCxGrid('Tv2',Tv2,'ʵ뵥'); + ReadCxGrid('Tv3',Tv3,'ʵ뵥'); + ReadCxGrid('Tv5',Tv5,'ʵ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'ʵ뵥'); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.dfm new file mode 100644 index 0000000..03824d0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.dfm @@ -0,0 +1,1742 @@ +object frmMaDanManageSTBak2: TfrmMaDanManageSTBak2 + Left = 4 + Top = 13 + Width = 1287 + Height = 715 + Caption = #30721#21333#24405#20837'('#23454#20307')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1271 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1271 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 16 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button9: TButton + Left = 571 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button9Click + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 383 + Width = 1271 + Height = 293 + Align = alClient + TabOrder = 2 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 289 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label24: TLabel + Left = 4 + Top = 164 + Width = 48 + Height = 12 + Caption = '--------' + end + object Button1: TButton + Left = 4 + Top = 21 + Width = 49 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 53 + Width = 49 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 84 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 186 + Width = 49 + Height = 25 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 218 + Width = 49 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 249 + Width = 49 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button6Click + end + end + object Panel6: TPanel + Left = 57 + Top = 0 + Width = 1210 + Height = 289 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid4: TcxGrid + Left = 2 + Top = 171 + Width = 1206 + Height = 116 + Align = alClient + TabOrder = 0 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 119 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column8PropertiesButtonClick + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object ScrollBox5: TScrollBox + Left = 2 + Top = 2 + Width = 1206 + Height = 169 + Align = alTop + TabOrder = 1 + object ScrollBox2: TScrollBox + Left = 0 + Top = 0 + Width = 876 + Height = 165 + Align = alLeft + TabOrder = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 872 + Height = 161 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv3FocusedRecordChanged + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v3Column5: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v3Column6: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Width = 49 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object ScrollBox7: TScrollBox + Left = 876 + Top = 0 + Width = 326 + Height = 165 + Align = alClient + TabOrder = 1 + object Label4: TLabel + Left = 2 + Top = 1 + Width = 51 + Height = 16 + Caption = #21021#26816#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 120 + Top = 3 + Width = 51 + Height = 16 + Caption = #22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 4 + Top = 24 + Width = 48 + Height = 12 + Caption = #38376' '#24133 + end + object Label11: TLabel + Left = 4 + Top = 48 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label14: TLabel + Left = 4 + Top = 96 + Width = 48 + Height = 12 + Caption = #33394' '#29282' '#24230 + end + object Label19: TLabel + Left = 4 + Top = 72 + Width = 48 + Height = 12 + Caption = #25163' '#24863 + end + object Label20: TLabel + Left = 4 + Top = 120 + Width = 48 + Height = 12 + Caption = #29305#27530#35201#27714 + end + object Label22: TLabel + Left = 4 + Top = 144 + Width = 52 + Height = 12 + Caption = #21021#26816#32467#26524 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ChkNote: TcxRichEdit + Tag = 2 + Left = 121 + Top = 21 + Lines.Strings = ( + '') + TabOrder = 0 + Height = 139 + Width = 169 + end + object Button7: TButton + Left = 224 + Top = 1 + Width = 65 + Height = 20 + Caption = #25171#21360#32568#26465#30721 + TabOrder = 1 + end + object MFChk: TComboBox + Tag = 2 + Left = 59 + Top = 20 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object KZChk: TComboBox + Tag = 2 + Left = 59 + Top = 44 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SLDChk: TComboBox + Tag = 2 + Left = 59 + Top = 92 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object SGChk: TComboBox + Tag = 2 + Left = 59 + Top = 68 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object TSYQChk: TComboBox + Tag = 2 + Left = 59 + Top = 116 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object ChkResult: TComboBox + Tag = 2 + Left = 59 + Top = 140 + Width = 59 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + Items.Strings = ( + #21512#26684 + #19981#21512#26684 + '') + end + object Button8: TButton + Left = 59 + Top = 1 + Width = 57 + Height = 18 + Caption = #20445#23384 + TabOrder = 8 + OnClick = Button8Click + end + end + end + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 65 + Width = 1271 + Height = 318 + Align = alTop + TabOrder = 3 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 1267 + Height = 314 + Align = alClient + TabOrder = 0 + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1263 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 52 + Height = 12 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel4: TPanel + Left = 0 + Top = 20 + Width = 1263 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label12: TLabel + Left = 385 + Top = 12 + Width = 39 + Height = 12 + Caption = #38376#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 468 + Top = 12 + Width = 39 + Height = 12 + Caption = #20811#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 196 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 828 + Top = 32 + Width = 39 + Height = 12 + Caption = #35268#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 196 + Top = 32 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 828 + Top = 12 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 565 + Top = 12 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 385 + Top = 32 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 565 + Top = 32 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 8 + Top = 32 + Width = 39 + Height = 12 + Caption = #24037#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 256 + Top = 28 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 256 + Top = 8 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 864 + Top = 28 + Width = 237 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 864 + Top = 8 + Width = 236 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 418 + Top = 8 + Width = 49 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 503 + Top = 8 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 624 + Top = 8 + Width = 200 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 445 + Top = 28 + Width = 114 + Height = 20 + TabOrder = 7 + end + object PFGenDanPerson: TEdit + Left = 624 + Top = 28 + Width = 200 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 8 + Width = 82 + Height = 20 + TabOrder = 9 + end + object MPRTGY: TEdit + Tag = 2 + Left = 153 + Top = 8 + Width = 37 + Height = 20 + TabOrder = 10 + end + object Edit1: TEdit + Tag = 2 + Left = 41 + Top = 28 + Width = 150 + Height = 20 + TabOrder = 11 + end + end + object ScrollBox6: TScrollBox + Left = 0 + Top = 76 + Width = 610 + Height = 234 + Align = alLeft + TabOrder = 2 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 606 + Height = 26 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 5 + Top = 5 + Width = 52 + Height = 12 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 26 + Width = 606 + Height = 94 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 295 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 120 + Width = 606 + Height = 26 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label21: TLabel + Left = 5 + Top = 6 + Width = 78 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 146 + Width = 606 + Height = 84 + Align = alClient + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object ScrollBox8: TScrollBox + Left = 610 + Top = 76 + Width = 653 + Height = 234 + Align = alClient + TabOrder = 3 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 649 + Height = 26 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label23: TLabel + Left = 12 + Top = 6 + Width = 78 + Height = 12 + Caption = #35746#21333#23433#25490#20449#24687 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 26 + Width = 649 + Height = 204 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + end + object cxGrid6: TcxGrid + Left = 56 + Top = 59 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 104 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 104 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 31 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 704 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 976 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1016 + Top = 240 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 216 + Top = 248 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 448 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 776 + Top = 424 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 784 + Top = 544 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 409 + Top = 217 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 745 + Top = 257 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 833 + Top = 617 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 721 + Top = 465 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 345 + Top = 337 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.pas new file mode 100644 index 0000000..60d1b0c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageSTBak2.pas @@ -0,0 +1,1238 @@ +unit U_MaDanManageSTBak2; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmMaDanManageSTBak2 = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ScrollBox1: TScrollBox; + Panel8: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Panel6: TPanel; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + Button4: TButton; + Button5: TButton; + Button6: TButton; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + v6Column7: TcxGridDBBandedColumn; + ScrollBox5: TScrollBox; + ScrollBox2: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column5: TcxGridDBColumn; + ScrollBox7: TScrollBox; + Label4: TLabel; + Label5: TLabel; + Label10: TLabel; + Label11: TLabel; + Label14: TLabel; + Label19: TLabel; + Label20: TLabel; + Label22: TLabel; + ChkNote: TcxRichEdit; + Button7: TButton; + MFChk: TComboBox; + KZChk: TComboBox; + SLDChk: TComboBox; + SGChk: TComboBox; + TSYQChk: TComboBox; + ChkResult: TComboBox; + Button8: TButton; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + Panel5: TPanel; + Label9: TLabel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + Label1: TLabel; + Label2: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + PFGenDanPerson: TEdit; + MPRTCode: TEdit; + MPRTGY: TEdit; + Edit1: TEdit; + ScrollBox6: TScrollBox; + Panel3: TPanel; + Label13: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel2: TPanel; + Label21: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ScrollBox8: TScrollBox; + Panel7: TPanel; + Label23: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label24: TLabel; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + Button9: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button8Click(Sender: TObject); + procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + procedure Button9Click(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMaDanManageSTBak2: TfrmMaDanManageSTBak2; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList; + +{$R *.dfm} + +procedure TfrmMaDanManageSTBak2.FormDestroy(Sender: TObject); +begin + frmMaDanManageSTBak2:=nil; + +end; + +procedure TfrmMaDanManageSTBak2.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageSTBak2.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ʵ뵥'); + WriteCxGrid('Tv2',Tv2,'ʵ뵥'); + WriteCxGrid('Tv3',Tv3,'ʵ뵥'); + WriteCxGrid('Tv5',Tv5,'ʵ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + close; +end; + +procedure TfrmMaDanManageSTBak2.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMaDanManageSTBak2.TvOrdeNoDblClick(Sender: TObject); +var + fsj:string; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',PFGenDanPerson=dbo.F_Get_Order_SubStr(A.MainId,''PFGenDanPerson'')'); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageSTBak2.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''ʵ'' '); + SQL.Add(' and isnull(CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmMaDanManageSTBak2.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet3 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageSTBak2.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + InitGrid(); +end; + +procedure TfrmMaDanManageSTBak2.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageSTBak2.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBak2.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + except + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBak2.FormCreate(Sender: TObject); +begin + SParameters1:=Trim(DParameters1); +end; + +procedure TfrmMaDanManageSTBak2.Button2Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet3.Delete; +end; + +procedure TfrmMaDanManageSTBak2.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + with ClientDataSet6 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageSTBak2.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').asstring)='' then + begin + Application.MessageBox('Ѿⲻɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageSTBak2.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PSID').Value:=Trim(PFID); + FieldByName('MDType').Value:='ʵ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBak2.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBak2.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBak2.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageSTBak2.Button8Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)='' then + begin + Application.MessageBox('뵥δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrder_Main_MD',ScrollBox7,2); + FieldByName('ChkResultPerson').Value:=Trim(DName); + FieldByName('ChkResultDateTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('ChkNote').Value:=Trim(ChkNote.Text); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ݱ쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageSTBak2.Tv3FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + i:Integer; +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox7,2); + with ScrollBox7 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TComboBox then + begin + if Trim(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString)<>'' then + begin + TComboBox(Controls[i]).ItemIndex:=TComboBox(Controls[i]).Items.IndexOf(ADOQuery1.fieldbyname(TComboBox(Controls[i]).Name).AsString) + end else + begin + TComboBox(Controls[i]).ItemIndex:=-1; + end; + end; + end; + end; + +{ if Trim(ADOQuery1.fieldbyname('MFChk').AsString)<>'' then + begin + MFChk.ItemIndex:=MFChk.Items.IndexOf(ADOQuery1.fieldbyname('MFChk').AsString) + end else + begin + MFChk.ItemIndex:=-1; + end; } + ChkNote.Text:=Trim(ADOQuery1.fieldbyname('ChkNote').AsString); +end; + +procedure TfrmMaDanManageSTBak2.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageSTBak2.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; } + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.fieldbyname('CRFlag').AsString)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageSTBak2.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageSTBak2.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv1',Tv1,'ʵ뵥'); + ReadCxGrid('Tv2',Tv2,'ʵ뵥'); + ReadCxGrid('Tv3',Tv3,'ʵ뵥'); + ReadCxGrid('Tv5',Tv5,'ʵ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'ʵ뵥'); +end; + +procedure TfrmMaDanManageSTBak2.Button9Click(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'ʵ뵥'); + WriteCxGrid('Tv2',Tv2,'ʵ뵥'); + WriteCxGrid('Tv3',Tv3,'ʵ뵥'); + WriteCxGrid('Tv5',Tv5,'ʵ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'ʵ뵥'); + close; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.dfm new file mode 100644 index 0000000..6d3f925 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.dfm @@ -0,0 +1,1686 @@ +object frmMaDanManageWW: TfrmMaDanManageWW + Left = 64 + Top = 22 + Width = 1247 + Height = 715 + Caption = #30721#21333#24405#20837'('#22806#22260')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1231 + Height = 32 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 16 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button7: TButton + Left = 571 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button7Click + end + object Button10: TButton + Left = 472 + Top = 5 + Width = 75 + Height = 22 + Caption = #25805#20316#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button10Click + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 32 + Width = 1231 + Height = 318 + Align = alTop + TabOrder = 1 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 1227 + Height = 314 + Align = alClient + TabOrder = 0 + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1223 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 52 + Height = 12 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel4: TPanel + Left = 0 + Top = 20 + Width = 1223 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label12: TLabel + Left = 385 + Top = 12 + Width = 39 + Height = 12 + Caption = #38376#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 468 + Top = 12 + Width = 39 + Height = 12 + Caption = #20811#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 196 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 828 + Top = 32 + Width = 39 + Height = 12 + Caption = #35268#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 196 + Top = 32 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 828 + Top = 12 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 565 + Top = 12 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 385 + Top = 32 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 565 + Top = 32 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 8 + Top = 32 + Width = 39 + Height = 12 + Caption = #24037#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 256 + Top = 28 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 256 + Top = 8 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 864 + Top = 28 + Width = 237 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 864 + Top = 8 + Width = 236 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 418 + Top = 8 + Width = 49 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 503 + Top = 8 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 624 + Top = 8 + Width = 200 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 445 + Top = 28 + Width = 114 + Height = 20 + TabOrder = 7 + end + object PFGenDanPerson: TEdit + Left = 624 + Top = 28 + Width = 200 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 8 + Width = 121 + Height = 20 + TabOrder = 9 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 41 + Top = 28 + Width = 150 + Height = 20 + TabOrder = 10 + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 76 + Width = 610 + Height = 234 + Align = alLeft + TabOrder = 2 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 606 + Height = 21 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label2: TLabel + Left = 5 + Top = 3 + Width = 66 + Height = 12 + Caption = #29983#20135#27969#31243' 1' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 21 + Width = 606 + Height = 94 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Options.Sorting = False + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 295 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 115 + Width = 606 + Height = 21 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label1: TLabel + Left = 5 + Top = 4 + Width = 92 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516' 3' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 136 + Width = 606 + Height = 94 + Align = alClient + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Options.Sorting = False + Width = 55 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 58 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 46 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object ScrollBox5: TScrollBox + Left = 610 + Top = 76 + Width = 613 + Height = 234 + Align = alClient + TabOrder = 3 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 609 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 92 + Height = 12 + Caption = #35746#21333#23433#25490#20449#24687' 2' + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 20 + Width = 609 + Height = 210 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 43 + end + object v1Column9: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'APType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column10: TcxGridDBColumn + Caption = #35843#29992#35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 79 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 43 + end + object v1Column8: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + Width = 84 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + end + object cxGrid6: TcxGrid + Left = 56 + Top = 27 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 350 + Width = 1231 + Height = 326 + ActivePage = cxTabSheet1 + Align = alClient + Color = clRed + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + Style = 8 + TabOrder = 3 + ClientRectBottom = 326 + ClientRectRight = 1231 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22806#22260#30721#21333#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImageIndex = 0 + ParentColor = False + ParentFont = False + object cxGrid3: TcxGrid + Left = 47 + Top = 0 + Width = 1184 + Height = 303 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + Column = v3Column6 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 112 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v3Column6: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column7: TcxGridDBColumn + Tag = 2 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3Column8: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 58 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = Tv3Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 88 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v3Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'MDNote' + Width = 62 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel9: TPanel + Left = 0 + Top = 0 + Width = 47 + Height = 303 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 1 + object Button1: TButton + Left = 2 + Top = 20 + Width = 39 + Height = 21 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 2 + Top = 72 + Width = 39 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 2 + Top = 128 + Width = 39 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = Button3Click + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#24405#20837 + ImageIndex = 1 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 47 + Height = 303 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Button4: TButton + Left = 2 + Top = 20 + Width = 39 + Height = 21 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = Button4Click + end + object Button5: TButton + Left = 2 + Top = 72 + Width = 39 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = Button5Click + end + object Button6: TButton + Left = 2 + Top = 128 + Width = 39 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnClick = Button6Click + end + end + object cxGrid4: TcxGrid + Left = 47 + Top = 0 + Width = 1184 + Height = 303 + Align = alClient + TabOrder = 1 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBBandedColumn2 + end + item + Kind = skSum + Column = Tv6Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.handBlack + Styles.BandHeader = DataLink_DDMD.FontBlue + Bands = < + item + Caption = #24453#22788#29702#20179#24211 + Styles.Header = DataLink_DDMD.FoneRed + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 31 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v6Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #20837#24211#21407#22240 + DataBinding.FieldName = 'DutyReason' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 103 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Tag = 2 + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column16PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 84 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'MDNote' + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 104 + Top = 136 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 72 + Top = 136 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 39 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 696 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 976 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1016 + Top = 240 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 184 + Top = 280 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 152 + Top = 280 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 736 + Top = 424 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 776 + Top = 424 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 784 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 689 + Top = 257 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 721 + Top = 257 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 761 + Top = 257 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 793 + Top = 257 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 833 + Top = 257 + end + object ADOQuery2: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 808 + Top = 47 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 960 + Top = 496 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.pas new file mode 100644 index 0000000..b1306d0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWW.pas @@ -0,0 +1,1796 @@ +unit U_MaDanManageWW; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC; + +type + TfrmMaDanManageWW = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + Panel5: TPanel; + Label9: TLabel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + Label4: TLabel; + PFGenDanPerson: TEdit; + MPRTCode: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + Button7: TButton; + ScrollBox2: TScrollBox; + Panel3: TPanel; + Label2: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel2: TPanel; + Label1: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ScrollBox5: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label5: TLabel; + MPRTGYHZ: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel9: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + cxTabSheet2: TcxTabSheet; + Panel8: TPanel; + Button4: TButton; + Button5: TButton; + Button6: TButton; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v5Column6: TcxGridDBColumn; + Button10: TButton; + v5Column10: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v6Column8: TcxGridDBBandedColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + ADOQuery2: TADOQuery; + ClientDataSet8: TClientDataSet; + v6Column16: TcxGridDBBandedColumn; + v1Column9: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v6Column17: TcxGridDBBandedColumn; + v1Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure Tv3Column1PropertiesEditValueChanged(Sender: TObject); + procedure v6Column8PropertiesEditValueChanged(Sender: TObject); + procedure v6Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure v6Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn32PropertiesEditValueChanged(Sender: TObject); + procedure v6Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + function UpdateTJCKQty(FFPFID:string):Boolean; + public + { Public declarations } + end; + +var + frmMaDanManageWW: TfrmMaDanManageWW; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ModuleNote,U_ZDYHelp, U_ZDYHelpSel, + U_GYSSelList; + +{$R *.dfm} + +procedure TfrmMaDanManageWW.FormDestroy(Sender: TObject); +begin + frmMaDanManageWW:=nil; + +end; + +procedure TfrmMaDanManageWW.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageWW.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'Χ뵥'); + WriteCxGrid('Tv2',Tv2,'Χ뵥'); + WriteCxGrid('Tv3',Tv3,'Χ뵥'); + WriteCxGrid('Tv5',Tv5,'Χ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'Χ뵥'); + close; +end; + +procedure TfrmMaDanManageWW.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMaDanManageWW.TvOrdeNoDblClick(Sender: TObject); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + if ADOQueryTemp.FieldByName('JSFlag').AsBoolean=True then + begin + Panel8.Visible:=False; + Panel9.Visible:=False; + + end else + begin + Panel8.Visible:=True; + Panel9.Visible:=True; + + end; + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(FMainId)+''''+ + ' and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + // SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column8,fsj,1,True,''); + SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column2,fsj,1,True,''); + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(FMainId)+''''+ + ' and isnull(PFGenDanPerson,'''')<>'''' group by PFGenDanPerson'; + SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column1,fsj,1,True,''); + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorNo,'''')'); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=(select ORDMainid from JYOrder_Main_MD MD where MD.MDID=A.DiaoYongMDID))'); + sql.Add(',B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName,B.FZGYNote '); + sql.Add(',Case when isnull(A.CKName,'''')='''' then '''' else '''' end as APType '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageWW.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQuery2 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.ColorNote '); + sql.Add(',PRTColor=isnull(JS.PRTColor,'''')+'' ''+isnull(JS.PRTColorNo,'''')'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + {if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; } + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + //ShowMessage(ADOQuery1.SQL.Text); + SCreateCDS20(ADOQuery2,ClientDataSet3); + SInitCDSData20(ADOQuery2,ClientDataSet3); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.ColorNote '); + sql.Add(',PRTColor=isnull(JS.PRTColor,'''')+'' ''+isnull(JS.PRTColorNo,'''')'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + {if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; } + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet6); + SInitCDSData20(ADOQueryTemp,ClientDataSet6); +end; + +procedure TfrmMaDanManageWW.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)='' then + begin + Application.MessageBox('Χݣֹ뵥!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>Trim(ClientDataSet5.fieldbyname('FactoryNoName').AsString) then + begin + Application.MessageBox('ŹӦͬӦ̲ͬ!','ʾ',0); + Exit; + end; + with ClientDataSet3 do + begin + Append; + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('MDDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet1.fieldbyname('PFTPUnit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColor').Value:=ClientDataSet1.fieldbyname('PRTColor').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWW.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID,ConType,fsj:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub A'+ + ' inner join JYOrder_Process B on A.PSID=B.PSID'+ + ' where A.MainId='''+Trim(FMainId)+''' and B.PSXH in('+ + Trim(ClientDataSet2.fieldbyname('PSXH').AsString)+','+ + inttostr(ClientDataSet2.fieldbyname('PSXH').AsInteger+1)+','+ + inttostr(ClientDataSet2.fieldbyname('PSXH').AsInteger+2)+ + ' )and isnull(FactoryNo,'''')<>'''' group by FactoryNo,FactoryName'; + //ShowMessage(fsj); + SInitCxGridComboBoxBySql(ADOQuery1,Tv3Column1,fsj,1,True,''); + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorNo,'''')'); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=(select ORDMainid from JYOrder_Main_MD MD where MD.MDID=A.DiaoYongMDID))'); + sql.Add(',B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName,B.FZGYNote '); + sql.Add(',Case when isnull(A.CKName,'''')='''' then '''' else '''' end as APType '); + sql.Add(',Case when A.PFTPMQty<>0 then Cast((A.WCMQty-A.TJMQty)*100*1.00/A.PFTPMQty as decimal(18,2)) else 0 end as WCL'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + + + if Mvalue=True then + begin + ClientDataSet2.Locate('SSel',True,[]); + ConType:=Trim(ClientDataSet2.fieldbyname('PSName').AsString); + end else + begin + ConType:=''; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,Case when isnull(A.JYType,'''')<>'''' then Cast(1 as bit) else Cast(0 as bit) end as JYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + if Trim(ConType)<>'' then + begin + sql.Add(' and A.ConType='''+Trim(ConType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + InitGrid(); +end; + +procedure TfrmMaDanManageWW.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageWW.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWW.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + // if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if cxPageControl1.ActivePageIndex=0 then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + end; + { } + + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + if cxPageControl1.ActivePageIndex=1 then + begin + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + end; + end; + + end; + if ClientDataSet3.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('MDDate',null,[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet3.Locate('FromFactoryName',null,[])=True then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + if Trim(ClientDataSet3.fieldbyname('FZQty').AsString)='' then + begin + FieldByName('FZQty').Value:=0; + end else + begin + FieldByName('FZQty').Value:=ClientDataSet3.fieldbyname('FZQty').Value; + end; + if ClientDataSet3.FieldByName('HXFlag').AsBoolean=True then + begin + FieldByName('HXFlag').Value:=1; + end else + begin + FieldByName('HXFlag').Value:=0; + end; + if Trim(ClientDataSet3.FieldByName('MDNO').AsString)='' then + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FieldByName('ConCode').Value:=ClientDataSet5.fieldbyname('C_Code').Value; + FieldByName('ConName').Value:=ClientDataSet5.fieldbyname('C_CodeName').Value; + FieldByName('ConSpec').Value:=ClientDataSet5.fieldbyname('C_Spec').Value; + FieldByName('ConCF').Value:=ClientDataSet5.fieldbyname('C_CF').Value; + FieldByName('ConMF').Value:=ClientDataSet5.fieldbyname('MFQty').AsString; + FieldByName('ConKZ').Value:=ClientDataSet5.fieldbyname('KZQty').AsString; + FieldByName('ConPrice').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + Post; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select QtyUnit from JYOrder_Main_MD where PFID='''+Trim(PFID)+''''); + sql.Add(' and isnull(CKName,'''')='''' '); + sql.Add(' Group by QtyUnit'); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet3.EnableControls; + Application.MessageBox('λһ£ܱ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + //UpdateTJCKQty(PFID);//µڲֿеĿ(Զ) + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + except + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmMaDanManageWW.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + Application.MessageBox('ڵ¼뵥!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; +end; +procedure TfrmMaDanManageWW.FormCreate(Sender: TObject); +begin + SParameters1:=Trim(DParameters1); +end; + +procedure TfrmMaDanManageWW.Button2Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if ClientDataSet3.FieldByName('HCFlag').AsBoolean=True then + begin + Application.MessageBox('Ѻ˲飬ɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('DiaoYongMDID').AsString)<>'' then + begin + Application.MessageBox('Χݣ뵽ָʾŽɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + + if Trim(ClientDataSet3.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet3.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + //UpdateTJCKQty(Trim(ClientDataSet3.fieldbyname('PFID').AsString)); + end; + + ClientDataSet3.Delete; +end; + +procedure TfrmMaDanManageWW.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡɹӹͬ!','ʾ',0); + Exit; + end; + end; + { if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end;} + + + + with ClientDataSet6 do + begin + Append; + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + ClientDataSet5.Locate('SSel',True,[]); + end; + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)<>'' then + begin + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + + FieldByName('MDDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + + + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet1.fieldbyname('PFTPUnit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColor').Value:=ClientDataSet1.fieldbyname('PRTColor').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWW.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').asstring)='' then + begin + Application.MessageBox('Ѿⲻɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if ClientDataSet6.FieldByName('HCFlag').AsBoolean=True then + begin + Application.MessageBox('Ѻ˲飬ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + if Trim(ClientDataSet6.fieldbyname('QtyUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet6.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')<>'''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet6.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageWW.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + //if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet6.Locate('MDDate',null,[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + {if ClientDataSet6.Locate('MDDate','',[])=True then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; } + if ClientDataSet6.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ŵص㲻Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('ToFactoryName','',[])=True then + begin + Application.MessageBox('ŵص㲻Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if ClientDataSet6.Locate('DutyReason',null,[])=True then + begin + Application.MessageBox('ԭΪ!','ʾ',0); + Exit; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='TJ'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('ToFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('DutyFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + if ClientDataSet6.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + FieldByName('OtherOrdFlag').Value:=1; + end else + begin + FieldByName('OtherOrdFlag').Value:=0; + end; + if ClientDataSet6.FieldByName('CiPinFlag').AsBoolean=True then + begin + FieldByName('CiPinFlag').Value:=1; + end else + begin + FieldByName('CiPinFlag').Value:=0; + end; + FieldByName('RKDate').Value:=ClientDataSet6.fieldbyname('MDDate').Value; + FieldByName('RKPS').Value:=ClientDataSet6.fieldbyname('PS').Value; + FieldByName('RKQty').Value:=ClientDataSet6.fieldbyname('Qty').Value; + FieldByName('RKQtyUnit').Value:=ClientDataSet6.fieldbyname('QtyUnit').Value; + if Trim(ClientDataSet6.fieldbyname('ClotheType').AsString)<>'Ʒ' then + begin + FieldByName('Status').Value:='ȷ'; + FieldByName('LiYongXS').Value:=1; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FieldByName('ConCode').Value:=ClientDataSet5.fieldbyname('C_Code').Value; + FieldByName('ConName').Value:=ClientDataSet5.fieldbyname('C_CodeName').Value; + FieldByName('ConSpec').Value:=ClientDataSet5.fieldbyname('C_Spec').Value; + FieldByName('ConCF').Value:=ClientDataSet5.fieldbyname('C_CF').Value; + FieldByName('ConMF').Value:=ClientDataSet5.fieldbyname('MFQty').AsString; + FieldByName('ConKZ').Value:=ClientDataSet5.fieldbyname('KZQty').AsString; + FieldByName('ConPrice').Value:=ClientDataSet5.fieldbyname('Price').Value; + end; + Post; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select QtyUnit from JYOrder_Main_MD where PFID='''+Trim(PFID)+''''); + sql.Add(' and isnull(CKName,'''')<>'''' '); + sql.Add(' Group by QtyUnit'); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet6.EnableControls; + Application.MessageBox('λһ£ܱ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='TJ'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageWW.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWW.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWW.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmMaDanManageWW.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + if Mvalue=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if Trim(ClientDataSet1.fieldbyname('APType').AsString)='' then + begin + sql.Add(' and A.MainId not like ''CM%'' '); + end else + begin + //sql.Add(' and A.MainId like ''CM%'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,Case when isnull(A.JYType,'''')<>'''' then Cast(1 as bit) else Cast(0 as bit) end as JYFlag '); + sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId'); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add(' and A.ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + //sql.Add(' and A.FactoryNoName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + end; + + InitGrid(); +end; + +procedure TfrmMaDanManageWW.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end;} + if ClientDataSet6.IsEmpty then Exit; + if ClientDataSet6.fieldbyname('HCFlag').AsBoolean=True then + begin + Tv6.OptionsSelection.CellSelect:=False; + Exit; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + + end; + if Trim(ClientDataSet6.fieldbyname('CRFlag').asstring)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + +end; + +procedure TfrmMaDanManageWW.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if ClientDataSet3.fieldbyname('HCFlag').AsBoolean=True then + begin + Tv3.OptionsSelection.CellSelect:=False; + Exit; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + + end; + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageWW.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv11',Tv1,'Χ뵥'); + ReadCxGrid('Tv2',Tv2,'Χ뵥'); + ReadCxGrid('Tv3',Tv3,'Χ뵥'); + ReadCxGrid('Tv5',Tv5,'Χ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'Χ뵥'); + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmMaDanManageWW.Button7Click(Sender: TObject); +begin + WriteCxGrid('Tv11',Tv1,'Χ뵥'); + WriteCxGrid('Tv2',Tv2,'Χ뵥'); + WriteCxGrid('Tv3',Tv3,'Χ뵥'); + WriteCxGrid('Tv5',Tv5,'Χ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'Χ뵥'); + close; +end; + +procedure TfrmMaDanManageWW.Tv3Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((Tv3Column1.Properties as TcxComboBoxProperties).Items.Objects[(Tv3Column1.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMaDanManageWW.v6Column8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + { mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryName').Value:=Trim(mvalue); + fsj:=TA((v6Column8.Properties as TcxComboBoxProperties).Items.Objects[(v6Column8.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('FromFactoryNo').Value:=Trim(fsj); + Post; + end;} + +end; + +procedure TfrmMaDanManageWW.v6Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryName').Value:=Trim(mvalue); + fsj:=TA((v6Column2.Properties as TcxComboBoxProperties).Items.Objects[(v6Column2.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('DutyFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmMaDanManageWW.Button10Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Χ뵥¼'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMaDanManageWW.v6Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DutyReason'; + flagname:='ԭ'; + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyReason').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMaDanManageWW.cxGridDBColumn32PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + +end; + +procedure TfrmMaDanManageWW.v6Column16PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('RKYongTu').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.dfm new file mode 100644 index 0000000..c57d4dd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.dfm @@ -0,0 +1,1490 @@ +object frmMaDanManageWWBAK: TfrmMaDanManageWWBAK + Left = 33 + Top = 77 + Width = 1247 + Height = 715 + Caption = #30721#21333#24405#20837'('#22806#22260')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1231 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1231 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 16 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button7: TButton + Left = 539 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button7Click + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 65 + Width = 1231 + Height = 264 + Align = alTop + TabOrder = 2 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 585 + Height = 260 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 120 + Width = 581 + Height = 19 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 7 + Top = 3 + Width = 60 + Height = 14 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 581 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 60 + Height = 14 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 139 + Width = 581 + Height = 117 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 295 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 0 + Top = 25 + Width = 581 + Height = 95 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label12: TLabel + Left = 200 + Top = 30 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 391 + Top = 30 + Width = 67 + Height = 12 + Caption = #20811' '#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 200 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 8 + Top = 32 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 391 + Top = 53 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 391 + Top = 9 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 8 + Top = 53 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 200 + Top = 53 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 8 + Top = 77 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 456 + Top = 49 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 70 + Top = 27 + Width = 120 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 456 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 260 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 456 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 70 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 260 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 7 + end + object PFGenDanPerson: TEdit + Left = 70 + Top = 73 + Width = 507 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 5 + Width = 82 + Height = 20 + TabOrder = 9 + end + object MPRTGY: TEdit + Tag = 2 + Left = 153 + Top = 5 + Width = 37 + Height = 20 + TabOrder = 10 + end + end + end + object ScrollBox6: TScrollBox + Left = 585 + Top = 0 + Width = 642 + Height = 260 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 119 + Width = 638 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 90 + Height = 14 + Caption = #35746#21333#23433#25490#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 24 + Width = 638 + Height = 95 + Align = alTop + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 638 + Height = 24 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 14 + Top = 4 + Width = 90 + Height = 14 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Tag = 2 + Left = 149 + Top = 2 + Width = 168 + Height = 20 + TabOrder = 0 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 139 + Width = 638 + Height = 117 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 329 + Width = 1231 + Height = 347 + Align = alClient + TabOrder = 3 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 343 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 21 + Width = 49 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 53 + Width = 49 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 84 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 186 + Width = 49 + Height = 25 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 218 + Width = 49 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 249 + Width = 49 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button6Click + end + end + object Panel6: TPanel + Left = 57 + Top = 0 + Width = 1170 + Height = 343 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 1166 + Height = 167 + Align = alTop + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 112 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v3Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 169 + Width = 1166 + Height = 172 + Align = alClient + TabOrder = 1 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 118 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column8PropertiesButtonClick + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + end + end + object cxGrid6: TcxGrid + Left = 56 + Top = 59 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 224 + Top = 120 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 128 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 39 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 696 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 976 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1016 + Top = 240 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 216 + Top = 248 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 736 + Top = 424 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 776 + Top = 424 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 784 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 745 + Top = 257 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 329 + Top = 257 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 873 + Top = 409 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 817 + Top = 129 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 849 + Top = 617 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.pas new file mode 100644 index 0000000..5769f6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWBAK.pas @@ -0,0 +1,1141 @@ +unit U_MaDanManageWWBAK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmMaDanManageWWBAK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Panel2: TPanel; + Label1: TLabel; + v5Column8: TcxGridDBColumn; + Panel3: TPanel; + Label2: TLabel; + Panel5: TPanel; + Label9: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v2Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + ScrollBox1: TScrollBox; + Panel8: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Panel6: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v3Column1: TcxGridDBColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + Edit1: TEdit; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + v5Column9: TcxGridDBColumn; + Button4: TButton; + Button5: TButton; + Button6: TButton; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + v6Column7: TcxGridDBBandedColumn; + v1Column2: TcxGridDBColumn; + Label4: TLabel; + PFGenDanPerson: TEdit; + MPRTCode: TEdit; + MPRTGY: TEdit; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + Button7: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + procedure Button7Click(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMaDanManageWWBAK: TfrmMaDanManageWWBAK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList; + +{$R *.dfm} + +procedure TfrmMaDanManageWWBAK.FormDestroy(Sender: TObject); +begin + frmMaDanManageWWBAK:=nil; + +end; + +procedure TfrmMaDanManageWWBAK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageWWBAK.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'Χ뵥'); + WriteCxGrid('Tv2',Tv2,'Χ뵥'); + WriteCxGrid('Tv3',Tv3,'Χ뵥'); + WriteCxGrid('Tv5',Tv5,'Χ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'Χ뵥'); + close; +end; + +procedure TfrmMaDanManageWWBAK.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMaDanManageWWBAK.TvOrdeNoDblClick(Sender: TObject); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageWWBAK.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmMaDanManageWWBAK.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet3 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWWBAK.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + + InitGrid(); +end; + +procedure TfrmMaDanManageWWBAK.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageWWBAK.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWBAK.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + except + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageWWBAK.FormCreate(Sender: TObject); +begin + SParameters1:=Trim(DParameters1); +end; + +procedure TfrmMaDanManageWWBAK.Button2Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet3.Delete; +end; + +procedure TfrmMaDanManageWWBAK.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet6 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWWBAK.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').asstring)='' then + begin + Application.MessageBox('Ѿⲻɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageWWBAK.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageWWBAK.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWBAK.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWBAK.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWBAK.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageWWBAK.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end;} + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.fieldbyname('CRFlag').asstring)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + +end; + +procedure TfrmMaDanManageWWBAK.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageWWBAK.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv1',Tv1,'Χ뵥'); + ReadCxGrid('Tv2',Tv2,'Χ뵥'); + ReadCxGrid('Tv3',Tv3,'Χ뵥'); + ReadCxGrid('Tv5',Tv5,'Χ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'Χ뵥'); +end; + +procedure TfrmMaDanManageWWBAK.Button7Click(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'Χ뵥'); + WriteCxGrid('Tv2',Tv2,'Χ뵥'); + WriteCxGrid('Tv3',Tv3,'Χ뵥'); + WriteCxGrid('Tv5',Tv5,'Χ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'Χ뵥'); + close; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.dfm b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.dfm new file mode 100644 index 0000000..a1dd376 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.dfm @@ -0,0 +1,1466 @@ +object frmMaDanManageWWOne: TfrmMaDanManageWWOne + Left = 38 + Top = 34 + Width = 1287 + Height = 715 + Caption = #30721#21333#24405#20837'('#22806#22260')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1271 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object Label3: TLabel + Left = 0 + Top = 0 + Width = 39 + Height = 30 + Caption = #13#10#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 39 + Top = 0 + Width = 219 + Height = 30 + TabOrder = 0 + OnChange = OrderNoChange + end + object TBClose: TToolButton + Left = 258 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1271 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 65 + Width = 1271 + Height = 264 + Align = alTop + TabOrder = 2 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 585 + Height = 260 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 120 + Width = 581 + Height = 19 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 7 + Top = 3 + Width = 60 + Height = 14 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 581 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 60 + Height = 14 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 139 + Width = 581 + Height = 117 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 52 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 295 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 0 + Top = 25 + Width = 581 + Height = 95 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label12: TLabel + Left = 200 + Top = 30 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 391 + Top = 30 + Width = 67 + Height = 12 + Caption = #20811' '#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 200 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 8 + Top = 32 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 391 + Top = 53 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 391 + Top = 9 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 8 + Top = 53 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 200 + Top = 53 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 8 + Top = 77 + Width = 66 + Height = 12 + Caption = #36319' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 456 + Top = 49 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 70 + Top = 27 + Width = 120 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 456 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 260 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 456 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 70 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 260 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 7 + end + object PFGenDanPerson: TEdit + Left = 70 + Top = 73 + Width = 507 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 70 + Top = 5 + Width = 82 + Height = 20 + TabOrder = 9 + end + object MPRTGY: TEdit + Tag = 2 + Left = 153 + Top = 5 + Width = 37 + Height = 20 + TabOrder = 10 + end + end + end + object ScrollBox6: TScrollBox + Left = 585 + Top = 0 + Width = 682 + Height = 260 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 119 + Width = 678 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 90 + Height = 14 + Caption = #35746#21333#23433#25490#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 24 + Width = 678 + Height = 95 + Align = alTop + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 678 + Height = 24 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 14 + Top = 4 + Width = 90 + Height = 14 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Tag = 2 + Left = 149 + Top = 2 + Width = 168 + Height = 20 + TabOrder = 0 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 139 + Width = 678 + Height = 117 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 329 + Width = 1271 + Height = 347 + Align = alClient + TabOrder = 3 + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 343 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Button1: TButton + Left = 4 + Top = 21 + Width = 49 + Height = 25 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 53 + Width = 49 + Height = 25 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 84 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 186 + Width = 49 + Height = 25 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 218 + Width = 49 + Height = 25 + Caption = #21024#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 249 + Width = 49 + Height = 25 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button6Click + end + end + object Panel6: TPanel + Left = 57 + Top = 0 + Width = 1210 + Height = 343 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 2 + Top = 2 + Width = 1206 + Height = 167 + Align = alTop + TabOrder = 0 + object Tv3: TcxGridDBTableView + OnMouseUp = Tv3MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 112 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v3Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid4: TcxGrid + Left = 2 + Top = 169 + Width = 1206 + Height = 172 + Align = alClient + TabOrder = 1 + object Tv6: TcxGridDBBandedTableView + OnMouseUp = Tv6MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1192 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 118 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column8PropertiesButtonClick + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Tag = 2 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + end + end + object cxGrid6: TcxGrid + Left = 168 + Top = 227 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 224 + Top = 120 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 192 + Top = 128 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 680 + Top = 31 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 728 + Top = 31 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 31 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 976 + Top = 240 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1016 + Top = 240 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 216 + Top = 248 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 904 + Top = 152 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 736 + Top = 424 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 776 + Top = 424 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 784 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 745 + Top = 257 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 329 + Top = 257 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 873 + Top = 409 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 817 + Top = 129 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 849 + Top = 617 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.pas b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.pas new file mode 100644 index 0000000..d783754 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MaDanManageWWOne.pas @@ -0,0 +1,1127 @@ +unit U_MaDanManageWWOne; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit, + DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmMaDanManageWWOne = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Panel2: TPanel; + Label1: TLabel; + v5Column8: TcxGridDBColumn; + Panel3: TPanel; + Label2: TLabel; + Panel5: TPanel; + Label9: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v2Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + ScrollBox1: TScrollBox; + Panel8: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Panel6: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + v3Column1: TcxGridDBColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + Edit1: TEdit; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + v5Column9: TcxGridDBColumn; + Button4: TButton; + Button5: TButton; + Button6: TButton; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column14: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + v6Column7: TcxGridDBBandedColumn; + v1Column2: TcxGridDBColumn; + Label4: TLabel; + PFGenDanPerson: TEdit; + MPRTCode: TEdit; + MPRTGY: TEdit; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v6Column13: TcxGridDBBandedColumn; + v6Column15: TcxGridDBBandedColumn; + Label3: TLabel; + OrderNo: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure Tv3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmMaDanManageWWOne: TfrmMaDanManageWWOne; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList; + +{$R *.dfm} + +procedure TfrmMaDanManageWWOne.FormDestroy(Sender: TObject); +begin + frmMaDanManageWWOne:=nil; + +end; + +procedure TfrmMaDanManageWWOne.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMaDanManageWWOne.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'Χ뵥'); + WriteCxGrid('Tv2',Tv2,'Χ뵥'); + WriteCxGrid('Tv3',Tv3,'Χ뵥'); + WriteCxGrid('Tv5',Tv5,'Χ뵥'); + WriteCxBandedGrid('Tv6',Tv6,'Χ뵥'); + close; +end; + +procedure TfrmMaDanManageWWOne.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMaDanManageWWOne.TvOrdeNoDblClick(Sender: TObject); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + InitGrid(); +end; +procedure TfrmMaDanManageWWOne.InitGrid(); +var + FPSID,FOrdSubId,FConSubId,FPFID:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + FPFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + end else + begin + FOrdSubId:=''; + FPFID:=''; + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JS.PRTHX,JS.PRTColor,JS.PRTColorNo,JS.ColorNote '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_PCS_Sub JPS on A.PFID=JPS.PFID '); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if Trim(FOrdSubId)<>'' then + begin + sql.Add(' and A.OrdSubID='''+Trim(FOrdSubId)+''''); + end; + if Trim(FPFID)<>'' then + begin + sql.Add(' and A.PFID='''+Trim(FPFID)+''''); + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmMaDanManageWWOne.Button1Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet3 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWWOne.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTColor,B.PRTOrdQty,B.OrderUnit,B.ColorNote,JP.PSName '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process JP on A.PSID=JP.PSID'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + if Mvalue=True then + sql.Add('where A.PSID='''+Trim(ClientDataSet2.fieldbyname('PSID').AsString)+'''') + else + sql.Add(' where A.MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + + InitGrid(); +end; + +procedure TfrmMaDanManageWWOne.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageWWOne.Tv3Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet3 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWOne.Button3Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet3.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet3.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet3.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet3.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet3.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet3.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('FromFactoryNo').AsString); + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + except + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageWWOne.FormCreate(Sender: TObject); +begin + SParameters1:=Trim(DParameters1); +end; + +procedure TfrmMaDanManageWWOne.Button2Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet3.Delete; +end; + +procedure TfrmMaDanManageWWOne.Button4Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + + with ClientDataSet6 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + ClientDataSet1.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet1.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ClientDataSet1.fieldbyname('FactoryName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('PRTHX').Value:=ClientDataSet1.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=ClientDataSet1.fieldbyname('PRTColorNo').Value; + Post; + end; +end; + +procedure TfrmMaDanManageWWOne.Button5Click(Sender: TObject); +begin + + if ClientDataSet6.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').asstring)='' then + begin + Application.MessageBox('Ѿⲻɾ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + if Trim(SParameters1)<>'Ȩ' then + begin + Application.MessageBox('ѱݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet6.Delete; +end; + +procedure TfrmMaDanManageWWOne.Button6Click(Sender: TObject); +var + maxno,ConMainId,ConSubId,PSID,OrdSubId,PFID:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.FieldByName('MDId').AsString)='' then + begin + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡϢ!','ʾ',0); + Exit; + end; + end; + if Trim(SParameters1)='Ȩ' then + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ?ݱ󽫲޸ģ','ʾ',32+4)<>IDYES then Exit; + end; + //if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + //ClientDataSet1.Locate('SSel',True,[]); + ConMainId:=Trim(ClientDataSet5.fieldbyname('MainId').AsString); + ConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + OrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + if Trim(ClientDataSet6.fieldbyname('ConMainId').AsString)<>'' then + begin + ConMainId:=Trim(ClientDataSet6.fieldbyname('ConMainId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('ConSubId').AsString)<>'' then + begin + ConSubId:=Trim(ClientDataSet6.fieldbyname('ConSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString)<>'' then + begin + OrdSubId:=Trim(ClientDataSet6.fieldbyname('OrdSubId').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PSID').AsString)<>'' then + begin + PSID:=Trim(ClientDataSet6.fieldbyname('PSID').AsString); + end; + if Trim(ClientDataSet6.fieldbyname('PFID').AsString)<>'' then + begin + PFID:=Trim(ClientDataSet6.fieldbyname('PFID').AsString); + end; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(SParameters1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('MDID').AsString)<>'' then + begin + Next; + Continue; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('CRFlag').AsString)='' then + begin + Next; + Continue; + end; + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'','JYOrder_Main_MD',4,1)=False then + begin + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet6.fieldbyname('MDId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet6.fieldbyname('MDId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + FieldByName('MDType').Value:='Χ'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD',2); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('DutyFactoryNo').Value:=Trim(ClientDataSet6.fieldbyname('FromFactoryNo').AsString); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + Edit; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('MDNO').Value:='MD'+Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FMainId); + FieldByName('ConMainID').Value:=Trim(ConMainId); + FieldByName('ConSubID').Value:=Trim(ConSubId); + FieldByName('OrdSubId').Value:=Trim(OrdSubId); + FieldByName('PSID').Value:=Trim(PSID); + FieldByName('PFID').Value:=Trim(PFID); + Post; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.EnableControls; + except + ClientDataSet6.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmMaDanManageWWOne.v6Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('FromFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWOne.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWOne.v6Column14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmMaDanManageWWOne.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PFID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PFID:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('PFID',PFID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGrid(); +end; + +procedure TfrmMaDanManageWWOne.Tv6MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end;} + if ClientDataSet6.IsEmpty then Exit; + if Trim(ClientDataSet6.fieldbyname('CRFlag').asstring)='' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + if Trim(SParameters1)='Ȩ' then Exit; + if Trim(ClientDataSet6.fieldbyname('MDID').asstring)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end else + begin + Tv6.OptionsSelection.CellSelect:=True; + end; + +end; + +procedure TfrmMaDanManageWWOne.Tv3MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Trim(SParameters1)='Ȩ' then Exit; + if ClientDataSet3.IsEmpty then Exit; + if Trim(ClientDataSet3.fieldbyname('MDID').asstring)<>'' then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmMaDanManageWWOne.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv1',Tv1,'Χ뵥'); + ReadCxGrid('Tv2',Tv2,'Χ뵥'); + ReadCxGrid('Tv3',Tv3,'Χ뵥'); + ReadCxGrid('Tv5',Tv5,'Χ뵥'); + ReadCxBandedGrid('Tv6',Tv6,'Χ뵥'); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.dfm b/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.dfm new file mode 100644 index 0000000..90a8ace --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.dfm @@ -0,0 +1,1515 @@ +object frmMeetingAP: TfrmMeetingAP + Left = -171 + Top = 63 + Width = 1373 + Height = 678 + Caption = #29983#20135#20250#35758 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1357 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 16 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button9: TButton + Left = 547 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button9Click + end + object Button10: TButton + Left = 448 + Top = 5 + Width = 75 + Height = 22 + Caption = #25805#20316#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + end + object Button3: TButton + Left = 383 + Top = 5 + Width = 42 + Height = 22 + Caption = #21047#26032 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + end + object Panel4: TPanel + Left = 0 + Top = 33 + Width = 1357 + Height = 172 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel6: TPanel + Left = 2 + Top = 2 + Width = 442 + Height = 168 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label12: TLabel + Left = 33 + Top = 89 + Width = 39 + Height = 12 + Caption = #38376#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 126 + Top = 89 + Width = 39 + Height = 12 + Caption = #20811#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 32 + Top = 36 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 223 + Top = 116 + Width = 39 + Height = 12 + Caption = #35268#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 220 + Top = 36 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 32 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 223 + Top = 89 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 32 + Top = 116 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 220 + Top = 64 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 220 + Top = 12 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 32 + Top = 64 + Width = 39 + Height = 12 + Caption = #24037#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 32 + Top = 140 + Width = 91 + Height = 12 + Caption = #36136#37327#26816#39564#31561#32423#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 284 + Top = 32 + Width = 155 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 94 + Top = 32 + Width = 121 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 259 + Top = 111 + Width = 179 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 259 + Top = 85 + Width = 179 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 66 + Top = 85 + Width = 49 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 161 + Top = 85 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 94 + Top = 112 + Width = 123 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 284 + Top = 60 + Width = 154 + Height = 20 + TabOrder = 7 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 283 + Top = 8 + Width = 155 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 94 + Top = 8 + Width = 82 + Height = 20 + TabOrder = 9 + end + object MPRTGY: TEdit + Tag = 2 + Left = 177 + Top = 8 + Width = 37 + Height = 20 + TabOrder = 10 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 66 + Top = 60 + Width = 150 + Height = 20 + TabOrder = 11 + end + object ZLLevel: TEdit + Tag = 2 + Left = 118 + Top = 136 + Width = 321 + Height = 20 + TabOrder = 12 + end + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 20 + Height = 164 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 13 + object Label9: TLabel + Left = 3 + Top = 33 + Width = 13 + Height = 84 + Caption = #22522#13#10#13#10#26412#13#10#13#10#20449#13#10#13#10#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid6: TcxGrid + Left = 54 + Top = -2 + Width = 345 + Height = 169 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 14 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object ScrollBox8: TScrollBox + Left = 444 + Top = 2 + Width = 911 + Height = 168 + Align = alClient + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 21 + Top = 0 + Width = 489 + Height = 164 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Width = 31 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DlyDate' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'APPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'APQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 59 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'APUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 31 + end + object v1Column10: TcxGridDBColumn + Caption = #35745#21010#25439#32791'%' + DataBinding.FieldName = 'PSSH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column6: TcxGridDBColumn + Caption = #21171#21160#21333#20215 + DataBinding.FieldName = 'LDPrice' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column4: TcxGridDBColumn + Caption = #25439#32791#21333#20215 + DataBinding.FieldName = 'SHPrice' + HeaderAlignmentHorz = taCenter + Width = 57 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 510 + Top = 0 + Width = 397 + Height = 164 + Align = alRight + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #30334#20998#27604 + DataBinding.FieldName = 'QtyPersent' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 51 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 21 + Height = 164 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label23: TLabel + Left = 3 + Top = 27 + Width = 13 + Height = 96 + Caption = #32771#13#10#13#10#26680#13#10#13#10#35268#13#10#13#10#21017#13#10 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + end + end + object Panel9: TPanel + Left = 0 + Top = 205 + Width = 1357 + Height = 211 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel3: TPanel + Left = 840 + Top = 2 + Width = 515 + Height = 207 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 19 + Height = 203 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label4: TLabel + Left = 3 + Top = 33 + Width = 13 + Height = 132 + Caption = #20854#13#10#13#10#20182#13#10#13#10#24773#13#10#13#10#20917#13#10#13#10#35828#13#10#13#10#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button4: TButton + Left = -2 + Top = 1 + Width = 21 + Height = 22 + Caption = #8730 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button4Click + end + end + object OtherNote: TRichEdit + Left = 21 + Top = 2 + Width = 492 + Height = 203 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 1 + end + end + object ScrollBox1: TScrollBox + Left = 23 + Top = 2 + Width = 817 + Height = 207 + Align = alLeft + TabOrder = 1 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 420 + Height = 203 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 42 + end + object Tv3Column1: TcxGridDBColumn + Caption = #30721#21333#26085#26399 + DataBinding.FieldName = 'MDDate' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v3Column1: TcxGridDBColumn + Caption = #26412#21333#25968#37327 + DataBinding.FieldName = 'BDQty' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column2: TcxGridDBColumn + Caption = #38750#26412#21333#25968#37327 + DataBinding.FieldName = 'FBDQty' + Width = 75 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid4: TcxGrid + Left = 442 + Top = 0 + Width = 371 + Height = 203 + Align = alRight + TabOrder = 1 + object Tv4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = Tv4Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv4Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn14: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDanPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 52 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'GFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 87 + end + object Tv4Column1: TcxGridDBColumn + Caption = #20998#25968 + DataBinding.FieldName = 'FenShu' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.DropDownRows = 11 + Properties.Items.Strings = ( + '0' + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9' + '10') + Properties.OnEditValueChanged = Tv4Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 42 + end + object Tv4Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'GFNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv4Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 181 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv4 + end + end + object Panel11: TPanel + Left = 420 + Top = 0 + Width = 22 + Height = 203 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Button1: TButton + Left = 2 + Top = 52 + Width = 18 + Height = 24 + Caption = '+' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 2 + Top = 119 + Width = 18 + Height = 22 + Caption = '-' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + end + end + object Panel10: TPanel + Left = 2 + Top = 2 + Width = 21 + Height = 207 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label11: TLabel + Left = 3 + Top = 59 + Width = 13 + Height = 84 + Caption = #29983#13#10#13#10#20135#13#10#13#10#25171#13#10#13#10#20998 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + end + object Panel12: TPanel + Left = 0 + Top = 416 + Width = 1357 + Height = 223 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object PingDingNote: TRichEdit + Left = 863 + Top = 2 + Width = 492 + Height = 219 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 0 + end + object Panel13: TPanel + Left = 2 + Top = 2 + Width = 443 + Height = 219 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label19: TLabel + Left = 32 + Top = 24 + Width = 48 + Height = 12 + Caption = #27491#21697#25968#37327 + end + object Label20: TLabel + Left = 32 + Top = 64 + Width = 48 + Height = 12 + Caption = #27425#21697#25968#37327 + end + object Label21: TLabel + Left = 32 + Top = 104 + Width = 48 + Height = 24 + Caption = #35843#33410#20179#24211#13#10' '#25968#37327 + end + object Label22: TLabel + Left = 32 + Top = 154 + Width = 48 + Height = 12 + Caption = #20986#24211#25968#37327 + end + object Label24: TLabel + Left = 216 + Top = 24 + Width = 48 + Height = 12 + Caption = #36319#21333#25187#27454 + end + object Label26: TLabel + Left = 216 + Top = 64 + Width = 48 + Height = 12 + Caption = #35746#21333#25439#22833 + Visible = False + end + object Label27: TLabel + Left = 216 + Top = 110 + Width = 48 + Height = 12 + Caption = #20154#24037#25439#32791 + end + object Label28: TLabel + Left = 216 + Top = 154 + Width = 48 + Height = 12 + Caption = #31995#32479#25439#32791 + end + object Label29: TLabel + Left = 376 + Top = 110 + Width = 6 + Height = 12 + Caption = '%' + end + object Label30: TLabel + Left = 375 + Top = 154 + Width = 6 + Height = 12 + Caption = '%' + end + object Panel15: TPanel + Left = 2 + Top = 2 + Width = 21 + Height = 215 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 3 + Top = 56 + Width = 13 + Height = 84 + Caption = #25968#13#10#13#10#37327#13#10#13#10#35780#13#10#13#10#23450 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object ZPQty: TEdit + Tag = 2 + Left = 84 + Top = 20 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object CPQty: TEdit + Tag = 2 + Left = 84 + Top = 60 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + end + object TJQty: TEdit + Tag = 2 + Left = 84 + Top = 106 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + end + object CKQty: TEdit + Tag = 2 + Left = 84 + Top = 150 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object GDKK: TEdit + Tag = 2 + Left = 273 + Top = 20 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + end + object OrderSunShi: TEdit + Left = 273 + Top = 60 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + Visible = False + end + object SGJSSH: TEdit + Tag = 2 + Left = 273 + Top = 107 + Width = 101 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object HZSH: TEdit + Tag = 2 + Left = 273 + Top = 150 + Width = 101 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + end + end + object cxGrid5: TcxGrid + Left = 466 + Top = 2 + Width = 376 + Height = 219 + Align = alLeft + TabOrder = 2 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #21171#21160#32771#26680#37329#39069 + DataBinding.FieldName = 'LDMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 85 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #25439#32791#32771#26680#37329#39069 + DataBinding.FieldName = 'SHMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'KKMoney' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #24635#32771#26680#37329#39069 + DataBinding.FieldName = 'HZMoney' + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv5 + end + end + object Panel8: TPanel + Left = 445 + Top = 2 + Width = 21 + Height = 219 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 3 + object Label10: TLabel + Left = 3 + Top = 58 + Width = 13 + Height = 84 + Caption = #32771#13#10#13#10#26680#13#10#13#10#35780#13#10#13#10#23450 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object Panel14: TPanel + Left = 842 + Top = 2 + Width = 21 + Height = 219 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 4 + object Label14: TLabel + Left = 4 + Top = 58 + Width = 13 + Height = 84 + Caption = #35780#13#10#13#10#23450#13#10#13#10#24635#13#10#13#10#32467 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object Button5: TButton + Left = -2 + Top = 1 + Width = 21 + Height = 22 + Caption = #8730 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button5Click + end + end + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 80 + Top = 104 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 112 + Top = 104 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 624 + Top = 65535 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 656 + Top = 65535 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 65535 + end + object ADOQuery2: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 65535 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 720 + Top = 96 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 752 + Top = 96 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 1064 + Top = 104 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 1032 + Top = 104 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 280 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 272 + Top = 280 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 720 + Top = 280 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 688 + Top = 280 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 688 + Top = 496 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 656 + Top = 496 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.pas b/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.pas new file mode 100644 index 0000000..c36f219 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MeetingAP.pas @@ -0,0 +1,652 @@ +unit U_MeetingAP; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxDropDownEdit, cxSplitter, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, cxCalendar, DBClient, ADODB, cxButtonEdit, cxTextEdit; + +type + TfrmMeetingAP = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + Button9: TButton; + Button10: TButton; + Panel4: TPanel; + Panel6: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + Label1: TLabel; + Label2: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + CustomerNoName: TEdit; + MPRTCode: TEdit; + MPRTGY: TEdit; + MPRTGYHZ: TEdit; + Label5: TLabel; + ZLLevel: TEdit; + ScrollBox8: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel9: TPanel; + Panel3: TPanel; + Panel2: TPanel; + Label4: TLabel; + OtherNote: TRichEdit; + ScrollBox1: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Panel10: TPanel; + Label11: TLabel; + Tv3Column1: TcxGridDBColumn; + Tv4Column1: TcxGridDBColumn; + Tv4Column2: TcxGridDBColumn; + Panel5: TPanel; + Label9: TLabel; + Panel7: TPanel; + Label23: TLabel; + Panel11: TPanel; + Button1: TButton; + Button2: TButton; + Panel12: TPanel; + PingDingNote: TRichEdit; + Panel13: TPanel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Panel15: TPanel; + Label13: TLabel; + Panel8: TPanel; + Label10: TLabel; + Panel14: TPanel; + Label14: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + Label24: TLabel; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + ZPQty: TEdit; + CPQty: TEdit; + TJQty: TEdit; + CKQty: TEdit; + GDKK: TEdit; + OrderSunShi: TEdit; + SGJSSH: TEdit; + HZSH: TEdit; + Button3: TButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + DS_OrderNo: TDataSource; + CDS_OrderNo: TClientDataSet; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + ADOQuery2: TADOQuery; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet4: TClientDataSet; + DataSource4: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + Label29: TLabel; + Label30: TLabel; + Button4: TButton; + Button5: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button9Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure cxGridDBColumn14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn15PropertiesEditValueChanged(Sender: TObject); + procedure Tv4Column1PropertiesEditValueChanged(Sender: TObject); + procedure Tv4Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + private + { Private declarations } + FMainId:String; + public + { Public declarations } + end; + +var + frmMeetingAP: TfrmMeetingAP; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel; +{$R *.dfm} + +procedure TfrmMeetingAP.FormDestroy(Sender: TObject); +begin + frmMeetingAP:=nil; +end; + +procedure TfrmMeetingAP.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMeetingAP.Button9Click(Sender: TObject); +begin + Close; +end; + +procedure TfrmMeetingAP.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMeetingAP.TvOrdeNoDblClick(Sender: TObject); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + + + {fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(FMainId)+''''+ + ' and isnull(PFGenDanPerson,'''')<>'''' group by PFGenDanPerson'; + SInitCxBandGridComboBoxBySql(ADOQuery1,v6Column1,fsj,1,True,''); } + {fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AA=dbo.F_Get_Order_SubStr(:PSID,''PFGenDanPerson'')'); + Parameters.ParamByName('PSID').Value:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + open; + end; + if Trim(fsj)='' then + begin + fsj:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + end else + fsj:=fsj+' '+Trim(ADOQueryTemp.fieldbyname('PSName').AsString)+':'+Trim(ADOQuery1.fieldbyname('AA').AsString); + Next; + end; + end; + PFGenDanPerson.Text:=Trim(fsj); } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel13,2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_GD_FenShu where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet4); + SInitCDSData20(ADOQueryTemp,ClientDataSet4); + Button3.Click; + //InitGrid(); +end; + +procedure TfrmMeetingAP.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.* from JYOrder_PCS_GD A '); + sql.Add('where A.PSID='''+Trim(ClientDataSet1.fieldbyname('PSID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); +end; + +procedure TfrmMeetingAP.Button1Click(Sender: TObject); +var + maxno:String; +begin + if Trim(OrderNo.Text)='' then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'GF','JYOrder_GD_FenShu',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_GD_FenShu where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('GFId').Value:=Trim(maxno); + FieldByName('GFDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet4 do + begin + Append; + FieldByName('GFId').Value:=Trim(maxno); + FieldByName('GFDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; + +procedure TfrmMeetingAP.cxGridDBColumn14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with Self.ClientDataSet4 do + begin + Edit; + FieldByName('GenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_GD_FenShu Set GenDanPerson='''+Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + sql.Add(' where GFID='''+Trim(Self.ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMeetingAP.cxGridDBColumn15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxDateEdit(Sender).EditText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set GFDate='''+Trim(mvalue)+'''') + else + sql.Add('UPdate JYOrder_GD_FenShu Set GFDate=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('GFDate').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAP.Tv4Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxComboBox(Sender).EditText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set FenShu='+Trim(mvalue)) + else + sql.Add('UPdate JYOrder_GD_FenShu Set FenShu=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('FenShu').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAP.Tv4Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set GFNote='''+Trim(mvalue)+'''') + else + sql.Add('UPdate JYOrder_GD_FenShu Set GFNote=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('GFNote').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAP.Button2Click(Sender: TObject); +begin + if ClientDataSet4.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete JYOrder_GD_FenShu where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + ClientDataSet4.Delete; +end; + +procedure TfrmMeetingAP.Button4Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main Set OtherNote='''+Trim(OtherNote.Text)+''''); + SQL.Add(' where Mainid='''+Trim(FMainId)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Exit; +end; + +procedure TfrmMeetingAP.Button5Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main Set PingDingNote='''+Trim(PingDingNote.Text)+''''); + SQL.Add(' where Mainid='''+Trim(FMainId)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Exit; +end; + +procedure TfrmMeetingAP.Button3Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set'); + if Trim(ZPQty.Text)<>'' then + SQL.Add('ZPQty='+ZPQty.Text) + else + SQL.Add('ZPQty=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' LDMoney=ZPQty*LDPrice'); + sql.Add(',SHMoney=Cast(ZPQty*SHPrice*'); + sql.Add('(PSSH-(select SGJSSH from JYOrder_Main A where A.MainId=JYOrder_Process.MainId))*1.00/100 as decimal(18,2))'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_GD Set '); + sql.Add('PJFenShu=(select Avg(FenShu) from JYOrder_GD_FenShu A where A.MainId=JYOrder_PCS_GD.MainId '); + sql.Add(' and A.GenDanPerson=JYOrder_PCS_GD.GenDanPerson)'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_GD Set '); + sql.Add(' LDMoney=PJFenShu*1.0/10*(select LDMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' ,SHMoney=(select SHMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_PCS_GD Set SHMoney=PJFenShu*1.0/10*SHMoney'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and isnull(SHMoney,0)>0'); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,HZMoney=isnull(LDMoney,0)+isnull(SHMoney,0)-isnull(KKMoney,0) from ('); + sql.Add('select GenDanPerson,LDMoney=sum(LDMoney),SHMoney=sum(SHMoney)'); + sql.Add(' ,KKMoney=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID '); + sql.Add(' where C.ORDMainId=A.MainId and B.ZZPerson=A.GenDanPerson and isnull(B.KKTYpe,'''')='''') '); + sql.Add(' from JYOrder_PCS_GD A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' group by GenDanPerson,MainId)AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.dfm new file mode 100644 index 0000000..d8eb0b6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.dfm @@ -0,0 +1,1620 @@ +object frmMeetingAPNew: TfrmMeetingAPNew + Left = -18 + Top = 33 + Width = 1366 + Height = 711 + Caption = #29983#20135#20250#35758 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1350 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 16 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 323 + Top = 11 + Width = 26 + Height = 12 + Caption = #26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 447 + Top = 11 + Width = 14 + Height = 12 + Caption = '--' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 571 + Top = 11 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Left = 57 + Top = 7 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object Button9: TButton + Left = 1022 + Top = 5 + Width = 44 + Height = 22 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button9Click + end + object Button10: TButton + Left = 789 + Top = 5 + Width = 75 + Height = 22 + Caption = #25805#20316#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button10Click + end + object Button3: TButton + Left = 724 + Top = 5 + Width = 42 + Height = 22 + Caption = #21047#26032 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button3Click + end + object BegDate: TDateTimePicker + Left = 351 + Top = 8 + Width = 97 + Height = 20 + Date = 41979.517280543980000000 + Time = 41979.517280543980000000 + TabOrder = 4 + end + object EndDate: TDateTimePicker + Left = 462 + Top = 7 + Width = 97 + Height = 20 + Date = 41979.517280543980000000 + Time = 41979.517280543980000000 + TabOrder = 5 + end + object MPRTCodeHZ: TEdit + Tag = 2 + Left = 624 + Top = 8 + Width = 79 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeHZChange + end + object Button8: TButton + Left = 878 + Top = 5 + Width = 75 + Height = 22 + Caption = #25351#31034#21333#26597#30475 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = Button8Click + end + object Button11: TButton + Left = 966 + Top = 5 + Width = 44 + Height = 22 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = Button11Click + end + end + object Panel4: TPanel + Left = 0 + Top = 33 + Width = 1350 + Height = 172 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel6: TPanel + Left = 2 + Top = 2 + Width = 442 + Height = 168 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label12: TLabel + Left = 33 + Top = 89 + Width = 39 + Height = 12 + Caption = #38376#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 126 + Top = 89 + Width = 39 + Height = 12 + Caption = #20811#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 32 + Top = 36 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 223 + Top = 116 + Width = 39 + Height = 12 + Caption = #35268#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 220 + Top = 36 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 32 + Top = 12 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 223 + Top = 89 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 32 + Top = 116 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 220 + Top = 64 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 220 + Top = 12 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 32 + Top = 64 + Width = 39 + Height = 12 + Caption = #24037#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 32 + Top = 140 + Width = 91 + Height = 12 + Caption = #36136#37327#26816#39564#31561#32423#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 284 + Top = 32 + Width = 155 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 0 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 94 + Top = 32 + Width = 121 + Height = 20 + TabOrder = 1 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 259 + Top = 111 + Width = 179 + Height = 20 + TabOrder = 2 + end + object MPRTCF: TEdit + Tag = 2 + Left = 259 + Top = 85 + Width = 179 + Height = 20 + TabOrder = 3 + end + object MPRTMF: TEdit + Tag = 2 + Left = 66 + Top = 85 + Width = 49 + Height = 20 + TabOrder = 4 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 161 + Top = 85 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 94 + Top = 112 + Width = 123 + Height = 20 + TabOrder = 6 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 284 + Top = 60 + Width = 154 + Height = 20 + TabOrder = 7 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 283 + Top = 8 + Width = 155 + Height = 20 + TabOrder = 8 + end + object MPRTCode: TEdit + Tag = 2 + Left = 94 + Top = 8 + Width = 82 + Height = 20 + TabOrder = 9 + end + object MPRTGY: TEdit + Tag = 2 + Left = 177 + Top = 8 + Width = 37 + Height = 20 + TabOrder = 10 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 66 + Top = 60 + Width = 150 + Height = 20 + TabOrder = 11 + end + object ZLLevel: TEdit + Tag = 2 + Left = 118 + Top = 136 + Width = 321 + Height = 20 + TabOrder = 12 + end + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 20 + Height = 164 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 13 + object Label9: TLabel + Left = 3 + Top = 33 + Width = 13 + Height = 84 + Caption = #22522#13#10#13#10#26412#13#10#13#10#20449#13#10#13#10#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid6: TcxGrid + Left = 54 + Top = -2 + Width = 345 + Height = 169 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 14 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + end + object ScrollBox8: TScrollBox + Left = 444 + Top = 2 + Width = 904 + Height = 168 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 21 + Height = 164 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label23: TLabel + Left = 3 + Top = 27 + Width = 13 + Height = 96 + Caption = #29983#13#10#13#10#20135#13#10#13#10#35201#13#10#13#10#32032#13#10 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object SCYaoSu: TRichEdit + Left = 21 + Top = 0 + Width = 644 + Height = 164 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object cxGrid2: TcxGrid + Left = 665 + Top = 0 + Width = 235 + Height = 164 + Align = alRight + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + object TvOrderNoHZ: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + OnCellClick = TvOrderNoHZCellClick + DataController.DataSource = DS_OrderNoHZ + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 86 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TvOrderNoHZ + end + end + end + end + object Panel9: TPanel + Left = 0 + Top = 205 + Width = 1350 + Height = 176 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object ScrollBox1: TScrollBox + Left = 23 + Top = 2 + Width = 984 + Height = 172 + Align = alLeft + TabOrder = 0 + object Panel11: TPanel + Left = 958 + Top = 0 + Width = 22 + Height = 168 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label11: TLabel + Left = 3 + Top = 39 + Width = 13 + Height = 84 + Caption = #29983#13#10#13#10#20135#13#10#13#10#25171#13#10#13#10#20998 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object Button1: TButton + Left = 2 + Top = 2 + Width = 18 + Height = 24 + Caption = '+' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 2 + Top = 132 + Width = 18 + Height = 22 + Caption = '-' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 958 + Height = 168 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Width = 31 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DlyDate' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'APPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'APQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 59 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'APUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 31 + end + object v1Column10: TcxGridDBColumn + Caption = #35745#21010#25439#32791'%' + DataBinding.FieldName = 'PSSH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column6: TcxGridDBColumn + Caption = #21171#21160#21333#20215 + DataBinding.FieldName = 'LDPrice' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column4: TcxGridDBColumn + Caption = #25439#32791#21333#20215 + DataBinding.FieldName = 'SHPrice' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column3: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GDPersent' + HeaderAlignmentHorz = taCenter + Width = 134 + end + object v1Column8: TcxGridDBColumn + Caption = #30721#21333#26085#26399 + DataBinding.FieldName = 'MDDate' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #30721#21333#21305#25968 + DataBinding.FieldName = 'MDPS' + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #30721#21333#25968#37327 + DataBinding.FieldName = 'MDQty' + Width = 59 + end + object v1Column12: TcxGridDBColumn + Caption = #26412#21333#25968#37327 + DataBinding.FieldName = 'BDQty' + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #38750#26412#21333#25968#37327 + DataBinding.FieldName = 'FBDQty' + Width = 72 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object Panel10: TPanel + Left = 2 + Top = 2 + Width = 21 + Height = 172 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 1 + object Label31: TLabel + Left = 3 + Top = 55 + Width = 13 + Height = 96 + Caption = #32771#13#10#13#10#26680#13#10#13#10#35268#13#10#13#10#21017#13#10 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object cxGrid4: TcxGrid + Left = 1007 + Top = 2 + Width = 341 + Height = 172 + Align = alClient + TabOrder = 2 + object Tv4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = Tv4Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv4Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn15: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'GFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Sorting = False + Width = 87 + end + object Tv4Column1: TcxGridDBColumn + Caption = #20998#25968 + DataBinding.FieldName = 'FenShu' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.DropDownRows = 11 + Properties.Items.Strings = ( + '0' + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9' + '10') + Properties.OnEditValueChanged = Tv4Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 35 + end + object Tv4Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'GFNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv4Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 181 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv4 + end + end + end + object Panel12: TPanel + Left = 0 + Top = 381 + Width = 1350 + Height = 291 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object PingDingNote: TRichEdit + Left = 1008 + Top = 2 + Width = 340 + Height = 287 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 0 + end + object Panel13: TPanel + Left = 544 + Top = 2 + Width = 443 + Height = 287 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel15: TPanel + Left = 2 + Top = 2 + Width = 21 + Height = 283 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 0 + object Label13: TLabel + Left = 3 + Top = 49 + Width = 13 + Height = 156 + Caption = #32771#13#10#13#10#13#10#13#10#26680#13#10#13#10#13#10#13#10#35780#13#10#13#10#13#10#13#10#23450 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object Panel16: TPanel + Left = 23 + Top = 2 + Width = 418 + Height = 283 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 414 + Height = 127 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label19: TLabel + Left = 22 + Top = 12 + Width = 48 + Height = 12 + Caption = #27491#21697#25968#37327 + end + object Label20: TLabel + Left = 22 + Top = 43 + Width = 48 + Height = 12 + Caption = #27425#21697#25968#37327 + end + object Label21: TLabel + Left = 22 + Top = 68 + Width = 48 + Height = 24 + Caption = #35843#33410#20179#24211#13#10' '#25968#37327 + end + object Label22: TLabel + Left = 22 + Top = 104 + Width = 48 + Height = 12 + Caption = #20986#24211#25968#37327 + end + object Label24: TLabel + Left = 206 + Top = 12 + Width = 48 + Height = 12 + Caption = #36319#21333#25187#27454 + end + object Label26: TLabel + Left = 206 + Top = 43 + Width = 48 + Height = 12 + Caption = #32771#26680#37329#39069 + end + object Label27: TLabel + Left = 206 + Top = 74 + Width = 48 + Height = 12 + Caption = #20154#24037#25439#32791 + end + object Label28: TLabel + Left = 206 + Top = 104 + Width = 48 + Height = 12 + Caption = #31995#32479#25439#32791 + end + object Label29: TLabel + Left = 366 + Top = 74 + Width = 6 + Height = 12 + Caption = '%' + end + object Label30: TLabel + Left = 365 + Top = 104 + Width = 6 + Height = 12 + Caption = '%' + end + object ZPQty: TEdit + Tag = 2 + Left = 74 + Top = 8 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + end + object CPQty: TEdit + Tag = 2 + Left = 74 + Top = 39 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object TJQty: TEdit + Tag = 2 + Left = 74 + Top = 70 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + end + object CKQty: TEdit + Tag = 2 + Left = 74 + Top = 100 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + end + object GDKK: TEdit + Tag = 2 + Left = 263 + Top = 8 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object KHMoney: TEdit + Left = 263 + Top = 39 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + end + object SGJSSH: TEdit + Tag = 2 + Left = 263 + Top = 71 + Width = 101 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + end + object HZSH: TEdit + Tag = 2 + Left = 263 + Top = 100 + Width = 101 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + end + object cxGrid5: TcxGrid + Left = 2 + Top = 129 + Width = 414 + Height = 152 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #21171#21160#32771#26680#37329#39069 + DataBinding.FieldName = 'LDMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 85 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #25439#32791#32771#26680#37329#39069 + DataBinding.FieldName = 'SHMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'KKMoney' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #24635#32771#26680#37329#39069 + DataBinding.FieldName = 'HZMoney' + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv5 + end + end + end + end + object Panel14: TPanel + Left = 987 + Top = 2 + Width = 21 + Height = 287 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 2 + object Label14: TLabel + Left = 4 + Top = 51 + Width = 13 + Height = 156 + Caption = #35780#13#10#13#10#13#10#13#10#23450#13#10#13#10#13#10#13#10#24635#13#10#13#10#13#10#13#10#32467 + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object Button5: TButton + Left = -2 + Top = 1 + Width = 21 + Height = 22 + Caption = #20445 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button5Click + end + object Button7: TButton + Left = -2 + Top = 22 + Width = 21 + Height = 21 + Caption = #23384 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button5Click + end + end + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 19 + Height = 287 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWindow + TabOrder = 3 + object Label4: TLabel + Left = 3 + Top = 63 + Width = 13 + Height = 132 + Caption = #20854#13#10#13#10#20182#13#10#13#10#24773#13#10#13#10#20917#13#10#13#10#35828#13#10#13#10#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button4: TButton + Left = -2 + Top = 1 + Width = 21 + Height = 22 + Caption = #20445 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button4Click + end + object Button6: TButton + Left = -2 + Top = 22 + Width = 21 + Height = 22 + Caption = #23384 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button4Click + end + end + object OtherNote: TRichEdit + Left = 21 + Top = 2 + Width = 523 + Height = 287 + Align = alLeft + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ScrollBars = ssBoth + TabOrder = 4 + end + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 80 + Top = 104 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 112 + Top = 104 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1136 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1256 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1288 + Top = 7 + end + object ADOQuery2: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1280 + Top = 15 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 584 + Top = 304 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 304 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 1144 + Top = 65528 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 1280 + Top = 8 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 576 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 800 + Top = 568 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 1144 + Top = 280 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 1112 + Top = 280 + end + object DS_OrderNoHZ: TDataSource + DataSet = CDS_OrderNoHZ + Left = 1184 + Top = 72 + end + object CDS_OrderNoHZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 1216 + Top = 72 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 1208 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 664 + Top = 104 + ReportData = {} + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 696 + Top = 104 + end + object RMDBMain: TRMDBDataSet + Visible = True + Left = 736 + Top = 104 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.pas b/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.pas new file mode 100644 index 0000000..06de28e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_MeetingAPNew.pas @@ -0,0 +1,1192 @@ +unit U_MeetingAPNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxDropDownEdit, cxSplitter, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, cxCalendar, DBClient, ADODB, cxButtonEdit, cxTextEdit, + RM_Dataset, RM_Common, RM_Class, RM_e_Xls, RM_System, RM_GridReport; + +type + TfrmMeetingAPNew = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + Button9: TButton; + Button10: TButton; + Panel4: TPanel; + Panel6: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + Label1: TLabel; + Label2: TLabel; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + LiDanPerson: TEdit; + CustomerNoName: TEdit; + MPRTCode: TEdit; + MPRTGY: TEdit; + MPRTGYHZ: TEdit; + Label5: TLabel; + ZLLevel: TEdit; + ScrollBox8: TScrollBox; + Panel9: TPanel; + ScrollBox1: TScrollBox; + Panel10: TPanel; + Panel5: TPanel; + Label9: TLabel; + Panel7: TPanel; + Label23: TLabel; + Panel11: TPanel; + Button1: TButton; + Button2: TButton; + Panel12: TPanel; + PingDingNote: TRichEdit; + Panel13: TPanel; + Panel15: TPanel; + Label13: TLabel; + Panel14: TPanel; + Label14: TLabel; + Button3: TButton; + DS_OrderNo: TDataSource; + CDS_OrderNo: TClientDataSet; + cxGrid6: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + ADOQuery2: TADOQuery; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + Button5: TButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label11: TLabel; + Label31: TLabel; + SCYaoSu: TRichEdit; + Panel2: TPanel; + Label4: TLabel; + Button4: TButton; + OtherNote: TRichEdit; + Panel16: TPanel; + Panel3: TPanel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + Label24: TLabel; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Label29: TLabel; + Label30: TLabel; + ZPQty: TEdit; + CPQty: TEdit; + TJQty: TEdit; + CKQty: TEdit; + GDKK: TEdit; + KHMoney: TEdit; + SGJSSH: TEdit; + HZSH: TEdit; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn15: TcxGridDBColumn; + Tv4Column1: TcxGridDBColumn; + Tv4Column2: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Button6: TButton; + Button7: TButton; + ClientDataSet4: TClientDataSet; + DataSource4: TDataSource; + cxGrid2: TcxGrid; + TvOrderNoHZ: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DS_OrderNoHZ: TDataSource; + CDS_OrderNoHZ: TClientDataSet; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label10: TLabel; + Label32: TLabel; + Label33: TLabel; + MPRTCodeHZ: TEdit; + Button8: TButton; + ADOQuery3: TADOQuery; + Button11: TButton; + RM1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + RMDBMain: TRMDBDataSet; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button9Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure cxGridDBColumn14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn15PropertiesEditValueChanged(Sender: TObject); + procedure Tv4Column1PropertiesEditValueChanged(Sender: TObject); + procedure Tv4Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button10Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TvOrderNoHZCellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button8Click(Sender: TObject); + procedure MPRTCodeHZChange(Sender: TObject); + procedure Button11Click(Sender: TObject); + private + { Private declarations } + + public + { Public declarations } + FMainId:String; + PState:Integer; + end; + +var + frmMeetingAPNew: TfrmMeetingAPNew; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; +{$R *.dfm} + +procedure TfrmMeetingAPNew.FormDestroy(Sender: TObject); +begin + frmMeetingAPNew:=nil; +end; + +procedure TfrmMeetingAPNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMeetingAPNew.Button9Click(Sender: TObject); +begin + Close; + WriteCxGrid('1',Tv1,''); + WriteCxGrid('4',Tv4,''); + WriteCxGrid('5',Tv5,''); + WriteCxGrid('2',TvOrderNoHZ,''); +end; + +procedure TfrmMeetingAPNew.OrderNoChange(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(OrderNo.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid6.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True; +end; + +procedure TfrmMeetingAPNew.TvOrdeNoDblClick(Sender: TObject); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + SCYaoSu.Text:=Trim(ADOQueryTemp.fieldbyname('SCYaoSu').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(',GDPersent=dbo.F_Get_Order_SubStr(A.PSID,''GDPersent'')'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,2); + //Button3.Click; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set'); + if Trim(ZPQty.Text)<>'' then + SQL.Add('ZPQty='+ZPQty.Text) + else + SQL.Add('ZPQty=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add('PJFenShu=(select Avg(FenShu) from JYOrder_GD_FenShu A where A.PSID=JYOrder_Process.PSID) '); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' LDMoney=ZPQty*LDPrice*PJFenShu*1.00/10'); + sql.Add(',SHMoney=Cast(ZPQty*SHPrice*'); + sql.Add('(PSSH-(select SGJSSH from JYOrder_Main A where A.MainId=JYOrder_Process.MainId))*1.00/100 as decimal(18,2))'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' SHMoney=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PSName='''' and PSXH=1 '); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update JYOrder_Process Set SHMoney=SHMoney*PJFenShu*1.00/10'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and isnull(SHMoney,0)>0'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_PCS_GD Set '); + sql.Add(' LDMoney=(select LDMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' ,SHMoney=(select SHMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,HZMoney=isnull(LDMoney,0)+isnull(SHMoney,0)-isnull(KKMoney,0) from ('); + sql.Add('select GenDanPerson,LDMoney=sum(LDMoney),SHMoney=sum(SHMoney)'); + sql.Add(' ,KKMoney=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID '); + sql.Add(' where C.ORDMainId=A.MainId and B.ZZPerson=A.GenDanPerson and isnull(B.KKTYpe,'''')='''') '); + sql.Add(' from JYOrder_PCS_GD A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' group by GenDanPerson,MainId)AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + if ClientDataSet5.IsEmpty=False then + begin + KHMoney.Text:=Tv5.DataController.Summary.FooterSummaryTexts[5]; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + //FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + SCYaoSu.Text:=Trim(ADOQueryTemp.fieldbyname('SCYaoSu').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(',GDPersent=dbo.F_Get_Order_SubStr(A.PSID,''GDPersent'')'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,2); + //InitGrid(); +end; + +procedure TfrmMeetingAPNew.Button1Click(Sender: TObject); +var + maxno:String; +begin + if Trim(OrderNo.Text)='' then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'GF','JYOrder_GD_FenShu',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_GD_FenShu where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(ClientDataSet1.fieldbyname('PSID').AsString); + FieldByName('GFId').Value:=Trim(maxno); + FieldByName('GFDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet4 do + begin + Append; + FieldByName('GFId').Value:=Trim(maxno); + FieldByName('GFDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; + +procedure TfrmMeetingAPNew.cxGridDBColumn14PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with Self.ClientDataSet4 do + begin + Edit; + FieldByName('GenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_GD_FenShu Set GenDanPerson='''+Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + sql.Add(' where GFID='''+Trim(Self.ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMeetingAPNew.cxGridDBColumn15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxDateEdit(Sender).EditText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set GFDate='''+Trim(mvalue)+'''') + else + sql.Add('UPdate JYOrder_GD_FenShu Set GFDate=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('GFDate').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAPNew.Tv4Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxComboBox(Sender).EditText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set FenShu='+Trim(mvalue)) + else + sql.Add('UPdate JYOrder_GD_FenShu Set FenShu=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('FenShu').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAPNew.Tv4Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=null; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)<>'' then + sql.Add('UPdate JYOrder_GD_FenShu Set GFNote='''+Trim(mvalue)+'''') + else + sql.Add('UPdate JYOrder_GD_FenShu Set GFNote=Null'); + sql.Add(' where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet4 do + begin + Edit; + FieldByName('GFNote').Value:=mvalue; + Post; + end; +end; + +procedure TfrmMeetingAPNew.Button2Click(Sender: TObject); +begin + if ClientDataSet4.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete JYOrder_GD_FenShu where GFID='''+Trim(ClientDataSet4.fieldbyname('GFID').AsString)+''''); + ExecSQL; + end; + ClientDataSet4.Delete; +end; + +procedure TfrmMeetingAPNew.Button4Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main Set OtherNote='''+Trim(OtherNote.Text)+''''); + SQL.Add(' where Mainid='''+Trim(FMainId)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Exit; +end; + +procedure TfrmMeetingAPNew.Button5Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main Set PingDingNote='''+Trim(PingDingNote.Text)+''''); + SQL.Add(' where Mainid='''+Trim(FMainId)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Exit; +end; + +procedure TfrmMeetingAPNew.Button3Click(Sender: TObject); +var + fsj:string; +begin + with ADOQuery3 do + begin + Close; + sql.Clear; + sql.Add('select MainId,OrderNo,MPRTCodeHZ=MPRTCode from JYOrder_Main where OrdDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and OrdDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + end; + SCreateCDS20(ADOQuery3,CDS_OrderNoHZ); + SInitCDSData20(ADOQuery3,CDS_OrderNoHZ); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set'); + if Trim(ZPQty.Text)<>'' then + SQL.Add('ZPQty='+ZPQty.Text) + else + SQL.Add('ZPQty=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add('PJFenShu=(select Avg(FenShu) from JYOrder_GD_FenShu A where A.PSID=JYOrder_Process.PSID) '); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' LDMoney=ZPQty*LDPrice*PJFenShu*1.00/10'); + sql.Add(',SHMoney=Cast(ZPQty*SHPrice*'); + sql.Add('(PSSH-(select SGJSSH from JYOrder_Main A where A.MainId=JYOrder_Process.MainId))*1.00/100 as decimal(18,2))'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' SHMoney=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PSName='''' and PSXH=1 '); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update JYOrder_Process Set SHMoney=SHMoney*PJFenShu*1.00/10'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and isnull(SHMoney,0)>0'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_PCS_GD Set '); + sql.Add(' LDMoney=(select LDMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' ,SHMoney=(select SHMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,HZMoney=isnull(LDMoney,0)+isnull(SHMoney,0)-isnull(KKMoney,0) from ('); + sql.Add('select GenDanPerson,LDMoney=sum(LDMoney),SHMoney=sum(SHMoney)'); + sql.Add(' ,KKMoney=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID '); + sql.Add(' where C.ORDMainId=A.MainId and B.ZZPerson=A.GenDanPerson and isnull(B.KKTYpe,'''')='''') '); + sql.Add(' from JYOrder_PCS_GD A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' group by GenDanPerson,MainId)AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + if ClientDataSet5.IsEmpty=False then + begin + KHMoney.Text:=Tv5.DataController.Summary.FooterSummaryTexts[5]; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + //FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + SCYaoSu.Text:=Trim(ADOQueryTemp.fieldbyname('SCYaoSu').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(',GDPersent=dbo.F_Get_Order_SubStr(A.PSID,''GDPersent'')'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,2); + //TvOrdeNoDblClick(Sender); +end; + +procedure TfrmMeetingAPNew.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_GD_FenShu where PSID='''+Trim(ClientDataSet1.fieldbyname('PSID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet4); + SInitCDSData20(ADOQueryTemp,ClientDataSet4); +end; + +procedure TfrmMeetingAPNew.Button10Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmMeetingAPNew.FormShow(Sender: TObject); +begin + ReadCxGrid('1',Tv1,''); + ReadCxGrid('4',Tv4,''); + ReadCxGrid('5',Tv5,''); + ReadCxGrid('2',TvOrderNoHZ,''); + if Trim(FMainId)<>'' then + begin + cxGrid6.Visible:=False; + Button3.Click; + end; + if PState=2 then + begin + Button1.Visible:=False; + Button2.Visible:=False; + Button4.Visible:=False; + Button6.Visible:=False; + Button5.Visible:=False; + Button7.Visible:=False; + end; +end; + +procedure TfrmMeetingAPNew.FormCreate(Sender: TObject); +begin + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmMeetingAPNew.TvOrderNoHZCellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:String; +begin + OrderNo.Text:=CDS_OrderNoHZ.fieldbyname('OrderNo').AsString; + cxGrid6.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where Orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + SCYaoSu.Text:=Trim(ADOQueryTemp.fieldbyname('SCYaoSu').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(',GDPersent=dbo.F_Get_Order_SubStr(A.PSID,''GDPersent'')'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,2); + //Button3.Click; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set'); + if Trim(ZPQty.Text)<>'' then + SQL.Add('ZPQty='+ZPQty.Text) + else + SQL.Add('ZPQty=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add('PJFenShu=(select Avg(FenShu) from JYOrder_GD_FenShu A where A.PSID=JYOrder_Process.PSID) '); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' LDMoney=ZPQty*LDPrice*PJFenShu*1.00/10'); + sql.Add(',SHMoney=Cast(ZPQty*SHPrice*'); + sql.Add('(PSSH-(select SGJSSH from JYOrder_Main A where A.MainId=JYOrder_Process.MainId))*1.00/100 as decimal(18,2))'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set '); + sql.Add(' SHMoney=0'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and PSName='''' and PSXH=1 '); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update JYOrder_Process Set SHMoney=SHMoney*PJFenShu*1.00/10'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' and isnull(SHMoney,0)>0'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_PCS_GD Set '); + sql.Add(' LDMoney=(select LDMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' ,SHMoney=(select SHMoney from JYOrder_Process A where A.PSID=JYOrder_PCS_GD.PSID)*QtyPersent*1.00/100'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,HZMoney=isnull(LDMoney,0)+isnull(SHMoney,0)-isnull(KKMoney,0) from ('); + sql.Add('select GenDanPerson,LDMoney=sum(LDMoney),SHMoney=sum(SHMoney)'); + sql.Add(' ,KKMoney=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID '); + sql.Add(' where C.ORDMainId=A.MainId and B.ZZPerson=A.GenDanPerson and isnull(B.KKTYpe,'''')='''') '); + sql.Add(' from JYOrder_PCS_GD A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + sql.Add(' group by GenDanPerson,MainId)AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + if ClientDataSet5.IsEmpty=False then + begin + KHMoney.Text:=Tv5.DataController.Summary.FooterSummaryTexts[5]; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrder_Main A'); + sql.Add(' where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel6,2); + MPRTCode.Text:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString); + //FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + OtherNote.Text:=Trim(ADOQueryTemp.fieldbyname('OtherNote').AsString); + PingDingNote.Text:=Trim(ADOQueryTemp.fieldbyname('PingDingNote').AsString); + SCYaoSu.Text:=Trim(ADOQueryTemp.fieldbyname('SCYaoSu').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DlyDate=(select Min(PFDlyDate) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APPS=(select sum(PFTPPS) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APQty=(select Min(PFTPQty) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',APUnit=(select Min(PFTPUnit) from JYOrder_PCS_Sub B where B.PSID=A.PSID)'); + sql.Add(',MDDate=(select Max(MDDate) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDPS=(select sum(PS) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',MDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''MD%'')'); + sql.Add(',BDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=0)'); + sql.Add(',FBDQty=(select sum(Qty) from JYOrder_Main_MD B where B.PSID=A.PSID and B.MDNO like ''TJ%'' and OtherOrdFlag=1)'); + sql.Add(',GDPersent=dbo.F_Get_Order_SubStr(A.PSID,''GDPersent'')'); + sql.Add(' from JYOrder_Process A where MainId='''+Trim(FMainId)+''''); + SQL.Add(' and A.PSName not in(''װ'','''')'); + sql.Add(' order by A.PSXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ClientDataSet1 do + begin + ClientDataSet1.Last; + end; + fsj:=Trim(ClientDataSet1.fieldbyname('APUnit').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.HZSH,A.SGJSSH'); + if Trim(fsj)='M' then + begin + sql.Add(' ,ZPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + sql.Add(' ,CPQty=(select sum(MJLen) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'' )'); + end else + begin + sql.Add(' ,ZPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + sql.Add(' ,CPQty=(select sum(MJQty4) from WFB_MJJY B where B.MainId=A.MainId and isnull(MJType,'''')=''Ʒ'')'); + end; + sql.Add(' ,TJQty=(select Sum(Qty-CKQty) from JYOrder_Main_MD B where B.ORDMainId=A.MainId and B.MDNO like ''TJ%'')'); + sql.Add(' ,CKQty=(select Sum(FHQty) from JYOrder_FH B where B.MainId=A.MainId)'); + sql.Add(' ,GDKK=(select Sum(ZZPonMoney) from JYOrder_Main_MD_KK B '); + sql.Add(' inner join JYOrder_Main_MD C on B.MDID=C.MDID where C.ORDMainId=A.MainId)'); + sql.Add(' from JYOrder_Main A where MainId='''+Trim(FMainId)+''''); + //ShowMessage(sql.Text); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,2); + //InitGrid(); +end; + +procedure TfrmMeetingAPNew.Button8Click(Sender: TObject); +var + FFFF:String; +begin + if Trim(FMainId)='' then Exit; + FFFF:=FMainId; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + frmOrderInPutPrice.FMainId:=Trim(FFFF); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmMeetingAPNew.MPRTCodeHZChange(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,CDS_OrderNoHZ); + SInitCDSData20(ADOQuery3,CDS_OrderNoHZ); +end; + +procedure TfrmMeetingAPNew.Button11Click(Sender: TObject); +var + fPrintFile:String; +begin + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'),'ʾ',0); + end; + +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.dfm b/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.dfm new file mode 100644 index 0000000..b6c7684 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.dfm @@ -0,0 +1,181 @@ +object frmModuleNote: TfrmModuleNote + Left = 326 + Top = 178 + Width = 729 + Height = 528 + Align = alClient + Caption = #25805#20316#35828#26126 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid1: TcxGrid + Left = 0 + Top = 73 + Width = 713 + Height = 416 + Align = alClient + TabOrder = 0 + object TV1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object V1OrderNo: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'MNDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 117 + end + object V1Name: TcxGridDBColumn + Tag = 2 + Caption = #25805#20316#35828#26126 + DataBinding.FieldName = 'MNNOte' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 513 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 713 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Caption = #36873#25321 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 59 + Top = 0 + Caption = #22686#34892 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 118 + Top = 0 + Caption = #21024#34892 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBEdit: TToolButton + Left = 177 + Top = 0 + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBClose: TToolButton + Left = 236 + Top = 0 + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 713 + Height = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label2: TLabel + Left = -31 + Top = 13 + Width = 360 + Height = 16 + Caption = ' '#27880#65306#28966#28857#31163#24320#24403#21069#32534#36753#21333#20803#26684#20445#23384#25968#25454#12290 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 48 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 80 + Top = 144 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 112 + Top = 152 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 280 + Top = 144 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + Top = 144 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 168 + Top = 152 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.pas b/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.pas new file mode 100644 index 0000000..da2ac60 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ModuleNote.pas @@ -0,0 +1,220 @@ +unit U_ModuleNote; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, + StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, + cxTimeEdit, cxCalendar; + +type + TfrmModuleNote = class(TForm) + TV1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + V1Name: TcxGridDBColumn; + ToolBar1: TToolBar; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ToolButton1: TToolButton; + TBEdit: TToolButton; + V1OrderNo: TcxGridDBColumn; + Panel1: TPanel; + cxGridPopupMenu1: TcxGridPopupMenu; + Label2: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TV1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure V1NamePropertiesEditValueChanged(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + flag:string; + { Public declarations } + end; + +var + frmModuleNote: TfrmModuleNote; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmModuleNote.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmModuleNote.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from SY_Module_Note A where A.MNType='''+flag+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmModuleNote.TBAddClick(Sender: TObject); +begin + TV1.OptionsData.Editing:=True; + TV1.OptionsSelection.CellSelect:=True; + with ClientDataSet1 do + begin + Append; + FieldByName('MNDate').Value:=Now; + Post; + end; + +end; +procedure TfrmModuleNote.TBDelClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.FieldByName('MNID').AsString)<>'') then + begin + if application.MessageBox('ȷҪɾ?','ʾϢ',1)=2 then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete SY_Module_Note where MNID='''+Trim(ClientDataSet1.fieldbyname('MNID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmModuleNote.TBCloseClick(Sender: TObject); +begin + ModalResult:=2; + WriteCxGrid('Զ'+Trim(flag),TV1,'ģ˵'); + Close; +end; + +procedure TfrmModuleNote.FormShow(Sender: TObject); +var + fsj,fsj1:string; +begin + InitGrid(); + ReadCxGrid('Զ'+Trim(flag),TV1,'ģ˵'); + frmModuleNote.Caption:=Trim(flag); +end; + +procedure TfrmModuleNote.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid('Զ'+Trim(flag),TV1,'ģ˵'); + ModalResult:=1; +end; + +procedure TfrmModuleNote.TBEditClick(Sender: TObject); +begin + TV1.OptionsData.Editing:=True; + TV1.OptionsSelection.CellSelect:=True; +end; + +procedure TfrmModuleNote.TV1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TV1.OptionsData.Editing=False then + begin + ModalResult:=1; + end; +end; + +procedure TfrmModuleNote.V1NamePropertiesEditValueChanged(Sender: TObject); +var + maxno,mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + //Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MNNote').Value:=Trim(mvalue); + //Post; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(ClientDataSet1.FieldByName('MNID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'SY','SY_Module_Note',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet1.fieldbyname('MNID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select * from SY_Module_Note '); + sql.Add(' where MNID='''+Trim(ClientDataSet1.fieldbyname('MNID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet1.fieldbyname('MNID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=Now; + end + else begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=Now; + end; + FieldByName('MNDate').Value:=ClientDataSet1.fieldbyname('MNDate').Value; + FieldByName('MNID').Value:=Trim(maxno); + FieldByName('MNNote').Value:=ClientDataSet1.fieldbyname('MNNote').AsString; + FieldByName('MNType').Value:=flag; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('MNID').Value:=Trim(maxno); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.dfm new file mode 100644 index 0000000..a3b78a5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.dfm @@ -0,0 +1,342 @@ +object frmModulePromptList: TfrmModulePromptList + Left = 131 + Top = 161 + Width = 1133 + Height = 547 + Caption = #25105#30340#31649#23478 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1117 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1117 + Height = 66 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 75 + Top = 11 + Width = 84 + Height = 12 + Caption = #38144#21806#21512#21516#26410#23457#26680 + end + object Label2: TLabel + Left = 48 + Top = 8 + Width = 27 + Height = 16 + Caption = 'aa:' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 242 + Top = 11 + Width = 96 + Height = 12 + Caption = #29983#20135#25351#31034#21333#26410#23457#26680 + end + object Label4: TLabel + Left = 215 + Top = 8 + Width = 27 + Height = 16 + Caption = 'bb:' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 457 + Top = 11 + Width = 120 + Height = 12 + Caption = #29983#20135#25351#31034#21333#24037#24207#26410#23450#20041 + end + object Label6: TLabel + Left = 428 + Top = 8 + Width = 27 + Height = 16 + Caption = 'cc:' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 75 + Top = 40 + Width = 120 + Height = 12 + Caption = #29983#20135#25351#31034#21333#24037#24207#26410#23433#25490 + end + object Label8: TLabel + Left = 48 + Top = 37 + Width = 27 + Height = 16 + Caption = 'dd:' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 241 + Top = 40 + Width = 168 + Height = 12 + Caption = #29983#20135#25351#31034#21333#37319#36141#21152#24037#21512#21516#26410#24405#20837 + end + object Label10: TLabel + Left = 214 + Top = 37 + Width = 27 + Height = 16 + Caption = 'ee:' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 456 + Top = 40 + Width = 108 + Height = 12 + Caption = #29983#20135#25351#31034#21333#29983#20135#36229#26399 + end + object Label12: TLabel + Left = 428 + Top = 37 + Width = 27 + Height = 16 + Caption = 'ff:' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 627 + Top = 11 + Width = 84 + Height = 12 + Caption = #26597' '#35810' '#26465' '#20214 + end + object ModuleNote: TEdit + Tag = 2 + Left = 608 + Top = 36 + Width = 121 + Height = 20 + TabOrder = 0 + OnChange = ModuleNoteChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 98 + Width = 1117 + Height = 410 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + Column = v1Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column5: TcxGridDBColumn + Caption = #24453#22788#29702#20107#39033 + DataBinding.FieldName = 'ModuleNote' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_DDMD.FoneRed + Width = 843 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 475 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 440 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 195 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.pas b/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.pas new file mode 100644 index 0000000..9cce84c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ModulePromptList.pas @@ -0,0 +1,257 @@ +unit U_ModulePromptList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC; + +type + TfrmModulePromptList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column5: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + ModuleNote: TEdit; + Label13: TLabel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ModuleNoteChange(Sender: TObject); + private + FormID,FormType:Integer; + canshu1,canshu2:string; + formFile,FormPara,Formname,FFormPara:string; + FormPara1,FormPara2,FormPara3,FormPara4,FormPara5:string; + FormPara6,FormPara7,FormPara8,FormPara9,FormPara10:string; + procedure InitGrid(); + procedure InitForm(); + procedure InitDllEvt(FromFile:String;FormID:Integer;Para:String;FormType:Integer; Title: String; + Def1: String; Def2: String; Def3: String; Def4: String; Def5: String; + Def6: String; Def7: String; Def8: String; Def9: String; Def10: string); + + + + { Private declarations } + public + { Public declarations } + userID,username,ADOConnString:string; + end; + +var + frmModulePromptList: TfrmModulePromptList; + +implementation +uses + U_DataLink,U_RTFun; +type + TMyF = function( + App: TApplication; //Ӧó (Delphi) + FormH: HWND; //ڵĸھ (PB) + FormID: Integer; //ҪdllйܴId; ֻһܴڣFormIDĬΪ0 + Language: Integer; //0=Delphi; 1=PB + WinStyle: Integer; //0=Ӵ; 1ͨ (PBжΪͨ) + UID: PChar; //ûId + UName: PChar; //û + Para: PChar; + Title: PChar; + Defstr1: PChar; + Defstr2: PChar; + Defstr3: PChar; + Defstr4: PChar; + Defstr5: PChar; + Defstr6: PChar; + Defstr7: PChar; + Defstr8: PChar; + Defstr9: PChar; + Defstr10: PChar; + Datalink: PChar + ): HWND; stdcall; +var + TP: FARPROC; + Tf: TMyF; +{$R *.dfm} + +procedure TfrmModulePromptList.FormDestroy(Sender: TObject); +begin + frmModulePromptList:=nil; +end; + +procedure TfrmModulePromptList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmModulePromptList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('б',Tv1,'ҵĹܼ'); +end; + +procedure TfrmModulePromptList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add(' exec P_Chk_Tishi :DName,:DCode'); + Parameters.ParamByName('DName').Value:=Trim(DName); + Parameters.ParamByName('DCode').Value:=Trim(DCode); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmModulePromptList.InitForm(); +begin + FFormPara:=Trim(DConString); + ReadCxGrid('б',Tv1,'ҵĹܼ'); + InitGrid(); +end; + +procedure TfrmModulePromptList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmModulePromptList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmModulePromptList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmModulePromptList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; +procedure TfrmModulePromptList.InitDllEvt(FromFile:String;FormID:Integer;Para:String;FormType:Integer; Title: String; + Def1: String; Def2: String; Def3: String; Def4: String; Def5: String; + Def6: String; Def7: String; Def8: String; Def9: String; Def10: string); +var + Th: HMODULE; +begin + Th := LoadLibrary(PChar(FromFile)); + if Th > 0 then + begin + TP := GetProcAddress(Th, 'GetDllForm'); + if TP <> nil then + begin + Tf := TMyF(Tp); + Tf(Application, 0, FormID, 0, FormType, PChar(DCode), PChar(DName), PChar(Para), PChar(Title), + PChar(Def1), PChar(Def2),PChar(Def3),PChar(Def4),PChar(Def5), + PChar(Def6),PChar(Def7),PChar(Def8),PChar(Def9),PChar(Def10), + pchar(FFormPara)); + end; + end + else + begin + Application.MessageBox(PChar('򲻿ļ' + FromFile + ''), '', MB_ICONERROR); + end; +end; + + +procedure TfrmModulePromptList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_ModuleSub where ModuleId='''+Trim(Order_Main.fieldbyname('ModuleId').AsString)+''''); + sql.Add(' and ModuleSubId='''+Trim(Order_Main.fieldbyname('ModuleSubId').AsString)+''''); + Open; + end; + //FormID,FormType:Integer; + // formFile,FormPara,Formname:string; + // FormPara1,FormPara2,FormPara3,FormPara4,FormPara5:string; + //FormPara6,FormPara7,FormPara8,FormPara9,FormPara10:string; + formFile:=Trim(ADOQueryTemp.fieldbyname('FormFile').AsString); + FormID:=ADOQueryTemp.fieldbyname('FormID').AsInteger; + FormType:=ADOQueryTemp.fieldbyname('FormType').AsInteger; + Formname:=Trim(ADOQueryTemp.fieldbyname('Formname').AsString); + FormPara:=Trim(ADOQueryTemp.fieldbyname('FormPara').AsString); + // ShowMessage(FormPara); + FormPara1:=Trim(ADOQueryTemp.fieldbyname('FormPara1').AsString); + FormPara2:=Trim(ADOQueryTemp.fieldbyname('FormPara2').AsString); + FormPara3:=Trim(ADOQueryTemp.fieldbyname('FormPara3').AsString); + FormPara4:=Trim(ADOQueryTemp.fieldbyname('FormPara4').AsString); + FormPara5:=Trim(ADOQueryTemp.fieldbyname('FormPara5').AsString); + FormPara6:=Trim(ADOQueryTemp.fieldbyname('FormPara6').AsString); + FormPara7:=Trim(ADOQueryTemp.fieldbyname('FormPara7').AsString); + FormPara8:=Trim(ADOQueryTemp.fieldbyname('FormPara8').AsString); + FormPara9:=Trim(ADOQueryTemp.fieldbyname('FormPara9').AsString); + FormPara10:=Trim(ADOQueryTemp.fieldbyname('FormPara10').AsString); + InitDllEvt(formFile,FormID,FormPara,FormType,Formname,FormPara1,FormPara2, + FormPara3,FormPara4,FormPara5,FormPara6,FormPara7,FormPara8, + FormPara9,FormPara10); } +end; + +procedure TfrmModulePromptList.ModuleNoteChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.dfm new file mode 100644 index 0000000..96f1eab --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.dfm @@ -0,0 +1,299 @@ +object frmNBFPInPut: TfrmNBFPInPut + Left = 216 + Top = 84 + Width = 1030 + Height = 634 + Align = alClient + Caption = #20869#37096#21457#31080#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1014 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1014 + Height = 566 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 87 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column20PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 464 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 357 + Top = 65531 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 437 + Top = 65533 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 322 + Top = 65531 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 285 + Top = 65532 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 405 + Top = 65533 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.pas new file mode 100644 index 0000000..37c6272 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPut.pas @@ -0,0 +1,401 @@ +unit U_NBFPInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmNBFPInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmNBFPInPut: TfrmNBFPInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGHZSelList; + +{$R *.dfm} + +procedure TfrmNBFPInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); +end; + +procedure TfrmNBFPInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmNBFPInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmNBFPInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + InitData(); +end; +procedure TfrmNBFPInPut.GetMaxConNO(); +begin + +end; +function TfrmNBFPInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','FP_GYSNB',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FMID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FMID').Value:=Trim(maxno); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('NQID').Value:=Order_Sub.fieldbyname('NQID').Value; + //FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('FMType').Value:='NB'; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_GYSNB',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FPNO='''+Trim(Order_Sub.fieldbyname('FPNO').AsString)+''''); + sql.Add(' and isnull(FMType,'''')=''NB'' '); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox(PChar('Ʊ:'+Trim(Order_Sub.fieldbyname('FPNO').AsString)+'ظ!'),'',0); + Exit; + end; + Edit; + FieldByName('FMID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmNBFPInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('FPNO',null,[]) then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPDate',null,[]) then + begin + Application.MessageBox('ƱڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('GHDanWei',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmNBFPInPut.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmBGHZSelList:=TfrmBGHZSelList.Create(Application); + with frmBGHZSelList do + begin + if ShowModal=1 then + begin + with frmBGHZSelList.CDS_HZ do + begin + First; + while not Eof do + begin + if frmBGHZSelList.CDS_HZ.FieldByName('SSel').AsBoolean=True then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=frmBGHZSelList.CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGName').Value; + FieldByName('XHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('ComTaiTou').Value; + FieldByName('QtyUnit').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').Value; + if Trim(frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQMQty').Value + -frmBGHZSelList.CDS_HZ.FieldByName('FPQty').Value; + end else + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQkgQty').Value + -frmBGHZSelList.CDS_HZ.FieldByName('FPQty').Value; + end; + FieldByName('FPDate').Value:=FSQDate; + //Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmBGHZSelList.Free; + end; +end; + +procedure TfrmNBFPInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FMId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Sub.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmNBFPInPut.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmNBFPInPut.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.dfm b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.dfm new file mode 100644 index 0000000..e092f08 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.dfm @@ -0,0 +1,835 @@ +object frmNBFPInPutWGL: TfrmNBFPInPutWGL + Left = 71 + Top = 13 + Width = 1148 + Height = 702 + Align = alClient + Caption = #20869#37096#21457#31080#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1132 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1132 + Height = 209 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 87 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column20PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 49 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 238 + Width = 1132 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel1 + end + object Panel1: TPanel + Left = 0 + Top = 246 + Width = 1132 + Height = 417 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 1128 + Height = 31 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label9: TLabel + Left = 23 + Top = 10 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 64 + Top = 6 + Width = 183 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + object Button1: TButton + Left = 276 + Top = 4 + Width = 75 + Height = 25 + Caption = #26680#38144 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 388 + Top = 4 + Width = 75 + Height = 25 + Caption = #25764#38144#26680#38144 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + end + end + object cxGrid6: TcxGrid + Left = 2 + Top = 33 + Width = 1128 + Height = 127 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + OnCellDblClick = Tv6CellDblClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column1 + end + item + Kind = skSum + Column = Tv6Column1 + end + item + Kind = skSum + Column = v6Column3 + end + item + Kind = skSum + Column = v6Column8 + end + item + Kind = skSum + Column = v6Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v6Column5: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v6Column7: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v6BCOrderNo: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 138 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv6Column1: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v6Column10: TcxGridDBColumn + Caption = #24320#31080#21333#20301 + DataBinding.FieldName = 'FPDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v6Column11: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v6Column8: TcxGridDBColumn + Caption = #24050#24320#20869#37096#21457#31080#25968#37327 + DataBinding.FieldName = 'FPQty' + Options.Editing = False + Width = 116 + end + object v6Column9: TcxGridDBColumn + Caption = #24050#24320#20869#37096#21457#31080#37329#39069 + DataBinding.FieldName = 'FPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 115 + end + object Tv6Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v6Column12: TcxGridDBColumn + Caption = #24050#24320#22806#38144#21457#31080#25968#37327 + DataBinding.FieldName = 'WXFPQty' + Options.Editing = False + Width = 112 + end + object v6Column13: TcxGridDBColumn + Caption = #24050#24320#22806#38144#21457#31080#37329#39069'$' + DataBinding.FieldName = 'WXFPMoney' + Options.Editing = False + Width = 116 + end + object v6Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NQNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv6 + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 160 + Width = 1128 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 2 + Top = 168 + Width = 1128 + Height = 247 + Align = alBottom + TabOrder = 3 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn10 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn2: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column7: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column11: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Options.Editing = False + Width = 72 + end + object v2Column1: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'BCHXMoney' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 464 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 357 + Top = 65531 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 983 + Top = 488 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 694 + Top = 140 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 437 + Top = 65533 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 322 + Top = 65531 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 285 + Top = 65532 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 405 + Top = 65533 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 946 + Top = 494 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 619 + Top = 146 + end + object DataSource3: TDataSource + DataSet = CDS_HZ + Left = 320 + Top = 366 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 352 + Top = 366 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 384 + Top = 366 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 416 + Top = 366 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 368 + Top = 462 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 336 + Top = 462 + end + object DataSource4: TDataSource + DataSet = Order_Main + Left = 304 + Top = 462 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 384 + Top = 110 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.pas b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.pas new file mode 100644 index 0000000..2df72bb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGL.pas @@ -0,0 +1,788 @@ +unit U_NBFPInPutWGL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmNBFPInPutWGL = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Panel2: TPanel; + Label9: TLabel; + OrderNo: TEdit; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6Column5: TcxGridDBColumn; + v6Column7: TcxGridDBColumn; + v6BCOrderNo: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + Tv6Column1: TcxGridDBColumn; + v6Column10: TcxGridDBColumn; + v6Column11: TcxGridDBColumn; + v6Column8: TcxGridDBColumn; + v6Column9: TcxGridDBColumn; + Tv6Column2: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column12: TcxGridDBColumn; + v6Column13: TcxGridDBColumn; + v6Column4: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxSplitter2: TcxSplitter; + DataSource3: TDataSource; + CDS_HZ: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + Order_Main: TClientDataSet; + DataSource4: TDataSource; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column1: TcxGridDBColumn; + Button1: TButton; + Button2: TButton; + cxGridPopupMenu4: TcxGridPopupMenu; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv6CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + procedure InitGYSFP(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmNBFPInPutWGL: TfrmNBFPInPutWGL; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGHZSelList; + +{$R *.dfm} + +procedure TfrmNBFPInPutWGL.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + WriteCxGrid('Ӧ̷Ʊ¼6',Tv6,'Ʊ'); + WriteCxGrid('Ӧ̷Ʊ¼2',Tv2,'Ʊ'); +end; + +procedure TfrmNBFPInPutWGL.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmNBFPInPutWGL.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmNBFPInPutWGL.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + ReadCxGrid('Ӧ̷Ʊ¼6',Tv6,'Ʊ'); + ReadCxGrid('Ӧ̷Ʊ¼2',Tv2,'Ʊ'); + InitData(); +end; +procedure TfrmNBFPInPutWGL.GetMaxConNO(); +begin + +end; +function TfrmNBFPInPutWGL.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','FP_GYSNB',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FMID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FMID').Value:=Trim(maxno); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('NQID').Value:=Order_Sub.fieldbyname('NQID').Value; + //FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('FMType').Value:='NB'; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_GYSNB',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FPNO='''+Trim(Order_Sub.fieldbyname('FPNO').AsString)+''''); + sql.Add(' and isnull(FMType,'''')=''NB'' '); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox(PChar('Ʊ:'+Trim(Order_Sub.fieldbyname('FPNO').AsString)+'ظ!'),'',0); + Exit; + end; + Edit; + FieldByName('FMID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmNBFPInPutWGL.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('FPNO',null,[]) then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPDate',null,[]) then + begin + Application.MessageBox('ƱڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('GHDanWei',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmNBFPInPutWGL.ToolButton3Click(Sender: TObject); +var + FSQDate:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmBGHZSelList:=TfrmBGHZSelList.Create(Application); + with frmBGHZSelList do + begin + if ShowModal=1 then + begin + with frmBGHZSelList.CDS_HZ do + begin + First; + while not Eof do + begin + if frmBGHZSelList.CDS_HZ.FieldByName('SSel').AsBoolean=True then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=frmBGHZSelList.CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGName').Value; + FieldByName('XHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('ComTaiTou').Value; + FieldByName('QtyUnit').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').Value; + if Trim(frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQMQty').Value + -frmBGHZSelList.CDS_HZ.FieldByName('FPQty').Value; + end else + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQkgQty').Value + -frmBGHZSelList.CDS_HZ.FieldByName('FPQty').Value; + end; + FieldByName('FPDate').Value:=FSQDate; + //Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmBGHZSelList.Free; + end; +end; + +procedure TfrmNBFPInPutWGL.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FMId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(HXMoney),0) HXMoney from FP_Money_HX where NBFMID='''+Trim(Order_Sub.fieldbyname('FMId').AsString)+''''); + sql.Add(' and isnull(Type,'''')=''Ӧ̷Ʊ'' '); + Open; + end; + if ADOTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('кݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Sub.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmNBFPInPutWGL.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmNBFPInPutWGL.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNBFPInPutWGL.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus,C.BCOrderNo '); + sql.Add(' ,FPMoney=isnull((select Sum(Money) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,FPQty=isnull((select Sum(Qty) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(',FPDanWei=(select Top 1 GHDanWei from FP_GYSNB AA where AA.NQID=A.NQID)'); + sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=B.OrderNo)'); + sql.Add(' ,WXFPMoney=isnull((select Sum(Money) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,WXFPQty=isnull((select Sum(Qty) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' from JYOrder_BG_CKName_Qty A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where B.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmNBFPInPutWGL.Tv6CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=CDS_HZ.FieldByName('BGName').Value; + //FieldByName('XHDanWei').Value:=Order_Main.FieldByName('GHDanWei').Value; + FieldByName('GHDanWei').Value:=CDS_HZ.FieldByName('ComTaiTou').Value; + FieldByName('QtyUnit').Value:=CDS_HZ.FieldByName('NQUnit').Value; + if Trim(CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=CDS_HZ.FieldByName('NQMQty').Value + -CDS_HZ.FieldByName('FPQty').Value; + end else + begin + FieldByName('Qty').Value:=CDS_HZ.FieldByName('NQkgQty').Value + -CDS_HZ.FieldByName('FPQty').Value; + end; + FieldByName('FPDate').Value:=SGetServerDate(ADOTemp); + //Post; + end; +end; + +procedure TfrmNBFPInPutWGL.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0),BCHXMoney=Cast(0 as decimal(18,2) ) '); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.BCID='''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+''' and A.FMType=''GYS'' '); + sql.Add(' union All'); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0),BCHXMoney=Cast(0 as decimal(18,2) ) '); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMType=''GYS'' '); + sql.Add(' and isnull(A.BCID,'''')<>'''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+''''); + SQL.Add(' and A.Money<>isnull(A.HXMoney,0)'); + sql.Add(' and A.FactoryName in('); + sql.Add(' select A.FactoryName '); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.BCID='''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+''' and A.FMType=''GYS'' '); + sql.Add(')'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); } +end; + +procedure TfrmNBFPInPutWGL.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('XHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNBFPInPutWGL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus,C.BCOrderNo '); + sql.Add(' ,FPMoney=isnull((select Sum(Money) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,FPQty=isnull((select Sum(Qty) from FP_GYSNB AA where AA.NQID=A.NQID),0)'); + sql.Add(',FPDanWei=(select Top 1 GHDanWei from FP_GYSNB AA where AA.NQID=A.NQID)'); + sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=B.OrderNo)'); + sql.Add(' ,WXFPMoney=isnull((select Sum(Money) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' ,WXFPQty=isnull((select Sum(Qty) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)'); + sql.Add(' from JYOrder_BG_CKName_Qty A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where B.OrderNo='''+Trim(Order_Sub.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + InitGYSFP(); +end; + +procedure TfrmNBFPInPutWGL.Button1Click(Sender: TObject); +var + maxno,FFHID:string; +begin + if Order_Sub.IsEmpty then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(Order_Sub.FieldByName('FMID').AsString)='' then + begin + Application.MessageBox('δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + try + ADOCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from FP_Money_HX where NBFMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + sql.Add(' and GYSFMID='''+Trim(Order_Main.fieldbyname('FMID').AsString)+''''); + open; + end; + FFHID:=Trim(ADOTemp.fieldbyname('FHID').AsString); + if Trim(FFHID)='' then + begin + if GetLSNo(ADOCmd,maxno,'FH','FP_Money_HX',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƱʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FFHID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_Money_HX where FHID='''+Trim(FFHID)+''''); + open; + end; + with ADOCmd do + begin + if Trim(FFHID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FHID').Value:=Trim(maxno); + FieldByName('GYSFMID').Value:=Trim(Order_Main.fieldbyname('FMID').AsString); + FieldByName('NBFMID').Value:=Trim(Order_Sub.fieldbyname('FMID').AsString); + if Trim(Order_Main.fieldbyname('BCHXMoney').AsString)='' then + begin + FieldByName('HXMoney').Value:=0; + end else + begin + FieldByName('HXMoney').Value:=Order_Main.fieldbyname('BCHXMoney').Value; + end; + FieldByName('Type').Value:='Ӧ̷Ʊ'; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update FP_GYSNB Set HXMoney=(select Sum(HXMoney) from FP_Money_HX A'); + sql.Add(' where A.GYSFMID=FP_GYSNB.FMID)'); + sql.Add(' where FMID='''+Trim(Order_Main.fieldbyname('FMID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + InitGYSFP(); + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +procedure TfrmNBFPInPutWGL.InitGYSFP(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + {sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus, '); + sql.Add(' FPMoney=(select Sum(Money) from FP_GYSNB AA where AA.BFID=A.BFID)'); + sql.Add(' from JYOrder_BG_KPFee A '); + sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId'); + SQL.Add(' where A.BCID='''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+'''');} + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(' ,BCHXMoney=(select HXMoney from FP_Money_HX HX where HX.GYSFMID=A.FMID '); + SQL.Add(' and HX.NBFMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''')'); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.BCID='''+Trim(Order_Sub.fieldbyname('BCID').AsString)+''' and A.FMType=''GYS'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + sql.Add(' union All'); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0) '); + sql.Add(' ,BCHXMoney=(select HXMoney from FP_Money_HX HX where HX.GYSFMID=A.FMID '); + SQL.Add(' and HX.NBFMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''')'); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMType=''GYS'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + sql.Add(' and isnull(A.BCID,'''')<>'''+Trim(Order_Sub.fieldbyname('BCID').AsString)+''''); + SQL.Add(' and A.Money<>isnull(A.HXMoney,0)'); + sql.Add(' and A.FactoryName in('); + sql.Add(' select A.FactoryName '); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.BCID='''+Trim(Order_Sub.fieldbyname('BCID').AsString)+''' and A.FMType=''GYS'' '); + sql.Add(')'); + + sql.Add(' union All'); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0) '); + sql.Add(' ,BCHXMoney=(select HXMoney from FP_Money_HX HX where HX.GYSFMID=A.FMID '); + SQL.Add(' and HX.NBFMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''')'); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where A.FMType=''GYS'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + SQL.Add(' and A.Money=isnull(A.HXMoney,0)'); + sql.Add(' and isnull(A.BCID,'''')='''' '); + SQL.Add(' and exists(select * from FP_Money_HX FH where FH.GYSFMID=A.FMID'); + sql.Add(' and FH.NBFMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''')'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.dfm b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.dfm new file mode 100644 index 0000000..c74b22d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.dfm @@ -0,0 +1,624 @@ +object frmNBFPInPutWGLBCOrderNo: TfrmNBFPInPutWGLBCOrderNo + Left = 125 + Top = 60 + Width = 1148 + Height = 702 + Align = alClient + Caption = #20869#37096#21457#31080#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1132 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 122 + Top = 0 + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object Panel3: TPanel + Left = 181 + Top = 0 + Width = 308 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 16 + Top = 8 + Width = 65 + Height = 12 + Caption = #25253#20851#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BGOrderNo: TEdit + Left = 88 + Top = 5 + Width = 209 + Height = 20 + TabOrder = 0 + end + end + object TBClose: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1132 + Height = 268 + Align = alTop + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column9: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 87 + end + object v1Column6: TcxGridDBColumn + Caption = #21457#31080#31867#22411 + DataBinding.FieldName = 'FPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #25253#20851 + #20869#38144) + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column20PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column18PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 49 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 297 + Width = 1132 + Height = 366 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Panel2: TPanel + Left = 2 + Top = 2 + Width = 1128 + Height = 31 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object ToolBar2: TToolBar + Left = 2 + Top = 2 + Width = 1124 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object Panel4: TPanel + Left = 126 + Top = 0 + Width = 104 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object CheckBox1: TCheckBox + Left = 7 + Top = 8 + Width = 95 + Height = 17 + Caption = #19981#25353#21333#20215#35745#31639 + TabOrder = 0 + end + end + end + end + object cxGrid2: TcxGrid + Left = 2 + Top = 33 + Width = 1128 + Height = 331 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn2: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column1: TcxGridDBColumn + Caption = #26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column2: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 640 + Top = 13 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 661 + Top = 11 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 543 + Top = 104 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 510 + Top = 100 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 618 + Top = 3 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 501 + Top = 53 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 482 + Top = 102 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 419 + Top = 370 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 320 + Top = 366 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 384 + Top = 366 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.pas b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.pas new file mode 100644 index 0000000..47d63ea --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPInPutWGLBCOrderNo.pas @@ -0,0 +1,775 @@ +unit U_NBFPInPutWGLBCOrderNo; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmNBFPInPutWGLBCOrderNo = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOZDY: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ClientDataSet2: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Panel2: TPanel; + DataSource2: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton2: TToolButton; + ToolButton5: TToolButton; + Panel3: TPanel; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + BGOrderNo: TEdit; + v1Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Panel4: TPanel; + CheckBox1: TCheckBox; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + private + procedure InitData(); + function SaveData():Boolean; + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmNBFPInPutWGLBCOrderNo: TfrmNBFPInPutWGLBCOrderNo; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSFPSelList; + +{$R *.dfm} + +procedure TfrmNBFPInPutWGLBCOrderNo.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + WriteCxGrid('Ӧ̷Ʊ¼2',Tv2,'Ʊ'); +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.InitData(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from FP_BGOrderNo where FNID='''+Trim(FMainId)+''''); + Open; + end; + BGOrderNo.Text:=Trim(ADOQuery1.fieldbyname('BGOrderNo').AsString); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from FP_GYSNB A'); + sql.Add(' where A.FNID='''+Trim(FMainId)+''''); + sql.Add(' and isnull(FMType,'''')=''NB'' '); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' select A.*,B.HXQty,B.HXMoney,B.FHID '); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' inner join FP_Money_HX B on A.FMID=B.GYSFMID'); + sql.Add(' where B.FNID='''+Trim(FMainId)+''''); + sql.Add(' and isnull(FMType,'''')=''GYS'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); +end; + + + +procedure TfrmNBFPInPutWGLBCOrderNo.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ̷Ʊ¼',Tv1,'Ʊ'); + ReadCxGrid('Ӧ̷Ʊ¼2',Tv2,'Ʊ'); + InitData(); +end; + +function TfrmNBFPInPutWGLBCOrderNo.SaveData():Boolean; +var + maxno,MaxNoFN,maxNoFH,FFHID:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + //汨ض + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,MaxNoFN,'FN','FP_BGOrderNo',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxnoFN:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_BGOrderNo where FNID='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FNID').Value:=Trim(MaxNoFN); + FieldByName('BGOrderNo').Value:=Trim(BGOrderNo.Text); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_BGOrderNo where BGOrderNo='''+Trim(BGOrderNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ضظ!','ʾ',0); + exit; + end; + //ڲƱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'FM','FP_GYSNB',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('FMID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_GYSNB where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FMID').Value:=Trim(maxno); + FieldByName('FNID').Value:=Trim(maxnoFN); + FieldByName('FMType').Value:='NB'; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_GYSNB',0) ; + if Trim(Order_Sub.fieldbyname('FMID').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FPNO='''+Trim(Order_Sub.fieldbyname('FPNO').AsString)+''''); + sql.Add(' and isnull(FMType,'''')=''NB'' '); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox(PChar('Ʊ:'+Trim(Order_Sub.fieldbyname('FPNO').AsString)+'ظ!'),'',0); + Exit; + end; + Edit; + FieldByName('FMID').Value:=Trim(maxno); + Next; + end; + + end; + //Ӧ̷Ʊ + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from FP_Money_HX where '); + sql.Add(' FNID='''+Trim(MaxNoFN)+''''); + sql.Add(' and GYSFMID='''+Trim(ClientDataSet2.fieldbyname('FMID').AsString)+''''); + Open; + end; + FFHID:=Trim(ADOTemp.fieldbyname('FHID').AsString); + if Trim(FFHID)='' then + begin + if GetLSNo(ADOCmd,maxNoFH,'FH','FP_Money_HX',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӦ̷Ʊˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxNoFH:=Trim(FFHID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from FP_Money_HX'); + sql.Add(' where FHID='''+Trim(FFHID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FFHID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FHID').Value:=Trim(maxNoFH); + FieldByName('FNID').Value:=Trim(MaxNoFN); + FieldByName('GYSFMID').Value:=Trim(ClientDataSet2.fieldbyname('FMID').AsString); + FieldByName('HXQty').Value:=ClientDataSet2.fieldbyname('HXQty').Value; + FieldByName('HXMoney').Value:=ClientDataSet2.fieldbyname('HXMoney').Value; + FieldByName('Type').Value:='Ӧ̷Ʊ'; + Post; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add(' Update FP_GYSNB Set '); + sql.Add(' HXQty=(select sum(isnull(HXQty,0)) from FP_Money_HX A'); + sql.Add(' where A.GYSFMID=FP_GYSNB.FMID and A.Type=''Ӧ̷Ʊ'')'); + sql.Add(' ,HXMoney=(select sum(isnull(HXMoney,0)) from FP_Money_HX A'); + sql.Add(' where A.GYSFMID=FP_GYSNB.FMID and A.Type=''Ӧ̷Ʊ'')'); + sql.Add(' where FMID='''+Trim(ClientDataSet2.fieldbyname('FMID').AsString)+''''); + ExecSQL; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add(' select DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where FMID='''+Trim(ClientDataSet2.fieldbyname('FMID').AsString)+''''); + Open; + end; + if ADOTemp.FieldByName('DHXQty').Value<0 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ڷƱ!','ʾ',0); + Exit; + end; + if ADOTemp.FieldByName('DHXMoney').Value<0 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ڷƱ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('FHID').Value:=Trim(maxNoFH); + Next; + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from FP_Money_HX where isnull(HXQty,0)=0 and isnull(HXMoney,0)=0'); + sql.Add(' and FNID='''+Trim(MaxNoFN)+''''); + sql.Add(' and Type=''Ӧ̷Ʊ'' '); + ExecSQL; + end; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(MaxNoFN); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Trim(BGOrderNo.Text)='' then + begin + Application.MessageBox('ضŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ڲƱݲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPNO',null,[]) then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPType',null,[]) then + begin + Application.MessageBox('ƱͲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FPDate',null,[]) then + begin + Application.MessageBox('ƱڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('GHDanWei',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('XHDanWei',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('BGName',null,[]) then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='λ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='λ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('XHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.v1Column18PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BGName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('BGName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.ToolButton2Click(Sender: TObject); +begin + try + frmGYSFPSelList:=TfrmGYSFPSelList.Create(Application); + with frmGYSFPSelList do + begin + if ShowModal=1 then + begin + with frmGYSFPSelList.Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + if Self.ClientDataSet2.Locate('FMID',Trim(frmGYSFPSelList.Order_Main.fieldbyname('FMID').AsString),[])=False then + begin + with Self.ClientDataSet2 do + begin + Append; + FieldByName('FMId').Value:=frmGYSFPSelList.Order_Main.FieldByName('FMId').Value; + FieldByName('BCOrderNo').Value:=frmGYSFPSelList.Order_Main.FieldByName('BCOrderNo').Value; + FieldByName('FPNO').Value:=frmGYSFPSelList.Order_Main.FieldByName('FPNO').Value; + FieldByName('FPDate').Value:=frmGYSFPSelList.Order_Main.FieldByName('FPDate').Value; + FieldByName('FactoryName').Value:=frmGYSFPSelList.Order_Main.FieldByName('FactoryName').Value; + FieldByName('GHDanWei').Value:=frmGYSFPSelList.Order_Main.FieldByName('GHDanWei').Value; + FieldByName('XHDanWei').Value:=frmGYSFPSelList.Order_Main.FieldByName('XHDanWei').Value; + FieldByName('BFName').Value:=frmGYSFPSelList.Order_Main.FieldByName('BFName').Value; + FieldByName('QtyUnit').Value:=frmGYSFPSelList.Order_Main.FieldByName('QtyUnit').Value; + FieldByName('Qty').Value:=frmGYSFPSelList.Order_Main.FieldByName('Qty').Value; + FieldByName('Price').Value:=frmGYSFPSelList.Order_Main.FieldByName('Price').Value; + FieldByName('Money').Value:=frmGYSFPSelList.Order_Main.FieldByName('Money').Value; + FieldByName('HXQty').Value:=frmGYSFPSelList.Order_Main.FieldByName('DHXQty').Value; + FieldByName('HXMoney').Value:=frmGYSFPSelList.Order_Main.FieldByName('DHXMoney').Value; + //Post; + end; + end; + frmGYSFPSelList.Order_Main.Delete; + + end; + end; + end; + end; + finally + frmGYSFPSelList.Free; + end; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.ToolButton5Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from FP_Money_HX '); + sql.Add(' where FHID='''+Trim(ClientDataSet2.fieldbyname('FHID').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add(' Update FP_GYSNB Set '); + sql.Add(' HXQty=(select sum(isnull(HXQty,0)) from FP_Money_HX A'); + sql.Add(' where A.GYSFMID=FP_GYSNB.FMID and A.Type=''Ӧ̷Ʊ'')'); + sql.Add(' ,HXMoney=(select sum(isnull(HXMoney,0)) from FP_Money_HX A'); + sql.Add(' where A.GYSFMID=FP_GYSNB.FMID and A.Type=''Ӧ̷Ʊ'')'); + sql.Add(' where FMID='''+Trim(ClientDataSet2.fieldbyname('FMID').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Delete; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.ToolButton1Click(Sender: TObject); +begin + if Order_Sub.IsEmpty=False then + begin + CopyAddRowCDS(Order_Sub); + end else + begin + with Order_Sub do + begin + Append; + FieldByName('FPType').Value:=''; + FieldByName('FPDate').Value:=SGetServerDate(ADOTemp); + Post; + end; + end; + with Order_Sub do + begin + Edit; + FieldByName('FMID').Value:=Null; + FieldByName('FPNO').Value:=Null; + Post; + end; + +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.FieldByName('FMID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' delete from FP_GYSNB '); // Set HXMoney=Money,FNID=Null + sql.Add(' where FMID='''+Trim(Order_Sub.fieldbyname('FMID').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmNBFPInPutWGLBCOrderNo.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + if CheckBox1.Checked=True then Exit; + FName:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with ClientDataSet2 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=ClientDataSet2.fieldbyname('HXQty').AsString; + FPrice:=ClientDataSet2.fieldbyname('Price').AsString; + FMoney:=ClientDataSet2.fieldbyname('HXMoney').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'HXMoney' then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('HXMoney').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FPrice)<>'0' then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('HXQty').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FPrice); + Post; + end; + end else + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('HXQty').Value:=Null; + Post; + end; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.dfm new file mode 100644 index 0000000..c06f12f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.dfm @@ -0,0 +1,738 @@ +object frmNBFPKCList: TfrmNBFPKCList + Left = 119 + Top = 123 + Width = 1072 + Height = 547 + Caption = #20869#37096#21457#31080#24211#23384 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1056 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1056 + Height = 62 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label8: TLabel + Left = 31 + Top = 12 + Width = 65 + Height = 12 + Caption = #25253#20851#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 369 + Top = 12 + Width = 65 + Height = 12 + Caption = #20869#37096#21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 525 + Top = 12 + Width = 52 + Height = 12 + Caption = #36141#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 199 + Top = 12 + Width = 65 + Height = 12 + Caption = #35746#21333#35782#21035#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 30 + Top = 42 + Width = 26 + Height = 12 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 147 + Top = 42 + Width = 26 + Height = 12 + Caption = #37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 280 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 440 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 613 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 773 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BGOrderNo: TEdit + Tag = 2 + Left = 97 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 0 + OnChange = WorkerChange + end + object FPNO: TEdit + Tag = 2 + Left = 435 + Top = 8 + Width = 75 + Height = 20 + TabOrder = 1 + OnChange = WorkerChange + end + object GHDanWei: TEdit + Tag = 2 + Left = 578 + Top = 8 + Width = 75 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object BCOrderNoHZ: TEdit + Tag = 2 + Left = 265 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + object Qty: TEdit + Tag = 3 + Left = 57 + Top = 38 + Width = 87 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object Money: TEdit + Tag = 3 + Left = 175 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + end + object HXQty: TEdit + Tag = 3 + Left = 347 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + end + object HXMoney: TEdit + Tag = 3 + Left = 507 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object DHXQty: TEdit + Tag = 3 + Left = 680 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + end + object DHXMoney: TEdit + Tag = 3 + Left = 840 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + end + object Button1: TButton + Left = 950 + Top = 37 + Width = 75 + Height = 20 + Caption = #20840#36873#21512#35745 + TabOrder = 10 + Visible = False + OnClick = Button1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 94 + Width = 1056 + Height = 414 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column16: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column6: TcxGridDBColumn + Caption = #25253#20851#35746#21333#21495 + DataBinding.FieldName = 'BGOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column11: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNoHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column9: TcxGridDBColumn + Caption = #20869#37096#21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column14: TcxGridDBColumn + Caption = #24050#26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column15: TcxGridDBColumn + Caption = #24453#26680#38144#25968#37327 + DataBinding.FieldName = 'DHXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column4: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column7: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.pas new file mode 100644 index 0000000..ec4cd2b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPKCList.pas @@ -0,0 +1,621 @@ +unit U_NBFPKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmNBFPKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label8: TLabel; + BGOrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Label1: TLabel; + BCOrderNoHZ: TEdit; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + Qty: TEdit; + Label9: TLabel; + Money: TEdit; + Label10: TLabel; + HXQty: TEdit; + Label11: TLabel; + HXMoney: TEdit; + Label12: TLabel; + DHXQty: TEdit; + Label13: TLabel; + DHXMoney: TEdit; + Button1: TButton; + v1Column16: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure v1Column16PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + procedure HZClear(); + { Private declarations } + public + { Public declarations } + end; + +var + frmNBFPKCList: TfrmNBFPKCList; + +implementation +uses + U_DataLink,U_RTFun,U_NBFPInPut,U_ModuleNote, U_ZDYHelp,U_NBFPInPutWGL; + +{$R *.dfm} + +procedure TfrmNBFPKCList.FormDestroy(Sender: TObject); +begin + frmNBFPKCList:=nil; +end; + +procedure TfrmNBFPKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmNBFPKCList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ڲƱ',Tv1,'Ʊ'); +end; + +procedure TfrmNBFPKCList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0),B.BGOrderNo'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + sql.Add(',BCOrderNoHZ=dbo.F_Get_Order_SubStr(A.FNID,''BCOrderNo'')'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' left join FP_BGOrderNo B on A.FNID=B.FNID'); + sql.Add(' where isnull(FMType,'''')=''NB'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%QC%'' '); + sql.Add(' and isnull(A.FPNO,'''') not like ''%TZ%'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmNBFPKCList.InitForm(); +begin + + ReadCxGrid('ڲƱ',Tv1,'Ʊ'); + //InitGrid(); +end; + +procedure TfrmNBFPKCList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + + try + frmNBFPInPutWGL:=TfrmNBFPInPutWGL.Create(Application); + with frmNBFPInPutWGL do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FMID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmNBFPInPutWGL.Free; + end; +end; + +procedure TfrmNBFPKCList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(HXMoney),0) HXMoney from FP_Money_HX where NBFMID='''+Trim(Order_Main.fieldbyname('FMId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('кݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmNBFPKCList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Main.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmNBFPKCList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ڲƱ',cxGrid1); +end; + +procedure TfrmNBFPKCList.TBRafreshClick(Sender: TObject); +begin + HZClear(); + InitGrid(); +end; +procedure TfrmNBFPKCList.HZClear(); +begin + Qty.Text:=''; + Money.Text:=''; + HXQty.Text:=''; + HXMoney.Text:=''; + DHXQty.Text:=''; + DHXMoney.Text:=''; +end; +procedure TfrmNBFPKCList.TBAddClick(Sender: TObject); +begin + try + frmNBFPInPutWGL:=TfrmNBFPInPutWGL.Create(Application); + with frmNBFPInPutWGL do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmNBFPInPutWGL.Free; + end; +end; + +procedure TfrmNBFPKCList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); +end; + +procedure TfrmNBFPKCList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmNBFPKCList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲƱ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmNBFPKCList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmNBFPKCList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + SQL.Add(' from FP_GYSNB A'); + sql.Add(' where isnull(A.FMType,'''')=''NB'' '); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmNBFPKCList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmNBFPKCList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmNBFPKCList.WorkerChange(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmNBFPKCList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmNBFPKCList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmNBFPKCList.ToolButton1Click(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmNBFPKCList.v1Column16PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + if Trim(Qty.Text)='' then + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if Trim(HXQty.Text)='' then + HXQty.Text:='0'; + FHXQty:=StrToFloat(HXQty.Text); + if Trim(HXMoney.Text)='' then + HXMoney.Text:='0'; + FHXMoney:=StrToFloat(HXMoney.Text); + if Trim(DHXQty.Text)='' then + DHXQty.Text:='0'; + FDHXQty:=StrToFloat(DHXQty.Text); + if Trim(DHXMoney.Text)='' then + DHXMoney.Text:='0'; + FDHXMoney:=StrToFloat(DHXMoney.Text); + if Order_Main.IsEmpty then Exit; + FMID:=Trim(Order_Main.fieldbyname('FMID').AsString); + mvalue:=TcxCheckBox(Sender).EditingValue; + with Order_Main do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + if mvalue=True then + begin + FXS:=1; + end else + begin + FXS:=-1; + end; + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value*FXS; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value*FXS; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value*FXS; + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + + +procedure TfrmNBFPKCList.Button1Click(Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + HZClear(); + FQty:=0; + FMoney:=0; + FHXQty:=0; + FHXMoney:=0; + FDHXQty:=0; + FDHXMoney:=0; + if Order_Main.IsEmpty then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value; + next; + end; + end; + Order_Main.EnableControls; + + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmNBFPKCList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); + Button1.Click; +end; + +procedure TfrmNBFPKCList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); + HZClear(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_NBFPList.dfm new file mode 100644 index 0000000..12d8034 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPList.dfm @@ -0,0 +1,806 @@ +object frmNBFPList: TfrmNBFPList + Left = 119 + Top = 123 + Width = 1072 + Height = 547 + Caption = #20869#37096#21457#31080#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1056 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1056 + Height = 62 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 12 + Width = 18 + Height = 12 + Caption = '---' + end + object Label8: TLabel + Left = 528 + Top = 12 + Width = 65 + Height = 12 + Caption = #35746#21333#35782#21035#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 12 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 12 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 687 + Top = 12 + Width = 65 + Height = 12 + Caption = #20869#37096#21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 819 + Top = 12 + Width = 52 + Height = 12 + Caption = #36141#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 367 + Top = 12 + Width = 65 + Height = 12 + Caption = #25253#20851#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 30 + Top = 42 + Width = 26 + Height = 12 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 147 + Top = 42 + Width = 26 + Height = 12 + Caption = #37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 280 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 440 + Top = 42 + Width = 65 + Height = 12 + Caption = #24050#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 613 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 773 + Top = 42 + Width = 65 + Height = 12 + Caption = #24453#26680#38144#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 8 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 8 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object BCOrderNoHZ: TEdit + Tag = 2 + Left = 593 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = BCOrderNoHZKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 8 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + end + object FPNO: TEdit + Tag = 2 + Left = 753 + Top = 8 + Width = 64 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object GHDanWei: TEdit + Tag = 2 + Left = 872 + Top = 8 + Width = 71 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object BGOrderNo: TEdit + Tag = 2 + Left = 432 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + OnKeyPress = BGOrderNoKeyPress + end + object Qty: TEdit + Tag = 3 + Left = 57 + Top = 38 + Width = 87 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object Money: TEdit + Tag = 3 + Left = 175 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 8 + end + object HXQty: TEdit + Tag = 3 + Left = 347 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + end + object HXMoney: TEdit + Tag = 3 + Left = 507 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + end + object DHXQty: TEdit + Tag = 3 + Left = 680 + Top = 37 + Width = 90 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + end + object DHXMoney: TEdit + Tag = 3 + Left = 840 + Top = 37 + Width = 103 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + end + object Button1: TButton + Left = 950 + Top = 37 + Width = 75 + Height = 20 + Caption = #20840#36873#21512#35745 + TabOrder = 13 + Visible = False + OnClick = Button1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 94 + Width = 1056 + Height = 414 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column11: TcxGridDBColumn + Caption = #25253#20851#35746#21333#21495 + DataBinding.FieldName = 'BGOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column14: TcxGridDBColumn + Caption = #21457#31080#31867#22411 + DataBinding.FieldName = 'FPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNoHZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column9: TcxGridDBColumn + Caption = #20869#37096#21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column16: TcxGridDBColumn + Caption = #24453#26680#38144#25968#37327 + DataBinding.FieldName = 'DHXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column17: TcxGridDBColumn + Caption = #24050#26680#38144#25968#37327 + DataBinding.FieldName = 'HXQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column4: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column7: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler10' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime10' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 280 + Top = 184 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_NBFPList.pas b/坯布码单待检(PBMDDJ.dll)/U_NBFPList.pas new file mode 100644 index 0000000..0c4ad82 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_NBFPList.pas @@ -0,0 +1,660 @@ +unit U_NBFPList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmNBFPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label8: TLabel; + BCOrderNoHZ: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Label6: TLabel; + BGOrderNo: TEdit; + v1Column14: TcxGridDBColumn; + Label7: TLabel; + Qty: TEdit; + Label9: TLabel; + Money: TEdit; + Label10: TLabel; + HXQty: TEdit; + Label11: TLabel; + HXMoney: TEdit; + Label12: TLabel; + DHXQty: TEdit; + Label13: TLabel; + DHXMoney: TEdit; + Button1: TButton; + v1Column15: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure BCOrderNoHZKeyPress(Sender: TObject; var Key: Char); + procedure BGOrderNoKeyPress(Sender: TObject; var Key: Char); + procedure v1Column15PropertiesEditValueChanged(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + procedure HZClear(); + { Private declarations } + public + { Public declarations } + end; + +var + frmNBFPList: TfrmNBFPList; + +implementation +uses + U_DataLink,U_RTFun,U_NBFPInPut,U_ModuleNote,U_ZDYHelp,U_NBFPInPutWGLBCOrderNo; + +{$R *.dfm} + +procedure TfrmNBFPList.FormDestroy(Sender: TObject); +begin + frmNBFPList:=nil; +end; + +procedure TfrmNBFPList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmNBFPList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ڲƱб',Tv1,'Ʊ'); +end; + +procedure TfrmNBFPList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select FN.FNID FNID10,FN.Filler Filler10,FN.FillTime FillTime10,FN.BGOrderNo,A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + sql.Add(',BCOrderNoHZ=dbo.F_Get_Order_SubStr(A.FNID,''BCOrderNo'')'); + SQL.Add(' from FP_BGOrderNo FN'); + SQL.Add(' left join FP_GYSNB A on FN.FNID=A.FNID and isnull(A.FMType,'''')=''NB'''); + sql.Add(' ) AA where 1=1 '); + + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmNBFPList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('ڲƱб',Tv1,'Ʊ'); + //InitGrid(); +end; + +procedure TfrmNBFPList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + + try + frmNBFPInPutWGLBCOrderNo:=TfrmNBFPInPutWGLBCOrderNo.Create(Application); + with frmNBFPInPutWGLBCOrderNo do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FNID10').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmNBFPInPutWGLBCOrderNo.Free; + end; +end; + +procedure TfrmNBFPList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; + +end; + +function TfrmNBFPList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_GYSNB where FMId='''+Trim(Order_Main.fieldbyname('FMId').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from FP_GYSNB where FNID='''+Trim(Order_Main.fieldbyname('FNId10').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_BGOrderNo where FNId='''+Trim(Order_Main.fieldbyname('FNId10').AsString)+''''); + ExecSQL; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmNBFPList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ڲƱ',cxGrid1); +end; + +procedure TfrmNBFPList.TBRafreshClick(Sender: TObject); +begin + HZClear(); + InitGrid(); +end; + +procedure TfrmNBFPList.TBAddClick(Sender: TObject); +begin + try + frmNBFPInPutWGLBCOrderNo:=TfrmNBFPInPutWGLBCOrderNo.Create(Application); + with frmNBFPInPutWGLBCOrderNo do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmNBFPInPutWGLBCOrderNo.Free; + end; +end; + +procedure TfrmNBFPList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmNBFPList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmNBFPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲƱ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmNBFPList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmNBFPList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select FN.FNID FNID10,FN.Filler Filler10,FN.FillTime FillTime10,FN.BGOrderNo,A.*,DHXMoney=A.Money-isnull(A.HXMoney,0)'); + sql.Add(',DHXQty=A.Qty-isnull(A.HXQty,0)'); + sql.Add(',BCOrderNoHZ=dbo.F_Get_Order_SubStr(A.FNID,''BCOrderNo'')'); + SQL.Add(' from FP_BGOrderNo FN'); + SQL.Add(' left join FP_GYSNB A on FN.FNID=A.FNID and isnull(A.FMType,'''')=''NB'''); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmNBFPList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmNBFPList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmNBFPList.WorkerChange(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmNBFPList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmNBFPList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmNBFPList.ToolButton1Click(Sender: TObject); +begin + HZClear(); + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmNBFPList.BCOrderNoHZKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(BCOrderNoHZ.Text))<3 then Exit; + fsj:=' and AA.BCOrderNoHZ like '''+'%'+Trim(BCOrderNoHZ.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmNBFPList.BGOrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(BGOrderNo.Text))<3 then Exit; + fsj:=' and AA.BGOrderNo like '''+'%'+Trim(BGOrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; +procedure TfrmNBFPList.HZClear(); +begin + Qty.Text:=''; + Money.Text:=''; + HXQty.Text:=''; + HXMoney.Text:=''; + DHXQty.Text:=''; + DHXMoney.Text:=''; +end; +procedure TfrmNBFPList.v1Column15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + if Trim(Qty.Text)='' then + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if Trim(HXQty.Text)='' then + HXQty.Text:='0'; + FHXQty:=StrToFloat(HXQty.Text); + if Trim(HXMoney.Text)='' then + HXMoney.Text:='0'; + FHXMoney:=StrToFloat(HXMoney.Text); + if Trim(DHXQty.Text)='' then + DHXQty.Text:='0'; + FDHXQty:=StrToFloat(DHXQty.Text); + if Trim(DHXMoney.Text)='' then + DHXMoney.Text:='0'; + FDHXMoney:=StrToFloat(DHXMoney.Text); + if Order_Main.IsEmpty then Exit; + FMID:=Trim(Order_Main.fieldbyname('FMID').AsString); + mvalue:=TcxCheckBox(Sender).EditingValue; + with Order_Main do + begin + Edit; + FieldByName('SSel').Value:=mvalue; + Post; + end; + if mvalue=True then + begin + FXS:=1; + end else + begin + FXS:=-1; + end; + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value*FXS; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value*FXS; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value*FXS; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value*FXS; + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmNBFPList.Button1Click(Sender: TObject); +var + mvalue:Boolean; + FQty,FMoney,FHXQty,FHXMoney,FDHXQty,FDHXMoney:Double; + FMID:String; + FXS:Integer; +begin + HZClear(); + FQty:=0; + FMoney:=0; + FHXQty:=0; + FHXMoney:=0; + FDHXQty:=0; + FDHXMoney:=0; + if Order_Main.IsEmpty then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Trim(Order_Main.fieldbyname('Qty').AsString)<>'' then + FQty:=FQty+Order_Main.fieldbyname('Qty').Value; + if Trim(Order_Main.fieldbyname('Money').AsString)<>'' then + FMoney:=FMoney+Order_Main.fieldbyname('Money').Value; + if Trim(Order_Main.fieldbyname('HXQty').AsString)<>'' then + FHXQty:=FHXQty+Order_Main.fieldbyname('HXQty').Value; + if Trim(Order_Main.fieldbyname('HXMoney').AsString)<>'' then + FHXMoney:=FHXMoney+Order_Main.fieldbyname('HXMoney').Value; + if Trim(Order_Main.fieldbyname('DHXQty').AsString)<>'' then + FDHXQty:=FDHXQty+Order_Main.fieldbyname('DHXQty').Value; + if Trim(Order_Main.fieldbyname('DHXMoney').AsString)<>'' then + FDHXMoney:=FDHXMoney+Order_Main.fieldbyname('DHXMoney').Value; + next; + end; + end; + Order_Main.EnableControls; + + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + HXQty.Text:=FloatToStr(FHXQty); + HXMoney.Text:=FloatToStr(FHXMoney); + DHXQty.Text:=FloatToStr(FDHXQty); + DHXMoney.Text:=FloatToStr(FDHXMoney); + // Order_Main.Locate('FMID',FMID,[]); + +end; + +procedure TfrmNBFPList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); + Button1.Click; +end; + +procedure TfrmNBFPList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); + HZClear(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.dfm new file mode 100644 index 0000000..361d7bb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.dfm @@ -0,0 +1,603 @@ +object frmOldOrderNOCKList: TfrmOldOrderNOCKList + Left = 166 + Top = 97 + Width = 1191 + Height = 511 + Caption = #32769#21333#21495#24067#21305#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1175 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + Visible = False + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 524 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1175 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 357 + Top = 12 + Width = 36 + Height = 12 + Caption = #21697' '#21517 + end + object Label4: TLabel + Left = 507 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label6: TLabel + Left = 507 + Top = 36 + Width = 36 + Height = 12 + Caption = #35268' '#26684 + end + object Label7: TLabel + Left = 651 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label9: TLabel + Left = 651 + Top = 36 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label11: TLabel + Left = 179 + Top = 37 + Width = 48 + Height = 12 + Caption = #24067#21305#31867#22411 + end + object Label10: TLabel + Left = 779 + Top = 12 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 393 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 544 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SXID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SXIDChange + OnKeyPress = SXIDKeyPress + end + object BatchNO: TEdit + Tag = 2 + Left = 393 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = BatchNOChange + end + object SPSpec: TEdit + Tag = 2 + Left = 544 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SPMF: TEdit + Tag = 2 + Left = 677 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object SPKZ: TEdit + Tag = 2 + Left = 677 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPType: TComboBox + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #25104#21697 + #21322#25104#21697 + #27425#21697 + '') + end + object KuWei: TEdit + Tag = 2 + Left = 805 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 126 + Width = 1175 + Height = 346 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column9: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v1Column7: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1Column15: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column4: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column11: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 76 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 82 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 77 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1175 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #20840#37096) + Visible = False + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1175 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 586 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 552 + Top = 232 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 232 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.pas b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.pas new file mode 100644 index 0000000..9942a65 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNOCKList.pas @@ -0,0 +1,422 @@ +unit U_OldOrderNOCKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxPC; + +type + TfrmOldOrderNOCKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SXID: TEdit; + BatchNO: TEdit; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label6: TLabel; + SPSpec: TEdit; + Label7: TLabel; + SPMF: TEdit; + Label9: TLabel; + SPKZ: TEdit; + Label11: TLabel; + SPType: TComboBox; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Label10: TLabel; + KuWei: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure SXIDKeyPress(Sender: TObject; var Key: Char); + procedure SXIDChange(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmOldOrderNOCKList: TfrmOldOrderNOCKList; + +implementation +uses + U_DataLink,U_RTFun,U_OldOrderNoInPut; + +{$R *.dfm} + +procedure TfrmOldOrderNOCKList.FormDestroy(Sender: TObject); +begin + frmOldOrderNOCKList:=nil; +end; + +procedure TfrmOldOrderNOCKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOldOrderNOCKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmOldOrderNOCKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate and isnull(CKName,'''')=''ϵ'' '); + SQL.Add(' and CRFlag='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SChker,'''')<>'''' '); + end; + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOldOrderNOCKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmOldOrderNOCKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmOldOrderNOCKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ϵб',Tv1,'ϵŲֿ'); + Close; +end; + +procedure TfrmOldOrderNOCKList.FormShow(Sender: TObject); +begin + ReadCxGrid('ϵб',Tv1,'ϵŲֿ'); + //InitGrid(); +end; + +procedure TfrmOldOrderNOCKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ϵб',cxGrid2); +end; + +procedure TfrmOldOrderNOCKList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmOldOrderNOCKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmOldOrderNOCKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmOldOrderNOCKList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳɾ!','ʾ',0); + Exit; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmOldOrderNOCKList.ToolButton1Click(Sender: TObject); +begin + try + frmOldOrderNoInPut:=TfrmOldOrderNoInPut.Create(Application); + with frmOldOrderNoInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmOldOrderNoInPut.Free; + end; +end; + +procedure TfrmOldOrderNOCKList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmOldOrderNoInPut:=TfrmOldOrderNoInPut.Create(Application); + with frmOldOrderNoInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmOldOrderNoInPut.Free; + end; +end; + +procedure TfrmOldOrderNOCKList.SXIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(SXID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + //sql.Add(' ,CGConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGConMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SXID like :SXID'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SChker,'''')<>'''' '); + end; + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmOldOrderNOCKList.SXIDChange(Sender: TObject); +begin + if Length(Trim(SXID.Text))<4 then + begin + if Trim(SXID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmOldOrderNOCKList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmOldOrderNOCKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmOldOrderNOCKList.ToolButton3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set SChker='''+Trim(DName)+''''); + SQL.Add(',SChkTime=getdate() '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmOldOrderNOCKList.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_SXPB_CR '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set SChker=NUll'); + SQL.Add(',SChkTime=Null '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmOldOrderNOCKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.dfm new file mode 100644 index 0000000..8861714 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.dfm @@ -0,0 +1,324 @@ +object frmOldOrderNoInPut: TfrmOldOrderNoInPut + Left = 39 + Top = 128 + Width = 1293 + Height = 502 + Align = alClient + Caption = #32769#21333#21495#24067#21305#20837#24211 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1277 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1277 + Height = 430 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column3: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Width = 124 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #25104#21697 + #21322#25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 76 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 113 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 512 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 440 + Top = 176 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.pas new file mode 100644 index 0000000..9f17384 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OldOrderNoInPut.pas @@ -0,0 +1,586 @@ +unit U_OldOrderNoInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmOldOrderNoInPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ADOQuery1: TADOQuery; + v1Column8: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmOldOrderNoInPut: TfrmOldOrderNoInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmOldOrderNoInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOldOrderNoInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmOldOrderNoInPut.SaveCKData():Boolean; +var + FCRID,Maxno:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQuery1.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + end else + begin + FCRID:=Trim(ADOQuery1.fieldbyname('CRID').AsString); + end; + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+FCRID); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Append; + end else + begin + Edit; + end; + FieldByName('CRID').Value:=FCRID; + FieldByName('CKName').Value:='ϵ'; + FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value; + FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value; + FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value; + FieldByName('SPSpec').Value:=CDS_Sub.fieldbyname('SPSpec').Value; + FieldByName('SPMF').Value:=CDS_Sub.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=CDS_Sub.fieldbyname('SPKZ').Value; + FieldByName('SPColor').Value:=CDS_Sub.fieldbyname('SPColor').Value; + FieldByName('SPHX').Value:=CDS_Sub.fieldbyname('SPHX').Value; + FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value; + Post; + end; + + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'OR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('SPID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Append; + end else + begin + Edit; + end; + {if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; } + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:='ϵ'; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SX_CR',2); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID)); + Open; + end; + if ADOQueryTemp.FieldByName('KCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; + { if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('CRID').Value:=Trim(FCRID); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmOldOrderNoInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ϵǼ',Tv1,'ϵŲֿ'); + Close; +end; + +procedure TfrmOldOrderNoInPut.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('ϵǼ',Tv1,'ϵŲֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmOldOrderNoInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.FieldByName('KCQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳɾ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmOldOrderNoInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('BatchNo',null,[])=True then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPType',null,[])=True then + begin + Application.MessageBox('ƥͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPMF',null,[])=True then + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPKZ',null,[])=True then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + {if CDS_Sub.Locate('CostPrice',null,[])=True then + begin + Application.MessageBox('ɱΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType;Price',VarArrayOf(['',Null]),[loPartialKey])=True then + begin + Application.MessageBox('ݣɹӹ۲Ϊ!','ʾ',0); + Exit; + end;} + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmOldOrderNoInPut.v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXKuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOldOrderNoInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmOldOrderNoInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPPBName'; + flagname:='ƥ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOldOrderNoInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + v2Column3.Options.Focusing:=False; + end else + begin + v2Column3.Options.Focusing:=True; + end; +end; + +procedure TfrmOldOrderNoInPut.v1Column8PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPKuWei'; + flagname:='ϵſλ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.dfm new file mode 100644 index 0000000..bddce05 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.dfm @@ -0,0 +1,1250 @@ +object frmOrdCostList: TfrmOrdCostList + Left = 36 + Top = 5 + Width = 1302 + Height = 705 + Align = alClient + Caption = #35746#21333#32467#31639 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1294 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1294 + Height = 52 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 318 + Top = 11 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 28 + Top = 11 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 32 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 176 + Top = 11 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label7: TLabel + Left = 176 + Top = 32 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label11: TLabel + Left = 628 + Top = 8 + Width = 77 + Height = 16 + Caption = #31995#32479#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CZZSH: TLabel + Left = 710 + Top = 8 + Width = 45 + Height = 16 + Caption = 'CZZSH' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label4: TLabel + Left = 768 + Top = 8 + Width = 111 + Height = 16 + Caption = #25163#24037#35745#31639#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 953 + Top = 8 + Width = 9 + Height = 16 + Caption = '%' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 450 + Top = 8 + Width = 94 + Height = 16 + Caption = #31995#32479#25968#37327#24046':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object HZSHQty: TLabel + Left = 549 + Top = 8 + Width = 63 + Height = 16 + Caption = 'HZSHQty' + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 367 + Top = 7 + Width = 67 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 7 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 28 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 226 + Top = 7 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 226 + Top = 28 + Width = 78 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + object SGJSSH: TEdit + Left = 879 + Top = 5 + Width = 70 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + end + object Button1: TButton + Left = 970 + Top = 5 + Width = 45 + Height = 25 + Caption = #30830#23450 + TabOrder = 6 + Visible = False + OnClick = Button1Click + end + end + object ScrollBox1: TScrollBox + Left = 201 + Top = 85 + Width = 682 + Height = 589 + Align = alLeft + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 678 + Height = 141 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 33 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 49 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 30 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 37 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 42 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 44 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 314 + Width = 678 + Height = 158 + Align = alBottom + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn20 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn21 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 79 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 32 + end + object cxGridDBColumn19: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn21: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn22: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 35 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 40 + end + object cxGridDBTableView2Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 45 + end + object cxGridDBTableView2Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBTableView2Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v3Column4: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column1: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 48 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 149 + Width = 678 + Height = 165 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn6 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 33 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 36 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 53 + end + object Tv2Column1: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v2Column2: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 56 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 472 + Width = 678 + Height = 113 + Align = alBottom + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn23: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 49 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 40 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 54 + end + object v5Column7: TcxGridDBColumn + Caption = #23454#38469#21305#25968 + DataBinding.FieldName = 'SJPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v5Column2: TcxGridDBColumn + Caption = #23454#38469#25968#37327 + DataBinding.FieldName = 'SJQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 39 + end + object v5Column1: TcxGridDBColumn + Caption = #23454#38469#25439#32791'%' + DataBinding.FieldName = 'SJSH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 165 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object cxSplitter4: TcxSplitter + Left = 0 + Top = 141 + Width = 678 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid1 + end + end + object Panel2: TPanel + Left = 891 + Top = 85 + Width = 403 + Height = 589 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 399 + Height = 585 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_CYZZ.FoneRed + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 85 + Width = 201 + Height = 589 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid4: TcxGrid + Left = 2 + Top = 2 + Width = 197 + Height = 585 + Align = alClient + TabOrder = 0 + object Tv0: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv0CellClick + DataController.DataSource = DataSource0 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv0 + end + end + end + object cxSplitter2: TcxSplitter + Left = 883 + Top = 85 + Width = 8 + Height = 589 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox1 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 496 + Top = 312 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 528 + Top = 312 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 369 + Top = 305 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 701 + Top = 145 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 688 + Top = 176 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 585 + Top = 169 + end + object ADOQuery3: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 305 + Top = 417 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 248 + Top = 416 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 280 + Top = 416 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 369 + Top = 593 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 592 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 312 + Top = 592 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 200 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1064 + Top = 196 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1100 + Top = 200 + end + object ClientDataSet0: TClientDataSet + Aggregates = <> + Params = <> + Left = 64 + Top = 264 + end + object cxGridPopupMenu0: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 104 + Top = 268 + end + object DataSource0: TDataSource + DataSet = ClientDataSet0 + Left = 140 + Top = 264 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 896 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.pas b/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.pas new file mode 100644 index 0000000..02477a2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostList.pas @@ -0,0 +1,619 @@ +unit U_OrdCostList; //20 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxButtonEdit, cxGridBandedTableView, cxGridDBBandedTableView, + cxCheckBox, cxTextEdit, cxSplitter; + +type + TfrmOrdCostList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + MPRTCodeName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Label7: TLabel; + MPRTCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ScrollBox1: TScrollBox; + cxGrid3: TcxGrid; + Tv1: TcxGridDBTableView; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBTableView2Column1: TcxGridDBColumn; + cxGridDBTableView2Column2: TcxGridDBColumn; + cxGridDBTableView2Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + v5Column6: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Label11: TLabel; + CZZSH: TLabel; + ToolButton1: TToolButton; + Panel2: TPanel; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v7Column1: TcxGridDBColumn; + Panel3: TPanel; + cxGrid4: TcxGrid; + Tv0: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + ClientDataSet0: TClientDataSet; + cxGridPopupMenu0: TcxGridPopupMenu; + DataSource0: TDataSource; + ADOQueryMain: TADOQuery; + cxSplitter2: TcxSplitter; + Label4: TLabel; + SGJSSH: TEdit; + Button1: TButton; + Label6: TLabel; + Label8: TLabel; + HZSHQty: TLabel; + v7Column2: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxSplitter4: TcxSplitter; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v5Column1PropertiesEditValueChanged(Sender: TObject); + procedure v5Column5PropertiesEditValueChanged(Sender: TObject); + procedure v5Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column3PropertiesEditValueChanged(Sender: TObject); + procedure v5Column4PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitSubGrid(); + public + { Public declarations } + end; + +var + frmOrdCostList: TfrmOrdCostList; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmOrdCostList.FormDestroy(Sender: TObject); +begin + frmOrdCostList:=nil; +end; + +procedure TfrmOrdCostList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrdCostList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.SGJSSH,A.Filler from JYOrder_Main A where OrdDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and OrdDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + + finally + ADOQueryMain.EnableControls; + end; + + //TBFind.Click; +end; + +procedure TfrmOrdCostList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; +end; + +procedure TfrmOrdCostList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('бa2',Tv1,''); + WriteCxGrid('뵥a2',Tv2,''); + WriteCxGrid('ڲֿa2',Tv3,''); + WriteCxGrid('1',Tv7,''); + WriteCxGrid('',Tv0,''); + Close; +end; + +procedure TfrmOrdCostList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); +end; + +procedure TfrmOrdCostList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.Filler,A.SGJSSH from JYOrder_Main A where '); + sql.Add(' A.orderno like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + finally + ADOQueryMain.EnableControls; + end; + + end; + +end; + +procedure TfrmOrdCostList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; +end; + +procedure TfrmOrdCostList.FormShow(Sender: TObject); +begin + READCxGrid('бa2',Tv1,''); + READCxGrid('뵥a2',Tv2,''); + READCxGrid('ڲֿa2',Tv3,''); + READCxGrid('1',Tv7,''); + READCxGrid('',Tv0,''); +end; + +procedure TfrmOrdCostList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet1.IsEmpty then Exit; + { fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); } + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''); + sql.Add(' and A.FactoryNo='''+Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString)+''''); + sql.Add(' and A.ConSubId='''+Trim(ClientDataSet1.fieldbyname('ConSubId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + +end; +procedure TfrmOrdCostList.InitSubGrid(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo, '); + sql.Add('KKZZR=(select sum(ZZPonMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' ),'); + sql.Add('KKZZC=(select sum(ZZFtyMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' )'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' exec P_View_PSNameSH :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + CZZSH.Visible:=True; + CZZSH.Caption:=Trim(ClientDataSet5.fieldbyname('HZSH').AsString)+'%'; + HZSHQty.Visible:=True; + HZSHQty.Caption:=Trim(ClientDataSet5.fieldbyname('HZSHQty').AsString)+'KG'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); +end; + +procedure TfrmOrdCostList.v5Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJSH').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJSH='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostList.v5Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJNote').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJNote='''+Trim(mvalue)+''''); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostList.v5Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJQty').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FMoney)='' then + FMoney:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJQty='+Trim(FQty)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/ClientDataSet5.fieldbyname('PSSJQty').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostList.v5Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJMoney').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FQty)='' then + FQty:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJMoney='+Trim(FMoney)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/strtofloat(FQty); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostList.v5Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmOrdCostList.ToolButton1Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrdCostList.Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet0.IsEmpty then Exit; + SGJSSH.Text:=Trim(ClientDataSet0.fieldbyname('SGJSSH').AsString); + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + sql.Clear; + SQL.Add('exec P_View_OrderCostMainIdQty :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet1); + SInitCDSData20(ADOQuery3,ClientDataSet1); + finally + ADOQuery3.EnableControls; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + InitSubGrid(); +end; + +procedure TfrmOrdCostList.Button1Click(Sender: TObject); +var + FReal:Double; +begin + if ClientDataSet0.IsEmpty then Exit; + {if Trim(DName)<>Trim(ClientDataSet0.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˶!','ʾ',0); + Exit; + end; } + if Trim(SGJSSH.Text)<>'' then + begin + if TryStrToFloat(SGJSSH.Text,FReal)=False then + begin + Application.MessageBox('ֹķǷ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(SGJSSH.Text)<>'' then + sql.Add('Update JYOrder_Main Set SGJSSH='+SGJSSH.Text) + else + sql.Add('Update JYOrder_Main Set SGJSSH=NULL'); + sql.Add(' where MainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with ClientDataSet0 do + begin + Edit; + if Trim(SGJSSH.Text)<>'' then + FieldByName('SGJSSH').Value:=SGJSSH.Text + else + FieldByName('SGJSSH').Value:=null; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.dfm new file mode 100644 index 0000000..95cc937 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.dfm @@ -0,0 +1,1354 @@ +object frmOrdCostQtyList: TfrmOrdCostQtyList + Left = 28 + Top = 13 + Width = 1302 + Height = 705 + Caption = #35746#21333#32467#31639#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1286 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1286 + Height = 29 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 591 + Top = 9 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 28 + Top = 9 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 9 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 279 + Top = 9 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label7: TLabel + Left = 458 + Top = 9 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 640 + Top = 5 + Width = 67 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 5 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 5 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 329 + Top = 5 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 505 + Top = 5 + Width = 77 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + end + object Panel2: TPanel + Left = 903 + Top = 62 + Width = 383 + Height = 604 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label4: TLabel + Left = 39 + Top = 408 + Width = 95 + Height = 20 + Caption = #35746#21333#25104#26412':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 39 + Top = 444 + Width = 105 + Height = 20 + Caption = #20854#23427#36153#29992#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 39 + Top = 480 + Width = 106 + Height = 20 + Caption = #24635' '#25968' '#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 39 + Top = 517 + Width = 105 + Height = 20 + Caption = #24179#22343#21333#20215#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 39 + Top = 334 + Width = 95 + Height = 20 + Caption = #31995#32479#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CZZSH: TLabel + Left = 151 + Top = 334 + Width = 55 + Height = 20 + Caption = 'CZZSH' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object OrdCost: TLabel + Left = 151 + Top = 408 + Width = 77 + Height = 20 + Caption = 'OrdCost' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object QTFee: TLabel + Left = 151 + Top = 444 + Width = 55 + Height = 20 + Caption = 'QTFee' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object HZQty: TLabel + Left = 151 + Top = 480 + Width = 55 + Height = 20 + Caption = 'HZQty' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object AVGPrice: TLabel + Left = 151 + Top = 517 + Width = 88 + Height = 20 + Caption = 'AVGPrice' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label9: TLabel + Left = 39 + Top = 371 + Width = 95 + Height = 20 + Caption = #25163#24037#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object SGJSSH: TLabel + Left = 151 + Top = 371 + Width = 66 + Height = 20 + Caption = 'SGJSSH' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label12: TLabel + Left = 39 + Top = 298 + Width = 95 + Height = 20 + Caption = #25968#37327#24046#20540':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object HZSHQty: TLabel + Left = 151 + Top = 298 + Width = 55 + Height = 20 + Caption = 'CZZSH' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 379 + Height = 287 + Align = alTop + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn31 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn33 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'JFdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'JFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 64 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'JFPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 39 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'JFQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JFMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 46 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'JFNote' + HeaderAlignmentHorz = taCenter + Width = 74 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object ScrollBox1: TScrollBox + Left = 233 + Top = 62 + Width = 662 + Height = 604 + Align = alClient + TabOrder = 3 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 658 + Height = 169 + Align = alTop + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 43 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column2: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v3Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'MDMoney' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 318 + Width = 658 + Height = 158 + Align = alTop + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn20 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn21 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v3Column5 + end + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + Column = v3Column13 + end + item + Kind = skSum + Column = v3Column14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn19: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn21: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn22: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBTableView2Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 55 + end + object cxGridDBTableView2Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBTableView2Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v3Column4: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column5: TcxGridDBColumn + Caption = #35746#21333#27531#20540 + DataBinding.FieldName = 'ORDSSMoney' + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 60 + end + object v3Column12: TcxGridDBColumn + Caption = #20877#21033#29992#20215#26684 + DataBinding.FieldName = 'RKPrice' + Width = 72 + end + object v3Column13: TcxGridDBColumn + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'KKZZR' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column14: TcxGridDBColumn + Caption = #36131#20219#24037#21378#25187#27454 + DataBinding.FieldName = 'KKZZC' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 84 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 169 + Width = 658 + Height = 149 + Align = alTop + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn6 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 36 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 53 + end + object Tv2Column1: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Width = 67 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 476 + Width = 658 + Height = 124 + Align = alClient + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn23: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 57 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 71 + end + object v5Column7: TcxGridDBColumn + Caption = #23454#38469#21305#25968 + DataBinding.FieldName = 'SJPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v5Column2: TcxGridDBColumn + Caption = #23454#38469#25968#37327 + DataBinding.FieldName = 'SJQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v5Column6: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v5Column1: TcxGridDBColumn + Caption = #23454#38469#25439#32791'%' + DataBinding.FieldName = 'SJSH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v5Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 174 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 62 + Width = 225 + Height = 604 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid4: TcxGrid + Left = 2 + Top = 2 + Width = 221 + Height = 600 + Align = alClient + TabOrder = 0 + object Tv0: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv0CellClick + DataController.DataSource = DataSource0 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv0 + end + end + end + object cxSplitter1: TcxSplitter + Left = 225 + Top = 62 + Width = 8 + Height = 604 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel3 + end + object cxSplitter2: TcxSplitter + Left = 895 + Top = 62 + Width = 8 + Height = 604 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = Panel2 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 496 + Top = 312 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 528 + Top = 312 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 369 + Top = 305 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 728 + Top = 176 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 688 + Top = 176 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 585 + Top = 169 + end + object ADOQuery3: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 305 + Top = 417 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 248 + Top = 416 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 280 + Top = 416 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 369 + Top = 593 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 592 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 312 + Top = 592 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 200 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1064 + Top = 196 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1100 + Top = 200 + end + object ClientDataSet0: TClientDataSet + Aggregates = <> + Params = <> + Left = 64 + Top = 264 + end + object cxGridPopupMenu0: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 104 + Top = 268 + end + object DataSource0: TDataSource + DataSet = ClientDataSet0 + Left = 140 + Top = 264 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 896 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.pas b/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.pas new file mode 100644 index 0000000..f63dfe7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostQtyList.pas @@ -0,0 +1,654 @@ +unit U_OrdCostQtyList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxButtonEdit, cxGridBandedTableView, cxGridDBBandedTableView, + cxCheckBox, cxTextEdit, cxSplitter; + +type + TfrmOrdCostQtyList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + MPRTCodeName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Label7: TLabel; + MPRTCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + Panel2: TPanel; + ScrollBox1: TScrollBox; + cxGrid3: TcxGrid; + Tv1: TcxGridDBTableView; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBTableView2Column1: TcxGridDBColumn; + cxGridDBTableView2Column2: TcxGridDBColumn; + cxGridDBTableView2Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Label4: TLabel; + Label6: TLabel; + Label8: TLabel; + Label10: TLabel; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + v5Column6: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Label11: TLabel; + CZZSH: TLabel; + OrdCost: TLabel; + QTFee: TLabel; + HZQty: TLabel; + AVGPrice: TLabel; + ToolButton1: TToolButton; + Panel3: TPanel; + cxGrid4: TcxGrid; + Tv0: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + ClientDataSet0: TClientDataSet; + cxGridPopupMenu0: TcxGridPopupMenu; + DataSource0: TDataSource; + ADOQueryMain: TADOQuery; + Label9: TLabel; + SGJSSH: TLabel; + Label12: TLabel; + HZSHQty: TLabel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v5Column1PropertiesEditValueChanged(Sender: TObject); + procedure v5Column5PropertiesEditValueChanged(Sender: TObject); + procedure v5Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column3PropertiesEditValueChanged(Sender: TObject); + procedure v5Column4PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitSubGrid(); + public + { Public declarations } + end; + +var + frmOrdCostQtyList: TfrmOrdCostQtyList; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmOrdCostQtyList.FormDestroy(Sender: TObject); +begin + frmOrdCostQtyList:=nil; +end; + +procedure TfrmOrdCostQtyList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrdCostQtyList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.SGJSSH from JYOrder_Main A where OrdDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and OrdDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrdCostQtyList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; +end; + +procedure TfrmOrdCostQtyList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('бQty',Tv1,''); + WriteCxGrid('뵥Qty',Tv2,''); + WriteCxGrid('ڲֿQty',Tv3,''); + WriteCxGrid('Qty',Tv7,''); + WriteCxGrid('Qty',Tv7,''); + Close; +end; + +procedure TfrmOrdCostQtyList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); +end; + +procedure TfrmOrdCostQtyList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.SGJSSH from JYOrder_Main A where '); + sql.Add(' A.orderno like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + finally + ADOQueryMain.EnableControls; + end; + + end; + +end; + +procedure TfrmOrdCostQtyList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; +end; + +procedure TfrmOrdCostQtyList.FormShow(Sender: TObject); +begin + READCxGrid('бQty',Tv1,''); + READCxGrid('뵥Qty',Tv2,''); + READCxGrid('ڲֿQty',Tv3,''); + READCxGrid('Qty',Tv7,''); + READCxGrid('Qty',Tv7,''); +end; + +procedure TfrmOrdCostQtyList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj,MDMoney,OrdCC,ZZFty,QQFee,FHZQty:string; +begin + if ClientDataSet1.IsEmpty then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''); + sql.Add(' and A.FactoryNo='''+Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString)+''''); + sql.Add(' and A.ConSubId='''+Trim(ClientDataSet1.fieldbyname('ConSubId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + {ClientDataSet5.Locate('PSName','װ',[]); + FHZQty:=Trim(ClientDataSet5.fieldbyname('SJQty').AsString); + if FHZQty='' then FHZQty:='0'; + MDMoney:=Tv1.DataController.Summary.FooterSummaryTexts[2]; + if Trim(MDMoney)='' then MDMoney:='0'; + OrdCC:=Tv3.DataController.Summary.FooterSummaryTexts[0]; + if Trim(OrdCC)='' then OrdCC:='0'; + ZZFty:=Tv3.DataController.Summary.FooterSummaryTexts[4]; + if Trim(ZZFty)='' then ZZFty:='0'; + QQFee:=Tv7.DataController.Summary.FooterSummaryTexts[2]; + if Trim(QQFee)='' then QQFee:='0'; + OrdCost.Visible:=True; + QTFee.Visible:=True; + HZQty.Visible:=True; + OrdCost.Caption:=FloatToStr(StrToFloat(MDMoney)-StrToFloat(OrdCC)-StrToFloat(ZZFty)); + QTFee.Caption:=QQFee; + HZQty.Caption:=FHZQty; + if StrToFloat(FHZQty)>0 then + begin + + AVGPrice.Caption:=FloatToStr((StrToFloat(OrdCost.Caption)+StrToFloat(QTFee.Caption))*1.00/StrToFloat(FHZQty)); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select AA=Cast(:AVGPrice as decimal(18,2))'); + Parameters.ParamByName('AVGPrice').Value:=AVGPrice.Caption; + Open; + end; + + AVGPrice.Caption:=ADOQueryTemp.fieldbyname('AA').AsString; + AVGPrice.Visible:=True; + end; } +end; +procedure TfrmOrdCostQtyList.InitSubGrid(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo, '); + sql.Add('KKZZR=(select sum(ZZPonMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' ),'); + sql.Add('KKZZC=(select sum(ZZFtyMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' )'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' exec P_View_PSNameSH :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + CZZSH.Visible:=True; + CZZSH.Caption:=Trim(ClientDataSet5.fieldbyname('HZSH').AsString)+'%'; + HZSHQty.Visible:=True; + HZSHQty.Caption:=Trim(ClientDataSet5.fieldbyname('HZSHQty').AsString)+'KG'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_Fee where MainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); +end; + +procedure TfrmOrdCostQtyList.v5Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJSH').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJSH='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostQtyList.v5Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJNote').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJNote='''+Trim(mvalue)+''''); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostQtyList.v5Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJQty').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FMoney)='' then + FMoney:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJQty='+Trim(FQty)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/ClientDataSet5.fieldbyname('PSSJQty').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostQtyList.v5Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJMoney').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FQty)='' then + FQty:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJMoney='+Trim(FMoney)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/strtofloat(FQty); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostQtyList.v5Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmOrdCostQtyList.ToolButton1Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrdCostQtyList.Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj,MDMoney,OrdCC,ZZFty,QQFee,FHZQty:string; +begin + if ClientDataSet0.IsEmpty then Exit; + SGJSSH.Caption:=Trim(ClientDataSet0.fieldbyname('SGJSSH').AsString)+'%'; + SGJSSH.Visible:=True; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + sql.Clear; + SQL.Add('exec P_View_OrderCostMainId :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet1); + SInitCDSData20(ADOQuery3,ClientDataSet1); + finally + ADOQuery3.EnableControls; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + InitSubGrid(); + ClientDataSet5.Locate('PSName','װ',[]); + FHZQty:=Trim(ClientDataSet5.fieldbyname('SJQty').AsString); + if FHZQty='' then FHZQty:='0'; + MDMoney:=Tv1.DataController.Summary.FooterSummaryTexts[2]; + if Trim(MDMoney)='' then MDMoney:='0'; + OrdCC:=Tv3.DataController.Summary.FooterSummaryTexts[0]; + if Trim(OrdCC)='' then OrdCC:='0'; + ZZFty:=Tv3.DataController.Summary.FooterSummaryTexts[4]; + if Trim(ZZFty)='' then ZZFty:='0'; + QQFee:=Tv7.DataController.Summary.FooterSummaryTexts[2]; + if Trim(QQFee)='' then QQFee:='0'; + OrdCost.Visible:=True; + QTFee.Visible:=True; + HZQty.Visible:=True; + OrdCost.Caption:=FloatToStr(StrToFloat(MDMoney)-StrToFloat(OrdCC)-StrToFloat(ZZFty)); + QTFee.Caption:=QQFee; + HZQty.Caption:=FHZQty; + if StrToFloat(FHZQty)>0 then + begin + + AVGPrice.Caption:=FloatToStr((StrToFloat(OrdCost.Caption)+StrToFloat(QTFee.Caption))*1.00/StrToFloat(FHZQty)); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select AA=Cast(:AVGPrice as decimal(18,2))'); + Parameters.ParamByName('AVGPrice').Value:=AVGPrice.Caption; + Open; + end; + + AVGPrice.Caption:=ADOQueryTemp.fieldbyname('AA').AsString; + AVGPrice.Visible:=True; + end else + begin + AVGPrice.Caption:=''; + end; + if ClientDataSet1.IsEmpty then + begin + AVGPrice.Caption:=''; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.dfm new file mode 100644 index 0000000..35c6e38 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.dfm @@ -0,0 +1,1300 @@ +object frmOrdCostZHList: TfrmOrdCostZHList + Left = 58 + Top = 0 + Width = 1302 + Height = 705 + Caption = #35746#21333#32467#31639'('#21512#24182#32467#31639')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1286 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + Caption = #21512#24182#32467#31639 + ImageIndex = 22 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1286 + Height = 52 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 318 + Top = 11 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 28 + Top = 11 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 32 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 176 + Top = 11 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label7: TLabel + Left = 176 + Top = 32 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label11: TLabel + Left = 628 + Top = 8 + Width = 77 + Height = 16 + Caption = #31995#32479#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CZZSH: TLabel + Left = 710 + Top = 8 + Width = 45 + Height = 16 + Caption = 'CZZSH' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label4: TLabel + Left = 768 + Top = 8 + Width = 111 + Height = 16 + Caption = #25163#24037#35745#31639#25439#32791':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 953 + Top = 8 + Width = 9 + Height = 16 + Caption = '%' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 450 + Top = 8 + Width = 94 + Height = 16 + Caption = #31995#32479#25968#37327#24046':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object HZSHQty: TLabel + Left = 549 + Top = 8 + Width = 63 + Height = 16 + Caption = 'HZSHQty' + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 367 + Top = 7 + Width = 67 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 7 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 28 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 226 + Top = 7 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object MPRTCode: TEdit + Tag = 2 + Left = 226 + Top = 28 + Width = 78 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + end + object SGJSSH: TEdit + Left = 879 + Top = 5 + Width = 70 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + end + object Button1: TButton + Left = 970 + Top = 5 + Width = 45 + Height = 25 + Caption = #30830#23450 + TabOrder = 6 + Visible = False + OnClick = Button1Click + end + end + object ScrollBox1: TScrollBox + Left = 306 + Top = 85 + Width = 682 + Height = 581 + Align = alLeft + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 678 + Height = 133 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 33 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 49 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 30 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 37 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 42 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 44 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 306 + Width = 678 + Height = 158 + Align = alBottom + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn20 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn21 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column2: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 79 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object cxGridDBColumn18: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 32 + end + object cxGridDBColumn19: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 65 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn21: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn22: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 35 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 40 + end + object cxGridDBTableView2Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 45 + end + object cxGridDBTableView2Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBTableView2Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 55 + end + object v3Column4: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column1: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 48 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 141 + Width = 678 + Height = 165 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn6 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 33 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 43 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 36 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'Kg' + 'M' + #26465) + HeaderAlignmentHorz = taCenter + Width = 36 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 46 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 53 + end + object Tv2Column1: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v2Column2: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 56 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 464 + Width = 678 + Height = 113 + Align = alBottom + TabOrder = 3 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn23: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 49 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 40 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 54 + end + object v5Column7: TcxGridDBColumn + Caption = #23454#38469#21305#25968 + DataBinding.FieldName = 'SJPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v5Column2: TcxGridDBColumn + Caption = #23454#38469#25968#37327 + DataBinding.FieldName = 'SJQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 39 + end + object v5Column1: TcxGridDBColumn + Caption = #23454#38469#25439#32791'%' + DataBinding.FieldName = 'SJSH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v5Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 165 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object cxSplitter4: TcxSplitter + Left = 0 + Top = 133 + Width = 678 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid1 + end + object Panel4: TPanel + Left = 215 + Top = 86 + Width = 239 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#32467#31639#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + Visible = False + end + end + object Panel2: TPanel + Left = 996 + Top = 85 + Width = 290 + Height = 581 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object cxGrid7: TcxGrid + Left = 2 + Top = 2 + Width = 286 + Height = 577 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn31 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn32 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSNameHZ' + Visible = False + GroupIndex = 0 + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v7Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Styles.Footer = DataLink_DDMD.FontBlue + Width = 48 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Footer = DataLink_DDMD.FoneRed + Width = 84 + end + object v7Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 32 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NoteXS' + HeaderAlignmentHorz = taCenter + Width = 188 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 85 + Width = 298 + Height = 581 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid4: TcxGrid + Left = 2 + Top = 2 + Width = 294 + Height = 577 + Align = alClient + TabOrder = 0 + object Tv0: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv0CellClick + DataController.DataSource = DataSource0 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v0Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 34 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 129 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv0 + end + end + end + object cxSplitter2: TcxSplitter + Left = 988 + Top = 85 + Width = 8 + Height = 581 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox1 + end + object cxSplitter1: TcxSplitter + Left = 298 + Top = 85 + Width = 8 + Height = 581 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel3 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 496 + Top = 312 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 528 + Top = 312 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 369 + Top = 305 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 701 + Top = 145 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 688 + Top = 176 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 585 + Top = 169 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 305 + Top = 417 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 248 + Top = 416 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 280 + Top = 416 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 369 + Top = 593 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 592 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 312 + Top = 592 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1032 + Top = 200 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1064 + Top = 196 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1100 + Top = 200 + end + object ClientDataSet0: TClientDataSet + Aggregates = <> + Params = <> + Left = 64 + Top = 264 + end + object cxGridPopupMenu0: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 104 + Top = 268 + end + object DataSource0: TDataSource + DataSet = ClientDataSet0 + Left = 140 + Top = 264 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 896 + Top = 7 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.pas b/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.pas new file mode 100644 index 0000000..6df0500 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrdCostZHList.pas @@ -0,0 +1,786 @@ +unit U_OrdCostZHList; //26 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxButtonEdit, cxGridBandedTableView, cxGridDBBandedTableView, + cxCheckBox, cxTextEdit, cxSplitter; + +type + TfrmOrdCostZHList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + MPRTCodeName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Label7: TLabel; + MPRTCode: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ScrollBox1: TScrollBox; + cxGrid3: TcxGrid; + Tv1: TcxGridDBTableView; + v3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBTableView2Column1: TcxGridDBColumn; + cxGridDBTableView2Column2: TcxGridDBColumn; + cxGridDBTableView2Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ClientDataSet7: TClientDataSet; + cxGridPopupMenu7: TcxGridPopupMenu; + DataSource7: TDataSource; + v5Column6: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + Label11: TLabel; + CZZSH: TLabel; + ToolButton1: TToolButton; + Panel2: TPanel; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + v7Column1: TcxGridDBColumn; + Panel3: TPanel; + cxGrid4: TcxGrid; + Tv0: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + ClientDataSet0: TClientDataSet; + cxGridPopupMenu0: TcxGridPopupMenu; + DataSource0: TDataSource; + ADOQueryMain: TADOQuery; + cxSplitter2: TcxSplitter; + Label4: TLabel; + SGJSSH: TEdit; + Button1: TButton; + Label6: TLabel; + Label8: TLabel; + HZSHQty: TLabel; + v7Column2: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxSplitter4: TcxSplitter; + ToolButton2: TToolButton; + v0Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + Panel4: TPanel; + cxSplitter1: TcxSplitter; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v5Column1PropertiesEditValueChanged(Sender: TObject); + procedure v5Column5PropertiesEditValueChanged(Sender: TObject); + procedure v5Column2PropertiesEditValueChanged(Sender: TObject); + procedure v5Column3PropertiesEditValueChanged(Sender: TObject); + procedure v5Column4PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + { Private declarations } + canshu1,canshu2:string; + procedure InitSubGrid(); + procedure InitHZSubGrid(); + public + { Public declarations } + end; + +var + frmOrdCostZHList: TfrmOrdCostZHList; + +implementation +uses + U_DataLink,U_RTFun, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmOrdCostZHList.FormDestroy(Sender: TObject); +begin + frmOrdCostZHList:=nil; +end; + +procedure TfrmOrdCostZHList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrdCostZHList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode),A.MPRTCodeName,A.OrderNo,A.SGJSSH,A.Filler from JYOrder_Main A where OrdDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and OrdDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + SQL.Add(' and OrderNo not like ''KC%'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + + finally + ADOQueryMain.EnableControls; + end; + + //TBFind.Click; +end; + +procedure TfrmOrdCostZHList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-60; +end; + +procedure TfrmOrdCostZHList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('бa2',Tv1,''); + WriteCxGrid('뵥a2',Tv2,''); + WriteCxGrid('ڲֿa2',Tv3,''); + WriteCxGrid('1',Tv7,''); + WriteCxGrid('',Tv0,''); + Close; +end; + +procedure TfrmOrdCostZHList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); +end; + +procedure TfrmOrdCostZHList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.Filler,A.SGJSSH from JYOrder_Main A where '); + sql.Add(' A.orderno like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet0); + SInitCDSData20(ADOQueryMain,ClientDataSet0); + finally + ADOQueryMain.EnableControls; + end; + + end; + +end; + +procedure TfrmOrdCostZHList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; +end; + +procedure TfrmOrdCostZHList.FormShow(Sender: TObject); +begin + READCxGrid('бa2',Tv1,''); + READCxGrid('뵥a2',Tv2,''); + READCxGrid('ڲֿa2',Tv3,''); + READCxGrid('1',Tv7,''); + READCxGrid('',Tv0,''); +end; + +procedure TfrmOrdCostZHList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet1.IsEmpty then Exit; + { fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); } + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''); + sql.Add(' and A.FactoryNo='''+Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString)+''''); + sql.Add(' and A.ConSubId='''+Trim(ClientDataSet1.fieldbyname('ConSubId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + +end; +procedure TfrmOrdCostZHList.InitSubGrid(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,JM.OrderNo, '); + sql.Add('KKZZR=(select sum(ZZPonMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' ),'); + sql.Add('KKZZC=(select sum(ZZFtyMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' )'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main JM on A.OrdMainid=JM.MainId'); + sql.Add(' where A.ORDMainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(A.CKName,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' exec P_View_PSNameSH :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + CZZSH.Visible:=True; + CZZSH.Caption:=Trim(ClientDataSet5.fieldbyname('HZSH').AsString)+'%'; + HZSHQty.Visible:=True; + HZSHQty.Caption:=Trim(ClientDataSet5.fieldbyname('HZSHQty').AsString)+'KG'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); +end; +procedure TfrmOrdCostZHList.InitHZSubGrid(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,JM.OrderNo, '); + sql.Add('KKZZR=(select sum(ZZPonMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' ),'); + sql.Add('KKZZC=(select sum(ZZFtyMoney) from JYOrder_Main_MD_KK KK where KK.MDID=A.MDID and KK.KKTYpe='''' )'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + SQL.Add(' inner join JYOrder_Main JM on A.OrdMainid=JM.MainId'); + sql.Add(' where A.ORDMainId in (select MainId from JS_User_MainId where UserName='''+Trim(DName)+''')'); + sql.Add(' and isnull(A.CKName,'''')<>'''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' exec P_View_PSNameSH_User :UserName'); + Parameters.ParamByName('UserName').Value:=Trim(DName); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + CZZSH.Visible:=True; + CZZSH.Caption:=Trim(ClientDataSet5.fieldbyname('HZSH').AsString)+'%'; + HZSHQty.Visible:=True; + HZSHQty.Caption:=Trim(ClientDataSet5.fieldbyname('HZSHQty').AsString)+'KG'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDQtyFooter_User :UserName'); + Parameters.ParamByName('UserName').Value:=Trim(DName); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); +end; + +procedure TfrmOrdCostZHList.v5Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJSH').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJSH='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostZHList.v5Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJNote').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJNote='''+Trim(mvalue)+''''); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmOrdCostZHList.v5Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJQty').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FMoney)='' then + FMoney:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJQty='+Trim(FQty)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/ClientDataSet5.fieldbyname('PSSJQty').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostZHList.v5Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FMoney:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJMoney').Value:=mvalue; + Post; + end; + FQty:=ClientDataSet5.fieldbyname('PSSJQty').AsString; + FMoney:=ClientDataSet5.fieldbyname('PSSJMoney').AsString; + if Trim(FQty)='' then + FQty:='0'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJMoney='+Trim(FMoney)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + if ClientDataSet5.fieldbyname('PSSJQty').Value<>0 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=StrToFloat(FMoney)/strtofloat(FQty); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(ClientDataSet5.fieldbyname('PSSJPrice').AsString)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmOrdCostZHList.v5Column4PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + mvalue:='0'; + with ClientDataSet5 do + begin + Edit; + FieldByName('PSSJPrice').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Process Set PSSJPrice='+Trim(mvalue)); + sql.Add(' where PSID='''+Trim(ClientDataSet5.fieldbyname('PSID').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmOrdCostZHList.ToolButton1Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrdCostZHList.Tv0CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet0.IsEmpty then Exit; + SGJSSH.Text:=Trim(ClientDataSet0.fieldbyname('SGJSSH').AsString); + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + sql.Clear; + SQL.Add('exec P_View_OrderCostMainIdQty :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet0.fieldbyname('MainId').AsString); + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet1); + SInitCDSData20(ADOQuery3,ClientDataSet1); + finally + ADOQuery3.EnableControls; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + InitSubGrid(); +end; + +procedure TfrmOrdCostZHList.Button1Click(Sender: TObject); +var + FReal:Double; +begin + if ClientDataSet0.IsEmpty then Exit; + {if Trim(DName)<>Trim(ClientDataSet0.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˶!','ʾ',0); + Exit; + end; } + if Trim(SGJSSH.Text)<>'' then + begin + if TryStrToFloat(SGJSSH.Text,FReal)=False then + begin + Application.MessageBox('ֹķǷ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(SGJSSH.Text)<>'' then + sql.Add('Update JYOrder_Main Set SGJSSH='+SGJSSH.Text) + else + sql.Add('Update JYOrder_Main Set SGJSSH=NULL'); + sql.Add(' where MainId='''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with ClientDataSet0 do + begin + Edit; + if Trim(SGJSSH.Text)<>'' then + FieldByName('SGJSSH').Value:=SGJSSH.Text + else + FieldByName('SGJSSH').Value:=null; + Post; + end; +end; + +procedure TfrmOrdCostZHList.ToolButton2Click(Sender: TObject); +var + fsj:string; + i:Integer; +begin + if ClientDataSet0.IsEmpty then Exit; + if ClientDataSet0.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JS_User_MainId where UserName='''+Trim(DName)+''''); + ExecSQL; + end; + with ClientDataSet0 do + begin + First; + while Locate('SSel;SFlag',VarArrayOf([True,'1']),[loPartialKey])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into JS_User_MainId select '''+Trim(DName)+''','''+Trim(ClientDataSet0.fieldbyname('MainId').AsString)+''''); + // sql.Add('insert into JS_User_MainId select :UserName,:Mainid'); + //ShowMessage(sql.Text); + ExecSQL; + end; + Edit; + FieldByName('SFlag').Value:='9'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select PSXH,PSName,PSSH,MFQty,KZQty,KgZM from JYOrder_Process where Mainid in (select Mainid from JS_User_MainId where UserName='''+Trim(DName)+''')'); + sql.Add(' group by PSXH,PSName,PSSH,MFQty,KZQty,KgZM'); + Open; + end; + i:=ADOQueryTemp.RecordCount; + with ClientDataSet0 do + begin + First; + while Locate('SSel;SFlag',VarArrayOf([True,'9']),[loPartialKey])=True do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select PSXH,PSName,PSSH,MFQty,KZQty,KgZM from JYOrder_Process where Mainid='''+Trim(ClientDataSet0.fieldbyname('Mainid').AsString)+''''); + sql.Add(' group by PSXH,PSName,PSSH,MFQty,KZQty,KgZM'); + Open; + end; + if ADOQueryTemp.RecordCount<>i then + begin + with ClientDataSet0 do + begin + First; + while Locate('SSel;SFlag',VarArrayOf([True,'9']),[loPartialKey])=True do + begin + Edit; + FieldByName('SFlag').Value:='1'; + Post; + end; + end; + Application.MessageBox('дϢͬܺϲ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('SFlag').Value:='1'; + Post; + end; + end; + Panel4.Visible:=True; + Panel4.Refresh; + //SGJSSH.Text:=Trim(ClientDataSet0.fieldbyname('SGJSSH').AsString); + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + sql.Clear; + SQL.Add('exec P_View_OrderCostMainIdQty_User :UserName'); + Parameters.ParamByName('UserName').Value:=Trim(DName); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet1); + SInitCDSData20(ADOQuery3,ClientDataSet1); + finally + ADOQuery3.EnableControls; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo '); + sql.Add('from JYOrder_Main_MD A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubId=B.SubId'); + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + InitHZSubGrid(); + Panel4.Visible:=False; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.dfm new file mode 100644 index 0000000..ad27d77 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.dfm @@ -0,0 +1,2854 @@ +object frmOrderInPut: TfrmOrderInPut + Left = 27 + Top = 28 + Width = 1309 + Height = 695 + Align = alClient + Caption = #25351#31034#21333#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1293 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton13: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton13Click + end + object ToolButton18: TToolButton + Left = 150 + Top = 0 + Caption = #37325#26032#36830#25509 + ImageIndex = 115 + OnClick = ToolButton18Click + end + object TBClose: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 29 + Width = 1293 + Height = 628 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 1 + ClientRectBottom = 628 + ClientRectRight = 1293 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22522#26412#20449#24687 + ImageIndex = 0 + object ToolBar2: TToolBar + Left = 0 + Top = 277 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + OnClick = ToolButton3Click + end + object Panel4: TPanel + Left = 209 + Top = 0 + Width = 107 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object CheckBox1: TCheckBox + Left = 6 + Top = 0 + Width = 103 + Height = 30 + Caption = #33394#21495#33258#21160#22686#21152 + TabOrder = 0 + end + end + object ToolButton23: TToolButton + Left = 316 + Top = 0 + Caption = #26631#31614#39044#35272 + ImageIndex = 39 + OnClick = ToolButton23Click + end + object Panel5: TPanel + Left = 399 + Top = 0 + Width = 288 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label40: TLabel + Left = 9 + Top = 8 + Width = 48 + Height = 12 + Caption = #36192#36865#21333#20301 + end + object Label41: TLabel + Left = 122 + Top = 8 + Width = 48 + Height = 12 + Caption = #22810#25340#20449#24687 + end + object Edit1: TEdit + Left = 171 + Top = 4 + Width = 106 + Height = 20 + TabOrder = 0 + end + object ComboBox1: TComboBox + Left = 59 + Top = 4 + Width = 58 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + 'KG' + 'M' + 'Y' + '') + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 308 + Width = 1293 + Height = 297 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 77 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394#20013#25991 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_PBMDDJ.handBlack + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'PRTColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #26631#31614#35774#32622 + DataBinding.FieldName = 'SLbName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 95 + end + object v1Column5: TcxGridDBColumn + Caption = #24037#21378#33394#21495 + DataBinding.FieldName = 'PRTColorNOFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #24037#21378#33457#22411#21495 + DataBinding.FieldName = 'PRTHXFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21518#24037#33402#33394#21495 + DataBinding.FieldName = 'PRTColorNOHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #21518#24037#33402#33457#22411#21495 + DataBinding.FieldName = 'PRTHXHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 88 + end + object v1Column9: TcxGridDBColumn + Caption = #30830#35748#33394 + DataBinding.FieldName = 'PRTColorNOOK' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#33394#21495'1' + DataBinding.FieldName = 'FZColorNo1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #36741#21161#33394#21495'2' + DataBinding.FieldName = 'FZColorNo2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #36741#21161#33394#21495'3' + DataBinding.FieldName = 'FZColorNo3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 65 + end + object v1Column13: TcxGridDBColumn + Caption = #36741#21161#33394#21495#35828#26126 + DataBinding.FieldName = 'FZColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 85 + end + object v1Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402'1' + DataBinding.FieldName = 'FZGY1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1Column16: TcxGridDBColumn + Caption = #36741#21161#24037#33402'2' + DataBinding.FieldName = 'FZGY2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #36741#21161#24037#33402'3' + DataBinding.FieldName = 'FZGY3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 71 + end + object v1Column18: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1293 + Height = 277 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 296 + Top = 15 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 31 + Top = 43 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 553 + Top = 15 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 553 + Top = 98 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 690 + Top = 98 + Width = 39 + Height = 12 + Caption = #20811#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 296 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 296 + Top = 98 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 31 + Top = 129 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 296 + Top = 43 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 553 + Top = 129 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 31 + Top = 155 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 31 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 553 + Top = 70 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 296 + Top = 129 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 665 + Top = 98 + Width = 14 + Height = 12 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 766 + Top = 98 + Width = 27 + Height = 12 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 31 + Top = 98 + Width = 67 + Height = 12 + Caption = #24037' '#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 553 + Top = 43 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 27 + Top = 256 + Width = 66 + Height = 12 + Caption = #31354#30333#26631#31614'>>' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label36: TLabel + Left = 95 + Top = 256 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'1'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label37: TLabel + Left = 291 + Top = 256 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'2'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label38: TLabel + Left = 495 + Top = 256 + Width = 39 + Height = 12 + Caption = #21367#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label39: TLabel + Left = 578 + Top = 256 + Width = 28 + Height = 12 + Caption = '----' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object OrderNo: TEdit + Tag = 2 + Left = 97 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + end + object ConNo: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 173 + Height = 20 + TabOrder = 1 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 96 + Top = 39 + Width = 170 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 97 + Top = 125 + Width = 170 + Height = 20 + Hint = 'ChuanY/'#33337#26679 + TabOrder = 3 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 359 + Top = 39 + Width = 173 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object YWY: TBtnEditC + Tag = 2 + Left = 617 + Top = 125 + Width = 171 + Height = 20 + Hint = 'YWY/'#19994#21153#21592 + TabOrder = 5 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 96 + Top = 155 + Width = 693 + Height = 92 + TabOrder = 6 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 359 + Top = 66 + Width = 173 + Height = 20 + TabOrder = 7 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 359 + Top = 94 + Width = 173 + Height = 20 + TabOrder = 8 + end + object MPRTCF: TEdit + Tag = 2 + Left = 617 + Top = 66 + Width = 171 + Height = 20 + TabOrder = 9 + end + object MPRTMF: TEdit + Tag = 2 + Left = 617 + Top = 94 + Width = 45 + Height = 20 + TabOrder = 10 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 726 + Top = 94 + Width = 39 + Height = 20 + TabOrder = 11 + end + object CustomerNoName: TBtnEditA + Tag = 2 + Left = 617 + Top = 11 + Width = 171 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 12 + OnBtnClick = CustomerNoNameBtnClick + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 97 + Top = 66 + Width = 107 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 13 + OnBtnClick = MPRTCodeBtnClick + end + object MPRTGY: TEdit + Tag = 2 + Left = 202 + Top = 66 + Width = 65 + Height = 20 + TabOrder = 14 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 97 + Top = 94 + Width = 170 + Height = 20 + TabOrder = 15 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 615 + Top = 39 + Width = 171 + Height = 20 + ReadOnly = True + TabOrder = 16 + OnBtnClick = ComTaiTouBtnClick + end + object LiDanPerson: TBtnEditA + Tag = 2 + Left = 359 + Top = 125 + Width = 173 + Height = 20 + TabOrder = 17 + OnBtnClick = LiDanPersonBtnClick + end + object LabNote1: TEdit + Left = 163 + Top = 252 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 18 + Visible = False + end + object LabNote2: TEdit + Left = 359 + Top = 252 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 19 + Visible = False + end + object RollBeg: TEdit + Left = 531 + Top = 252 + Width = 46 + Height = 20 + CharCase = ecUpperCase + TabOrder = 20 + Visible = False + end + object RollEnd: TEdit + Left = 609 + Top = 252 + Width = 46 + Height = 20 + CharCase = ecUpperCase + TabOrder = 21 + Visible = False + end + object Button1: TButton + Left = 713 + Top = 250 + Width = 75 + Height = 25 + Caption = #25171#21360 + TabOrder = 22 + Visible = False + OnClick = Button1Click + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #26816#39564#21253#35013#35201#27714 + ImageIndex = 1 + object ScrollBox1: TScrollBox + Left = 0 + Top = 0 + Width = 1293 + Height = 605 + Align = alClient + TabOrder = 0 + object GroupBox1: TGroupBox + Left = 0 + Top = 3 + Width = 465 + Height = 322 + Caption = #21021#26816 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Label16: TLabel + Left = 16 + Top = 19 + Width = 48 + Height = 12 + Caption = #38376#24133#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 16 + Top = 43 + Width = 48 + Height = 12 + Caption = #20811#37325#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object MPRTMFNote: TEdit + Tag = 2 + Left = 66 + Top = 16 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 66 + Top = 41 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object CJNote: TcxMemo + Tag = 2 + Left = 8 + Top = 63 + Properties.ScrollBars = ssBoth + TabOrder = 2 + OnDblClick = CJNoteDblClick + Height = 204 + Width = 447 + end + end + object GroupBox2: TGroupBox + Left = 464 + Top = 3 + Width = 465 + Height = 322 + Caption = #22823#36135#26816#39564 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + object DHNote: TcxMemo + Tag = 2 + Left = 10 + Top = 16 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = DHNoteDblClick + Height = 251 + Width = 447 + end + end + object GroupBox3: TGroupBox + Left = -1 + Top = 278 + Width = 465 + Height = 322 + Caption = #21253#35013#35201#27714 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + object Label19: TLabel + Left = 60 + Top = 19 + Width = 36 + Height = 12 + Caption = #38271#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 148 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label22: TLabel + Left = 236 + Top = 19 + Width = 36 + Height = 12 + Caption = #37325#37327'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 16 + Top = 19 + Width = 40 + Height = 12 + Caption = #32440' '#31649 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 372 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230#19997 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 320 + Top = 19 + Width = 39 + Height = 12 + Caption = #23612#40857#34955 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 16 + Top = 43 + Width = 73 + Height = 12 + Caption = #29305' '#21035' '#35828' '#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 372 + Top = 43 + Width = 36 + Height = 12 + Caption = #30382#37325'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 201 + Top = 69 + Width = 65 + Height = 12 + Caption = #27599#20844#26020#20960#31859 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 16 + Top = 69 + Width = 86 + Height = 12 + Caption = #25240' '#31639' '#31995' '#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 375 + Top = 69 + Width = 65 + Height = 12 + Caption = #27599#20844#26020#20960#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ZGLen: TEdit + Tag = 2 + Left = 97 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object ZGHd: TEdit + Tag = 2 + Left = 186 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object ZGKg: TEdit + Tag = 2 + Left = 275 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object NRDHD: TEdit + Tag = 2 + Left = 410 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object ZGNote: TEdit + Tag = 2 + Left = 97 + Top = 40 + Width = 269 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object PiZhong: TEdit + Tag = 2 + Left = 410 + Top = 40 + Width = 36 + Height = 20 + Hint = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object KgZMiXs: TEdit + Tag = 2 + Left = 97 + Top = 65 + Width = 103 + Height = 20 + TabOrder = 6 + end + object KgZMaXs: TEdit + Tag = 2 + Left = 271 + Top = 65 + Width = 103 + Height = 20 + TabOrder = 7 + end + end + object GroupBox4: TGroupBox + Left = 464 + Top = 278 + Width = 465 + Height = 322 + Caption = #20986#36135#21253#35013 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + object CHNote: TcxMemo + Tag = 2 + Left = 8 + Top = 24 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = CHNoteDblClick + Height = 287 + Width = 447 + end + end + object cxPageControl2: TcxPageControl + Left = -3 + Top = 368 + Width = 465 + Height = 225 + ActivePage = cxTabSheet5 + Style = 8 + TabOrder = 4 + ClientRectBottom = 225 + ClientRectRight = 465 + ClientRectTop = 23 + object cxTabSheet5: TcxTabSheet + Caption = #20449#24687 + ImageIndex = 0 + object BZNote: TcxMemo + Tag = 2 + Left = 5 + Top = 2 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = BZNoteDblClick + Height = 202 + Width = 447 + end + end + object cxTabSheet6: TcxTabSheet + Caption = #22270#29255 + ImageIndex = 1 + object Image2: TImage + Left = 45 + Top = 0 + Width = 418 + Height = 233 + AutoSize = True + Center = True + end + object ToolBar7: TToolBar + Left = 0 + Top = 0 + Width = 43 + Height = 202 + Align = alLeft + ButtonHeight = 18 + ButtonWidth = 36 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton16: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton16Click + end + object ToolButton17: TToolButton + Left = 0 + Top = 18 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + Wrap = True + OnClick = ToolButton17Click + end + end + end + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #29983#20135#27969#31243#19982#23433#25490 + ImageIndex = 2 + object ToolBar4: TToolBar + Left = 0 + Top = 0 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton6: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton7Click + end + object ToolButton22: TToolButton + Left = 126 + Top = 0 + Caption = #25171#21360#29983#20135#32771#26680#34920 + ImageIndex = 14 + OnClick = ToolButton22Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 31 + Width = 1293 + Height = 138 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_PBMDDJ.Default + Width = 57 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Sorting = False + Width = 71 + end + object v2Column2: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 61 + end + object v2Column3: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 75 + end + object v2Column4: TcxGridDBColumn + Caption = #27599#20844#26020'/'#31859 + DataBinding.FieldName = 'KgZM' + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 346 + end + object v2Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + Width = 117 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object ScrollBox2: TScrollBox + Left = 711 + Top = 169 + Width = 582 + Height = 436 + Align = alRight + TabOrder = 2 + object cxGrid5: TcxGrid + Left = 0 + Top = 33 + Width = 578 + Height = 152 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + OnCellDblClick = Tv5CellDblClick + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 83 + end + object v5Column3: TcxGridDBColumn + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'XDFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column3PropertiesButtonClick + Width = 71 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v5Column1: TcxGridDBColumn + Tag = 2 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v5Column2: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v5Column4: TcxGridDBColumn + Tag = 99 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 66 + end + object v5Column5: TcxGridDBColumn + Tag = 99 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 208 + Width = 578 + Height = 224 + Align = alBottom + TabOrder = 1 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn15 + end + item + Format = '0' + Position = spFooter + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn12 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = v6Column4 + end + item + Kind = skSum + Column = v6Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v6Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v6Column3: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v6Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 88 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'CkPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'CKQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 50 + end + object v6Column4: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'SJCKPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v6Column5: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'SJCKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv6 + end + end + object ToolBar5: TToolBar + Left = 0 + Top = 0 + Width = 578 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton9: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton9Click + end + object ToolButton12: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #35843#33410#20179#24211#35843#20837 + ImageIndex = 79 + OnClick = ToolButton12Click + end + object ToolButton19: TToolButton + Left = 174 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton19Click + end + end + object Panel2: TPanel + Left = 0 + Top = 185 + Width = 578 + Height = 23 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #35843#20837#25968#25454 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 169 + Width = 711 + Height = 436 + Align = alClient + TabOrder = 3 + object ToolBar3: TToolBar + Left = 0 + Top = 0 + Width = 707 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton8Click + end + object ToolButton10: TToolButton + Left = 63 + Top = 0 + Caption = #25353#35746#21333#26126#32454#22686#21152 + ImageIndex = 56 + OnClick = ToolButton10Click + end + object ToolButton4: TToolButton + Left = 182 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object ToolButton11: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + Visible = False + OnClick = ToolButton11Click + end + object Panel3: TPanel + Left = 395 + Top = 0 + Width = 283 + Height = 30 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label30: TLabel + Left = 74 + Top = 8 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 151 + Top = 8 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 9 + Top = 8 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 99 + Top = 4 + Width = 47 + Height = 20 + Hint = '0' + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 225 + Top = 4 + Width = 41 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = 'KG' + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 176 + Top = 4 + Width = 47 + Height = 20 + Hint = '0' + TabOrder = 2 + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 31 + Width = 707 + Height = 401 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_PBMDDJ.Default + Width = 74 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 48 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 68 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v3Column5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 142 + end + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 32 + end + object v3Column8: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 34 + end + object v3Column9: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #20854#23427#36153#29992#30331#35760 + ImageIndex = 3 + object cxGrid7: TcxGrid + Left = 65 + Top = 0 + Width = 1228 + Height = 605 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + OnMouseUp = Tv7MouseUp + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn31 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'JFdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 102 + end + object v7Column1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v7Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 103 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'JFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn30PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 81 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'JFPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn31PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 54 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'JFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn32PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v7Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'JFQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JFMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Footer = DataLink_PBMDDJ.FontBlue + Styles.Header = DataLink_PBMDDJ.FontBlue + Width = 63 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'JFNote' + HeaderAlignmentHorz = taCenter + Width = 131 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + object ToolBar6: TToolBar + Left = 0 + Top = 0 + Width = 65 + Height = 605 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton14: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton14Click + end + object ToolButton15: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton15Click + end + end + end + object cxTabSheet7: TcxTabSheet + Caption = #30133#28857#31649#29702 + ImageIndex = 4 + object ToolBar8: TToolBar + Left = 0 + Top = 0 + Width = 63 + Height = 605 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton20: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton20Click + end + object ToolButton21: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton21Click + end + end + object cxGrid8: TcxGrid + Left = 63 + Top = 0 + Width = 1230 + Height = 605 + Align = alClient + TabOrder = 1 + object Tv8: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource8 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object cxGridDBColumn21: TcxGridDBColumn + Caption = #30133#28857 + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Width = 148 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv8 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 264 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 328 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 152 + Top = 544 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 544 + end + object ADOQuery1: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 296 + Top = 5 + end + object CDS_JGLC: TClientDataSet + Aggregates = <> + Params = <> + Left = 187 + Top = 544 + end + object DataSource2: TDataSource + DataSet = CDS_JGLC + Left = 216 + Top = 544 + end + object CDS_JGC: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 544 + end + object DataSource3: TDataSource + DataSet = CDS_JGC + Left = 284 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 152 + Top = 572 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 184 + Top = 572 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 216 + Top = 572 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 663 + Top = 407 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 780 + Top = 344 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 824 + Top = 545 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 796 + Top = 544 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 784 + Top = 572 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 512 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1180 + Top = 512 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1144 + Top = 508 + end + object OpenDialog2: TOpenDialog + DefaultExt = '.jpg' + Filter = 'JPG'#22270#29255#25991#20214'(*.jpg)|*.jpg' + InitialDir = '.' + Left = 92 + Top = 464 + end + object DataSource8: TDataSource + DataSet = ClientDataSet8 + Left = 517 + Top = 412 + end + object cxGridPopupMenu8: TcxGridPopupMenu + Grid = cxGrid8 + PopupMenus = <> + Left = 609 + Top = 406 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 556 + Top = 405 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 568 + Top = 5 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 632 + Top = 5 + end + object ClientDataSet9: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 496 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 466 + Top = 141 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 394 + Top = 138 + ReportData = {} + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 362 + Top = 138 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 428 + Top = 140 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 533 + Top = 142 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 464 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = Order_Sub + Left = 648 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.pas new file mode 100644 index 0000000..69c2973 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPut.pas @@ -0,0 +1,3940 @@ +unit U_OrderInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxPC, cxGridCustomPopupMenu, + cxGridPopupMenu, cxDropDownEdit,jpeg,IdGlobal, RM_Common, RM_Class, + RM_e_Xls, RM_System, RM_GridReport, RM_Dataset; + +type + TfrmOrderInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + v1Column1: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label10: TLabel; + Label3: TLabel; + Label14: TLabel; + Label12: TLabel; + Label13: TLabel; + Label2: TLabel; + Label6: TLabel; + Label21: TLabel; + Label25: TLabel; + Label43: TLabel; + OrderNo: TEdit; + ConNo: TEdit; + OrdDate: TDateTimePicker; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + YWY: TBtnEditC; + Label4: TLabel; + Note: TMemo; + Label5: TLabel; + CDS_JGLC: TClientDataSet; + DataSource2: TDataSource; + CDS_JGC: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + Label7: TLabel; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + CustomerNoName: TBtnEditA; + MPRTCode: TBtnEditA; + Label8: TLabel; + MPRTGY: TEdit; + Label11: TLabel; + Label15: TLabel; + Label9: TLabel; + MPRTGYHZ: TEdit; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + cxGridPopupMenu6: TcxGridPopupMenu; + v1Column2: TcxGridDBColumn; + ComTaiTou: TBtnEditA; + Label18: TLabel; + LiDanPerson: TBtnEditA; + ToolBar4: TToolBar; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ScrollBox2: TScrollBox; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6Column1: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ToolBar5: TToolBar; + ToolButton9: TToolButton; + ToolButton12: TToolButton; + Panel2: TPanel; + ScrollBox3: TScrollBox; + ToolBar3: TToolBar; + ToolButton8: TToolButton; + ToolButton10: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton11: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ScrollBox1: TScrollBox; + GroupBox1: TGroupBox; + Label16: TLabel; + Label17: TLabel; + MPRTMFNote: TEdit; + MPRTKZNote: TEdit; + CJNote: TcxMemo; + GroupBox2: TGroupBox; + DHNote: TcxMemo; + GroupBox3: TGroupBox; + GroupBox4: TGroupBox; + CHNote: TcxMemo; + Label19: TLabel; + ZGLen: TEdit; + Label20: TLabel; + ZGHd: TEdit; + Label22: TLabel; + ZGKg: TEdit; + Label23: TLabel; + Label24: TLabel; + NRDHD: TEdit; + Label26: TLabel; + Label27: TLabel; + ZGNote: TEdit; + Label28: TLabel; + PiZhong: TEdit; + ToolButton13: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + cxTabSheet4: TcxTabSheet; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ToolBar6: TToolBar; + ToolButton14: TToolButton; + ToolButton15: TToolButton; + ClientDataSet7: TClientDataSet; + DataSource7: TDataSource; + cxGridPopupMenu7: TcxGridPopupMenu; + Panel3: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + cxPageControl2: TcxPageControl; + cxTabSheet5: TcxTabSheet; + cxTabSheet6: TcxTabSheet; + BZNote: TcxMemo; + ToolBar7: TToolBar; + ToolButton16: TToolButton; + ToolButton17: TToolButton; + Image2: TImage; + OpenDialog2: TOpenDialog; + Panel4: TPanel; + CheckBox1: TCheckBox; + ToolButton18: TToolButton; + ToolButton19: TToolButton; + v2Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + cxTabSheet7: TcxTabSheet; + ToolBar8: TToolBar; + ToolButton20: TToolButton; + ToolButton21: TToolButton; + cxGrid8: TcxGrid; + Tv8: TcxGridDBTableView; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + DataSource8: TDataSource; + cxGridPopupMenu8: TcxGridPopupMenu; + ClientDataSet8: TClientDataSet; + v5Column3: TcxGridDBColumn; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ClientDataSet9: TClientDataSet; + v6Column4: TcxGridDBColumn; + v6Column5: TcxGridDBColumn; + KgZMiXs: TEdit; + Label34: TLabel; + Label35: TLabel; + Label32: TLabel; + KgZMaXs: TEdit; + ToolButton22: TToolButton; + ADOQueryPrint: TADOQuery; + RM1: TRMGridReport; + CDS_Print: TClientDataSet; + RMXLSExport1: TRMXLSExport; + RMDBMain: TRMDBDataSet; + Label33: TLabel; + LabNote1: TEdit; + Label36: TLabel; + LabNote2: TEdit; + Label37: TLabel; + RollBeg: TEdit; + Label38: TLabel; + RollEnd: TEdit; + Label39: TLabel; + Button1: TButton; + RM2: TRMGridReport; + RMDB_Main: TRMDBDataSet; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v7Column1: TcxGridDBColumn; + v7Column2: TcxGridDBColumn; + ToolButton23: TToolButton; + Panel5: TPanel; + Label40: TLabel; + Edit1: TEdit; + Label41: TLabel; + ComboBox1: TComboBox; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure NoteDblClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrdDefStr2BtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomerNoNameBtnClick(Sender: TObject); + procedure MPRTCodeBtnClick(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure BZNoteDblClick(Sender: TObject); + procedure CHNoteDblClick(Sender: TObject); + procedure DHNoteDblClick(Sender: TObject); + procedure CJNoteDblClick(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn15PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure LiDanPersonBtnClick(Sender: TObject); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton13Click(Sender: TObject); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton14Click(Sender: TObject); + procedure cxGridDBColumn30PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton15Click(Sender: TObject); + procedure cxGridDBColumn31PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn32PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton16Click(Sender: TObject); + procedure ToolButton17Click(Sender: TObject); + procedure ToolButton18Click(Sender: TObject); + procedure ToolButton19Click(Sender: TObject); + procedure v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton20Click(Sender: TObject); + procedure ToolButton21Click(Sender: TObject); + procedure v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton22Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure v7Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv7MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton23Click(Sender: TObject); + private + CanShu1,CanShu2:String; + FJSFlag:Boolean; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + procedure SaveImageOther(); + procedure CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); + procedure InitImage(); + function SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; + function UpdateTJCKQty(FFPFID:string):Boolean; + function UpdateTJCKQtyOne(FFPFID:string):Boolean; + { Private declarations } + public + PState,CopyInt,PriceFlag,DRInt,JYInt:Integer; + FMainId,FFMainId,FOrderNo,ConSubId,DataType:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPut: TfrmOrderInPut; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_CPManageTPCX,U_ZHKHListNewCX + ,U_GYSList,U_OrderSubSel,U_TJCKKC,U_LabelList, U_ModuleNote,U_OrderSubSelMX; + +{$R *.dfm} + +procedure TfrmOrderInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼',Tv1,'ָʾ'); + WriteCxGrid('¼1',Tv2,'ָʾ'); + WriteCxGrid('ӹ¼',Tv3,'ָʾ'); + WriteCxGrid('',Tv7,'ָʾ'); +end; + +procedure TfrmOrderInPut.InitData(); +var + fsj:string; +begin + fsj:='select ZdyName Name,ZdyNo Code from KH_Zdy where Type=''PFGenDanPerson'' '; + SInitCxGridComboBoxBySql(ADOTemp,cxGridDBColumn2,fsj,0,False,''); + if Trim(CanShu1)<>'Ȩ' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + OrderNo.ReadOnly:=True; + end else + begin + OrderNo.ReadOnly:=False; + end; + end; + + ReadCxGrid('ָʾ¼',Tv1,'ָʾ'); + ReadCxGrid('¼1',Tv2,'ָʾ'); + ReadCxGrid('ӹ¼',Tv3,'ָʾ'); + ReadCxGrid('',Tv7,'ָʾ'); + cxPageControl1.ActivePageIndex:=0; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Sub where 1=1 '); + //sql.Add('exec P_View_OrderSub :begdate,:enddate,:WSQl'); + //Parameters.ParamByName('begdate').Value:='2010-10-10'; + // Parameters.ParamByName('enddate').Value:='2050-12-24'; + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Main_Fee where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_CD where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet8); + SInitCDSData20(ADOQuery1,ClientDataSet8); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + FJSFlag:=ADOQuery1.FieldByName('JSFlag').AsBoolean; + SCSHDataNew(ADOQuery1,Panel1,2); + SCSHDataNew(ADOQuery1,Panel3,2); + SCSHDataNew(ADOQuery1,ScrollBox1,2); + SCSHDataNew(ADOQuery1,GroupBox3,2); + BZNote.Text:=Trim(ADOQuery1.fieldbyname('BZNote').AsString); + DHNote.Text:=Trim(ADOQuery1.fieldbyname('DHNote').AsString); + CJNote.Text:=Trim(ADOQuery1.fieldbyname('CJNote').AsString); + CHNote.Text:=Trim(ADOQuery1.fieldbyname('CHNote').AsString); + MPRTMFNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTMFNote').AsString); + MPRTKZNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTKZNote').AsString); + //ConSubId:=Trim(ADOQuery1.fieldbyname('ConSubId').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + if CopyInt<>99 then + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+'''') + else + sql.Add('select * from JYOrder_Process where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGLC); + SInitCDSData20(ADOQuery1,CDS_JGLC); + + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + LiDanPerson.Text:=Trim(DName); + YWY.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //OrdPerson1.Text:=Trim(DName); + OrderNo.Text:=''; + OrderNo.ReadOnly:=False; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + InitImage(); +end; + +procedure TfrmOrderInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPut.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmOrderInPut.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JM','JYOrder_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel1,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',GroupBox3,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel3,2); + FieldByName('CJNote').Value:=Trim(CJNote.Text); + FieldByName('DHNote').Value:=Trim(DHNote.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + FieldByName('CHNote').Value:=Trim(CHNote.Text); + FieldByName('MPRTMFNote').Value:=Trim(MPRTMFNote.Text); + FieldByName('MPRTKZNote').Value:=Trim(MPRTKZNote.Text); + FieldByName('CustomerNo').Value:=Trim(CustomerNoName.TxtCode); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('Note').Value:=Trim(Note.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + //FieldByName('ConSubId').Value:=Trim(ConSubId); + Post; + end; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///ñ + with ClientDataSet7 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjfno,'JF','JYOrder_Main_Fee',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjfno:=Trim(ClientDataSet7.fieldbyname('JFId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_Fee where JFId='''+Trim(maxjfno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JFID').Value:=Trim(maxjfno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv7,ClientDataSet7,'JYOrder_Main_Fee',0); + FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('FactoryNo').Value; + Post; + end; + ClientDataSet7.Edit; + ClientDataSet7.FieldByName('JFId').Value:=Trim(maxjfno); + //Order_Sub.Post; + Next; + end; + end; + ///õ + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjcno,'JC','JYOrder_CD',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjcno:=Trim(ClientDataSet8.fieldbyname('JCId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_CD where JCId='''+Trim(maxjcno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + Append; + //FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + //FieldByName('Editer').Value:=Trim(DName); + //FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JCId').Value:=Trim(maxjcno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv8,ClientDataSet8,'JYOrder_CD',0); + Post; + end; + ClientDataSet8.Edit; + ClientDataSet8.FieldByName('JCId').Value:=Trim(maxjcno); + //Order_Sub.Post; + Next; + end; + end; + ///̱ + with CDS_JGLC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'PS','JYOrder_Process',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(CDS_JGLC.fieldbyname('PSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Process where PSId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv2,CDS_JGLC,'JYOrder_Process',0); + Post; + end; + CDS_JGLC.Edit; + CDS_JGLC.FieldByName('PSId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + JDMainId:=''; + end else + begin + JDMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString); + end; + if Trim(JDMainId)='' then + begin + if GetLSNo(ADOCmd,maxJDNo,'JD','JYOrderJD_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӷˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxJDNo:=Trim(JDMainId); + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where MainId='''+Trim(JDMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(JDMainId)='' then + begin + Append; + FieldByName('Filler').Value:=ADOTemp.fieldbyname('Filler').Value; + FieldByName('Status').Value:=''; + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MainId').Value:=Trim(maxJDNo); + FieldByName('orderno').Value:=ADOTemp.fieldbyname('orderno').Value; + FieldByName('LiDanPerson').Value:=ADOTemp.fieldbyname('LiDanPerson').Value; + FieldByName('CustomerNoName').Value:=ADOTemp.fieldbyname('CustomerNoName').Value; + FieldByName('CustomerNo').Value:=ADOTemp.fieldbyname('CustomerNo').Value; + FieldByName('MPRTCode').Value:=ADOTemp.fieldbyname('MPRTCode').Value; + FieldByName('MPRTCodeName').Value:=ADOTemp.fieldbyname('MPRTCodeName').Value; + FieldByName('MPRTSpec').Value:=ADOTemp.fieldbyname('MPRTSpec').Value; + FieldByName('MPRTCF').Value:=ADOTemp.fieldbyname('MPRTCF').Value; + FieldByName('MPRTMF').Value:=ADOTemp.fieldbyname('MPRTMF').Value; + FieldByName('MPRTKZ').Value:=ADOTemp.fieldbyname('MPRTKZ').Value; + FieldByName('ORDQty').Value:=Tv1.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('QtyUnit').Value:=Order_Sub.fieldbyname('OrderUnit').Value; + Post; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + FMainId:=Trim(maxno); + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPut.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + //SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPut.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmOrderInPut.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmOrderInPut.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=False then + begin + Application.MessageBox('ŷǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=False then + begin + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('MFQty',Null,[])=True then + begin + Application.MessageBox('еŷΪ!','ʾ',0); + exit; + end; + if CDS_JGLC.Locate('KZQty',Null,[])=True then + begin + Application.MessageBox('еĿزΪ!','ʾ',0); + exit; + end; + end; + if Trim(KgZMiXs.Text)<>'' then + begin + if TryStrToFloat(KgZMiXs.Text,FReal)=False then + begin + Application.MessageBox('ϵǷ!','ʾ',0); + Exit; + end; + end; + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(ClothOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTOneQty.Text)<>'' then + begin + if TryStrToFloat(MPRTOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥƷǷ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet7.Locate('JFDate',Null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet7.Locate('JFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTOrdQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(OrdDefStr1.Text)='' then + begin + Application.MessageBox('˾ŲΪգ','ʾ',0); + Exit; + end; } + {if Order_Sub.Locate('PRTColor',null,[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr4',null,[])=True then + begin + Application.MessageBox('ӢɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr1',null,[])=True then + begin + Application.MessageBox('ɫŲΪ!','ʾ',0); + Exit; + end;} + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('KgZM',null,[])=True then + begin + Application.MessageBox('ÿ/ײΪ!','ʾ',0); + Exit; + end; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('PSName','',[])=False then + begin + Application.MessageBox('ûѡ','ʾ',0); + Exit; + end; + end; + {if PState=1 then + begin + if Trim(OrderNo.Text)<>Trim(FOrderNo) then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѲݣܸĶ!','ʾ',0); + Exit; + end; + end; + end; } + { if Trim(ConSubId)='' then + begin + Application.MessageBox('ûѡͬ!','ʾ',0); + Exit; + end; } + if cxPageControl1.ActivePageIndex=2 then + begin + if CDS_JGC.Locate('PFID',null,[])=True then + begin + Application.MessageBox('Ϣδȷ!','ʾ',0); + Exit; + end; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + // if cxPageControl1.ActivePageIndex=2 then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmOrderInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColorEng').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton1Click(Sender: TObject); +var + FReal:Double; + i,j,z:Integer; + jstr:string; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CheckBox1.Checked then + begin + if Order_Sub.IsEmpty then + begin + j:=1; + end else + begin + z:=Pos('#',Trim(Order_Sub.fieldbyname('PRTColorNo').AsString)); + jstr:=Copy(Trim(Order_Sub.fieldbyname('PRTColorNo').AsString),2,z-2); + if Trim(jstr)<>'' then + begin + if TryStrToFloat(jstr,FReal)=True then + begin + j:=StrToInt(jstr)+1; + end; + end else + begin + j:=1; + end; + end; + end; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + //FieldByName('PRTColor').Value:=''; + //FieldByName('PRTOrdQty').Value:=null; + //FieldByName('PRTColorNo').Value:=null; + //FieldByName('PRTColorEng').Value:=null; + //FieldByName('PRTHX').Value:=null; + FieldByName('SubId').Value:=''; + if CheckBox1.Checked then + begin + FieldByName('PRTColorNo').Value:='C'+Trim(IntToStr(j))+'#'; + end; + Post; + end; +end; + +procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + { with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; } + + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmOrderInPut.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPut.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPut.NoteDblClick(Sender: TObject); +begin + {try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdNote'; + flagname:='עҪ'; + if ShowModal=1 then + begin + Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end;} +end; + +procedure TfrmOrderInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.OrdDefStr2BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + MPRTCodeName.Text:=ADOTemp.fieldbyname('MPRTCodeName').Value; + MPRTMF.Text:=ADOTemp.fieldbyname('MPRTMF').Value; + MPRTKZ.Text:=ADOTemp.fieldbyname('MPRTKZ').Value; + MPRTSpec.Text:=ADOTemp.fieldbyname('MPRTSpec').Value; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmOrderInPut.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPut.ToolButton6Click(Sender: TObject); +var + Fint:Integer; + FReal,FMF,FKZ:Double; +begin + {if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; } + Fint:=CDS_JGLC.RecordCount; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JGGX'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with CDS_JGLC do + begin + Append; + FieldByName('PSXH').Value:=Fint+1; + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=True then + begin + FieldByName('MFQty').Value:=MPRTMF.Text; + FMF:=StrToFloat(MPRTMF.Text); + end else + begin + FMF:=0; + end; + end else + begin + FMF:=0; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=True then + begin + FieldByName('KZQty').Value:=MPRTKZ.Text; + FKZ:=StrToFloat(MPRTKZ.Text); + end else + begin + FKZ:=0; + end; + end else + begin + FKZ:=0; + end; + if FMF*FKZ<>0 then + begin + FieldByName('KgZM').Value:=100000*1.0000/(FMF*FKZ); + end else + begin + FieldByName('KgZM').Value:=0; + end; + Fint:=Fint+1; + Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton4Click(Sender: TObject); +begin + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + FieldByName('PFTPUnit').Value:=Trim(OneQtyUnit.Text); + Post; + end; + end; + end; + finally + frmGYSList.Free; + end; + +end; + +procedure TfrmOrderInPut.ToolButton8Click(Sender: TObject); +var + maxno:string; +begin + {if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end;} + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + try + ADOCmd.Connection.BeginTrans; + CDS_JGC.DisableControls; + with CDS_JGC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_JGC.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(CDS_JGC.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('SubID').Value:=Trim(CDS_JGC.fieldbyname('SubID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(CDS_JGC.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_JGC.fieldbyname('FactoryName').AsString); + FieldByName('PFDlyDate').Value:=CDS_JGC.fieldbyname('PFDlyDate').Value; + RTSetSaveDataCDS(ADOCmd,Tv3,CDS_JGC,'JYOrder_PCS_Sub',0); + Post; + end; + if Trim(CDS_JGC.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + +procedure TfrmOrderInPut.cxGridDBColumn6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + fsj:string; +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PSNote'; + flagname:='˵'; + + if ShowModal=1 then + begin + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; } + fsj:=Trim(CDS_JGLC.fieldbyname('PSNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='PSNote'; + flagname:='˵'; + MainType:=Trim(CDS_JGLC.fieldbyname('PSName').AsString); + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + fsj:=fsj+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(fsj); + //Post; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.CustomerNoNameBtnClick(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + CustomerNoName.TxtCode:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('ZKID').AsString); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmOrderInPut.MPRTCodeBtnClick(Sender: TObject); +var + fsj:string; +begin + try + frmCPManageTPCX:=TfrmCPManageTPCX.Create(Application); + with frmCPManageTPCX do + begin + if ShowModal=1 then + begin + MPRTCode.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYNO').AsString); + MPRTCodeName.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYName').AsString); + MPRTSpec.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYSpec').AsString); + MPRTCF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYCF').AsString); + MPRTMF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYMF').AsString); + MPRTKZ.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYKZ').AsString); + MPRTGY.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('GYStr').AsString); + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString)<>'' then + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString); + end else + begin + fsj:=''; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end; + end; + MPRTGYHZ.Text:=Trim(fsj); + end; + end; + finally + frmCPManageTPCX.Free; + end; + if Trim(MPRTMF.Text)<>'' then + begin + MPRTMF.Text:=Copy(Trim(MPRTMF.Text),1,Pos('c',Trim(MPRTMF.Text))-1); + end; + if Trim(MPRTKZ.Text)<>'' then + begin + MPRTKZ.Text:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + end; +end; + +procedure TfrmOrderInPut.ToolButton7Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty=False then + begin + Application.MessageBox('ѰŲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('¼뵥ɾ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Process where PSId='''+Trim(CDS_JGLC.fieldbyname('PSId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGLC.Delete; +end; + +procedure TfrmOrderInPut.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmOrderInPut.ToolButton10Click(Sender: TObject); +var + i:Integer; + FName:String; +begin + + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + if CDS_JGC.IsEmpty then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + end; + try + frmOrderSubSel:=TfrmOrderSubSel.Create(Application); + with frmOrderSubSel do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + ClientDataSet1.DisableControls; + with frmOrderSubSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + Self.CDS_JGC.Append; + Self.CDS_JGC.FieldByName('SubId').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('SubId').Value; + for i:=0 to frmOrderSubSel.Tv3.ColumnCount-1 do + begin + FName:=frmOrderSubSel.Tv3.Columns[i].DataBinding.FilterFieldName; + Self.CDS_JGC.FieldByName(FName).Value:=frmOrderSubSel.ClientDataSet1.FieldByName(FName).Value; + + end; + Self.CDS_JGC.FieldByName('FactoryNo').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('FactoryNo').Value; + Self.CDS_JGC.Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + end; + finally + end; +end; + +procedure TfrmOrderInPut.ToolButton11Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv3,CDS_JGC); +end; + +procedure TfrmOrderInPut.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton5Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + if Trim(CDS_JGC.fieldbyname('PFId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_PCS_Sub where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGC.Delete; +end; + +procedure TfrmOrderInPut.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FMF,FKZ:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_JGLC do + begin + Edit; + FieldByName(FName).Value:=Trim(mvalue); + Post; + end; + FMF:=Trim(CDS_JGLC.fieldbyname('MFQty').AsString); + FKZ:=Trim(CDS_JGLC.fieldbyname('KZQty').AsString); + if Trim(FMF)='' then Exit; + if Trim(FKZ)='' then Exit; + if StrToFloat(FMF)=0 then Exit; + if StrToFloat(FKZ)=0 then Exit; + with CDS_JGLC do + begin + Edit; + FieldByName('KgZM').Value:=100000*1.0000/(StrToFloat(FMF)*StrToFloat(FKZ)); + Post; + end; +end; + +procedure TfrmOrderInPut.BZNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='BZNote'; + flagname:='װҪ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(BZNote.Text)='' then + BZNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + BZNote.Text:=BZNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.CHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CHNote'; + flagname:='װ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CHNote.Text)='' then + CHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CHNote.Text:=CHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.DHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='DHNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(DHNote.Text)='' then + DHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + DHNote.Text:=DHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.CJNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CJNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CJNote.Text)='' then + CJNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CJNote.Text:=CJNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton12Click(Sender: TObject); +var + fsj:string; +begin + if CDS_JGLC.IsEmpty then Exit; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + + try + frmTJCKKC:=TfrmTJCKKC.Create(Application); + with frmTJCKKC do + begin + FFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + fsj:='99'; + DataType:=Trim(frmTJCKKC.ComboBox1.Text); + with Self.ClientDataSet6 do + begin + First; + while not Eof do + begin + Self.ClientDataSet6.Delete; + end; + end; + with frmTJCKKC.Order_Sub do + begin + Locate('SSel',True,[]); + with Self.ClientDataSet5 do + begin + Append; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('PFTPUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + Post; + end; + with Self.ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + {if Trim(Self.ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + sql.Add('where A.PFID='''+Trim(Self.ClientDataSet5.fieldbyname('PFID').AsString)+'''') + else } + sql.Add(' where 1<>1'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(Self.ADOQueryTemp,Self.ClientDataSet6); + SInitCDSData20(Self.ADOQueryTemp,Self.ClientDataSet6); + while Locate('SSel',True,[])=True do + begin + with Self.ClientDataSet6 do + begin + Append; + FieldByName('OrderNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('OrderNo').Value; + FieldByName('C_Code').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_Code').Value; + FieldByName('C_CodeName').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_CodeName').Value; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryName').Value; + //FieldByName('ToFactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryNo').Value; + FieldByName('CKQtyUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + FieldByName('CKPS').Value:=StrToFloat(frmTJCKKC.DRPS.Text); + FieldByName('CKQty').Value:=StrToFloat(frmTJCKKC.DRQty.Text); + FieldByName('MDID').Value:=frmTJCKKC.Order_Sub.fieldbyname('MDID').Value; + Post; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + + + end; + end; + end; + finally + frmTJCKKC.Free; + end; + if Trim(fsj)<>'99' then Exit; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; + DRInt:=99; + ToolButton9.Click; + DRInt:=0; +end; + +procedure TfrmOrderInPut.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + PFID,FPFID,Fsj:String; +begin + {if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + Tv5.OptionsSelection.CellSelect:=False; + end else + begin + Tv5.OptionsSelection.CellSelect:=True; + end; + end; } + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' left join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + +end; + +procedure TfrmOrderInPut.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPut.cxGridDBColumn15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv6.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet6 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; +end; + +procedure TfrmOrderInPut.ToolButton9Click(Sender: TObject); +var + maxno,maxsubno:string; +begin + if ClientDataSet5.IsEmpty then Exit; + if ClientDataSet6.IsEmpty then Exit; + ToolBar1.SetFocus; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + + + {if ClientDataSet5.Locate('PFDlyDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; } + if DRInt<>99 then + begin + if Trim(CanShu1)<>'Ȩ' then + begin + if Application.MessageBox('ȷҪִд˲ִд˲ݽܳ!','',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end; + end; + + try + ADOCmd.Connection.BeginTrans; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet5.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('XDFactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryNo').AsString); + FieldByName('XDFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('PFDlyDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value; + FieldByName('SubId').Value:=ClientDataSet5.fieldbyname('SubId').Value; + RTSetSaveDataCDS(ADOCmd,Tv5,ClientDataSet5,'JYOrder_PCS_Sub',0); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + if Trim(ClientDataSet5.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ClientDataSet5 do + begin + Edit; + FieldByName('PFID').Value:=Trim(maxno); + Post; + end; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'CK','JYOrder_Main_MD_Out',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet6.fieldbyname('CKID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where CKID='''+Trim(ClientDataSet6.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('CKID').Value:=Trim(maxsubno); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + RTSetSaveDataCDS(ADOCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD_Out',2); + Post; + end; + Edit; + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('CKID').Value:=Trim(maxsubno); + Post; + Next; + end; + end; + if Trim(DataType)='Χ' then + begin + SaveMDData(FMainId,Trim(ClientDataSet5.fieldbyname('SubId').AsString), + Trim(CDS_JGLC.fieldbyname('PSID').AsString),Trim(maxno)); + end; + + if UpdateTJCKQtyOne(Trim(maxno)) then + begin + + end else + begin + ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʧ!','ʾ',0); + exit; + end; + + ADOCmd.Connection.CommitTrans; + if Trim(CDS_JGLC.FieldByName('PSName').AsString)<>'' then + begin + if Trim(ClientDataSet5.fieldbyname('SubId').AsString)='' then + begin + Application.MessageBox('ûָͻɫ!','ʾ',0); + Exit; + end; + end; + if DRInt<>99 then + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmOrderInPut.SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; +var + maxno,MDID:string; + BDInt,CPInt,JYInt:Integer; +begin + Result:=False; + //жϹǷԶ뵥 + {BDInt:=CDS_JGLC.fieldbyname('PSXH').AsInteger; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''Ʒ'' '); + sql.Add(' and MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + CPInt:=ADOTemp.fieldbyname('PSXH').AsInteger + else + CPInt:=-1; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''װ'' '); + sql.Add(' and MainId='''+Trim(FMainId)+''''); + Open; + end; + //JYInt:=ADOTemp.fieldbyname('PSXH').AsInteger; + if ADOTemp.IsEmpty=False then + begin + JYInt:=ADOTemp.fieldbyname('PSXH').AsInteger; + end else + begin + JYInt:=-1; + end; + if BDInt-1 then + begin + if BDInt+1-1 then + begin + Exit; + end;} + //жϹǷԶ뵥 + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(FPFID)+''''); + sql.Add(' and Qty>0'); + open; + end; + if ADOTemp.IsEmpty=False then + begin + MDID:=Trim(ADOTemp.fieldbyname('MDID').AsString); + end else + begin + MDID:=''; + end; + if Trim(MDID)='' then + begin + if GetLSNo(ADOCmd,maxno,'','JYOrder_Main_MD',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡ뵥ˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MDID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(MDID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(MDID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FOrdMainId); + //FieldByName('ConMainID').Value:=Trim(FConMainId); + //FieldByName('ConSubID').Value:=Trim(FConSubId); + FieldByName('OrdSubId').Value:=Trim(FOrdSubId); + FieldByName('PSID').Value:=Trim(FPSID); + FieldByName('PFID').Value:=Trim(FPFID); + FieldByName('MDType').Value:=Trim(DataType); + FieldByName('MDNO').Value:='NM'+Trim(maxno); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryNo').AsString); + FieldByName('PS').Value:=ClientDataSet5.fieldbyname('PFTPPS').Value; + FieldByName('Qty').Value:=ClientDataSet5.fieldbyname('PFTPQty').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('PFTPUnit').Value; + FieldByName('PSName').Value:=CDS_JGLC.fieldbyname('PSName').Value; + //FieldByName('FromFactoryName').Value:=Trim(ToFactoryName.Text); + //FieldByName('FromFactoryNo').Value:=Trim(ToFactoryName.TxtCode); + if Trim(ClientDataSet5.fieldbyname('PFDlyDate').AsString)<>'' then + FieldByName('MDDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value + else + FieldByName('MDDate').Value:=SGetServerDateTime(ADOQuery1); + Post; + end; + Result:=True; + +end; +function TfrmOrderInPut.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Result:=True; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select distinct(MDID) MDID from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet9); + SInitCDSData20(ADOQueryTemp,ClientDataSet9); + with ClientDataSet9 do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(SJCKQty),0) Qty from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FAPQty:=ADOTemp.fieldbyname('Qty').Value; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select RKQty from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FMDQty:=ADOTemp.fieldbyname('RKQty').Value; + if FMDQty''ڲֿ'' ),'); + sql.Add('SJCKQty=(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_Main_MD_Out.PFID and isnull(A.CKName,'''')<>''ڲֿ'' )'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + //ʵʳƥ + //ԭʼTJ뵥ijƥ + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(FMDID)+''''); + ExecSQL; + end; + //ԭʼTJ뵥ijƥ + Result:=True; +end; + +procedure TfrmOrderInPut.FormCreate(Sender: TObject); +begin + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + if Trim(CanShu2)='ֿ' then + begin + TBSave.Visible:=false; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + end; +end; + +procedure TfrmOrderInPut.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end; + end; } +end; + +procedure TfrmOrderInPut.Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + ClientDataSet5.Delete; + end; +end; + +procedure TfrmOrderInPut.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmLabelList:=TfrmLabelList.Create(Application); + with frmLabelList do + begin + SLBName:=Trim(Order_Sub.fieldbyname('SLBName').AsString); + if Self.JYInt=99 then + begin + frmLabelList.Tadd.Visible:=False; + frmLabelList.Tupd.Visible:=False; + frmLabelList.TOK.Visible:=False; + frmLabelList.Tdel.Visible:=False; + end; + if ShowModal=1 then + begin + + with Self.Order_Sub do + begin + Edit; + FieldByName('SLBName').Value:=Trim(LBName); + end; + end; + end; + finally + frmLabelList.Free; + end; +end; + +procedure TfrmOrderInPut.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.LiDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='LiDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + LiDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with CDS_JGC do + begin + Edit; + FieldByName('PFGenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrderInPut.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + FReal:Double; + mvalue:string; +begin + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(Trim(ClothOneQty.Text),FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_JGC do + begin + Edit; + FieldByName('PFTPPS').Value:=mvalue; + FieldByName('PFTPQty').Value:=StrToFloat(mvalue)*StrToFloat(ClothOneQty.Text); + Post; + end; +end; + +procedure TfrmOrderInPut.ToolButton14Click(Sender: TObject); +var + FPS,FJZ,XSJZ:Double; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Count(*),0) PS from WFB_MJJY where Mainid='''+Trim(FMainId)+''''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Sum(MJQty4),0) JZ from WFB_MJJY where Mainid='''+Trim(FMainId)+''''); + Open; + end; + FJZ:=ADOQueryTemp.fieldbyname('JZ').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(Sum(Qty),0) XSJZ from JYOrder_Main_MD where ORDMainId='''+Trim(FMainId)+''''); + SQL.Add(' and FactoryNo='''+Trim('GS131221001')+''''); + Open; + end; + XSJZ:=ADOQueryTemp.fieldbyname('XSJZ').Value; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JFName'; + flagname:=''; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet7 do + begin + Append; + FieldByName('JFDate').Value:=Now; + FieldByName('JFName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + if Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString)='ֿװ' then + begin + FieldByName('JFQty').Value:=FJZ; + FieldByName('JFPrice').Value:=0.3; + FieldByName('JFMoney').Value:=0.3*FJZ; + end else + if Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString)='ֽ' then + begin + FieldByName('JFQty').Value:=FPS; + //FieldByName('JFPrice').Value:=0.3; + //FieldByName('JFMoney').Value:=0.3*FJZ; + end else + if Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString)='ɴ' then + begin + FieldByName('JFQty').Value:=XSJZ; + //FieldByName('JFPrice').Value:=0.3; + //FieldByName('JFMoney').Value:=0.3*FJZ; + end; + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.cxGridDBColumn30PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JFName'; + flagname:=''; + if ShowModal=1 then + begin + with ClientDataSet7 do + begin + Edit; + FieldByName('JFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton15Click(Sender: TObject); +begin + if ClientDataSet7.IsEmpty then Exit; + if Trim(ClientDataSet7.fieldbyname('JFID').AsString)<>'' then + begin + if Trim(ClientDataSet7.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ɾݣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_Main_Fee where JFID='''+Trim(ClientDataSet7.fieldbyname('JFID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet7.Delete; +end; + +procedure TfrmOrderInPut.cxGridDBColumn31PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFPrice').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPut.cxGridDBColumn32PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFQty').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPut.ToolButton16Click(Sender: TObject); +var + AJpeg: TJPEGImage; +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ棡','ʾ',0); + Exit; + end; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select WBID from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + if ADOQuery1.RecordCount>0 then + begin + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + end; + AJpeg:=TJpegImage.Create(); + try + if self.OpenDialog2.Execute() then + begin + + Image2.Picture.LoadFromFile(OpenDialog2.FileName); + AJpeg.Assign(Image2.Picture.Graphic); + if FileSizeByName(OpenDialog2.FileName)>300*1024 then + begin + CreThumb(AJpeg,Image2,418, 233); + end; + SaveImageOther(); + end; + finally + AJpeg.Free; + end; +end; +procedure TfrmOrderInPut.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if Trim(FMainId)='' then Exit; + //if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + Image2.Picture:=nil; + try + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQuery1.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQuery1.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; +procedure TfrmOrderInPut.CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); +var + Bitmap: TBitmap; + Ratio: Double; + ARect: TRect; + AHeight, AHeightOffset: Integer; + AWidth, AWidthOffset: Integer; +begin + Bitmap := TBitmap.Create; + try + Ratio := AJPeg.Width /AJPeg.Height; + if Ratio > 1.333 then + begin + AHeight := Round(Width / Ratio); + AHeightOffset := (Height - AHeight) div 2; + AWidth := Width; + AWidthOffset := 0; + end + else + begin + AWidth := Round(Height * Ratio); + AWidthOffset := (Width - AWidth) div 2; + AHeight := Height; + AHeightOffset := 0; + end; + Bitmap.Width := Width; + Bitmap.Height := Height; + Bitmap.Canvas.Brush.Color := clBtnFace; + Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height)); + ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset); + Bitmap.Canvas.StretchDraw(ARect, AJPeg); + Image1.Picture.Assign(BitMap); + finally + Bitmap.Free; + end; +end; +procedure TfrmOrderInPut.SaveImageOther(); +var + AJpeg: TJPEGImage; + myStream: TADOBlobStream; + ImgMaxNo:String; + i,j: Integer; + PatFile: String; + FTPPath,FConNo,MaxNo,FTFID:string; +begin + if Image2.Picture=nil then Exit; + AJpeg:=TJpegImage.Create(); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + FTFID:=Trim(ADOTemp.fieldbyname('TFID').AsString); + if Trim(FTFID)='' then + begin + if GetLSNo(ADOCmd,ImgMaxNo,'TF','TP_File',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͼƬʧ!','ʾ',0); + Exit; + end; + end else + begin + ImgMaxNo:=Trim(FTFID); + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add( ' select * from TP_File where TFID='''+Trim(FTFID)+''''); + open; + end; + with ADOCmd do + begin + if Trim(FTFID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('TFID').Value:=Trim(ImgMaxNo); + FieldByName('WBID').Value:=Trim(FMainId); + FieldByName('TFType').Value:='װ'; + AJpeg.Assign(Image2.Picture.Graphic); + //CreThumb(AJpeg,Image1,160, 120); + myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; +end; + +procedure TfrmOrderInPut.ToolButton17Click(Sender: TObject); +begin + if Image2.Picture=nil then Exit; + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' delete TP_File where WBID='''+Trim(FMainId)+''''); + SQL.Add(' and TFType=''װ'' '); + ExecSQL; + end; + Image2.Picture.Assign(nil); +end; + +procedure TfrmOrderInPut.ToolButton18Click(Sender: TObject); +begin +// if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; +// if not Assigned(DataLink_PBMDDJ) then +// DataLink_DDMD:=TDataLink_DDMD.Create(Application); +// Try +// with DataLink_DDMD.ADOLink do +// begin +// //if not Connected then +// begin +// Connected:=false; +// ConnectionString:=DConString; +// LoginPrompt:=false; +// Connected:=true; +// end; +// end; +// Except +// application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); +// end; +// with ADOCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Sub'' '); +// sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Main'' '); +// ExecSQL; +// end; +end; + +procedure TfrmOrderInPut.ToolButton19Click(Sender: TObject); +begin + if ClientDataSet5.IsEmpty then Exit; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add(' and (isnull(ConSubId,'''')<>'''' '); + sql.Add(' or MDNO like ''MD%'') '); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('Ѵɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD Set '); + sql.Add(' CKPS=(select isnull(Sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID'); + sql.Add(' and isnull(A.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''')'); + sql.Add(' ,CKQty=(select isnull(Sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID'); + sql.Add(' and isnull(A.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''')'); + sql.Add(' where MDID in(select MDID from JYOrder_Main_MD_Out B where'); + sql.Add(' isnull(B.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''')'); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add('delete JYOrder_Main_MD_Out where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + UpdateTJCKQty(Trim(ClientDataSet5.fieldbyname('PFID').AsString)); + end; + ClientDataSet5.Delete; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('exec P_Update_TJCKQty'); + ExecSQL; + end; +end; + +procedure TfrmOrderInPut.v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmOrderSubSelMX:=TfrmOrderSubSelMX.Create(Application); + with frmOrderSubSelMX do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('SubId').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTColorNo').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTColorNo').Value; + FieldByName('PRTHX').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTHX').Value; + //Post; + end; + end; + end; + finally + frmOrderSubSelMX.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton20Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet8 do + begin + Append; + FieldByName('ZDYCODE').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZDYNo').AsString); + FieldByName('ZdyName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('ZdyNameEng').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('Note').AsString); + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton21Click(Sender: TObject); +begin + if ClientDataSet8.IsEmpty then Exit; + if Trim(ClientDataSet8.fieldbyname('JCID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_CD where JCID='''+Trim(ClientDataSet8.fieldbyname('JCID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet8.Delete; +end; + +procedure TfrmOrderInPut.v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('XDFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('XDFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPut.ToolButton22Click(Sender: TObject); +var + fPrintFile:string; +begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\˱.rmf'; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where Mainid='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['PFGenDanPerson']:=CDS_JGC.fieldbyname('PFGenDanPerson').Value; + RMVariables['PSName']:=CDS_JGLC.fieldbyname('PSName').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\˱.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +procedure TfrmOrderInPut.Button1Click(Sender: TObject); +var + fPrintFile:String; + FReal:Integer; + i:Integer; +begin + if Trim(Order_Sub.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Sub.fieldbyname('SLBName').AsString); + if Trim(RollBeg.Text)='' then + begin + Application.MessageBox('ֹŲΪ!','ʾ',0); + Exit; + end; + if TryStrToInt(Trim(RollBeg.Text),FReal)=False then + begin + Application.MessageBox('ֹŷǷ!','ʾ',0); + Exit; + end; + if Trim(RollEnd.Text)='' then + begin + Application.MessageBox('ֹŲΪ!','ʾ',0); + Exit; + end; + if TryStrToInt(Trim(RollEnd.Text),FReal)=False then + begin + Application.MessageBox('ֹŷǷ!','ʾ',0); + Exit; + end; + if FileExists(fPrintFile) then + begin + for i:=StrToInt(RollBeg.Text) to StrToInt(RollEnd.Text) do + begin + RMVariables['LabNote1']:=Trim(LabNote1.Text); + RMVariables['LabNote2']:=Trim(LabNote2.Text); + RMVariables['RollNo']:=i; + RMVariables['DESNO']:=Trim(Order_Sub.fieldbyname('PRTHX').AsString); + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end; + + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Sub.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; + +procedure TfrmOrderInPut.v7Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet7 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPut.Tv7MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Trim(ClientDataSet7.fieldbyname('Chker').asstring)<>'' then + begin + Tv7.OptionsSelection.CellSelect:=False; + ToolButton15.Enabled:=False; + end else + begin + Tv7.OptionsSelection.CellSelect:=True; + ToolButton15.Enabled:=True; + end; +end; + +procedure TfrmOrderInPut.ToolButton23Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + Application.MessageBox('δ治Ԥǩ!','ʾ',0); + Exit; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable_View :SubId,:ZSUnit,:DuoPinNote'); + Parameters.ParamByName('SubId').Value:=Trim(Order_Sub.fieldbyname('SubId').AsString); + Parameters.ParamByName('ZSUnit').Value:=Trim(ComboBox1.Text); + Parameters.ParamByName('DuoPinNote').Value:=Trim(Edit1.Text); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if Trim(Order_Sub.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Sub.fieldbyname('SLBName').AsString) + else + Exit; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + //RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.dfm new file mode 100644 index 0000000..c881d7e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.dfm @@ -0,0 +1,2457 @@ +object frmOrderInPutAnPai: TfrmOrderInPutAnPai + Left = 20 + Top = 40 + Width = 1309 + Height = 695 + Align = alClient + Caption = #35843#29992#30003#35831#19982#23433#25490 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1293 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + Visible = False + OnClick = TBSaveClick + end + object ToolButton13: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton13Click + end + object ToolButton18: TToolButton + Left = 150 + Top = 0 + Caption = #37325#26032#36830#25509 + ImageIndex = 115 + Visible = False + OnClick = ToolButton18Click + end + object TBClose: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 29 + Width = 1293 + Height = 627 + ActivePage = cxTabSheet3 + Align = alClient + Style = 8 + TabOrder = 1 + ClientRectBottom = 627 + ClientRectRight = 1293 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22522#26412#20449#24687 + ImageIndex = 0 + object ToolBar2: TToolBar + Left = 0 + Top = 289 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + OnClick = ToolButton3Click + end + object Panel4: TPanel + Left = 209 + Top = 0 + Width = 112 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object CheckBox1: TCheckBox + Left = 0 + Top = 0 + Width = 97 + Height = 30 + Caption = #33394#21495#33258#21160#22686#21152 + TabOrder = 0 + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 320 + Width = 1293 + Height = 284 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 77 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394#20013#25991 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'PRTColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #26631#31614#35774#32622 + DataBinding.FieldName = 'SLbName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 95 + end + object v1Column5: TcxGridDBColumn + Caption = #24037#21378#33394#21495 + DataBinding.FieldName = 'PRTColorNOFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #24037#21378#33457#22411#21495 + DataBinding.FieldName = 'PRTHXFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21518#24037#33402#33394#21495 + DataBinding.FieldName = 'PRTColorNOHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #21518#24037#33402#33457#22411#21495 + DataBinding.FieldName = 'PRTHXHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column9: TcxGridDBColumn + Caption = #30830#35748#33394 + DataBinding.FieldName = 'PRTColorNOOK' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#33394#21495'1' + DataBinding.FieldName = 'FZColorNo1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #36741#21161#33394#21495'2' + DataBinding.FieldName = 'FZColorNo2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #36741#21161#33394#21495'3' + DataBinding.FieldName = 'FZColorNo3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column13: TcxGridDBColumn + Caption = #36741#21161#33394#21495#35828#26126 + DataBinding.FieldName = 'FZColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402'1' + DataBinding.FieldName = 'FZGY1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column16: TcxGridDBColumn + Caption = #36741#21161#24037#33402'2' + DataBinding.FieldName = 'FZGY2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #36741#21161#24037#33402'3' + DataBinding.FieldName = 'FZGY3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column18: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1293 + Height = 289 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 296 + Top = 15 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 31 + Top = 43 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 553 + Top = 15 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 553 + Top = 98 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 690 + Top = 98 + Width = 39 + Height = 12 + Caption = #20811#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 296 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 296 + Top = 98 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 31 + Top = 129 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 296 + Top = 43 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 553 + Top = 129 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 31 + Top = 155 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 31 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 553 + Top = 70 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 296 + Top = 129 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 665 + Top = 98 + Width = 14 + Height = 12 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 766 + Top = 98 + Width = 27 + Height = 12 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 31 + Top = 98 + Width = 67 + Height = 12 + Caption = #24037' '#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 553 + Top = 43 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 97 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + end + object ConNo: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 173 + Height = 20 + TabOrder = 1 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 96 + Top = 39 + Width = 170 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 97 + Top = 125 + Width = 170 + Height = 20 + Hint = 'ChuanY/'#33337#26679 + TabOrder = 3 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 359 + Top = 39 + Width = 173 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object YWY: TBtnEditC + Tag = 2 + Left = 617 + Top = 125 + Width = 171 + Height = 20 + Hint = 'YWY/'#19994#21153#21592 + TabOrder = 5 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 96 + Top = 155 + Width = 691 + Height = 121 + TabOrder = 6 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 359 + Top = 66 + Width = 173 + Height = 20 + TabOrder = 7 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 359 + Top = 94 + Width = 173 + Height = 20 + TabOrder = 8 + end + object MPRTCF: TEdit + Tag = 2 + Left = 617 + Top = 66 + Width = 171 + Height = 20 + TabOrder = 9 + end + object MPRTMF: TEdit + Tag = 2 + Left = 617 + Top = 94 + Width = 45 + Height = 20 + TabOrder = 10 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 726 + Top = 94 + Width = 39 + Height = 20 + TabOrder = 11 + end + object CustomerNoName: TBtnEditA + Tag = 2 + Left = 617 + Top = 11 + Width = 171 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 12 + OnBtnClick = CustomerNoNameBtnClick + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 97 + Top = 66 + Width = 107 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 13 + OnBtnClick = MPRTCodeBtnClick + end + object MPRTGY: TEdit + Tag = 2 + Left = 202 + Top = 66 + Width = 65 + Height = 20 + TabOrder = 14 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 97 + Top = 94 + Width = 170 + Height = 20 + TabOrder = 15 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 615 + Top = 39 + Width = 171 + Height = 20 + ReadOnly = True + TabOrder = 16 + OnBtnClick = ComTaiTouBtnClick + end + object LiDanPerson: TBtnEditA + Tag = 2 + Left = 359 + Top = 125 + Width = 173 + Height = 20 + TabOrder = 17 + OnBtnClick = LiDanPersonBtnClick + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #26816#39564#21253#35013#35201#27714 + ImageIndex = 1 + object ScrollBox1: TScrollBox + Left = 0 + Top = 0 + Width = 1293 + Height = 604 + Align = alClient + TabOrder = 0 + object GroupBox1: TGroupBox + Left = 0 + Top = 3 + Width = 465 + Height = 322 + Caption = #21021#26816 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Label16: TLabel + Left = 16 + Top = 19 + Width = 48 + Height = 12 + Caption = #38376#24133#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 16 + Top = 43 + Width = 48 + Height = 12 + Caption = #20811#37325#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object MPRTMFNote: TEdit + Tag = 2 + Left = 66 + Top = 16 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 66 + Top = 41 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object CJNote: TcxMemo + Tag = 2 + Left = 8 + Top = 63 + Properties.ScrollBars = ssBoth + TabOrder = 2 + OnDblClick = CJNoteDblClick + Height = 203 + Width = 447 + end + end + object GroupBox2: TGroupBox + Left = 464 + Top = 3 + Width = 465 + Height = 322 + Caption = #22823#36135#26816#39564 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + object DHNote: TcxMemo + Tag = 2 + Left = 10 + Top = 16 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = DHNoteDblClick + Height = 251 + Width = 447 + end + end + object GroupBox3: TGroupBox + Left = 0 + Top = 278 + Width = 465 + Height = 322 + Caption = #21253#35013#35201#27714 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + object Label19: TLabel + Left = 60 + Top = 19 + Width = 36 + Height = 12 + Caption = #38271#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 148 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label22: TLabel + Left = 236 + Top = 19 + Width = 36 + Height = 12 + Caption = #37325#37327'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 16 + Top = 19 + Width = 40 + Height = 12 + Caption = #32440' '#31649 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 372 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230#19997 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 320 + Top = 19 + Width = 39 + Height = 12 + Caption = #23612#40857#34955 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 16 + Top = 43 + Width = 73 + Height = 12 + Caption = #29305' '#21035' '#35828' '#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 372 + Top = 43 + Width = 36 + Height = 12 + Caption = #30382#37325'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object ZGLen: TEdit + Tag = 2 + Left = 97 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object ZGHd: TEdit + Tag = 2 + Left = 186 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object ZGKg: TEdit + Tag = 2 + Left = 275 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object NRDHD: TEdit + Tag = 2 + Left = 410 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object ZGNote: TEdit + Tag = 2 + Left = 97 + Top = 40 + Width = 269 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object PiZhong: TEdit + Tag = 2 + Left = 410 + Top = 40 + Width = 36 + Height = 20 + Hint = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + end + object GroupBox4: TGroupBox + Left = 464 + Top = 278 + Width = 465 + Height = 322 + Caption = #20986#36135#21253#35013 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + object CHNote: TcxMemo + Tag = 2 + Left = 8 + Top = 24 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = CHNoteDblClick + Height = 287 + Width = 447 + end + end + object cxPageControl2: TcxPageControl + Left = 0 + Top = 344 + Width = 465 + Height = 289 + ActivePage = cxTabSheet6 + Style = 8 + TabOrder = 4 + ClientRectBottom = 289 + ClientRectRight = 465 + ClientRectTop = 23 + object cxTabSheet5: TcxTabSheet + Caption = #20449#24687 + ImageIndex = 0 + object BZNote: TcxMemo + Tag = 2 + Left = 8 + Top = 0 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = BZNoteDblClick + Height = 229 + Width = 447 + end + end + object cxTabSheet6: TcxTabSheet + Caption = #22270#29255 + ImageIndex = 1 + object Image2: TImage + Left = 45 + Top = 0 + Width = 418 + Height = 233 + AutoSize = True + Center = True + end + object ToolBar7: TToolBar + Left = 0 + Top = 0 + Width = 43 + Height = 266 + Align = alLeft + ButtonHeight = 18 + ButtonWidth = 36 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object ToolButton16: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton16Click + end + object ToolButton17: TToolButton + Left = 0 + Top = 18 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + Wrap = True + OnClick = ToolButton17Click + end + end + end + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #29983#20135#27969#31243#19982#23433#25490 + ImageIndex = 2 + object ToolBar4: TToolBar + Left = 0 + Top = 0 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object ToolButton6: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton7Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 31 + Width = 1293 + Height = 138 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Sorting = False + Width = 71 + end + object v2Column2: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 61 + end + object v2Column3: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 75 + end + object v2Column4: TcxGridDBColumn + Caption = #27599#20844#26020'/'#31859 + DataBinding.FieldName = 'KgZM' + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 346 + end + object v2Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + Width = 117 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object ScrollBox2: TScrollBox + Left = 711 + Top = 169 + Width = 582 + Height = 435 + Align = alRight + TabOrder = 2 + object cxGrid5: TcxGrid + Left = 0 + Top = 33 + Width = 578 + Height = 151 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + OnCellDblClick = Tv5CellDblClick + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 102 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v5Column1: TcxGridDBColumn + Tag = 2 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v5Column2: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 49 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 207 + Width = 578 + Height = 224 + Align = alBottom + TabOrder = 1 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn15 + end + item + Format = '0' + Position = spFooter + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn12 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v6Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v6Column3: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v6Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 109 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'CkPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'CKQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 50 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv6 + end + end + object ToolBar5: TToolBar + Left = 0 + Top = 0 + Width = 578 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton9: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton9Click + end + object ToolButton12: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #35843#33410#20179#24211#35843#20837 + ImageIndex = 79 + OnClick = ToolButton12Click + end + object ToolButton19: TToolButton + Left = 174 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton19Click + end + end + object Panel2: TPanel + Left = 0 + Top = 184 + Width = 578 + Height = 23 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #35843#20837#25968#25454 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 169 + Width = 711 + Height = 435 + Align = alClient + TabOrder = 3 + object ToolBar3: TToolBar + Left = 0 + Top = 0 + Width = 707 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton8Click + end + object ToolButton10: TToolButton + Left = 63 + Top = 0 + Caption = #25353#35746#21333#26126#32454#22686#21152 + ImageIndex = 56 + OnClick = ToolButton10Click + end + object ToolButton4: TToolButton + Left = 182 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object ToolButton11: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + Visible = False + OnClick = ToolButton11Click + end + object Panel3: TPanel + Left = 395 + Top = 0 + Width = 283 + Height = 30 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label30: TLabel + Left = 74 + Top = 8 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 151 + Top = 8 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 9 + Top = 8 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 99 + Top = 4 + Width = 47 + Height = 20 + Hint = '0' + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 225 + Top = 4 + Width = 41 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = 'KG' + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 176 + Top = 4 + Width = 47 + Height = 20 + Hint = '0' + TabOrder = 2 + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 31 + Width = 707 + Height = 400 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 48 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 68 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v3Column5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 142 + end + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 32 + end + object v3Column8: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 34 + end + object v3Column9: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #20854#23427#36153#29992#30331#35760 + ImageIndex = 3 + object cxGrid7: TcxGrid + Left = 65 + Top = 0 + Width = 1228 + Height = 604 + Align = alClient + TabOrder = 0 + object Tv7: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn31 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'JFdate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 102 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'JFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn30PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 95 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'JFPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn31PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 50 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'JFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn32PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 55 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JFMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 63 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'JFNote' + HeaderAlignmentHorz = taCenter + Width = 131 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv7 + end + end + object ToolBar6: TToolBar + Left = 0 + Top = 0 + Width = 65 + Height = 604 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + Visible = False + object ToolButton14: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton14Click + end + object ToolButton15: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton15Click + end + end + end + object cxTabSheet7: TcxTabSheet + Caption = #30133#28857#31649#29702 + ImageIndex = 4 + object ToolBar8: TToolBar + Left = 0 + Top = 0 + Width = 63 + Height = 604 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton20: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton20Click + end + object ToolButton21: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton21Click + end + end + object cxGrid8: TcxGrid + Left = 63 + Top = 0 + Width = 1230 + Height = 604 + Align = alClient + TabOrder = 1 + object Tv8: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource8 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn21: TcxGridDBColumn + Caption = #30133#28857 + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Width = 148 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv8 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 264 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 328 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 152 + Top = 544 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 544 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 296 + Top = 5 + end + object CDS_JGLC: TClientDataSet + Aggregates = <> + Params = <> + Left = 187 + Top = 544 + end + object DataSource2: TDataSource + DataSet = CDS_JGLC + Left = 216 + Top = 544 + end + object CDS_JGC: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 544 + end + object DataSource3: TDataSource + DataSet = CDS_JGC + Left = 284 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 152 + Top = 572 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 184 + Top = 572 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 216 + Top = 572 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 752 + Top = 344 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 772 + Top = 344 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 792 + Top = 420 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 796 + Top = 544 + end + object cxGridPopupMenu6: TcxGridPopupMenu + PopupMenus = <> + Left = 784 + Top = 572 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 512 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1180 + Top = 512 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1144 + Top = 508 + end + object OpenDialog2: TOpenDialog + DefaultExt = '.jpg' + Filter = 'JPG'#22270#29255#25991#20214'(*.jpg)|*.jpg' + InitialDir = '.' + Left = 92 + Top = 464 + end + object DataSource8: TDataSource + DataSet = ClientDataSet8 + Left = 372 + Top = 344 + end + object cxGridPopupMenu8: TcxGridPopupMenu + Grid = cxGrid8 + PopupMenus = <> + Left = 336 + Top = 340 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 344 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.pas new file mode 100644 index 0000000..68e2632 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutAnPai.pas @@ -0,0 +1,3249 @@ +unit U_OrderInPutAnPai; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxPC, cxGridCustomPopupMenu, + cxGridPopupMenu, cxDropDownEdit,jpeg,IdGlobal; + +type + TfrmOrderInPutAnPai = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + v1Column1: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label10: TLabel; + Label3: TLabel; + Label14: TLabel; + Label12: TLabel; + Label13: TLabel; + Label2: TLabel; + Label6: TLabel; + Label21: TLabel; + Label25: TLabel; + Label43: TLabel; + OrderNo: TEdit; + ConNo: TEdit; + OrdDate: TDateTimePicker; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + YWY: TBtnEditC; + Label4: TLabel; + Note: TMemo; + Label5: TLabel; + CDS_JGLC: TClientDataSet; + DataSource2: TDataSource; + CDS_JGC: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + Label7: TLabel; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + CustomerNoName: TBtnEditA; + MPRTCode: TBtnEditA; + Label8: TLabel; + MPRTGY: TEdit; + Label11: TLabel; + Label15: TLabel; + Label9: TLabel; + MPRTGYHZ: TEdit; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + cxGridPopupMenu6: TcxGridPopupMenu; + v1Column2: TcxGridDBColumn; + ComTaiTou: TBtnEditA; + Label18: TLabel; + LiDanPerson: TBtnEditA; + ToolBar4: TToolBar; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ScrollBox2: TScrollBox; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6Column1: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ToolBar5: TToolBar; + ToolButton9: TToolButton; + ToolButton12: TToolButton; + Panel2: TPanel; + ScrollBox3: TScrollBox; + ToolBar3: TToolBar; + ToolButton8: TToolButton; + ToolButton10: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton11: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ScrollBox1: TScrollBox; + GroupBox1: TGroupBox; + Label16: TLabel; + Label17: TLabel; + MPRTMFNote: TEdit; + MPRTKZNote: TEdit; + CJNote: TcxMemo; + GroupBox2: TGroupBox; + DHNote: TcxMemo; + GroupBox3: TGroupBox; + GroupBox4: TGroupBox; + CHNote: TcxMemo; + Label19: TLabel; + ZGLen: TEdit; + Label20: TLabel; + ZGHd: TEdit; + Label22: TLabel; + ZGKg: TEdit; + Label23: TLabel; + Label24: TLabel; + NRDHD: TEdit; + Label26: TLabel; + Label27: TLabel; + ZGNote: TEdit; + Label28: TLabel; + PiZhong: TEdit; + ToolButton13: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + cxTabSheet4: TcxTabSheet; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ToolBar6: TToolBar; + ToolButton14: TToolButton; + ToolButton15: TToolButton; + ClientDataSet7: TClientDataSet; + DataSource7: TDataSource; + cxGridPopupMenu7: TcxGridPopupMenu; + Panel3: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + cxPageControl2: TcxPageControl; + cxTabSheet5: TcxTabSheet; + cxTabSheet6: TcxTabSheet; + BZNote: TcxMemo; + ToolBar7: TToolBar; + ToolButton16: TToolButton; + ToolButton17: TToolButton; + Image2: TImage; + OpenDialog2: TOpenDialog; + Panel4: TPanel; + CheckBox1: TCheckBox; + ToolButton18: TToolButton; + ToolButton19: TToolButton; + v2Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + cxTabSheet7: TcxTabSheet; + ToolBar8: TToolBar; + ToolButton20: TToolButton; + ToolButton21: TToolButton; + cxGrid8: TcxGrid; + Tv8: TcxGridDBTableView; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + DataSource8: TDataSource; + cxGridPopupMenu8: TcxGridPopupMenu; + ClientDataSet8: TClientDataSet; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure NoteDblClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrdDefStr2BtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomerNoNameBtnClick(Sender: TObject); + procedure MPRTCodeBtnClick(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure BZNoteDblClick(Sender: TObject); + procedure CHNoteDblClick(Sender: TObject); + procedure DHNoteDblClick(Sender: TObject); + procedure CJNoteDblClick(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn15PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure LiDanPersonBtnClick(Sender: TObject); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton13Click(Sender: TObject); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton14Click(Sender: TObject); + procedure cxGridDBColumn30PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton15Click(Sender: TObject); + procedure cxGridDBColumn31PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn32PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton16Click(Sender: TObject); + procedure ToolButton17Click(Sender: TObject); + procedure ToolButton18Click(Sender: TObject); + procedure ToolButton19Click(Sender: TObject); + procedure v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton20Click(Sender: TObject); + procedure ToolButton21Click(Sender: TObject); + private + CanShu1,CanShu2:String; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + procedure SaveImageOther(); + procedure CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); + procedure InitImage(); + { Private declarations } + public + PState,CopyInt,PriceFlag:Integer; + FMainId,FFMainId,FOrderNo,ConSubId:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPutAnPai: TfrmOrderInPutAnPai; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_CPManageTPCX,U_ZHKHListNewCX + ,U_GYSList,U_OrderSubSel,U_TJCKKC,U_LabelList, U_ModuleNote,U_OrderSubSelMX; + +{$R *.dfm} + +procedure TfrmOrderInPutAnPai.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼',Tv1,'ָʾ'); + WriteCxGrid('¼',Tv2,'ָʾ'); + WriteCxGrid('ӹ¼',Tv3,'ָʾ'); + WriteCxGrid('',Tv7,'ָʾ'); +end; + +procedure TfrmOrderInPutAnPai.InitData(); +var + fsj:string; +begin + + fsj:='select ZdyName Name,ZdyNo Code from KH_Zdy where Type=''PFGenDanPerson'' '; + SInitCxGridComboBoxBySql(ADOTemp,cxGridDBColumn2,fsj,0,False,''); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + OrderNo.ReadOnly:=True; + end else + begin + OrderNo.ReadOnly:=False; + end; + ReadCxGrid('ָʾ¼',Tv1,'ָʾ'); + ReadCxGrid('¼',Tv2,'ָʾ'); + ReadCxGrid('ӹ¼',Tv3,'ָʾ'); + ReadCxGrid('',Tv7,'ָʾ'); + cxPageControl1.ActivePageIndex:=0; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Sub where 1=1 '); + //sql.Add('exec P_View_OrderSub :begdate,:enddate,:WSQl'); + //Parameters.ParamByName('begdate').Value:='2010-10-10'; + // Parameters.ParamByName('enddate').Value:='2050-12-24'; + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Main_Fee where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_CD where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet8); + SInitCDSData20(ADOQuery1,ClientDataSet8); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); + SCSHDataNew(ADOQuery1,Panel3,2); + SCSHDataNew(ADOQuery1,ScrollBox1,2); + SCSHDataNew(ADOQuery1,GroupBox3,2); + BZNote.Text:=Trim(ADOQuery1.fieldbyname('BZNote').AsString); + DHNote.Text:=Trim(ADOQuery1.fieldbyname('DHNote').AsString); + CJNote.Text:=Trim(ADOQuery1.fieldbyname('CJNote').AsString); + CHNote.Text:=Trim(ADOQuery1.fieldbyname('CHNote').AsString); + MPRTMFNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTMFNote').AsString); + MPRTKZNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTKZNote').AsString); + //ConSubId:=Trim(ADOQuery1.fieldbyname('ConSubId').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + if CopyInt<>99 then + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+'''') + else + sql.Add('select * from JYOrder_Process where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGLC); + SInitCDSData20(ADOQuery1,CDS_JGLC); + + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + LiDanPerson.Text:=Trim(DName); + YWY.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //OrdPerson1.Text:=Trim(DName); + OrderNo.Text:=''; + OrderNo.ReadOnly:=False; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + InitImage(); + cxPageControl1.ActivePageIndex:=2; + cxPageControl1.Pages[0].TabVisible:=False; + cxPageControl1.Pages[1].TabVisible:=False; + cxPageControl1.Pages[3].TabVisible:=False; + cxPageControl1.Pages[4].TabVisible:=False; +end; + +procedure TfrmOrderInPutAnPai.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPutAnPai.FormShow(Sender: TObject); +begin + InitData(); + +end; + +function TfrmOrderInPutAnPai.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JM','JYOrder_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel1,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',GroupBox3,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel3,2); + FieldByName('CJNote').Value:=Trim(CJNote.Text); + FieldByName('DHNote').Value:=Trim(DHNote.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + FieldByName('CHNote').Value:=Trim(CHNote.Text); + FieldByName('MPRTMFNote').Value:=Trim(MPRTMFNote.Text); + FieldByName('MPRTKZNote').Value:=Trim(MPRTKZNote.Text); + FieldByName('CustomerNo').Value:=Trim(CustomerNoName.TxtCode); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('Note').Value:=Trim(Note.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + //FieldByName('ConSubId').Value:=Trim(ConSubId); + Post; + end; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///ñ + with ClientDataSet7 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjfno,'JF','JYOrder_Main_Fee',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjfno:=Trim(ClientDataSet7.fieldbyname('JFId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_Fee where JFId='''+Trim(maxjfno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JFID').Value:=Trim(maxjfno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv7,ClientDataSet7,'JYOrder_Main_Fee',0); + Post; + end; + ClientDataSet7.Edit; + ClientDataSet7.FieldByName('JFId').Value:=Trim(maxjfno); + //Order_Sub.Post; + Next; + end; + end; + ///õ + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjcno,'JC','JYOrder_CD',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjcno:=Trim(ClientDataSet8.fieldbyname('JCId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_CD where JCId='''+Trim(maxjcno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + Append; + //FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + //FieldByName('Editer').Value:=Trim(DName); + //FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JCId').Value:=Trim(maxjcno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv8,ClientDataSet8,'JYOrder_CD',0); + Post; + end; + ClientDataSet8.Edit; + ClientDataSet8.FieldByName('JCId').Value:=Trim(maxjcno); + //Order_Sub.Post; + Next; + end; + end; + ///̱ + with CDS_JGLC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'PS','JYOrder_Process',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(CDS_JGLC.fieldbyname('PSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Process where PSId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv2,CDS_JGLC,'JYOrder_Process',0); + Post; + end; + CDS_JGLC.Edit; + CDS_JGLC.FieldByName('PSId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + JDMainId:=''; + end else + begin + JDMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString); + end; + if Trim(JDMainId)='' then + begin + if GetLSNo(ADOCmd,maxJDNo,'JD','JYOrderJD_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӷˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxJDNo:=Trim(JDMainId); + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where MainId='''+Trim(JDMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(JDMainId)='' then + begin + Append; + FieldByName('Filler').Value:=ADOTemp.fieldbyname('Filler').Value; + FieldByName('Status').Value:=''; + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MainId').Value:=Trim(maxJDNo); + FieldByName('orderno').Value:=ADOTemp.fieldbyname('orderno').Value; + FieldByName('LiDanPerson').Value:=ADOTemp.fieldbyname('LiDanPerson').Value; + FieldByName('CustomerNoName').Value:=ADOTemp.fieldbyname('CustomerNoName').Value; + FieldByName('CustomerNo').Value:=ADOTemp.fieldbyname('CustomerNo').Value; + FieldByName('MPRTCode').Value:=ADOTemp.fieldbyname('MPRTCode').Value; + FieldByName('MPRTCodeName').Value:=ADOTemp.fieldbyname('MPRTCodeName').Value; + FieldByName('MPRTSpec').Value:=ADOTemp.fieldbyname('MPRTSpec').Value; + FieldByName('MPRTCF').Value:=ADOTemp.fieldbyname('MPRTCF').Value; + FieldByName('MPRTMF').Value:=ADOTemp.fieldbyname('MPRTMF').Value; + FieldByName('MPRTKZ').Value:=ADOTemp.fieldbyname('MPRTKZ').Value; + FieldByName('ORDQty').Value:=Tv1.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('QtyUnit').Value:=Order_Sub.fieldbyname('OrderUnit').Value; + Post; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + FMainId:=Trim(maxno); + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutAnPai.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + //SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutAnPai.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmOrderInPutAnPai.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmOrderInPutAnPai.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=False then + begin + Application.MessageBox('ŷǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=False then + begin + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end; + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(ClothOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTOneQty.Text)<>'' then + begin + if TryStrToFloat(MPRTOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥƷǷ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet7.Locate('JFDate',Null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet7.Locate('JFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTOrdQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(OrdDefStr1.Text)='' then + begin + Application.MessageBox('˾ŲΪգ','ʾ',0); + Exit; + end; } + {if Order_Sub.Locate('PRTColor',null,[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr4',null,[])=True then + begin + Application.MessageBox('ӢɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr1',null,[])=True then + begin + Application.MessageBox('ɫŲΪ!','ʾ',0); + Exit; + end;} + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('KgZM',null,[])=True then + begin + Application.MessageBox('ÿ/ײΪ!','ʾ',0); + Exit; + end; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('PSName','',[])=False then + begin + Application.MessageBox('ûѡ','ʾ',0); + Exit; + end; + end; + {if PState=1 then + begin + if Trim(OrderNo.Text)<>Trim(FOrderNo) then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѲݣܸĶ!','ʾ',0); + Exit; + end; + end; + end; } + { if Trim(ConSubId)='' then + begin + Application.MessageBox('ûѡͬ!','ʾ',0); + Exit; + end; } + if cxPageControl1.ActivePageIndex=2 then + begin + if CDS_JGC.Locate('PFID',null,[])=True then + begin + Application.MessageBox('Ϣδȷ!','ʾ',0); + Exit; + end; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + // if cxPageControl1.ActivePageIndex=2 then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmOrderInPutAnPai.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColorEng').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton1Click(Sender: TObject); +var + FReal:Double; + i,j,z:Integer; + jstr:string; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CheckBox1.Checked then + begin + if Order_Sub.IsEmpty then + begin + j:=1; + end else + begin + z:=Pos('#',Trim(Order_Sub.fieldbyname('PRTColorNo').AsString)); + jstr:=Copy(Trim(Order_Sub.fieldbyname('PRTColorNo').AsString),2,z-2); + if Trim(jstr)<>'' then + begin + if TryStrToFloat(jstr,FReal)=True then + begin + j:=StrToInt(jstr)+1; + end; + end else + begin + j:=1; + end; + end; + end; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + //FieldByName('PRTColor').Value:=''; + //FieldByName('PRTOrdQty').Value:=null; + //FieldByName('PRTColorNo').Value:=null; + //FieldByName('PRTColorEng').Value:=null; + //FieldByName('PRTHX').Value:=null; + FieldByName('SubId').Value:=''; + if CheckBox1.Checked then + begin + FieldByName('PRTColorNo').Value:='C'+Trim(IntToStr(j))+'#'; + end; + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + { with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; } + + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmOrderInPutAnPai.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPutAnPai.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPutAnPai.NoteDblClick(Sender: TObject); +begin + {try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdNote'; + flagname:='עҪ'; + if ShowModal=1 then + begin + Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end;} +end; + +procedure TfrmOrderInPutAnPai.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.OrdDefStr2BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + MPRTCodeName.Text:=ADOTemp.fieldbyname('MPRTCodeName').Value; + MPRTMF.Text:=ADOTemp.fieldbyname('MPRTMF').Value; + MPRTKZ.Text:=ADOTemp.fieldbyname('MPRTKZ').Value; + MPRTSpec.Text:=ADOTemp.fieldbyname('MPRTSpec').Value; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmOrderInPutAnPai.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPutAnPai.ToolButton6Click(Sender: TObject); +var + Fint:Integer; + FReal,FMF,FKZ:Double; +begin + {if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; } + Fint:=CDS_JGLC.RecordCount; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JGGX'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with CDS_JGLC do + begin + Append; + FieldByName('PSXH').Value:=Fint+1; + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=True then + begin + FieldByName('MFQty').Value:=MPRTMF.Text; + FMF:=StrToFloat(MPRTMF.Text); + end else + begin + FMF:=0; + end; + end else + begin + FMF:=0; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=True then + begin + FieldByName('KZQty').Value:=MPRTKZ.Text; + FKZ:=StrToFloat(MPRTKZ.Text); + end else + begin + FKZ:=0; + end; + end else + begin + FKZ:=0; + end; + if FMF*FKZ<>0 then + begin + FieldByName('KgZM').Value:=100000*1.0000/(FMF*FKZ); + end else + begin + FieldByName('KgZM').Value:=0; + end; + Fint:=Fint+1; + Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton4Click(Sender: TObject); +begin + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + FieldByName('PFTPUnit').Value:=Trim(OneQtyUnit.Text); + Post; + end; + end; + end; + finally + frmGYSList.Free; + end; + +end; + +procedure TfrmOrderInPutAnPai.ToolButton8Click(Sender: TObject); +var + maxno:string; +begin + {if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end;} + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + try + ADOCmd.Connection.BeginTrans; + CDS_JGC.DisableControls; + with CDS_JGC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_JGC.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(CDS_JGC.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('SubID').Value:=Trim(CDS_JGC.fieldbyname('SubID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(CDS_JGC.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_JGC.fieldbyname('FactoryName').AsString); + FieldByName('PFDlyDate').Value:=CDS_JGC.fieldbyname('PFDlyDate').Value; + RTSetSaveDataCDS(ADOCmd,Tv3,CDS_JGC,'JYOrder_PCS_Sub',0); + Post; + end; + if Trim(CDS_JGC.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + fsj:string; +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PSNote'; + flagname:='˵'; + + if ShowModal=1 then + begin + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; } + fsj:=Trim(CDS_JGLC.fieldbyname('PSNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='PSNote'; + flagname:='˵'; + MainType:=Trim(CDS_JGLC.fieldbyname('PSName').AsString); + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + fsj:=fsj+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(fsj); + //Post; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.CustomerNoNameBtnClick(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + CustomerNoName.TxtCode:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('ZKID').AsString); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.MPRTCodeBtnClick(Sender: TObject); +var + fsj:string; +begin + try + frmCPManageTPCX:=TfrmCPManageTPCX.Create(Application); + with frmCPManageTPCX do + begin + if ShowModal=1 then + begin + MPRTCode.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYNO').AsString); + MPRTCodeName.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYName').AsString); + MPRTSpec.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYSpec').AsString); + MPRTCF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYCF').AsString); + MPRTMF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYMF').AsString); + MPRTKZ.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYKZ').AsString); + MPRTGY.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('GYStr').AsString); + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString)<>'' then + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString); + end else + begin + fsj:=''; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end; + end; + MPRTGYHZ.Text:=Trim(fsj); + end; + end; + finally + frmCPManageTPCX.Free; + end; + if Trim(MPRTMF.Text)<>'' then + begin + MPRTMF.Text:=Copy(Trim(MPRTMF.Text),1,Pos('c',Trim(MPRTMF.Text))-1); + end; + if Trim(MPRTKZ.Text)<>'' then + begin + MPRTKZ.Text:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton7Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty=False then + begin + Application.MessageBox('Ѳ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Process where PSId='''+Trim(CDS_JGLC.fieldbyname('PSId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGLC.Delete; +end; + +procedure TfrmOrderInPutAnPai.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmOrderInPutAnPai.ToolButton10Click(Sender: TObject); +var + i:Integer; + FName:String; +begin + + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + if CDS_JGC.IsEmpty then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + end; + try + frmOrderSubSel:=TfrmOrderSubSel.Create(Application); + with frmOrderSubSel do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + ClientDataSet1.DisableControls; + with frmOrderSubSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + Self.CDS_JGC.Append; + Self.CDS_JGC.FieldByName('SubId').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('SubId').Value; + for i:=0 to frmOrderSubSel.Tv3.ColumnCount-1 do + begin + FName:=frmOrderSubSel.Tv3.Columns[i].DataBinding.FilterFieldName; + Self.CDS_JGC.FieldByName(FName).Value:=frmOrderSubSel.ClientDataSet1.FieldByName(FName).Value; + + end; + Self.CDS_JGC.FieldByName('FactoryNo').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('FactoryNo').Value; + Self.CDS_JGC.Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + end; + finally + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton11Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv3,CDS_JGC); +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton5Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + if Trim(CDS_JGC.fieldbyname('PFId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_PCS_Sub where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGC.Delete; +end; + +procedure TfrmOrderInPutAnPai.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FMF,FKZ:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_JGLC do + begin + Edit; + FieldByName(FName).Value:=Trim(mvalue); + Post; + end; + FMF:=Trim(CDS_JGLC.fieldbyname('MFQty').AsString); + FKZ:=Trim(CDS_JGLC.fieldbyname('KZQty').AsString); + if Trim(FMF)='' then Exit; + if Trim(FKZ)='' then Exit; + if StrToFloat(FMF)=0 then Exit; + if StrToFloat(FKZ)=0 then Exit; + with CDS_JGLC do + begin + Edit; + FieldByName('KgZM').Value:=100000*1.0000/(StrToFloat(FMF)*StrToFloat(FKZ)); + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.BZNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='BZNote'; + flagname:='װҪ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(BZNote.Text)='' then + BZNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + BZNote.Text:=BZNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.CHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CHNote'; + flagname:='װ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CHNote.Text)='' then + CHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CHNote.Text:=CHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.DHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='DHNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(DHNote.Text)='' then + DHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + DHNote.Text:=DHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.CJNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CJNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CJNote.Text)='' then + CJNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CJNote.Text:=CJNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton12Click(Sender: TObject); +begin + if CDS_JGLC.IsEmpty then Exit; + try + frmTJCKKC:=TfrmTJCKKC.Create(Application); + with frmTJCKKC do + begin + if ShowModal=1 then + begin + with frmTJCKKC.Order_Sub do + begin + Locate('SSel',True,[]); + with Self.ClientDataSet5 do + begin + Append; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryName').Value; + FieldByName('FactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryNo').Value; + FieldByName('PFTPUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + while Locate('SSel',True,[])=True do + begin + with Self.ClientDataSet6 do + begin + Append; + FieldByName('OrderNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('OrderNo').Value; + FieldByName('C_Code').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_Code').Value; + FieldByName('C_CodeName').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_CodeName').Value; + FieldByName('ToFactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryName').Value; + //FieldByName('ToFactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryNo').Value; + FieldByName('CKQtyUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + FieldByName('CKPS').Value:=frmTJCKKC.Order_Sub.fieldbyname('JSKCPS').Value; + FieldByName('CKQty').Value:=frmTJCKKC.Order_Sub.fieldbyname('JSKCQty').Value; + FieldByName('MDID').Value:=frmTJCKKC.Order_Sub.fieldbyname('MDID').Value; + Post; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + + + end; + end; + end; + finally + frmTJCKKC.Free; + end; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; +end; + +procedure TfrmOrderInPutAnPai.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + PFID,FPFID,Fsj:String; +begin + if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + Tv5.OptionsSelection.CellSelect:=False; + end else + begin + Tv5.OptionsSelection.CellSelect:=True; + end; + end; + + if ClientDataSet5.IsEmpty=False then + begin + PFID:=Trim(ClientDataSet5.fieldbyname('PFID').AsString); + end else + begin + PFID:=''; + end; + if Trim(PFID)='' then Exit; + if Trim(PFID)<>'' then + begin + {Fsj:=''; + if Trim(PFID)='' then + begin + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not eof do + begin + if Trim(fieldbyname('PFID').AsString)<>Trim(PFID) then + begin + fsj:='99'; + ClientDataSet6.Last; + end; + Next; + end; + end; + ClientDataSet6.EnableControls; + end else + begin + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not eof do + begin + if Trim(fieldbyname('PFID').AsString)<>Trim(PFID) then + begin + if Trim(fieldbyname('PFID').AsString)<>'' then + begin + fsj:='99'; + ClientDataSet6.Last; + end; + end; + Next; + end; + end; + ClientDataSet6.EnableControls; + end; + if Trim(fsj)<>'99' then Exit; } + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv6.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet6 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton9Click(Sender: TObject); +var + maxno,maxsubno:string; +begin + if ClientDataSet5.IsEmpty then Exit; + if ClientDataSet6.IsEmpty then Exit; + ToolBar1.SetFocus; + if Trim(CDS_JGLC.FieldByName('PSName').AsString)<>'' then + begin + if ClientDataSet5.Locate('SubId',Null,[])=True then + begin + Application.MessageBox('ûָͻɫ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SubId','',[])=True then + begin + Application.MessageBox('ûָͻɫ!','ʾ',0); + Exit; + end; + end; + if Trim(CanShu1)<>'Ȩ' then + begin + if Application.MessageBox('ȷҪִд˲ִд˲ݽܳ!','',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ','',32+4)<>IDYES then Exit; + end; + try + ADOCmd.Connection.BeginTrans; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet5.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('PFDlyDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value; + FieldByName('SubId').Value:=ClientDataSet5.fieldbyname('SubId').Value; + RTSetSaveDataCDS(ADOCmd,Tv5,ClientDataSet5,'JYOrder_PCS_Sub',0); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + if Trim(ClientDataSet5.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ClientDataSet5 do + begin + Edit; + FieldByName('PFID').Value:=Trim(maxno); + Post; + end; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'CK','JYOrder_Main_MD_Out',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet6.fieldbyname('CKID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where CKID='''+Trim(ClientDataSet6.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('CKID').Value:=Trim(maxsubno); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + RTSetSaveDataCDS(ADOCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD_Out',2); + Post; + end; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(CKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(CKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; } + Edit; + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('CKID').Value:=Trim(maxsubno); + Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + + +procedure TfrmOrderInPutAnPai.FormCreate(Sender: TObject); +begin + {CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + if Trim(CanShu2)='ֿ' then + begin + TBSave.Visible:=false; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + end; } +end; + +procedure TfrmOrderInPutAnPai.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end; + end; +end; + +procedure TfrmOrderInPutAnPai.Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + ClientDataSet5.Delete; + end; +end; + +procedure TfrmOrderInPutAnPai.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmLabelList:=TfrmLabelList.Create(Application); + with frmLabelList do + begin + SLBName:=Trim(Order_Sub.fieldbyname('SLBName').AsString); + if ShowModal=1 then + begin + + with Self.Order_Sub do + begin + Edit; + FieldByName('SLBName').Value:=Trim(LBName); + end; + end; + end; + finally + frmLabelList.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.LiDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='LiDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + LiDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with CDS_JGC do + begin + Edit; + FieldByName('PFGenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + FReal:Double; + mvalue:string; +begin + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(Trim(ClothOneQty.Text),FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_JGC do + begin + Edit; + FieldByName('PFTPPS').Value:=mvalue; + FieldByName('PFTPQty').Value:=StrToFloat(mvalue)*StrToFloat(ClothOneQty.Text); + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton14Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JFName'; + flagname:=''; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet7 do + begin + Append; + FieldByName('JFDate').Value:=Now; + FieldByName('JFName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn30PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JFName'; + flagname:=''; + if ShowModal=1 then + begin + with ClientDataSet7 do + begin + Edit; + FieldByName('JFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton15Click(Sender: TObject); +begin + if ClientDataSet7.IsEmpty then Exit; + if Trim(ClientDataSet7.fieldbyname('JFID').AsString)<>'' then + begin + if Trim(ClientDataSet7.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ɾݣ','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_Main_Fee where JFID='''+Trim(ClientDataSet7.fieldbyname('JFID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet7.Delete; +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn31PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFPrice').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.cxGridDBColumn32PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFQty').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton16Click(Sender: TObject); +var + AJpeg: TJPEGImage; +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ棡','ʾ',0); + Exit; + end; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select WBID from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + if ADOQuery1.RecordCount>0 then + begin + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + end; + AJpeg:=TJpegImage.Create(); + try + if self.OpenDialog2.Execute() then + begin + + Image2.Picture.LoadFromFile(OpenDialog2.FileName); + AJpeg.Assign(Image2.Picture.Graphic); + if FileSizeByName(OpenDialog2.FileName)>300*1024 then + begin + CreThumb(AJpeg,Image2,418, 233); + end; + SaveImageOther(); + end; + finally + AJpeg.Free; + end; +end; +procedure TfrmOrderInPutAnPai.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if Trim(FMainId)='' then Exit; + //if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + Image2.Picture:=nil; + try + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQuery1.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQuery1.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; +procedure TfrmOrderInPutAnPai.CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); +var + Bitmap: TBitmap; + Ratio: Double; + ARect: TRect; + AHeight, AHeightOffset: Integer; + AWidth, AWidthOffset: Integer; +begin + Bitmap := TBitmap.Create; + try + Ratio := AJPeg.Width /AJPeg.Height; + if Ratio > 1.333 then + begin + AHeight := Round(Width / Ratio); + AHeightOffset := (Height - AHeight) div 2; + AWidth := Width; + AWidthOffset := 0; + end + else + begin + AWidth := Round(Height * Ratio); + AWidthOffset := (Width - AWidth) div 2; + AHeight := Height; + AHeightOffset := 0; + end; + Bitmap.Width := Width; + Bitmap.Height := Height; + Bitmap.Canvas.Brush.Color := clBtnFace; + Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height)); + ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset); + Bitmap.Canvas.StretchDraw(ARect, AJPeg); + Image1.Picture.Assign(BitMap); + finally + Bitmap.Free; + end; +end; +procedure TfrmOrderInPutAnPai.SaveImageOther(); +var + AJpeg: TJPEGImage; + myStream: TADOBlobStream; + ImgMaxNo:String; + i,j: Integer; + PatFile: String; + FTPPath,FConNo,MaxNo,FTFID:string; +begin + if Image2.Picture=nil then Exit; + AJpeg:=TJpegImage.Create(); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + FTFID:=Trim(ADOTemp.fieldbyname('TFID').AsString); + if Trim(FTFID)='' then + begin + if GetLSNo(ADOCmd,ImgMaxNo,'TF','TP_File',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͼƬʧ!','ʾ',0); + Exit; + end; + end else + begin + ImgMaxNo:=Trim(FTFID); + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add( ' select * from TP_File where TFID='''+Trim(FTFID)+''''); + open; + end; + with ADOCmd do + begin + if Trim(FTFID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('TFID').Value:=Trim(ImgMaxNo); + FieldByName('WBID').Value:=Trim(FMainId); + FieldByName('TFType').Value:='װ'; + AJpeg.Assign(Image2.Picture.Graphic); + //CreThumb(AJpeg,Image1,160, 120); + myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton17Click(Sender: TObject); +begin + if Image2.Picture=nil then Exit; + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' delete TP_File where WBID='''+Trim(FMainId)+''''); + SQL.Add(' and TFType=''װ'' '); + ExecSQL; + end; + Image2.Picture.Assign(nil); +end; + +procedure TfrmOrderInPutAnPai.ToolButton18Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if not Assigned(DataLink_DDMD) then + DataLink_DDMD:=TDataLink_DDMD.Create(Application); + Try + with DataLink_DDMD.ADOLink do + begin + //if not Connected then + begin + Connected:=false; + ConnectionString:=DConString; + LoginPrompt:=false; + Connected:=true; + end; + end; + Except + application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Sub'' '); + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Main'' '); + ExecSQL; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton19Click(Sender: TObject); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('Ѵɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add('delete JYOrder_Main_MD_Out where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet5.Delete; + +end; + +procedure TfrmOrderInPutAnPai.v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmOrderSubSelMX:=TfrmOrderSubSelMX.Create(Application); + with frmOrderSubSelMX do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('SubId').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTColorNo').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTColorNo').Value; + FieldByName('PRTHX').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTHX').Value; + //Post; + end; + end; + end; + finally + frmOrderSubSelMX.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton20Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet8 do + begin + Append; + FieldByName('ZDYCODE').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZDYNo').AsString); + FieldByName('ZdyName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('ZdyNameEng').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('Note').AsString); + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutAnPai.ToolButton21Click(Sender: TObject); +begin + if ClientDataSet8.IsEmpty then Exit; + if Trim(ClientDataSet8.fieldbyname('JCID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_CD where JCID='''+Trim(ClientDataSet8.fieldbyname('JCID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet8.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.dfm new file mode 100644 index 0000000..36c40e6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.dfm @@ -0,0 +1,2371 @@ +object frmOrderInPutDYAnPai: TfrmOrderInPutDYAnPai + Left = 20 + Top = 40 + Width = 1309 + Height = 695 + Align = alClient + Caption = #20179#24211#35843#29992#23433#25490 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1293 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton13: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton13Click + end + object ToolButton18: TToolButton + Left = 150 + Top = 0 + Caption = #37325#26032#36830#25509 + ImageIndex = 115 + Visible = False + OnClick = ToolButton18Click + end + object TBClose: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 29 + Width = 1293 + Height = 627 + ActivePage = cxTabSheet3 + Align = alClient + Style = 8 + TabOrder = 1 + ClientRectBottom = 627 + ClientRectRight = 1293 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22522#26412#20449#24687 + ImageIndex = 0 + object ToolBar2: TToolBar + Left = 0 + Top = 289 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + OnClick = ToolButton3Click + end + object Panel4: TPanel + Left = 209 + Top = 0 + Width = 112 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object CheckBox1: TCheckBox + Left = 0 + Top = 0 + Width = 97 + Height = 30 + Caption = #33394#21495#33258#21160#22686#21152 + TabOrder = 0 + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 320 + Width = 1293 + Height = 284 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 77 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394#20013#25991 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'PRTColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 78 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #26631#31614#35774#32622 + DataBinding.FieldName = 'SLbName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 95 + end + object v1Column5: TcxGridDBColumn + Caption = #24037#21378#33394#21495 + DataBinding.FieldName = 'PRTColorNOFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #24037#21378#33457#22411#21495 + DataBinding.FieldName = 'PRTHXFTY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21518#24037#33402#33394#21495 + DataBinding.FieldName = 'PRTColorNOHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #21518#24037#33402#33457#22411#21495 + DataBinding.FieldName = 'PRTHXHGY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column9: TcxGridDBColumn + Caption = #30830#35748#33394 + DataBinding.FieldName = 'PRTColorNOOK' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #36741#21161#33394#21495'1' + DataBinding.FieldName = 'FZColorNo1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column11: TcxGridDBColumn + Caption = #36741#21161#33394#21495'2' + DataBinding.FieldName = 'FZColorNo2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #36741#21161#33394#21495'3' + DataBinding.FieldName = 'FZColorNo3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column13: TcxGridDBColumn + Caption = #36741#21161#33394#21495#35828#26126 + DataBinding.FieldName = 'FZColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402'1' + DataBinding.FieldName = 'FZGY1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column16: TcxGridDBColumn + Caption = #36741#21161#24037#33402'2' + DataBinding.FieldName = 'FZGY2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #36741#21161#24037#33402'3' + DataBinding.FieldName = 'FZGY3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column18: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 104 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1293 + Height = 289 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 296 + Top = 15 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 31 + Top = 43 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 553 + Top = 15 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 553 + Top = 98 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 690 + Top = 98 + Width = 39 + Height = 12 + Caption = #20811#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 296 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 296 + Top = 98 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 31 + Top = 129 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 296 + Top = 43 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 553 + Top = 129 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 31 + Top = 155 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 31 + Top = 70 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 553 + Top = 70 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 296 + Top = 129 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 665 + Top = 98 + Width = 14 + Height = 12 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 766 + Top = 98 + Width = 27 + Height = 12 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 31 + Top = 98 + Width = 67 + Height = 12 + Caption = #24037' '#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 553 + Top = 43 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 97 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + end + object ConNo: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 173 + Height = 20 + TabOrder = 1 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 96 + Top = 39 + Width = 170 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 97 + Top = 125 + Width = 170 + Height = 20 + Hint = 'ChuanY/'#33337#26679 + TabOrder = 3 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 359 + Top = 39 + Width = 173 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object YWY: TBtnEditC + Tag = 2 + Left = 617 + Top = 125 + Width = 171 + Height = 20 + Hint = 'YWY/'#19994#21153#21592 + TabOrder = 5 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 96 + Top = 155 + Width = 691 + Height = 121 + TabOrder = 6 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 359 + Top = 66 + Width = 173 + Height = 20 + TabOrder = 7 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 359 + Top = 94 + Width = 173 + Height = 20 + TabOrder = 8 + end + object MPRTCF: TEdit + Tag = 2 + Left = 617 + Top = 66 + Width = 171 + Height = 20 + TabOrder = 9 + end + object MPRTMF: TEdit + Tag = 2 + Left = 617 + Top = 94 + Width = 45 + Height = 20 + TabOrder = 10 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 726 + Top = 94 + Width = 39 + Height = 20 + TabOrder = 11 + end + object CustomerNoName: TBtnEditA + Tag = 2 + Left = 617 + Top = 11 + Width = 171 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 12 + OnBtnClick = CustomerNoNameBtnClick + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 97 + Top = 66 + Width = 107 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 13 + OnBtnClick = MPRTCodeBtnClick + end + object MPRTGY: TEdit + Tag = 2 + Left = 202 + Top = 66 + Width = 65 + Height = 20 + TabOrder = 14 + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 97 + Top = 94 + Width = 170 + Height = 20 + TabOrder = 15 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 615 + Top = 39 + Width = 171 + Height = 20 + ReadOnly = True + TabOrder = 16 + OnBtnClick = ComTaiTouBtnClick + end + object LiDanPerson: TBtnEditA + Tag = 2 + Left = 359 + Top = 125 + Width = 173 + Height = 20 + TabOrder = 17 + OnBtnClick = LiDanPersonBtnClick + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #26816#39564#21253#35013#35201#27714 + ImageIndex = 1 + object ScrollBox1: TScrollBox + Left = 0 + Top = 0 + Width = 1293 + Height = 604 + Align = alClient + TabOrder = 0 + object GroupBox1: TGroupBox + Left = 0 + Top = 3 + Width = 465 + Height = 322 + Caption = #21021#26816 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Label16: TLabel + Left = 16 + Top = 19 + Width = 48 + Height = 12 + Caption = #38376#24133#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 16 + Top = 43 + Width = 48 + Height = 12 + Caption = #20811#37325#35828#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object MPRTMFNote: TEdit + Tag = 2 + Left = 66 + Top = 16 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 66 + Top = 41 + Width = 375 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object CJNote: TcxMemo + Tag = 2 + Left = 8 + Top = 63 + Properties.ScrollBars = ssBoth + TabOrder = 2 + OnDblClick = CJNoteDblClick + Height = 203 + Width = 447 + end + end + object GroupBox2: TGroupBox + Left = 464 + Top = 3 + Width = 465 + Height = 322 + Caption = #22823#36135#26816#39564 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + object DHNote: TcxMemo + Tag = 2 + Left = 10 + Top = 16 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = DHNoteDblClick + Height = 251 + Width = 447 + end + end + object GroupBox3: TGroupBox + Left = 0 + Top = 278 + Width = 465 + Height = 322 + Caption = #21253#35013#35201#27714 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + object Label19: TLabel + Left = 60 + Top = 19 + Width = 36 + Height = 12 + Caption = #38271#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 148 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230'cm' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label22: TLabel + Left = 236 + Top = 19 + Width = 36 + Height = 12 + Caption = #37325#37327'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 16 + Top = 19 + Width = 40 + Height = 12 + Caption = #32440' '#31649 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 372 + Top = 19 + Width = 36 + Height = 12 + Caption = #21402#24230#19997 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 320 + Top = 19 + Width = 39 + Height = 12 + Caption = #23612#40857#34955 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 16 + Top = 43 + Width = 73 + Height = 12 + Caption = #29305' '#21035' '#35828' '#26126 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 372 + Top = 43 + Width = 36 + Height = 12 + Caption = #30382#37325'Kg' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object ZGLen: TEdit + Tag = 2 + Left = 97 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object ZGHd: TEdit + Tag = 2 + Left = 186 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object ZGKg: TEdit + Tag = 2 + Left = 275 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object NRDHD: TEdit + Tag = 2 + Left = 410 + Top = 16 + Width = 36 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object ZGNote: TEdit + Tag = 2 + Left = 97 + Top = 40 + Width = 269 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object PiZhong: TEdit + Tag = 2 + Left = 410 + Top = 40 + Width = 36 + Height = 20 + Hint = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + end + object GroupBox4: TGroupBox + Left = 464 + Top = 278 + Width = 465 + Height = 322 + Caption = #20986#36135#21253#35013 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + object CHNote: TcxMemo + Tag = 2 + Left = 8 + Top = 24 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = CHNoteDblClick + Height = 287 + Width = 447 + end + end + object cxPageControl2: TcxPageControl + Left = 0 + Top = 344 + Width = 465 + Height = 289 + ActivePage = cxTabSheet5 + Style = 8 + TabOrder = 4 + ClientRectBottom = 289 + ClientRectRight = 465 + ClientRectTop = 23 + object cxTabSheet5: TcxTabSheet + Caption = #20449#24687 + ImageIndex = 0 + object BZNote: TcxMemo + Tag = 2 + Left = 8 + Top = 0 + Properties.ScrollBars = ssBoth + TabOrder = 0 + OnDblClick = BZNoteDblClick + Height = 229 + Width = 447 + end + end + object cxTabSheet6: TcxTabSheet + Caption = #22270#29255 + ImageIndex = 1 + object Image2: TImage + Left = 45 + Top = 0 + Width = 418 + Height = 233 + AutoSize = True + Center = True + end + object ToolBar7: TToolBar + Left = 0 + Top = 0 + Width = 43 + Height = 266 + Align = alLeft + ButtonHeight = 18 + ButtonWidth = 36 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton16: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton16Click + end + object ToolButton17: TToolButton + Left = 0 + Top = 18 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + Wrap = True + OnClick = ToolButton17Click + end + end + end + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #29983#20135#27969#31243#19982#23433#25490 + ImageIndex = 2 + object ToolBar4: TToolBar + Left = 0 + Top = 0 + Width = 1293 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton6: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton7Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 31 + Width = 1293 + Height = 138 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 57 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Sorting = False + Width = 71 + end + object v2Column2: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 61 + end + object v2Column3: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 75 + end + object v2Column4: TcxGridDBColumn + Caption = #25240#31639#31995#25968 + DataBinding.FieldName = 'KgZM' + Width = 65 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 346 + end + object v2Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PSSJNote' + Width = 117 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object ScrollBox2: TScrollBox + Left = 711 + Top = 169 + Width = 582 + Height = 435 + Align = alRight + TabOrder = 2 + object cxGrid5: TcxGrid + Left = 0 + Top = 33 + Width = 578 + Height = 151 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + OnCellDblClick = Tv5CellDblClick + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 83 + end + object v5Column3: TcxGridDBColumn + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'XDFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column3PropertiesButtonClick + Width = 71 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 55 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v5Column1: TcxGridDBColumn + Tag = 2 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v5Column2: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v5Column4: TcxGridDBColumn + Tag = 99 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column5: TcxGridDBColumn + Tag = 99 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 207 + Width = 578 + Height = 224 + Align = alBottom + TabOrder = 1 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn15 + end + item + Format = '0' + Position = spFooter + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn12 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = v6Column4 + end + item + Kind = skSum + Column = v6Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v6Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v6Column3: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v6Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 109 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#21305#25968 + DataBinding.FieldName = 'CkPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #35843#20837#25968#37327 + DataBinding.FieldName = 'CKQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 50 + end + object v6Column4: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'SJCKPS' + Options.Editing = False + Width = 57 + end + object v6Column5: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'SJCKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv6 + end + end + object ToolBar5: TToolBar + Left = 0 + Top = 0 + Width = 578 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton9: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton9Click + end + object ToolButton12: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #24453#22788#29702#20179#24211#35843#20837 + ImageIndex = 79 + OnClick = ToolButton12Click + end + object ToolButton19: TToolButton + Left = 186 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton19Click + end + end + object Panel2: TPanel + Left = 0 + Top = 184 + Width = 578 + Height = 23 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #35843#20837#25968#25454 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 169 + Width = 711 + Height = 435 + Align = alClient + TabOrder = 3 + object ToolBar3: TToolBar + Left = 0 + Top = 0 + Width = 707 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton8Click + end + object ToolButton10: TToolButton + Left = 63 + Top = 0 + Caption = #25353#26126#32454#22686#21152 + ImageIndex = 56 + OnClick = ToolButton10Click + end + object ToolButton4: TToolButton + Left = 158 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 221 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object ToolButton11: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + Visible = False + OnClick = ToolButton11Click + end + object Panel3: TPanel + Left = 371 + Top = 0 + Width = 283 + Height = 30 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label30: TLabel + Left = 75 + Top = 8 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 152 + Top = 8 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 9 + Top = 8 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 100 + Top = 4 + Width = 36 + Height = 20 + Hint = '0' + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 226 + Top = 4 + Width = 41 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = 'KG' + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 177 + Top = 4 + Width = 36 + Height = 20 + Hint = '0' + TabOrder = 2 + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 31 + Width = 707 + Height = 400 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 48 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 68 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v3Column5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v3Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 142 + end + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 32 + end + object v3Column8: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 34 + end + object v3Column9: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + end + object cxTabSheet7: TcxTabSheet + Caption = #30133#28857#31649#29702 + ImageIndex = 4 + object ToolBar8: TToolBar + Left = 0 + Top = 0 + Width = 63 + Height = 604 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton20: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton20Click + end + object ToolButton21: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton21Click + end + end + object cxGrid8: TcxGrid + Left = 63 + Top = 0 + Width = 1230 + Height = 604 + Align = alClient + TabOrder = 1 + object Tv8: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource8 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn21: TcxGridDBColumn + Caption = #30133#28857 + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Width = 148 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv8 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 328 + Top = 5 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 152 + Top = 544 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 120 + Top = 544 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 400 + Top = 5 + end + object CDS_JGLC: TClientDataSet + Aggregates = <> + Params = <> + Left = 187 + Top = 544 + end + object DataSource2: TDataSource + DataSet = CDS_JGLC + Left = 216 + Top = 544 + end + object CDS_JGC: TClientDataSet + Aggregates = <> + Params = <> + Left = 256 + Top = 544 + end + object DataSource3: TDataSource + DataSet = CDS_JGC + Left = 284 + Top = 544 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 153 + Top = 574 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 184 + Top = 572 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 216 + Top = 572 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 752 + Top = 344 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 780 + Top = 344 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 824 + Top = 545 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 544 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 796 + Top = 544 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 784 + Top = 572 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 512 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1180 + Top = 512 + end + object cxGridPopupMenu7: TcxGridPopupMenu + PopupMenus = <> + Left = 1140 + Top = 520 + end + object OpenDialog2: TOpenDialog + DefaultExt = '.jpg' + Filter = 'JPG'#22270#29255#25991#20214'(*.jpg)|*.jpg' + InitialDir = '.' + Left = 92 + Top = 464 + end + object DataSource8: TDataSource + DataSet = ClientDataSet8 + Left = 372 + Top = 344 + end + object cxGridPopupMenu8: TcxGridPopupMenu + Grid = cxGrid8 + PopupMenus = <> + Left = 336 + Top = 340 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 344 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 568 + Top = 5 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 5 + end + object ClientDataSet9: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 496 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.pas new file mode 100644 index 0000000..35188a7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutDYAnPai.pas @@ -0,0 +1,3632 @@ +unit U_OrderInPutDYAnPai; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxPC, cxGridCustomPopupMenu, + cxGridPopupMenu, cxDropDownEdit,jpeg,IdGlobal; + +type + TfrmOrderInPutDYAnPai = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + v1Column1: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label10: TLabel; + Label3: TLabel; + Label14: TLabel; + Label12: TLabel; + Label13: TLabel; + Label2: TLabel; + Label6: TLabel; + Label21: TLabel; + Label25: TLabel; + Label43: TLabel; + OrderNo: TEdit; + ConNo: TEdit; + OrdDate: TDateTimePicker; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + YWY: TBtnEditC; + Label4: TLabel; + Note: TMemo; + Label5: TLabel; + CDS_JGLC: TClientDataSet; + DataSource2: TDataSource; + CDS_JGC: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + Label7: TLabel; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + CustomerNoName: TBtnEditA; + MPRTCode: TBtnEditA; + Label8: TLabel; + MPRTGY: TEdit; + Label11: TLabel; + Label15: TLabel; + Label9: TLabel; + MPRTGYHZ: TEdit; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + cxGridPopupMenu6: TcxGridPopupMenu; + v1Column2: TcxGridDBColumn; + ComTaiTou: TBtnEditA; + Label18: TLabel; + LiDanPerson: TBtnEditA; + ToolBar4: TToolBar; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ScrollBox2: TScrollBox; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6Column1: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ToolBar5: TToolBar; + ToolButton9: TToolButton; + ToolButton12: TToolButton; + Panel2: TPanel; + ScrollBox3: TScrollBox; + ToolBar3: TToolBar; + ToolButton8: TToolButton; + ToolButton10: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton11: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ScrollBox1: TScrollBox; + GroupBox1: TGroupBox; + Label16: TLabel; + Label17: TLabel; + MPRTMFNote: TEdit; + MPRTKZNote: TEdit; + CJNote: TcxMemo; + GroupBox2: TGroupBox; + DHNote: TcxMemo; + GroupBox3: TGroupBox; + GroupBox4: TGroupBox; + CHNote: TcxMemo; + Label19: TLabel; + ZGLen: TEdit; + Label20: TLabel; + ZGHd: TEdit; + Label22: TLabel; + ZGKg: TEdit; + Label23: TLabel; + Label24: TLabel; + NRDHD: TEdit; + Label26: TLabel; + Label27: TLabel; + ZGNote: TEdit; + Label28: TLabel; + PiZhong: TEdit; + ToolButton13: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + ClientDataSet7: TClientDataSet; + DataSource7: TDataSource; + cxGridPopupMenu7: TcxGridPopupMenu; + Panel3: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + cxPageControl2: TcxPageControl; + cxTabSheet5: TcxTabSheet; + cxTabSheet6: TcxTabSheet; + BZNote: TcxMemo; + ToolBar7: TToolBar; + ToolButton16: TToolButton; + ToolButton17: TToolButton; + Image2: TImage; + OpenDialog2: TOpenDialog; + Panel4: TPanel; + CheckBox1: TCheckBox; + ToolButton18: TToolButton; + ToolButton19: TToolButton; + v2Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + cxTabSheet7: TcxTabSheet; + ToolBar8: TToolBar; + ToolButton20: TToolButton; + ToolButton21: TToolButton; + cxGrid8: TcxGrid; + Tv8: TcxGridDBTableView; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + DataSource8: TDataSource; + cxGridPopupMenu8: TcxGridPopupMenu; + ClientDataSet8: TClientDataSet; + v5Column3: TcxGridDBColumn; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + v6Column4: TcxGridDBColumn; + v6Column5: TcxGridDBColumn; + ClientDataSet9: TClientDataSet; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure NoteDblClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrdDefStr2BtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomerNoNameBtnClick(Sender: TObject); + procedure MPRTCodeBtnClick(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure BZNoteDblClick(Sender: TObject); + procedure CHNoteDblClick(Sender: TObject); + procedure DHNoteDblClick(Sender: TObject); + procedure CJNoteDblClick(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn15PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure LiDanPersonBtnClick(Sender: TObject); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton13Click(Sender: TObject); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn30PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn31PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn32PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton16Click(Sender: TObject); + procedure ToolButton17Click(Sender: TObject); + procedure ToolButton18Click(Sender: TObject); + procedure ToolButton19Click(Sender: TObject); + procedure v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton20Click(Sender: TObject); + procedure ToolButton21Click(Sender: TObject); + procedure v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + CanShu1,CanShu2:String; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + procedure SaveImageOther(); + procedure CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); + procedure InitImage(); + function SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; + function UpdateTJCKQty10(FFPFID:string):Boolean; + function UpdateTJCKQty(FFPFID:string):Boolean; + { Private declarations } + public + PState,CopyInt,PriceFlag,DRInt:Integer; + FMainId,FFMainId,FOrderNo,ConSubId,DataType:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPutDYAnPai: TfrmOrderInPutDYAnPai; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_CPManageTPCX,U_ZHKHListNewCX + ,U_GYSList,U_OrderSubSel,U_TJCKKC,U_LabelList, U_ModuleNote,U_OrderSubSelMX; + +{$R *.dfm} + +procedure TfrmOrderInPutDYAnPai.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼',Tv1,'ָʾ'); + WriteCxGrid('¼1',Tv2,'ָʾ'); + WriteCxGrid('ӹ¼',Tv3,'ָʾ'); + WriteCxGrid('',Tv7,'ָʾ'); +end; + +procedure TfrmOrderInPutDYAnPai.InitData(); +var + fsj:string; +begin + fsj:='select ZdyName Name,ZdyNo Code from KH_Zdy where Type=''PFGenDanPerson'' '; + SInitCxGridComboBoxBySql(ADOTemp,cxGridDBColumn2,fsj,0,False,''); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + OrderNo.ReadOnly:=True; + end else + begin + OrderNo.ReadOnly:=False; + end; + ReadCxGrid('ָʾ¼',Tv1,'ָʾ'); + ReadCxGrid('¼1',Tv2,'ָʾ'); + ReadCxGrid('ӹ¼',Tv3,'ָʾ'); + ReadCxGrid('',Tv7,'ָʾ'); + cxPageControl1.ActivePageIndex:=0; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Sub where 1=1 '); + //sql.Add('exec P_View_OrderSub :begdate,:enddate,:WSQl'); + //Parameters.ParamByName('begdate').Value:='2010-10-10'; + // Parameters.ParamByName('enddate').Value:='2050-12-24'; + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Main_Fee where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet7); + SInitCDSData20(ADOQuery1,ClientDataSet7); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_CD where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet8); + SInitCDSData20(ADOQuery1,ClientDataSet8); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,2); + SCSHDataNew(ADOQuery1,Panel3,2); + SCSHDataNew(ADOQuery1,ScrollBox1,2); + SCSHDataNew(ADOQuery1,GroupBox3,2); + BZNote.Text:=Trim(ADOQuery1.fieldbyname('BZNote').AsString); + DHNote.Text:=Trim(ADOQuery1.fieldbyname('DHNote').AsString); + CJNote.Text:=Trim(ADOQuery1.fieldbyname('CJNote').AsString); + CHNote.Text:=Trim(ADOQuery1.fieldbyname('CHNote').AsString); + MPRTMFNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTMFNote').AsString); + MPRTKZNote.Text:=Trim(ADOQuery1.fieldbyname('MPRTKZNote').AsString); + //ConSubId:=Trim(ADOQuery1.fieldbyname('ConSubId').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + if CopyInt<>99 then + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+'''') + else + sql.Add('select * from JYOrder_Process where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGLC); + SInitCDSData20(ADOQuery1,CDS_JGLC); + + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + LiDanPerson.Text:=Trim(DName); + YWY.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //OrdPerson1.Text:=Trim(DName); + OrderNo.Text:=''; + OrderNo.ReadOnly:=False; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + InitImage(); + cxPageControl1.ActivePageIndex:=2; + cxPageControl1.Pages[0].TabVisible:=False; + cxPageControl1.Pages[1].TabVisible:=False; + cxPageControl1.Pages[3].TabVisible:=False; + cxPageControl1.Pages[4].TabVisible:=False; +end; + +procedure TfrmOrderInPutDYAnPai.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPutDYAnPai.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmOrderInPutDYAnPai.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JM','JYOrder_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel1,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',GroupBox3,2); + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel3,2); + FieldByName('CJNote').Value:=Trim(CJNote.Text); + FieldByName('DHNote').Value:=Trim(DHNote.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + FieldByName('CHNote').Value:=Trim(CHNote.Text); + FieldByName('MPRTMFNote').Value:=Trim(MPRTMFNote.Text); + FieldByName('MPRTKZNote').Value:=Trim(MPRTKZNote.Text); + FieldByName('CustomerNo').Value:=Trim(CustomerNoName.TxtCode); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('Note').Value:=Trim(Note.Text); + FieldByName('BZNote').Value:=Trim(BZNote.Text); + //FieldByName('ConSubId').Value:=Trim(ConSubId); + Post; + end; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + ///ñ + with ClientDataSet7 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjfno,'JF','JYOrder_Main_Fee',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjfno:=Trim(ClientDataSet7.fieldbyname('JFId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_Fee where JFId='''+Trim(maxjfno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet7.fieldbyname('JFId').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JFID').Value:=Trim(maxjfno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv7,ClientDataSet7,'JYOrder_Main_Fee',0); + Post; + end; + ClientDataSet7.Edit; + ClientDataSet7.FieldByName('JFId').Value:=Trim(maxjfno); + //Order_Sub.Post; + Next; + end; + end; + ///õ + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjcno,'JC','JYOrder_CD',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjcno:=Trim(ClientDataSet8.fieldbyname('JCId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_CD where JCId='''+Trim(maxjcno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + Append; + //FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + //FieldByName('Editer').Value:=Trim(DName); + //FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JCId').Value:=Trim(maxjcno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv8,ClientDataSet8,'JYOrder_CD',0); + Post; + end; + ClientDataSet8.Edit; + ClientDataSet8.FieldByName('JCId').Value:=Trim(maxjcno); + //Order_Sub.Post; + Next; + end; + end; + ///̱ + with CDS_JGLC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'PS','JYOrder_Process',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(CDS_JGLC.fieldbyname('PSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Process where PSId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv2,CDS_JGLC,'JYOrder_Process',0); + Post; + end; + CDS_JGLC.Edit; + CDS_JGLC.FieldByName('PSId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + JDMainId:=''; + end else + begin + JDMainId:=Trim(ADOTemp.fieldbyname('MainId').AsString); + end; + if Trim(JDMainId)='' then + begin + if GetLSNo(ADOCmd,maxJDNo,'JD','JYOrderJD_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ӷˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxJDNo:=Trim(JDMainId); + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+''''); + Open; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where MainId='''+Trim(JDMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(JDMainId)='' then + begin + Append; + FieldByName('Filler').Value:=ADOTemp.fieldbyname('Filler').Value; + FieldByName('Status').Value:=''; + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MainId').Value:=Trim(maxJDNo); + FieldByName('orderno').Value:=ADOTemp.fieldbyname('orderno').Value; + FieldByName('LiDanPerson').Value:=ADOTemp.fieldbyname('LiDanPerson').Value; + FieldByName('CustomerNoName').Value:=ADOTemp.fieldbyname('CustomerNoName').Value; + FieldByName('CustomerNo').Value:=ADOTemp.fieldbyname('CustomerNo').Value; + FieldByName('MPRTCode').Value:=ADOTemp.fieldbyname('MPRTCode').Value; + FieldByName('MPRTCodeName').Value:=ADOTemp.fieldbyname('MPRTCodeName').Value; + FieldByName('MPRTSpec').Value:=ADOTemp.fieldbyname('MPRTSpec').Value; + FieldByName('MPRTCF').Value:=ADOTemp.fieldbyname('MPRTCF').Value; + FieldByName('MPRTMF').Value:=ADOTemp.fieldbyname('MPRTMF').Value; + FieldByName('MPRTKZ').Value:=ADOTemp.fieldbyname('MPRTKZ').Value; + FieldByName('ORDQty').Value:=Tv1.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('QtyUnit').Value:=Order_Sub.fieldbyname('OrderUnit').Value; + Post; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + FMainId:=Trim(maxno); + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutDYAnPai.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + //SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutDYAnPai.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmOrderInPutDYAnPai.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmOrderInPutDYAnPai.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=False then + begin + Application.MessageBox('ŷǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=False then + begin + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end; + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(ClothOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTOneQty.Text)<>'' then + begin + if TryStrToFloat(MPRTOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥƷǷ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet7.Locate('JFDate',Null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet7.Locate('JFName',Null,[])=True then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTOrdQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(OrdDefStr1.Text)='' then + begin + Application.MessageBox('˾ŲΪգ','ʾ',0); + Exit; + end; } + {if Order_Sub.Locate('PRTColor',null,[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr4',null,[])=True then + begin + Application.MessageBox('ӢɫΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('SOrddefstr1',null,[])=True then + begin + Application.MessageBox('ɫŲΪ!','ʾ',0); + Exit; + end;} + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('KgZM',null,[])=True then + begin + Application.MessageBox('ÿ/ײΪ!','ʾ',0); + Exit; + end; + end; + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('PSName','',[])=False then + begin + Application.MessageBox('ûѡ','ʾ',0); + Exit; + end; + end; + {if PState=1 then + begin + if Trim(OrderNo.Text)<>Trim(FOrderNo) then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѲݣܸĶ!','ʾ',0); + Exit; + end; + end; + end; } + { if Trim(ConSubId)='' then + begin + Application.MessageBox('ûѡͬ!','ʾ',0); + Exit; + end; } + if cxPageControl1.ActivePageIndex=2 then + begin + if CDS_JGC.Locate('PFID',null,[])=True then + begin + Application.MessageBox('Ϣδȷ!','ʾ',0); + Exit; + end; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + // if cxPageControl1.ActivePageIndex=2 then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmOrderInPutDYAnPai.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColorEng').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton1Click(Sender: TObject); +var + FReal:Double; + i,j,z:Integer; + jstr:string; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CheckBox1.Checked then + begin + if Order_Sub.IsEmpty then + begin + j:=1; + end else + begin + z:=Pos('#',Trim(Order_Sub.fieldbyname('PRTColorNo').AsString)); + jstr:=Copy(Trim(Order_Sub.fieldbyname('PRTColorNo').AsString),2,z-2); + if Trim(jstr)<>'' then + begin + if TryStrToFloat(jstr,FReal)=True then + begin + j:=StrToInt(jstr)+1; + end; + end else + begin + j:=1; + end; + end; + end; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + //FieldByName('PRTColor').Value:=''; + //FieldByName('PRTOrdQty').Value:=null; + //FieldByName('PRTColorNo').Value:=null; + //FieldByName('PRTColorEng').Value:=null; + //FieldByName('PRTHX').Value:=null; + FieldByName('SubId').Value:=''; + if CheckBox1.Checked then + begin + FieldByName('PRTColorNo').Value:='C'+Trim(IntToStr(j))+'#'; + end; + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + { with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; } + + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmOrderInPutDYAnPai.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPutDYAnPai.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPutDYAnPai.NoteDblClick(Sender: TObject); +begin + {try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdNote'; + flagname:='עҪ'; + if ShowModal=1 then + begin + Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end;} +end; + +procedure TfrmOrderInPutDYAnPai.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.OrdDefStr2BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + MPRTCodeName.Text:=ADOTemp.fieldbyname('MPRTCodeName').Value; + MPRTMF.Text:=ADOTemp.fieldbyname('MPRTMF').Value; + MPRTKZ.Text:=ADOTemp.fieldbyname('MPRTKZ').Value; + MPRTSpec.Text:=ADOTemp.fieldbyname('MPRTSpec').Value; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmOrderInPutDYAnPai.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPutDYAnPai.ToolButton6Click(Sender: TObject); +var + Fint:Integer; + FReal,FMF,FKZ:Double; +begin + {if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; } + Fint:=CDS_JGLC.RecordCount; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JGGX'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with CDS_JGLC do + begin + Append; + FieldByName('PSXH').Value:=Fint+1; + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=True then + begin + FieldByName('MFQty').Value:=MPRTMF.Text; + FMF:=StrToFloat(MPRTMF.Text); + end else + begin + FMF:=0; + end; + end else + begin + FMF:=0; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=True then + begin + FieldByName('KZQty').Value:=MPRTKZ.Text; + FKZ:=StrToFloat(MPRTKZ.Text); + end else + begin + FKZ:=0; + end; + end else + begin + FKZ:=0; + end; + if FMF*FKZ<>0 then + begin + FieldByName('KgZM').Value:=100000*1.0000/(FMF*FKZ); + end else + begin + FieldByName('KgZM').Value:=0; + end; + Fint:=Fint+1; + Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton4Click(Sender: TObject); +begin + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + FieldByName('PFTPUnit').Value:=Trim(OneQtyUnit.Text); + Post; + end; + end; + end; + finally + frmGYSList.Free; + end; + +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton8Click(Sender: TObject); +var + maxno:string; +begin + {if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end;} + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + try + ADOCmd.Connection.BeginTrans; + CDS_JGC.DisableControls; + with CDS_JGC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_JGC.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(CDS_JGC.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('SubID').Value:=Trim(CDS_JGC.fieldbyname('SubID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(CDS_JGC.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_JGC.fieldbyname('FactoryName').AsString); + FieldByName('PFDlyDate').Value:=CDS_JGC.fieldbyname('PFDlyDate').Value; + RTSetSaveDataCDS(ADOCmd,Tv3,CDS_JGC,'JYOrder_PCS_Sub',0); + Post; + end; + if Trim(CDS_JGC.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + fsj:string; +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PSNote'; + flagname:='˵'; + + if ShowModal=1 then + begin + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; } + fsj:=Trim(CDS_JGLC.fieldbyname('PSNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='PSNote'; + flagname:='˵'; + MainType:=Trim(CDS_JGLC.fieldbyname('PSName').AsString); + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + fsj:=fsj+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(fsj); + //Post; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.CustomerNoNameBtnClick(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + CustomerNoName.TxtCode:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('ZKID').AsString); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.MPRTCodeBtnClick(Sender: TObject); +var + fsj:string; +begin + try + frmCPManageTPCX:=TfrmCPManageTPCX.Create(Application); + with frmCPManageTPCX do + begin + if ShowModal=1 then + begin + MPRTCode.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYNO').AsString); + MPRTCodeName.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYName').AsString); + MPRTSpec.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYSpec').AsString); + MPRTCF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYCF').AsString); + MPRTMF.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYMF').AsString); + MPRTKZ.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYKZ').AsString); + MPRTGY.Text:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('GYStr').AsString); + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString)<>'' then + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX').AsString); + end else + begin + fsj:=''; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX2').AsString); + end; + end; + if Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString)<>'' then + begin + if Trim(Fsj)<>'' then + begin + fsj:=fsj+'+'+Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end else + begin + fsj:=Trim(frmCPManageTPCX.CDS_Main.fieldbyname('CYHX3').AsString); + end; + end; + MPRTGYHZ.Text:=Trim(fsj); + end; + end; + finally + frmCPManageTPCX.Free; + end; + if Trim(MPRTMF.Text)<>'' then + begin + MPRTMF.Text:=Copy(Trim(MPRTMF.Text),1,Pos('c',Trim(MPRTMF.Text))-1); + end; + if Trim(MPRTKZ.Text)<>'' then + begin + MPRTKZ.Text:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton7Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty=False then + begin + Application.MessageBox('Ѳ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Process where PSId='''+Trim(CDS_JGLC.fieldbyname('PSId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGLC.Delete; +end; + +procedure TfrmOrderInPutDYAnPai.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton10Click(Sender: TObject); +var + i:Integer; + FName:String; +begin + + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + if CDS_JGC.IsEmpty then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + end; + try + frmOrderSubSel:=TfrmOrderSubSel.Create(Application); + with frmOrderSubSel do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + ClientDataSet1.DisableControls; + with frmOrderSubSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + Self.CDS_JGC.Append; + Self.CDS_JGC.FieldByName('SubId').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('SubId').Value; + for i:=0 to frmOrderSubSel.Tv3.ColumnCount-1 do + begin + FName:=frmOrderSubSel.Tv3.Columns[i].DataBinding.FilterFieldName; + Self.CDS_JGC.FieldByName(FName).Value:=frmOrderSubSel.ClientDataSet1.FieldByName(FName).Value; + + end; + Self.CDS_JGC.FieldByName('FactoryNo').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('FactoryNo').Value; + Self.CDS_JGC.Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + end; + finally + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton11Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv3,CDS_JGC); +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton5Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + if Trim(CDS_JGC.fieldbyname('PFId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_PCS_Sub where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGC.Delete; +end; + +procedure TfrmOrderInPutDYAnPai.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FMF,FKZ:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_JGLC do + begin + Edit; + FieldByName(FName).Value:=Trim(mvalue); + Post; + end; + FMF:=Trim(CDS_JGLC.fieldbyname('MFQty').AsString); + FKZ:=Trim(CDS_JGLC.fieldbyname('KZQty').AsString); + if Trim(FMF)='' then Exit; + if Trim(FKZ)='' then Exit; + if StrToFloat(FMF)=0 then Exit; + if StrToFloat(FKZ)=0 then Exit; + with CDS_JGLC do + begin + Edit; + FieldByName('KgZM').Value:=100000*1.0000/(StrToFloat(FMF)*StrToFloat(FKZ)); + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.BZNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='BZNote'; + flagname:='װҪ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(BZNote.Text)='' then + BZNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + BZNote.Text:=BZNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.CHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CHNote'; + flagname:='װ'; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CHNote.Text)='' then + CHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CHNote.Text:=CHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + //JiaoHuoNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.DHNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='DHNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(DHNote.Text)='' then + DHNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + DHNote.Text:=DHNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.CJNoteDblClick(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='CJNote'; + flagname:=''; + frmZDYHelpSel.Align:=alClient; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if Trim(CJNote.Text)='' then + CJNote.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + else + CJNote.Text:=CJNote.Text+#13+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton12Click(Sender: TObject); +var + fsj:string; +begin + if CDS_JGLC.IsEmpty then Exit; + try + frmTJCKKC:=TfrmTJCKKC.Create(Application); + with frmTJCKKC do + begin + frmTJCKKC.FFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + DataType:=Trim(frmTJCKKC.ComboBox1.Text); + fsj:='99'; + with Self.ClientDataSet6 do + begin + First; + while not Eof do + begin + Self.ClientDataSet6.Delete; + end; + end; + with frmTJCKKC.Order_Sub do + begin + Locate('SSel',True,[]); + with Self.ClientDataSet5 do + begin + Append; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryNo').Value; + FieldByName('PFTPUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + Post; + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + while Locate('SSel',True,[])=True do + begin + with Self.ClientDataSet6 do + begin + Append; + FieldByName('OrderNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('OrderNo').Value; + FieldByName('C_Code').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_Code').Value; + FieldByName('C_CodeName').Value:=frmTJCKKC.Order_Sub.fieldbyname('C_CodeName').Value; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('FactoryName').Value; + //FieldByName('ToFactoryNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryNo').Value; + FieldByName('CKQtyUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('RKQtyUnit').Value; + FieldByName('CKPS').Value:=StrToFloat(frmTJCKKC.DRPS.Text); + FieldByName('CKQty').Value:=StrToFloat(frmTJCKKC.DRQty.Text); + FieldByName('MDID').Value:=frmTJCKKC.Order_Sub.fieldbyname('MDID').Value; + Post; + end; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + + + end; + end; + end; + finally + frmTJCKKC.Free; + end; + if Trim(fsj)<>'99' then Exit; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; + DRInt:=99; + ToolButton9.Click; + DRInt:=0; +end; + +procedure TfrmOrderInPutDYAnPai.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + PFID,FPFID,Fsj:String; +begin + { if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + Tv5.OptionsSelection.CellSelect:=False; + end else + begin + Tv5.OptionsSelection.CellSelect:=True; + end; + end; } + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv6.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet6 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + if ClientDataSet6.IsEmpty=False then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('PFTPPS').Value:=Tv6.DataController.Summary.FooterSummaryTexts[0]; + FieldByName('PFTPQty').Value:=Tv6.DataController.Summary.FooterSummaryTexts[1]; + Post; + end; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton9Click(Sender: TObject); +var + maxno,maxsubno:string; +begin + if ClientDataSet5.IsEmpty then Exit; + if ClientDataSet6.IsEmpty then Exit; + ToolBar1.SetFocus; + + + {if ClientDataSet5.Locate('PFDlyDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; } + if DRInt<>99 then + begin + if Trim(CanShu1)<>'Ȩ' then + begin + if Application.MessageBox('ȷҪִд˲ִд˲ݽܳ!','',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ','',32+4)<>IDYES then Exit; + end; + end; + + try + ADOCmd.Connection.BeginTrans; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet5.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('XDFactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryNo').AsString); + FieldByName('XDFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('PFDlyDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value; + FieldByName('SubId').Value:=ClientDataSet5.fieldbyname('SubId').Value; + RTSetSaveDataCDS(ADOCmd,Tv5,ClientDataSet5,'JYOrder_PCS_Sub',0); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + if Trim(ClientDataSet5.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ClientDataSet5 do + begin + Edit; + FieldByName('PFID').Value:=Trim(maxno); + Post; + end; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'CK','JYOrder_Main_MD_Out',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet6.fieldbyname('CKID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where CKID='''+Trim(ClientDataSet6.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('CKID').Value:=Trim(maxsubno); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + RTSetSaveDataCDS(ADOCmd,Tv6,ClientDataSet6,'JYOrder_Main_MD_Out',2); + Post; + end; + {with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(CKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(CKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; } + Edit; + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('CKID').Value:=Trim(maxsubno); + Post; + Next; + end; + end; + {if Trim(DataType)='Χ' then + begin + SaveMDData(FMainId,Trim(ClientDataSet5.fieldbyname('SubId').AsString), + Trim(CDS_JGLC.fieldbyname('PSID').AsString),Trim(maxno)); + end; } + + if UpdateTJCKQty(Trim(maxno)) then + begin + + end else + begin + ADOCmd.Connection.RollbackTrans; + //Application.MessageBox('ʧ!','ʾ',0); + exit; + end; + ADOCmd.Connection.CommitTrans; + if Trim(CDS_JGLC.FieldByName('PSName').AsString)<>'' then + begin + if Trim(ClientDataSet5.fieldbyname('SubId').AsString)='' then + begin + Application.MessageBox('ûָͻɫ!','ʾ',0); + Exit; + end; + end; + if DRInt<>99 then + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmOrderInPutDYAnPai.SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; +var + maxno,MDID:string; + BDInt,CPInt,JYInt:Integer; +begin + Result:=False; + //жϹǷԶ뵥 + {BDInt:=CDS_JGLC.fieldbyname('PSXH').AsInteger; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''Ʒ'' '); + sql.Add(' and MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + CPInt:=ADOTemp.fieldbyname('PSXH').AsInteger + else + CPInt:=-1; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''װ'' '); + sql.Add(' and MainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + JYInt:=ADOTemp.fieldbyname('PSXH').AsInteger; + end else + begin + JYInt:=-1; + end; + + if BDInt-1 then + begin + if BDInt+1-1 then + begin + Exit; + end; } + //жϹǷԶ뵥 + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(FPFID)+''''); + sql.Add(' and Qty>0'); + open; + end; + if ADOTemp.IsEmpty=False then + begin + MDID:=Trim(ADOTemp.fieldbyname('MDID').AsString); + end else + begin + MDID:=''; + end; + if Trim(MDID)='' then + begin + if GetLSNo(ADOCmd,maxno,'','JYOrder_Main_MD',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡ뵥ˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MDID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(MDID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(MDID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FOrdMainId); + //FieldByName('ConMainID').Value:=Trim(FConMainId); + //FieldByName('ConSubID').Value:=Trim(FConSubId); + FieldByName('OrdSubId').Value:=Trim(FOrdSubId); + FieldByName('PSID').Value:=Trim(FPSID); + FieldByName('PFID').Value:=Trim(FPFID); + FieldByName('MDType').Value:=Trim(DataType); + FieldByName('MDNO').Value:='NM'+Trim(maxno); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('FromFactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryNo').AsString); + FieldByName('PS').Value:=ClientDataSet5.fieldbyname('PFTPPS').Value; + FieldByName('Qty').Value:=ClientDataSet5.fieldbyname('PFTPQty').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('PFTPUnit').Value; + FieldByName('PSName').Value:=CDS_JGLC.fieldbyname('PSName').Value; + //FieldByName('FromFactoryName').Value:=Trim(ToFactoryName.Text); + //FieldByName('FromFactoryNo').Value:=Trim(ToFactoryName.TxtCode); + if Trim(ClientDataSet5.fieldbyname('PFDlyDate').AsString)<>'' then + FieldByName('MDDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value + else + FieldByName('MDDate').Value:=SGetServerDateTime(ADOQuery1); + Post; + end; + Result:=True; + +end; +function TfrmOrderInPutDYAnPai.UpdateTJCKQty10(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(FFPFID)+''''); + Open; + end; + FAPQty:=ADOQueryTemp.fieldbyname('PFTPQty').Value; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(Qty),0) MDQty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'' '); + Open; + end; + FMDQty:=ADOQueryTemp.fieldbyname('MDQty').Value; + if FMDQty>FAPQty then + begin + Application.MessageBox('ڵ¼뵥!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PS),0) PS,isnull(Sum(Qty),0) Qty from JYOrder_Main_MD where PFID='''+Trim(FFPFID)+''''); + sql.Add(' and isnull(CKName,'''')<>''ڲֿ'''); + Open; + end; + FPS:=ADOQueryTemp.fieldbyname('PS').Value; + FQty:=ADOQueryTemp.fieldbyname('Qty').Value; + if FQty=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet8); + SInitCDSData20(ADOQueryTemp,ClientDataSet8); + + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if ClientDataSet8.FieldByName('CKQty').Value<=FQty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS=CKPS,SJCKQty=CKQty '); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + FPS:=FPS-ClientDataSet8.FieldByName('CKPS').Value; + FQty:=FQty-ClientDataSet8.FieldByName('CKQty').Value; + ClientDataSet8.Delete; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD_Out Set SJCKPS='+floattostr(FPS) ); + sql.Add(' ,SJCKQty='+floattostr(FQty) ); + sql.Add(' where CKID='''+Trim(ClientDataSet8.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet8.Last; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID in'); + sql.Add('(select MDID from JYOrder_Main_MD_Out JMO where JMO.PFID='''+Trim(FFPFID)+''')'); + ExecSQL; + end; +end; +function TfrmOrderInPutDYAnPai.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Result:=True; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select distinct(MDID) MDID from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet9); + SInitCDSData20(ADOQueryTemp,ClientDataSet9); + with ClientDataSet9 do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(SJCKQty),0) Qty from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FAPQty:=ADOTemp.fieldbyname('Qty').Value; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Qty from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FMDQty:=ADOTemp.fieldbyname('Qty').Value; + if FMDQty'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end; + end; } +end; + +procedure TfrmOrderInPutDYAnPai.Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + ClientDataSet5.Delete; + end; +end; + +procedure TfrmOrderInPutDYAnPai.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmLabelList:=TfrmLabelList.Create(Application); + with frmLabelList do + begin + SLBName:=Trim(Order_Sub.fieldbyname('SLBName').AsString); + if ShowModal=1 then + begin + + with Self.Order_Sub do + begin + Edit; + FieldByName('SLBName').Value:=Trim(LBName); + end; + end; + end; + finally + frmLabelList.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.LiDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='LiDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + LiDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with CDS_JGC do + begin + Edit; + FieldByName('PFGenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + FReal:Double; + mvalue:string; +begin + if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(Trim(ClothOneQty.Text),FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_JGC do + begin + Edit; + FieldByName('PFTPPS').Value:=mvalue; + FieldByName('PFTPQty').Value:=StrToFloat(mvalue)*StrToFloat(ClothOneQty.Text); + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn30PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JFName'; + flagname:=''; + if ShowModal=1 then + begin + with ClientDataSet7 do + begin + Edit; + FieldByName('JFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn31PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFPrice').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.cxGridDBColumn32PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFQty').Value:=mvalue; + Post; + end; + JFQty:=Trim(ClientDataSet7.fieldbyname('JFQty').AsString); + if Trim(JFQty)='' then JFQty:='0'; + JFPrice:=Trim(ClientDataSet7.fieldbyname('JFPrice').AsString); + if Trim(JFPrice)='' then JFPrice:='0'; + with ClientDataSet7 do + begin + Edit; + FieldByName('JFMoney').Value:=StrToFloat(JFQty)*StrToFloat(JFPrice); + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton16Click(Sender: TObject); +var + AJpeg: TJPEGImage; +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ棡','ʾ',0); + Exit; + end; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select WBID from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + if ADOQuery1.RecordCount>0 then + begin + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + end; + AJpeg:=TJpegImage.Create(); + try + if self.OpenDialog2.Execute() then + begin + + Image2.Picture.LoadFromFile(OpenDialog2.FileName); + AJpeg.Assign(Image2.Picture.Graphic); + if FileSizeByName(OpenDialog2.FileName)>300*1024 then + begin + CreThumb(AJpeg,Image2,418, 233); + end; + SaveImageOther(); + end; + finally + AJpeg.Free; + end; +end; +procedure TfrmOrderInPutDYAnPai.InitImage(); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if Trim(FMainId)='' then Exit; + //if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + Image2.Picture:=nil; + try + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQuery1.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQuery1.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; +procedure TfrmOrderInPutDYAnPai.CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer); +var + Bitmap: TBitmap; + Ratio: Double; + ARect: TRect; + AHeight, AHeightOffset: Integer; + AWidth, AWidthOffset: Integer; +begin + Bitmap := TBitmap.Create; + try + Ratio := AJPeg.Width /AJPeg.Height; + if Ratio > 1.333 then + begin + AHeight := Round(Width / Ratio); + AHeightOffset := (Height - AHeight) div 2; + AWidth := Width; + AWidthOffset := 0; + end + else + begin + AWidth := Round(Height * Ratio); + AWidthOffset := (Width - AWidth) div 2; + AHeight := Height; + AHeightOffset := 0; + end; + Bitmap.Width := Width; + Bitmap.Height := Height; + Bitmap.Canvas.Brush.Color := clBtnFace; + Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height)); + ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset); + Bitmap.Canvas.StretchDraw(ARect, AJPeg); + Image1.Picture.Assign(BitMap); + finally + Bitmap.Free; + end; +end; +procedure TfrmOrderInPutDYAnPai.SaveImageOther(); +var + AJpeg: TJPEGImage; + myStream: TADOBlobStream; + ImgMaxNo:String; + i,j: Integer; + PatFile: String; + FTPPath,FConNo,MaxNo,FTFID:string; +begin + if Image2.Picture=nil then Exit; + AJpeg:=TJpegImage.Create(); + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from TP_File where WBID='''+Trim(FMainId)+''''); + sql.Add(' and TFType=''װ'' '); + Open; + end; + FTFID:=Trim(ADOTemp.fieldbyname('TFID').AsString); + if Trim(FTFID)='' then + begin + if GetLSNo(ADOCmd,ImgMaxNo,'TF','TP_File',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͼƬʧ!','ʾ',0); + Exit; + end; + end else + begin + ImgMaxNo:=Trim(FTFID); + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add( ' select * from TP_File where TFID='''+Trim(FTFID)+''''); + open; + end; + with ADOCmd do + begin + if Trim(FTFID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('TFID').Value:=Trim(ImgMaxNo); + FieldByName('WBID').Value:=Trim(FMainId); + FieldByName('TFType').Value:='װ'; + AJpeg.Assign(Image2.Picture.Graphic); + //CreThumb(AJpeg,Image1,160, 120); + myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton17Click(Sender: TObject); +begin + if Image2.Picture=nil then Exit; + if Application.MessageBox('ȷҪͼƬ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' delete TP_File where WBID='''+Trim(FMainId)+''''); + SQL.Add(' and TFType=''װ'' '); + ExecSQL; + end; + Image2.Picture.Assign(nil); +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton18Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if not Assigned(DataLink_DDMD) then + DataLink_DDMD:=TDataLink_DDMD.Create(Application); + Try + with DataLink_DDMD.ADOLink do + begin + //if not Connected then + begin + Connected:=false; + ConnectionString:=DConString; + LoginPrompt:=false; + Connected:=true; + end; + end; + Except + application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Sub'' '); + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Main'' '); + ExecSQL; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton19Click(Sender: TObject); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add(' and isnull(ConSubId,'''')<>'''' '); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('Ѵɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Main_MD Set '); + sql.Add(' CKPS=isnull((select isnull(Sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID'); + sql.Add(' and isnull(A.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+'''),0),'); + sql.Add(' CKQty=isnull((select isnull(Sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID'); + sql.Add(' and isnull(A.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+'''),0)'); + sql.Add(' where MDID in(select MDID from JYOrder_Main_MD_Out B where'); + sql.Add(' isnull(B.PFID,'''')<>'''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''')'); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add('delete JYOrder_Main_MD_Out where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + UpdateTJCKQty(Trim(ClientDataSet5.fieldbyname('PFID').AsString)); + end; + ClientDataSet5.Delete; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('exec P_Update_TJCKQty'); + ExecSQL; + end; +end; + +procedure TfrmOrderInPutDYAnPai.v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmOrderSubSelMX:=TfrmOrderSubSelMX.Create(Application); + with frmOrderSubSelMX do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('SubId').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTColorNo').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTColorNo').Value; + FieldByName('PRTHX').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTHX').Value; + //Post; + end; + end; + end; + finally + frmOrderSubSelMX.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton20Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet8 do + begin + Append; + FieldByName('ZDYCODE').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZDYNo').AsString); + FieldByName('ZdyName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('ZdyNameEng').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('Note').AsString); + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutDYAnPai.ToolButton21Click(Sender: TObject); +begin + if ClientDataSet8.IsEmpty then Exit; + if Trim(ClientDataSet8.fieldbyname('JCID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_CD where JCID='''+Trim(ClientDataSet8.fieldbyname('JCID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet8.Delete; +end; + +procedure TfrmOrderInPutDYAnPai.v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('XDFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('XDFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.dfm new file mode 100644 index 0000000..14d4094 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.dfm @@ -0,0 +1,2311 @@ +object frmOrderInPutPrice: TfrmOrderInPutPrice + Left = 23 + Top = 16 + Width = 1275 + Height = 712 + Align = alClient + Caption = #25351#31034#21333#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1259 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton13: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton13Click + end + object ToolButton18: TToolButton + Left = 150 + Top = 0 + Caption = #37325#26032#36830#25509 + ImageIndex = 115 + OnClick = ToolButton18Click + end + object TBClose: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object Panel8: TPanel + Left = 296 + Top = 0 + Width = 468 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label33: TLabel + Left = 8 + Top = 4 + Width = 77 + Height = 19 + Caption = 'Label33' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 33 + Width = 1259 + Height = 640 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 1 + OnChange = cxPageControl1Change + ClientRectBottom = 640 + ClientRectRight = 1259 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22522#26412#20449#24687 + ImageIndex = 0 + object ToolBar2: TToolBar + Left = 0 + Top = 348 + Width = 1259 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton23: TToolButton + Left = 126 + Top = 0 + Caption = #26631#31614#39044#35272 + ImageIndex = 39 + OnClick = ToolButton23Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 379 + Width = 1259 + Height = 238 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object v1Column14: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHInt' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.Default + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 86 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394#20013#25991 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 99 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'PRTColorEng' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 82 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v1Column2: TcxGridDBColumn + Caption = #26631#31614#35774#32622 + DataBinding.FieldName = 'SLbName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 193 + end + object v1Column18: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 210 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1259 + Height = 348 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 15 + Width = 66 + Height = 12 + Caption = #35746' '#21333' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 283 + Top = 15 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 31 + Top = 35 + Width = 65 + Height = 12 + Caption = #21046#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 533 + Top = 15 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 31 + Top = 75 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 170 + Top = 75 + Width = 39 + Height = 12 + Caption = #20811#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 31 + Top = 55 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 533 + Top = 55 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 283 + Top = 95 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 283 + Top = 35 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 533 + Top = 115 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 531 + Top = 283 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 791 + Top = 35 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 791 + Top = 55 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 283 + Top = 115 + Width = 65 + Height = 12 + Caption = #19994#21153#21161#29702#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 145 + Top = 75 + Width = 14 + Height = 12 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 246 + Top = 75 + Width = 27 + Height = 12 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 283 + Top = 55 + Width = 67 + Height = 12 + Caption = #24037' '#33402#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 533 + Top = 35 + Width = 65 + Height = 12 + Caption = #20844#21496#25260#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label44: TLabel + Left = 31 + Top = 134 + Width = 65 + Height = 12 + Caption = #29983#20135#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 283 + Top = 75 + Width = 65 + Height = 12 + Caption = #38376#24133#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label38: TLabel + Left = 533 + Top = 75 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 791 + Top = 75 + Width = 66 + Height = 12 + Caption = #30701' '#28322' '#35013#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 31 + Top = 114 + Width = 65 + Height = 12 + Caption = #25152#23646#37096#38376#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label39: TLabel + Left = 791 + Top = 95 + Width = 67 + Height = 12 + Caption = #33136' '#23553#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label45: TLabel + Left = 533 + Top = 95 + Width = 67 + Height = 12 + Caption = #30041' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label42: TLabel + Left = 31 + Top = 94 + Width = 67 + Height = 12 + Caption = #21305' '#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label46: TLabel + Left = 791 + Top = 15 + Width = 66 + Height = 12 + Caption = #23458' '#25143' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label47: TLabel + Left = 31 + Top = 222 + Width = 65 + Height = 12 + Caption = #39564#36135#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label48: TLabel + Left = 791 + Top = 115 + Width = 65 + Height = 12 + Caption = #21333#35777#21046#21333#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label50: TLabel + Left = 531 + Top = 134 + Width = 65 + Height = 12 + Caption = #20986#36135#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label51: TLabel + Left = 533 + Top = 226 + Width = 66 + Height = 12 + Caption = #22806' '#21253' '#35013#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label52: TLabel + Left = 791 + Top = 226 + Width = 67 + Height = 12 + Caption = #32440' '#31649#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label53: TLabel + Left = 533 + Top = 246 + Width = 66 + Height = 12 + Caption = #22609' '#26009' '#34955#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label54: TLabel + Left = 790 + Top = 246 + Width = 66 + Height = 12 + Caption = #23567' '#26631' '#31614#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label55: TLabel + Left = 533 + Top = 266 + Width = 67 + Height = 12 + Caption = #28907' '#37329#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 97 + Top = 329 + Width = 65 + Height = 12 + Caption = #27599#20844#26020#20960#31859 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 31 + Top = 329 + Width = 65 + Height = 12 + Caption = #25240#31639#31995#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 265 + Top = 329 + Width = 65 + Height = 12 + Caption = #27599#20844#26020#20960#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 424 + Top = 329 + Width = 54 + Height = 12 + Caption = #30382#37325'(Kg)' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 791 + Top = 134 + Width = 67 + Height = 12 + Caption = #21787' '#22836#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 597 + Top = 135 + Width = 52 + Height = 12 + Caption = #24102#27454#25552#36135 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 597 + Top = 159 + Width = 78 + Height = 12 + Caption = #30830#35748#33337#26679#20986#36135 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 597 + Top = 183 + Width = 52 + Height = 12 + Caption = #39564#36135#20986#36135 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 531 + Top = 203 + Width = 65 + Height = 12 + Caption = #20854#20182#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 97 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 0 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 346 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 1 + OnDblClick = ConNoDblClick + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 97 + Top = 31 + Width = 170 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 346 + Top = 91 + Width = 170 + Height = 20 + Hint = 'ChuanY/'#33337#26679 + TabOrder = 3 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 346 + Top = 31 + Width = 170 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + end + object YWY: TBtnEditC + Tag = 2 + Left = 597 + Top = 111 + Width = 170 + Height = 20 + Hint = 'YWY/'#19994#21153#21592 + TabOrder = 5 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 597 + Top = 282 + Width = 424 + Height = 63 + TabOrder = 6 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 97 + Top = 51 + Width = 170 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 597 + Top = 51 + Width = 170 + Height = 20 + TabOrder = 8 + end + object MPRTCF: TEdit + Tag = 2 + Left = 853 + Top = 51 + Width = 170 + Height = 20 + TabOrder = 9 + end + object MPRTMF: TEdit + Tag = 2 + Left = 97 + Top = 71 + Width = 45 + Height = 20 + TabOrder = 10 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 206 + Top = 71 + Width = 39 + Height = 20 + TabOrder = 11 + end + object CustomerNoName: TBtnEditA + Tag = 2 + Left = 597 + Top = 11 + Width = 170 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 12 + OnBtnClick = CustomerNoNameBtnClick + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 853 + Top = 31 + Width = 170 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 13 + OnBtnClick = MPRTCodeBtnClick + end + object MPRTGYHZ: TEdit + Tag = 2 + Left = 346 + Top = 51 + Width = 170 + Height = 20 + TabOrder = 14 + end + object ComTaiTou: TBtnEditA + Tag = 2 + Left = 597 + Top = 31 + Width = 170 + Height = 20 + ReadOnly = True + TabOrder = 15 + OnBtnClick = ComTaiTouBtnClick + end + object LiDanPerson: TBtnEditA + Tag = 2 + Left = 346 + Top = 111 + Width = 170 + Height = 20 + TabOrder = 16 + OnBtnClick = LiDanPersonBtnClick + end + object SCYaoSu: TMemo + Tag = 2 + Left = 97 + Top = 132 + Width = 417 + Height = 88 + ScrollBars = ssVertical + TabOrder = 17 + end + object MPRTMFNote: TEdit + Tag = 2 + Left = 346 + Top = 71 + Width = 170 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 18 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 597 + Top = 71 + Width = 170 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 19 + end + object DuanYiZhuang: TEdit + Tag = 2 + Left = 853 + Top = 71 + Width = 170 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 20 + end + object YaoFeng: TBtnEditC + Tag = 2 + Left = 853 + Top = 91 + Width = 170 + Height = 20 + Hint = 'YaoFeng/'#33136#23553 + TabOrder = 21 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object LiuYang: TBtnEditC + Tag = 2 + Left = 597 + Top = 91 + Width = 170 + Height = 20 + Hint = 'LiuYang/'#30041#26679 + TabOrder = 22 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object PiChang: TBtnEditC + Tag = 2 + Left = 97 + Top = 91 + Width = 170 + Height = 20 + Hint = 'PiChang/'#21305#38271 + TabOrder = 23 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object KHNO: TEdit + Tag = 2 + Left = 853 + Top = 11 + Width = 170 + Height = 20 + CharCase = ecUpperCase + TabOrder = 24 + OnDblClick = ConNoDblClick + end + object YanHuoNote: TMemo + Tag = 2 + Left = 97 + Top = 220 + Width = 417 + Height = 104 + ScrollBars = ssVertical + TabOrder = 25 + end + object DanZheng: TBtnEditC + Tag = 2 + Left = 853 + Top = 111 + Width = 170 + Height = 20 + Hint = 'DanZheng/'#21333#35777#21046#21333 + TabOrder = 26 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object WanBaoZhuang: TBtnEditC + Tag = 2 + Left = 597 + Top = 222 + Width = 170 + Height = 20 + Hint = 'WanBaoZhuang/'#22806#21253#35013 + TabOrder = 27 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ZhiGuan: TBtnEditC + Tag = 2 + Left = 853 + Top = 222 + Width = 170 + Height = 20 + Hint = 'ZhiGuan/'#32440#31649 + TabOrder = 28 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SuLiaoDai: TBtnEditC + Tag = 2 + Left = 597 + Top = 242 + Width = 170 + Height = 20 + Hint = 'SuLiaoDai/'#22609#26009#34955 + TabOrder = 29 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object XiaoBiaoQian: TBtnEditC + Tag = 2 + Left = 853 + Top = 242 + Width = 170 + Height = 20 + Hint = 'XiaoBiaoQian/'#23567#26631#31614 + TabOrder = 30 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object TangJin: TBtnEditC + Tag = 2 + Left = 597 + Top = 262 + Width = 170 + Height = 20 + Hint = 'TangJin/'#28907#37329 + TabOrder = 31 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object KgZMiXs: TEdit + Tag = 2 + Left = 164 + Top = 325 + Width = 88 + Height = 20 + TabOrder = 32 + end + object KgZMaXs: TEdit + Tag = 2 + Left = 331 + Top = 325 + Width = 79 + Height = 20 + TabOrder = 33 + end + object PiZhong: TEdit + Tag = 2 + Left = 479 + Top = 325 + Width = 36 + Height = 20 + Hint = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 34 + end + object SSDept: TBtnEditC + Tag = 2 + Left = 97 + Top = 110 + Width = 170 + Height = 20 + Hint = 'SSDept/'#25152#23646#37096#38376 + TabOrder = 35 + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MaiTou: TMemo + Tag = 2 + Left = 853 + Top = 133 + Width = 167 + Height = 88 + ScrollBars = ssVertical + TabOrder = 36 + end + object DaiKuanTH: TComboBox + Tag = 2 + Left = 652 + Top = 132 + Width = 115 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 37 + Items.Strings = ( + #8730 + '') + end + object QueRenCYCH: TComboBox + Tag = 2 + Left = 677 + Top = 156 + Width = 90 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 38 + Items.Strings = ( + #8730 + '') + end + object YanHuoCH: TComboBox + Tag = 2 + Left = 652 + Top = 180 + Width = 115 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 39 + Items.Strings = ( + #8730 + '') + end + object CHFSNote: TEdit + Tag = 2 + Left = 597 + Top = 200 + Width = 170 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 40 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #29983#20135#27969#31243#19982#23433#25490 + ImageIndex = 2 + object ToolBar4: TToolBar + Left = 0 + Top = 0 + Width = 1259 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton6: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton7Click + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 409 + Width = 1259 + Height = 208 + Align = alBottom + TabOrder = 1 + object cxGrid5: TcxGrid + Left = 0 + Top = 33 + Width = 1255 + Height = 171 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + OnCellDblClick = Tv5CellDblClick + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 89 + end + object v5Column3: TcxGridDBColumn + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'XDFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35745#21010#35843#20837#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 92 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35745#21010#35843#20837#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 91 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v5Column1: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v5Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v5Column2: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v5Column6: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v5Column7: TcxGridDBColumn + Caption = #21305#21495'/'#32769#21333#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v5Column10: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v5Column8: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'DiaoYongCKPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 60 + end + object v5Column9: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'DiaoYongCKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 61 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + object ToolBar5: TToolBar + Left = 0 + Top = 0 + Width = 1255 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton9: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton9Click + end + object ToolButton12: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #24453#22788#29702#20179#24211#35843#20837 + ImageIndex = 79 + OnClick = ToolButton12Click + end + object ToolButton19: TToolButton + Left = 186 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton19Click + end + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 185 + Width = 1259 + Height = 224 + Align = alClient + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 0 + Top = 33 + Width = 1255 + Height = 187 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 86 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v3Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 72 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 88 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v3Column5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + end + object v3Column8: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v3Column9: TcxGridDBColumn + Tag = 22 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v3Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 211 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 1255 + Height = 33 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object ToolBar3: TToolBar + Left = 2 + Top = 2 + Width = 1251 + Height = 29 + Align = alClient + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton8: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton8Click + end + object ToolButton10: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25353#26126#32454#22686#21152 + ImageIndex = 56 + OnClick = ToolButton10Click + end + object ToolButton4: TToolButton + Left = 162 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 225 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object ToolButton11: TToolButton + Left = 288 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 19 + Visible = False + OnClick = ToolButton11Click + end + end + end + end + object Panel6: TPanel + Left = 0 + Top = 31 + Width = 1259 + Height = 154 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 1255 + Height = 150 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_DDMD.Default + Width = 51 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 68 + end + object v2Column2: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MFQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 83 + end + object v2Column3: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 77 + end + object v2Column4: TcxGridDBColumn + Caption = #25240#31639#31995#25968 + DataBinding.FieldName = 'KgZM' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 74 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.Default + Width = 252 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + end + end + object cxTabSheet7: TcxTabSheet + Caption = #30133#28857#31649#29702 + ImageIndex = 4 + object ToolBar8: TToolBar + Left = 0 + Top = 0 + Width = 63 + Height = 617 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton20: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + Wrap = True + OnClick = ToolButton20Click + end + object ToolButton21: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton21Click + end + end + object cxGrid8: TcxGrid + Left = 63 + Top = 0 + Width = 1196 + Height = 617 + Align = alClient + TabOrder = 1 + object Tv8: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource8 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn21: TcxGridDBColumn + Caption = #30133#28857 + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Width = 148 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv8 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 776 + Top = 65533 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 1072 + Top = 56 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 1104 + Top = 56 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 808 + Top = 65533 + end + object CDS_JGLC: TClientDataSet + Aggregates = <> + Params = <> + Left = 1107 + Top = 88 + end + object DataSource2: TDataSource + DataSet = CDS_JGLC + Left = 1072 + Top = 88 + end + object CDS_JGC: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 120 + end + object DataSource3: TDataSource + DataSet = CDS_JGC + Left = 1076 + Top = 120 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1136 + Top = 58 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 1138 + Top = 90 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 1143 + Top = 122 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 1111 + Top = 151 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 1144 + Top = 153 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 184 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 1076 + Top = 184 + end + object cxGridPopupMenu6: TcxGridPopupMenu + PopupMenus = <> + Left = 1144 + Top = 185 + end + object DataSource8: TDataSource + DataSet = ClientDataSet8 + Left = 1077 + Top = 212 + end + object cxGridPopupMenu8: TcxGridPopupMenu + Grid = cxGrid8 + PopupMenus = <> + Left = 1145 + Top = 214 + end + object ClientDataSet8: TClientDataSet + Aggregates = <> + Params = <> + Left = 1116 + Top = 213 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 872 + Top = 65533 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 904 + Top = 65533 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 970 + Top = 2 + ReportData = {} + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 1028 + Top = 3 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 997 + Top = 4 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 936 + Top = 65533 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 1077 + Top = 154 + end + object ClientDataSet9: TClientDataSet + Aggregates = <> + Params = <> + Left = 1124 + Top = 245 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.pas new file mode 100644 index 0000000..bd65c50 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderInPutPrice.pas @@ -0,0 +1,3048 @@ +unit U_OrderInPutPrice; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxPC, cxGridCustomPopupMenu, + cxGridPopupMenu, cxDropDownEdit,jpeg,IdGlobal, RM_Common, RM_Class, + RM_e_Xls, RM_System, RM_GridReport, RM_Dataset; + +type + TfrmOrderInPutPrice = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabSheet3: TcxTabSheet; + v1Column1: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label10: TLabel; + Label3: TLabel; + Label14: TLabel; + Label12: TLabel; + Label13: TLabel; + Label2: TLabel; + Label6: TLabel; + Label21: TLabel; + Label25: TLabel; + Label43: TLabel; + OrderNo: TEdit; + ConNo: TEdit; + OrdDate: TDateTimePicker; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + YWY: TBtnEditC; + Label4: TLabel; + Note: TMemo; + Label5: TLabel; + CDS_JGLC: TClientDataSet; + DataSource2: TDataSource; + CDS_JGC: TClientDataSet; + DataSource3: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + Label7: TLabel; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + CustomerNoName: TBtnEditA; + MPRTCode: TBtnEditA; + Label8: TLabel; + Label11: TLabel; + Label15: TLabel; + Label9: TLabel; + MPRTGYHZ: TEdit; + ClientDataSet5: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + cxGridPopupMenu6: TcxGridPopupMenu; + v1Column2: TcxGridDBColumn; + ComTaiTou: TBtnEditA; + Label18: TLabel; + LiDanPerson: TBtnEditA; + ToolBar4: TToolBar; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + ScrollBox2: TScrollBox; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + ToolBar5: TToolBar; + ToolButton9: TToolButton; + ToolButton12: TToolButton; + ScrollBox3: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ToolButton13: TToolButton; + v1Column18: TcxGridDBColumn; + ToolButton18: TToolButton; + ToolButton19: TToolButton; + v5Column1: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + cxTabSheet7: TcxTabSheet; + ToolBar8: TToolBar; + ToolButton20: TToolButton; + ToolButton21: TToolButton; + cxGrid8: TcxGrid; + Tv8: TcxGridDBTableView; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + DataSource8: TDataSource; + cxGridPopupMenu8: TcxGridPopupMenu; + ClientDataSet8: TClientDataSet; + v5Column3: TcxGridDBColumn; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + RM1: TRMGridReport; + CDS_Print: TClientDataSet; + RMDBMain: TRMDBDataSet; + ToolButton23: TToolButton; + v1Column14: TcxGridDBColumn; + Panel6: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Label44: TLabel; + SCYaoSu: TMemo; + Panel7: TPanel; + ToolBar3: TToolBar; + ToolButton8: TToolButton; + ToolButton10: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton11: TToolButton; + Panel8: TPanel; + Label33: TLabel; + Label37: TLabel; + Label38: TLabel; + MPRTMFNote: TEdit; + MPRTKZNote: TEdit; + Label16: TLabel; + DuanYiZhuang: TEdit; + Label17: TLabel; + Label39: TLabel; + YaoFeng: TBtnEditC; + Label45: TLabel; + LiuYang: TBtnEditC; + Label42: TLabel; + PiChang: TBtnEditC; + KHNO: TEdit; + Label46: TLabel; + Label47: TLabel; + YanHuoNote: TMemo; + Label48: TLabel; + DanZheng: TBtnEditC; + Label50: TLabel; + Label51: TLabel; + WanBaoZhuang: TBtnEditC; + Label52: TLabel; + ZhiGuan: TBtnEditC; + Label53: TLabel; + SuLiaoDai: TBtnEditC; + Label54: TLabel; + XiaoBiaoQian: TBtnEditC; + Label55: TLabel; + TangJin: TBtnEditC; + Label34: TLabel; + Label35: TLabel; + Label32: TLabel; + KgZMiXs: TEdit; + KgZMaXs: TEdit; + PiZhong: TEdit; + Label28: TLabel; + ADOQueryPrint: TADOQuery; + DataSource5: TDataSource; + ClientDataSet9: TClientDataSet; + SSDept: TBtnEditC; + Label20: TLabel; + MaiTou: TMemo; + Label22: TLabel; + DaiKuanTH: TComboBox; + Label23: TLabel; + QueRenCYCH: TComboBox; + Label24: TLabel; + YanHuoCH: TComboBox; + Label26: TLabel; + CHFSNote: TEdit; + v5Column6: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column8: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure RanFactoryBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure NoteDblClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrdDefStr2BtnUpClick(Sender: TObject); + procedure YCLFactoryBtnUpClick(Sender: TObject); + procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure CustomerNoNameBtnClick(Sender: TObject); + procedure MPRTCodeBtnClick(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton9Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ComTaiTouBtnClick(Sender: TObject); + procedure LiDanPersonBtnClick(Sender: TObject); + procedure v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton13Click(Sender: TObject); + procedure v3Column2PropertiesEditValueChanged(Sender: TObject); + procedure cxGridDBColumn32PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton18Click(Sender: TObject); + procedure ToolButton19Click(Sender: TObject); + procedure v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton20Click(Sender: TObject); + procedure ToolButton21Click(Sender: TObject); + procedure v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton23Click(Sender: TObject); + procedure ConNoDblClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + private + CanShu1,CanShu2,ConPrice:String; + FJSFlag:Boolean; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + + + function SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; + function UpdateTJCKQty(FFPFID:string):Boolean; + function UpdateTJCKQtyOne(FFPFID:string):Boolean; + { Private declarations } + public + PState,CopyInt,PriceFlag,DRInt,JYInt:Integer; + FMainId,FFMainId,FOrderNo,ConSubId,DataType,FST,FXianShi:String; + FXS:Integer; + { Public declarations } + end; + +var + frmOrderInPutPrice: TfrmOrderInPutPrice; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_CPManageTPCX,U_ZHKHListNewCX + ,U_GYSSelList,U_OrderSubSel,U_TJCKKC,U_LabelList, U_ModuleNote,U_OrderSubSelMX + ,U_ContractSelList,U_CPSel, U_GYSList; + +{$R *.dfm} + +procedure TfrmOrderInPutPrice.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼YD',Tv1,'ָʾ'); + WriteCxGrid('¼YD',Tv2,'ָʾ'); + WriteCxGrid('ӹ¼YD',Tv3,'ָʾ'); + WriteCxGrid('Ϣ',Tv5,'ָʾ'); + WriteCxGrid('õϢ',Tv8,'ָʾ'); + +end; + +procedure TfrmOrderInPutPrice.InitData(); +var + fsj:string; +begin + fsj:='select ZdyName Name,ZdyNo Code from KH_Zdy where Type=''PFGenDanPerson'' '; + SInitCxGridComboBoxBySql(ADOTemp,cxGridDBColumn2,fsj,0,False,''); + if Trim(CanShu1)<>'Ȩ' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(FMainId)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + OrderNo.ReadOnly:=True; + end else + begin + OrderNo.ReadOnly:=False; + end; + end; + ReadCxGrid('ָʾ¼YD',Tv1,'ָʾ'); + ReadCxGrid('¼YD',Tv2,'ָʾ'); + ReadCxGrid('ӹ¼YD',Tv3,'ָʾ'); + ReadCxGrid('Ϣ',Tv5,'ָʾ'); + ReadCxGrid('õϢ',Tv8,'ָʾ'); + + + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_Sub where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from JYOrder_CD where 1=1 '); + if PState=1 then + begin + sql.Add(' and MainId='''+Trim(FMainId)+''''); + end; + if PState=0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet8); + SInitCDSData20(ADOQuery1,ClientDataSet8); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + FJSFlag:=ADOQuery1.FieldByName('JSFlag').AsBoolean; + SCSHDataNew(ADOQuery1,Panel1,2); + with ADOQuery1 do + begin + Close; + sql.Clear; + if CopyInt<>99 then + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+'''') + else + sql.Add('select * from JYOrder_Process where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGLC); + SInitCDSData20(ADOQuery1,CDS_JGLC); + + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + DlyDate.DateTime:=OrdDate.DateTime; + {LiDanPerson.Text:=Trim(DName); + YWY.Text:=''; } + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + //OrdPerson1.Text:=Trim(DName); + OrderNo.Text:=''; + OrderNo.ReadOnly:=False; + with Order_Sub do + begin + First; + while not Eof do + begin + Edit; + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + Post; + Next; + end; + end; + end; + Label33.Caption:=Trim(OrderNo.Text)+' '+Trim(MPRTCodeName.Text); +end; + +procedure TfrmOrderInPutPrice.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmOrderInPutPrice.FormShow(Sender: TObject); +begin + if Trim(FXianShi)='' then + begin + Panel1.Enabled:=False; + ToolButton1.Visible:=False; + ToolButton2.Visible:=False; + Tv1.OptionsSelection.CellSelect:=False; + CustomerNoName.Visible:=False; + end else + begin + if Trim(FST)='ֿ' then + begin + //cxPageControl1.ActivePageIndex:=1; + Panel1.Enabled:=False; + ToolButton1.Visible:=False; + ToolButton2.Visible:=False; + Tv1.OptionsSelection.CellSelect:=False; + CustomerNoName.Visible:=False; + TBSave.Visible:=False; + ToolBar4.Visible:=False; + ToolBar3.Visible:=False; + ToolBar8.Visible:=False; + Tv2.OptionsSelection.CellSelect:=False; + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + ToolBar8.Visible:=False; + Tv2.OptionsSelection.CellSelect:=False; + Tv3.OptionsSelection.CellSelect:=False; + Tv5.OptionsSelection.CellSelect:=False; + Tv8.OptionsSelection.CellSelect:=False; + Tv1.OptionsSelection.CellSelect:=True; + end; + + end; + InitData(); +end; + +function TfrmOrderInPutPrice.SaveData():Boolean; +var + maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'JM','JYOrder_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + if Trim(FXianShi)='' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + if Trim(ConSubId)<>'' then + begin + FieldByName('ConSubId').Value:=Trim(ConSubId); + end; + RTSetsavedata(ADOCmd,'JYOrder_Main',Panel1,2); + FieldByName('CustomerNo').Value:=Trim(CustomerNoName.TxtCode); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where SubId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxsubno); + //Order_Sub.Post; + Next; + end; + end; + end else + if Trim(FXianShi)='' then + begin + ///õ + with ClientDataSet8 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxjcno,'JC','JYOrder_CD',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡõˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxjcno:=Trim(ClientDataSet8.fieldbyname('JCId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_CD where JCId='''+Trim(maxjcno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet8.fieldbyname('JCId').AsString)='' then + begin + Append; + //FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + //FieldByName('Editer').Value:=Trim(DName); + //FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('JCId').Value:=Trim(maxjcno); + //FieldByName('SubId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv8,ClientDataSet8,'JYOrder_CD',0); + Post; + end; + ClientDataSet8.Edit; + ClientDataSet8.FieldByName('JCId').Value:=Trim(maxjcno); + //Order_Sub.Post; + Next; + end; + end; + ///̱ + with CDS_JGLC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'PS','JYOrder_Process',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(CDS_JGLC.fieldbyname('PSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Process where PSId='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('PSId').Value:=Trim(maxsubno); + RTSetSaveDataCDS(ADOCmd,Tv2,CDS_JGLC,'JYOrder_Process',0); + Post; + end; + CDS_JGLC.Edit; + CDS_JGLC.FieldByName('PSId').Value:=Trim(maxsubno); + CDS_JGLC.FieldByName('MainId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + FMainId:=Trim(maxno); + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutPrice.SaveDataMain():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main where MainId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + maxno:=Trim(FFMainId); + end + else begin + maxno:=Trim(FMainId); + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + //SSetsaveSqlNew(ADOCmd,'JYOrder_Main',ScrollBox1,2); + if PState=1 then + begin + FieldByName('OrdUpDate').Value:=SGetServerDateTime(ADOTemp); + end; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + FMainId:=Trim(maxno); + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +function TfrmOrderInPutPrice.SaveDataSubOne():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + //First; + //while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + //Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; +function TfrmOrderInPutPrice.SaveDataSubMore():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + sql.Add(' and SubId='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +procedure TfrmOrderInPutPrice.TBSaveClick(Sender: TObject); +var + FReal:Double; +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; + if Trim(ConNo.Text)='' then + begin + Application.MessageBox('ͬŲΪգ','ʾ',0); + Exit; + end; + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=False then + begin + Application.MessageBox('ŷǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=False then + begin + Application.MessageBox('طǷ!','ʾ',0); + Exit; + end; + end else + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if Trim(FXianShi)='' then + begin + {if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('MFQty',Null,[])=True then + begin + Application.MessageBox('еŷΪ!','ʾ',0); + exit; + end; + if CDS_JGLC.Locate('KZQty',Null,[])=True then + begin + Application.MessageBox('еĿزΪ!','ʾ',0); + exit; + end; + end;} + if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('KgZM',null,[])=True then + begin + Application.MessageBox('ϵΪ!','ʾ',0); + Exit; + end; + end; + {if CDS_JGLC.IsEmpty=False then + begin + if CDS_JGLC.Locate('PSName','',[])=False then + begin + Application.MessageBox('ûѡ','ʾ',0); + Exit; + end; + end; } + if cxPageControl1.ActivePageIndex=2 then + begin + if CDS_JGC.IsEmpty=False then + begin + if CDS_JGC.Locate('PFID',null,[])=True then + begin + Application.MessageBox('Ϣδȷ!','ʾ',0); + Exit; + end; + end; + + end; + end; + + if Trim(KgZMiXs.Text)<>'' then + begin + if TryStrToFloat(KgZMiXs.Text,FReal)=False then + begin + Application.MessageBox('ϵǷ!','ʾ',0); + Exit; + end; + end; + {if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(ClothOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + if Trim(MPRTOneQty.Text)<>'' then + begin + if TryStrToFloat(MPRTOneQty.Text,FReal)=False then + begin + Application.MessageBox('ÿƥƷǷ!','ʾ',0); + Exit; + end; + end; } + + if Order_Sub.Locate('PRTOrdQty',Null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTColor',Null,[])=True then + begin + Application.MessageBox('ɫIJΪ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; + // if cxPageControl1.ActivePageIndex=2 then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.ToFactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' inner join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmOrderInPutPrice.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdColor'; + flagname:='ɫ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + MainType:=Trim(DName); + fnote:=True; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColorEng').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton1Click(Sender: TObject); +begin + ToolBar1.SetFocus; + if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + CopyAddRow(Tv1,Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('PRTColor').Value:=''; + FieldByName('PRTOrdQty').Value:=null; + FieldByName('PRTColorNo').Value:=null; + FieldByName('PRTColorEng').Value:=null; + FieldByName('PRTHX').Value:=null; + FieldByName('SubId').Value:=''; + FieldByName('XHInt').Value:=Order_Sub.RecordCount; + Post; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + { with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; } + + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + { if Order_Sub.IsEmpty then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(FMainId)+''''); + ExecSQL; + end; + end; } +end; + +procedure TfrmOrderInPutPrice.RanFactoryBtnUpClick(Sender: TObject); +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKPlace'; + flagname:='Ⱦ'; + if ShowModal=1 then + begin + JGFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + JGFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } +end; + +procedure TfrmOrderInPutPrice.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPutPrice.NoteDblClick(Sender: TObject); +begin + {try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdNote'; + flagname:='עҪ'; + if ShowModal=1 then + begin + Note.Text:=Note.Text+frmZDYHelpSel.ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end;} +end; + +procedure TfrmOrderInPutPrice.v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PriceUnit'; + flagname:='۸λ'; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; + + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.OrdDefStr2BtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if Trim(flag)='OrdDefStr2' then + begin + //flag:='OrdDefStr2'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + fnote:=True; + end; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + if Trim(flag)='MPRTCode' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from JYOrder_Main where MPRTCode='''+Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+''''); + sql.Add(' order by FillTime desc'); + Open; + end; + MPRTCodeName.Text:=ADOTemp.fieldbyname('MPRTCodeName').Value; + MPRTMF.Text:=ADOTemp.fieldbyname('MPRTMF').Value; + MPRTKZ.Text:=ADOTemp.fieldbyname('MPRTKZ').Value; + MPRTSpec.Text:=ADOTemp.fieldbyname('MPRTSpec').Value; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.YCLFactoryBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=TEdit(Sender).Name; + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.MPRTSCTeBieNoteBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=ReturnStr; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + + +procedure TfrmOrderInPutPrice.ToolButton6Click(Sender: TObject); +var + Fint:Integer; + FReal,FMF,FKZ:Double; +begin + {if Trim(FMainId)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; } + Fint:=CDS_JGLC.RecordCount; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='JGGX'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with CDS_JGLC do + begin + Append; + FieldByName('PSXH').Value:=Fint+1; + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + if Trim(MPRTMF.Text)<>'' then + begin + if TryStrToFloat(MPRTMF.Text,FReal)=True then + begin + FieldByName('MFQty').Value:=MPRTMF.Text; + FMF:=StrToFloat(MPRTMF.Text); + end else + begin + FMF:=0; + end; + end else + begin + FMF:=0; + end; + if Trim(MPRTKZ.Text)<>'' then + begin + if TryStrToFloat(MPRTKZ.Text,FReal)=True then + begin + FieldByName('KZQty').Value:=MPRTKZ.Text; + FKZ:=StrToFloat(MPRTKZ.Text); + end else + begin + FKZ:=0; + end; + end else + begin + FKZ:=0; + end; + if FMF*FKZ<>0 then + begin + FieldByName('KgZM').Value:=100000*1.0000/(FMF*FKZ); + end else + begin + FieldByName('KgZM').Value:=0; + end; + Fint:=Fint+1; + Post; + end; + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton4Click(Sender: TObject); +begin + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; + +end; + +procedure TfrmOrderInPutPrice.ToolButton8Click(Sender: TObject); +var + maxno:string; +begin + {if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end;} + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + try + ADOCmd.Connection.BeginTrans; + CDS_JGC.DisableControls; + with CDS_JGC do + begin + First; + while not Eof do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(CDS_JGC.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(CDS_JGC.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_JGC.fieldbyname('PFID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('SubID').Value:=Trim(CDS_JGC.fieldbyname('SubID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryNo').Value:=Trim(CDS_JGC.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_JGC.fieldbyname('FactoryName').AsString); + FieldByName('PFDlyDate').Value:=CDS_JGC.fieldbyname('PFDlyDate').Value; + RTSetSaveDataCDS(ADOCmd,Tv3,CDS_JGC,'JYOrder_PCS_Sub',0); + Post; + end; + if Trim(CDS_JGC.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + Next; + end; + end; + + ADOCmd.Connection.CommitTrans; + CDS_JGC.EnableControls; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + CDS_JGC.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; + +procedure TfrmOrderInPutPrice.cxGridDBColumn6PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +var + fsj:string; +begin + {try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PSNote'; + flagname:='˵'; + + if ShowModal=1 then + begin + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; } + fsj:=Trim(CDS_JGLC.fieldbyname('PSNote').AsString); + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='PSNote'; + flagname:='˵'; + MainType:=Trim(CDS_JGLC.fieldbyname('PSName').AsString); + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + fsj:=fsj+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + Next; + end; + end; + with CDS_JGLC do + begin + Edit; + FieldByName('PSNote').Value:=Trim(fsj); + //Post; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutPrice.CustomerNoNameBtnClick(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHNameJC').AsString); + CustomerNoName.TxtCode:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('ZKID').AsString); + // KHNO.Text:=Trim(frmZHKHListNewCX.Order_Main.fieldbyname('KHCode').AsString); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmOrderInPutPrice.MPRTCodeBtnClick(Sender: TObject); +var + fsj:string; +begin + try + frmCPSel:=TfrmCPSel.Create(Application); + with frmCPSel do + begin + frmCPSel.Align:=alClient; + if ShowModal=1 then + begin + MPRTCode.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYNO').AsString); + MPRTCodeName.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYName').AsString); + MPRTSpec.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYSpec').AsString); + MPRTCF.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYCF').AsString); + MPRTMF.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYMF').AsString); + MPRTKZ.Text:=Trim(frmCPSel.CDS_Main.fieldbyname('CYKZ').AsString); + end; + end; + finally + frmCPSel.Free; + end; + if Trim(MPRTMF.Text)<>'' then + begin + MPRTMF.Text:=Copy(Trim(MPRTMF.Text),1,Pos('C',Trim(MPRTMF.Text))-1); + end; + if Trim(MPRTKZ.Text)<>'' then + begin + MPRTKZ.Text:=Copy(Trim(MPRTKZ.Text),1,Pos('g',Trim(MPRTKZ.Text))-1); + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton7Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty=False then + begin + Application.MessageBox('ѰŲɾ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('¼뵥ɾ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Process where PSId='''+Trim(CDS_JGLC.fieldbyname('PSId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGLC.Delete; +end; + +procedure TfrmOrderInPutPrice.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' select A.*,B.PRTHX,PRTColor=isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorNo,'''') '); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=(select ORDMainid from JYOrder_Main_MD MD where MD.MDID=A.DiaoYongMDID))'); + sql.Add(' ,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); +end; + +procedure TfrmOrderInPutPrice.ToolButton10Click(Sender: TObject); +var + i:Integer; + FName:String; +begin + + if CDS_JGLC.IsEmpty then + begin + Application.MessageBox('ӹ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(CDS_JGLC.fieldbyname('PSID').AsString)='' then + begin + Application.MessageBox('Ϣδ!','ʾ',0); + Exit; + end; + if CDS_JGC.IsEmpty then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where A.PSID='''+Trim(CDS_JGLC.fieldbyname('PSID').AsString)+''''); + SQL.Add(' and isnull(A.CKName,'''')<>''ڲֿ'' '); + Open; + end; + SCreateCDS20(ADOQuery1,CDS_JGC); + SInitCDSData20(ADOQuery1,CDS_JGC); + end; + try + frmOrderSubSel:=TfrmOrderSubSel.Create(Application); + with frmOrderSubSel do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + ClientDataSet1.DisableControls; + with frmOrderSubSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + Self.CDS_JGC.Append; + Self.CDS_JGC.FieldByName('SubId').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('SubId').Value; + for i:=0 to frmOrderSubSel.Tv3.ColumnCount-1 do + begin + FName:=frmOrderSubSel.Tv3.Columns[i].DataBinding.FilterFieldName; + Self.CDS_JGC.FieldByName(FName).Value:=frmOrderSubSel.ClientDataSet1.FieldByName(FName).Value; + + end; + Self.CDS_JGC.FieldByName('FactoryNo').Value:=frmOrderSubSel.ClientDataSet1.FieldByName('FactoryNo').Value; + Self.CDS_JGC.Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + end; + finally + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton11Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv3,CDS_JGC); +end; + +procedure TfrmOrderInPutPrice.cxGridDBColumn3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with CDS_JGC do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton5Click(Sender: TObject); +begin + if CDS_JGC.IsEmpty then Exit; + if Trim(CDS_JGC.fieldbyname('PFId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_PCS_Sub where PFId='''+Trim(CDS_JGC.fieldbyname('PFId').AsString)+''''); + ExecSQL; + end; + end; + CDS_JGC.Delete; +end; + +procedure TfrmOrderInPutPrice.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FMF,FKZ:string; +begin + {mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_JGLC do + begin + Edit; + FieldByName(FName).Value:=Trim(mvalue); + Post; + end; + FMF:=Trim(CDS_JGLC.fieldbyname('MFQty').AsString); + FKZ:=Trim(CDS_JGLC.fieldbyname('KZQty').AsString); + if Trim(FMF)='' then Exit; + if Trim(FKZ)='' then Exit; + if StrToFloat(FMF)=0 then Exit; + if StrToFloat(FKZ)=0 then Exit; + with CDS_JGLC do + begin + Edit; + FieldByName('KgZM').Value:=100000*1.0000/(StrToFloat(FMF)*StrToFloat(FKZ)); + Post; + end;} +end; + +procedure TfrmOrderInPutPrice.ToolButton12Click(Sender: TObject); +var + fsj:string; +begin + if CDS_JGLC.IsEmpty then Exit; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + + try + frmTJCKKC:=TfrmTJCKKC.Create(Application); + with frmTJCKKC do + begin + FFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + fsj:='99'; + DataType:=Trim(frmTJCKKC.ComboBox1.Text); + FDataType:=Trim(FST); + with frmTJCKKC.Order_Sub do + begin + with Self.ClientDataSet5 do + begin + Append; + FieldByName('FactoryName').Value:=frmTJCKKC.Order_Sub.fieldbyname('ToFactoryName').Value; + FieldByName('PFTPUnit').Value:=frmTJCKKC.Order_Sub.fieldbyname('QtyUnit').Value; + FieldByName('OrderNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('OrderNo').Value; + FieldByName('BatchNo').Value:=frmTJCKKC.Order_Sub.fieldbyname('BatchNo').Value; + FieldByName('CPName').Value:=frmTJCKKC.Order_Sub.fieldbyname('ConName').Value; + FieldByName('DiaoYongMDID').Value:=frmTJCKKC.Order_Sub.fieldbyname('MDID').Value; + FieldByName('PFTPPS').Value:=frmTJCKKC.DRPS.Text; + FieldByName('PFTPQty').Value:=frmTJCKKC.DRQty.Text; + FieldByName('DataType').Value:=frmTJCKKC.ComboBox1.Text; + if DataType='Χ' then + begin + FieldByName('DiaoYongCKPS').Value:=frmTJCKKC.DRPS.Text; + FieldByName('DiaoYongCKQty').Value:=frmTJCKKC.DRQty.Text; + end; + Post; + end; + end; + end; + end; + finally + frmTJCKKC.Free; + end; +end; + +procedure TfrmOrderInPutPrice.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + PFID,FPFID,Fsj:String; +begin + {if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + Tv5.OptionsSelection.CellSelect:=False; + end else + begin + Tv5.OptionsSelection.CellSelect:=True; + end; + end; } + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,C.OrderNo,D.C_Code,D.C_CodeName,B.FactoryName,B.RKQtyUnit from JYOrder_Main_MD_Out A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDId=B.MDId'); + sql.Add(' inner join JYOrder_Main C on B.OrdMainId=C.MainId'); + sql.Add(' left join Contract_Sub D on B.ConSubId=D.SubId'); + sql.Add('where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + +end; + +procedure TfrmOrderInPutPrice.cxGridDBColumn1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; + { try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; } +end; + +procedure TfrmOrderInPutPrice.ToolButton9Click(Sender: TObject); +var + maxno,maxsubno,Fstr:string; +begin + if ClientDataSet5.IsEmpty then Exit; + ToolBar1.SetFocus; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('FactoryName',Null,[]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('XDFactoryName',Null,[]) then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('XDFactoryName',Null,[]) then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('PFTPPS',Null,[]) then + begin + Application.MessageBox('ƻƥΪ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('PFTPQty',Null,[]) then + begin + Application.MessageBox('ƻΪ!','ʾ',0); + Exit; + end; + ClientDataSet5.DisableControls; + with ClientDataSet5 do + begin + First; + while not Eof do + begin + Fstr:=Copy(Trim(CDS_JGLC.fieldbyname('PSName').AsString),1,2); + if (Fstr<>'') and (Fstr<>'ɴ') then + begin + if Trim(ClientDataSet5.fieldbyname('SubId').AsString)='' then + begin + Application.MessageBox('ɫ߻ͺŲΪ!','ʾ',0); + Exit; + end; + + end; + Next; + end; + end; + ClientDataSet5.EnableControls; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOCmd.Connection.BeginTrans; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PF','JYOrder_PCS_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ̼ӹˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet5.fieldbyname('PFID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('MainID').Value:=Trim(FMainId); + FieldByName('PSID').Value:=Trim(CDS_JGLC.fieldbyname('PSID').AsString); + FieldByName('PFID').Value:=Trim(maxno); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('XDFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('PFDlyDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value; + FieldByName('SubId').Value:=ClientDataSet5.fieldbyname('SubId').Value; + FieldByName('DiaoYongMDID').Value:=ClientDataSet5.fieldbyname('DiaoYongMDID').Value; + FieldByName('DataType').Value:=ClientDataSet5.fieldbyname('DataType').Value; + RTSetSaveDataCDS(ADOCmd,Tv5,ClientDataSet5,'JYOrder_PCS_Sub',0); + FieldByName('CKName').Value:='ڲֿ'; + Post; + end; + if Trim(ClientDataSet5.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set PFTPMQty=PFTPQty'); + sql.Add(' where PFID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + with ClientDataSet5 do + begin + Edit; + FieldByName('PFID').Value:=Trim(maxno); + Post; + end; + if Trim(DataType)='Χ' then + begin + SaveMDData(FMainId,Trim(ClientDataSet5.fieldbyname('SubId').AsString), + Trim(CDS_JGLC.fieldbyname('PSID').AsString),Trim(maxno)); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select isnull(Sum(isnull(DiaoYongCKPS,0)),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select isnull(Sum(isnull(DiaoYongCKQty,0)),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + + + ADOCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + Exit; + end; +end; +function TfrmOrderInPutPrice.SaveMDData(FOrdMainId,FOrdSubId,FPSID,FPFID:string):Boolean; +var + maxno,MDID:string; + BDInt,CPInt,JYInt:Integer; +begin + Result:=False; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(FPFID)+''''); + sql.Add(' and MDType=''Χ'' '); + open; + end; + if ADOTemp.IsEmpty=False then + begin + MDID:=Trim(ADOTemp.fieldbyname('MDID').AsString); + end else + begin + MDID:=''; + end; + if Trim(MDID)='' then + begin + if GetLSNo(ADOCmd,maxno,'','JYOrder_Main_MD',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡ뵥ˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MDID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(MDID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(MDID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FOrdMainId); + FieldByName('OrdSubId').Value:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + FieldByName('PSID').Value:=Trim(FPSID); + FieldByName('PFID').Value:=Trim(FPFID); + FieldByName('MDType').Value:=Trim(DataType); + FieldByName('MDNO').Value:='DC'+Trim(maxno); + FieldByName('FactoryName').Value:=Trim(ClientDataSet5.fieldbyname('FactoryName').AsString); + FieldByName('FromFactoryName').Value:=Trim(ClientDataSet5.fieldbyname('XDFactoryName').AsString); + FieldByName('PS').Value:=ClientDataSet5.fieldbyname('PFTPPS').Value; + FieldByName('Qty').Value:=ClientDataSet5.fieldbyname('PFTPQty').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('PFTPUnit').Value; + FieldByName('PSName').Value:=CDS_JGLC.fieldbyname('PSName').Value; + if Trim(ClientDataSet5.fieldbyname('PFDlyDate').AsString)<>'' then + FieldByName('MDDate').Value:=ClientDataSet5.fieldbyname('PFDlyDate').Value + else + FieldByName('MDDate').Value:=SGetServerDateTime(ADOQuery1); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set DiaoYongCKPS=(select isnull(Sum(PS),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(',DiaoYongCKQty=(select isnull(Sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID )'); + sql.Add(' where PFID='''+Trim(FPFID)+''''); + ExecSQL; + end; + if Trim(ClientDataSet5.fieldbyname('BatchNo').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add('ConName=(select ConName from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConSpec=(select ConSpec from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConCF=(select ConCF from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConMF=(select ConMF from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + sql.Add(',ConKZ=(select ConKZ from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + //sql.Add('ConPrice=(select ConName from JYOrder_Main_MD A where A.MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''')'); + SQL.Add(' where MDID='''+Trim(maxno)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add('ConName=(select Top 1 SPName from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConSpec=(select Top 1 SPSpec from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConCF=(select Top 1 SPCF from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConMF=(select Top 1 SPMF from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConKZ=(select Top 1 SPKZ from CK_SXPB_CR A where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''')'); + sql.Add(',ConPrice=(select Top 1 CostPrice from CK_SXPB_CR A '); + sql.Add(' where A.BatchNO='''+Trim(ClientDataSet5.fieldbyname('BatchNO').AsString)+''' order by CRTime desc)'); + SQL.Add(' where MDID='''+Trim(maxno)+''''); + ExecSQL; + end; + end; + Result:=True; + +end; +function TfrmOrderInPutPrice.UpdateTJCKQty(FFPFID:string):Boolean; +var + FAPQty,FMDQty,FPS,FQty:Double; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Result:=True; + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select distinct(MDID) MDID from JYOrder_Main_MD_Out where PFID='''+Trim(FFPFID)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet9); + SInitCDSData20(ADOQueryTemp,ClientDataSet9); + with ClientDataSet9 do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(SJCKQty),0) Qty from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FAPQty:=ADOTemp.fieldbyname('Qty').Value; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select RKQty from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet9.fieldbyname('MDID').AsString)+''''); + Open; + end; + FMDQty:=ADOTemp.fieldbyname('RKQty').Value; + if FMDQty''ڲֿ'' ),'); + sql.Add('SJCKQty=(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_Main_MD_Out.PFID and isnull(A.CKName,'''')<>''ڲֿ'' )'); + sql.Add(' where PFID='''+Trim(FFPFID)+''''); + ExecSQL; + end; + //ʵʳƥ + //ԭʼTJ뵥ijƥ + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(FMDID)+''''); + ExecSQL; + end; + //ԭʼTJ뵥ijƥ + Result:=True; +end; + +procedure TfrmOrderInPutPrice.FormCreate(Sender: TObject); +begin + CanShu1:=Trim(DParameters1); + +end; + +procedure TfrmOrderInPutPrice.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(ClientDataSet6.fieldbyname('CKID').AsString)<>'' then + begin + Tv6.OptionsSelection.CellSelect:=False; + end; + end; } +end; + +procedure TfrmOrderInPutPrice.Tv5CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet5.IsEmpty then Exit; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)='' then + begin + ClientDataSet5.Delete; + end; +end; + +procedure TfrmOrderInPutPrice.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmLabelList:=TfrmLabelList.Create(Application); + with frmLabelList do + begin + SLBName:=Trim(Order_Sub.fieldbyname('SLBName').AsString); + if Self.JYInt=99 then + begin + frmLabelList.Tadd.Visible:=False; + frmLabelList.Tupd.Visible:=False; + frmLabelList.TOK.Visible:=False; + frmLabelList.Tdel.Visible:=False; + end; + if ShowModal=1 then + begin + + with Self.Order_Sub do + begin + Edit; + FieldByName('SLBName').Value:=Trim(LBName); + end; + end; + end; + finally + frmLabelList.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ComTaiTouBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.LiDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='LiDanPerson'; + flagname:='ҵ'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + LiDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.v3Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + with CDS_JGC do + begin + Edit; + FieldByName('PFGenDanPerson').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrderInPutPrice.v3Column2PropertiesEditValueChanged( + Sender: TObject); +var + FReal:Double; + mvalue:string; +begin + {if Trim(ClothOneQty.Text)<>'' then + begin + if TryStrToFloat(Trim(ClothOneQty.Text),FReal)=False then + begin + Application.MessageBox('ÿƥǷ!','ʾ',0); + Exit; + end; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_JGC do + begin + Edit; + FieldByName('PFTPPS').Value:=mvalue; + FieldByName('PFTPQty').Value:=StrToFloat(mvalue)*StrToFloat(ClothOneQty.Text); + Post; + end;} +end; + +procedure TfrmOrderInPutPrice.cxGridDBColumn32PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,JFPrice,JFQty:string; +begin + +end; + + + + + +procedure TfrmOrderInPutPrice.ToolButton18Click(Sender: TObject); +begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if not Assigned(DataLink_DDMD) then + DataLink_DDMD:=TDataLink_DDMD.Create(Application); + Try + with DataLink_DDMD.ADOLink do + begin + //if not Connected then + begin + Connected:=false; + ConnectionString:=DConString; + LoginPrompt:=false; + Connected:=true; + end; + end; + Except + application.MessageBox('ݿʧܣ','',mb_Ok+ MB_ICONERROR); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Sub'' '); + sql.Add('UPdate SY_MaxBH Set BHNo=BHNo+1 where BHType=''JYOrder_Main'' '); + ExecSQL; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton19Click(Sender: TObject); +begin + if ClientDataSet5.IsEmpty then Exit; + if FJSFlag=True then + begin + Application.MessageBox('᲻ܲ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add(' and (isnull(ConSubId,'''')<>'''' '); + sql.Add(' or MDNO like ''MD%'') '); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('Ѵɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD '); + sql.Add(' where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add(' and isnull(MDType,'''')=''ʵ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + sql.Add('delete JYOrder_PCS_Sub where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main_MD Set CKPS=(select isnull(Sum(isnull(DiaoYongCKPS,0)),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select isnull(Sum(isnull(DiaoYongCKQty,0)),0) from JYOrder_PCS_Sub A where isnull(A.DiaoYongMDID,'''')=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet5.fieldbyname('DiaoYongMDID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet5.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + Exit; + end; + + end else + begin + ClientDataSet5.Delete; + end; + +end; + +procedure TfrmOrderInPutPrice.v5Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + FSubId,FFSubId:String; +begin + FSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + if Trim(FSubId)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' inner join JYOrder_PCS_Sub C on B.PFID=C.PFID'); + sql.Add(' where C.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + if Trim(CanShu1)<>'Ȩ' then + begin + Application.MessageBox('дݲܸɫ!','ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_FH where SubId='''+Trim(FSubId)+''''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('з¼ܸɫ!','ʾ',0); + Exit; + end; + end; + + end; + try + frmOrderSubSelMX:=TfrmOrderSubSelMX.Create(Application); + with frmOrderSubSelMX do + begin + FFFMainId:=Trim(Self.FMainId); + if ShowModal=1 then + begin + with Self.ClientDataSet5 do + begin + Edit; + FieldByName('SubId').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTColor').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTColor').AsString+' '+ + frmOrderSubSelMX.Order_Sub.fieldbyname('PRTColorNo').AsString; + FieldByName('PRTHX').Value:=frmOrderSubSelMX.Order_Sub.fieldbyname('PRTHX').Value; + //Post; + end; + end; + end; + finally + frmOrderSubSelMX.Free; + end; + if Trim(ClientDataSet5.fieldbyname('PFID').AsString)<>'' then + begin + FFSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + if Trim(FSubId)<>Trim(FFSubId) then + begin + if Trim(CanShu1)='Ȩ' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_PCS_Sub Set SubId='''+Trim(FFSubId)+''''); + sql.Add(' where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set ORDSubId='''+Trim(FFSubId)+''''); + sql.Add(' where PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set SubId='''+Trim(FFSubId)+''''); + sql.Add(' where APID in(select MDID from JYOrder_Main_MD A'); + sql.Add(' where A.PFID='''+Trim(ClientDataSet5.fieldbyname('PFID').AsString)+''')'); + ExecSQL; + end; + end; + + end; + end; + +end; + +procedure TfrmOrderInPutPrice.ToolButton20Click(Sender: TObject); +begin + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='WFBCD'; + flagname:='õ'; + fnote:=True; + V1Note.Caption:='Ӣ'; + if ShowModal=1 then + begin + with frmZDYHelpSel.ClientDataSet1 do + begin + First; + while not Eof do + begin + if frmZDYHelpSel.ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + with ClientDataSet8 do + begin + Append; + FieldByName('ZDYCODE').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZDYNo').AsString); + FieldByName('ZdyName').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('ZdyNameEng').Value:=Trim(frmZDYHelpSel.ClientDataSet1.fieldbyname('Note').AsString); + Post; + end; + end; + Next; + end; + end; + + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton21Click(Sender: TObject); +begin + if ClientDataSet8.IsEmpty then Exit; + if Trim(ClientDataSet8.fieldbyname('JCID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_CD where JCID='''+Trim(ClientDataSet8.fieldbyname('JCID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet8.Delete; +end; + +procedure TfrmOrderInPutPrice.v5Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + edit; + FieldByName('XDFactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('XDFactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmOrderInPutPrice.ToolButton23Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + begin + Application.MessageBox('δ治Ԥǩ!','ʾ',0); + Exit; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable_View :SubId,:ZSUnit,:DuoPinNote'); + Parameters.ParamByName('SubId').Value:=Trim(Order_Sub.fieldbyname('SubId').AsString); + Parameters.ParamByName('ZSUnit').Value:=''; + Parameters.ParamByName('DuoPinNote').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if Trim(Order_Sub.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Sub.fieldbyname('SLBName').AsString) + else + Exit; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + //RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; +end; + + +procedure TfrmOrderInPutPrice.ConNoDblClick(Sender: TObject); +begin + {try + frmContractSelList:=TfrmContractSelList.Create(Application); + with frmContractSelList do + begin + if ShowModal=1 then + begin + Self.ConNo.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('ConNO').AsString); + Self.ConSubId:=Trim(frmContractSelList.Order_Main.fieldbyname('SubId').AsString); + Self.ConPrice:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTPrice').AsString); + if frmContractSelList.CheckBox1.Checked=True then + begin + Self.CustomerNoName.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('CustomerNoName').AsString); + Self.CustomerNoName.TxtCode:=Trim(frmContractSelList.Order_Main.fieldbyname('CustomerNo').AsString); + Self.ComTaiTou.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('SYRName').AsString); + Self.MPRTCode.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTCode').AsString); + Self.MPRTGY.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTGY').AsString); + Self.MPRTCodeName.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTCodeName').AsString); + Self.MPRTCF.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTCF').AsString); + Self.MPRTMF.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTMF').AsString); + Self.MPRTKZ.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTKZ').AsString); + Self.MPRTGYHZ.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTGYHZ').AsString); + Self.MPRTSpec.Text:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTSpec').AsString); + end; + end; + end; + finally + frmContractSelList.Free; + end; } +end; + +procedure TfrmOrderInPutPrice.OrderNoChange(Sender: TObject); +begin + Label33.Caption:=Trim(OrderNo.Text)+' '+Trim(MPRTCodeName.Text); +end; + +procedure TfrmOrderInPutPrice.MPRTCodeNameChange(Sender: TObject); +begin + Label33.Caption:=Trim(OrderNo.Text)+' '+Trim(MPRTCodeName.Text); +end; + +procedure TfrmOrderInPutPrice.cxPageControl1Change(Sender: TObject); +begin + Label33.Caption:=Trim(OrderNo.Text)+' '+Trim(MPRTCodeName.Text); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.dfm new file mode 100644 index 0000000..6b045f7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.dfm @@ -0,0 +1,1860 @@ +object frmOrderJDList: TfrmOrderJDList + Left = 72 + Top = 18 + Width = 1366 + Height = 716 + Caption = #35746#21333#36827#24230#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1350 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686#35746#21333 + ImageIndex = 1 + OnClick = TBAddClick + end + object Edit1: TEdit + Tag = 2 + Left = 213 + Top = 0 + Width = 132 + Height = 30 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object ToolButton3: TToolButton + Left = 345 + Top = 0 + Caption = #22797#21046#35746#21333 + ImageIndex = 25 + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 428 + Top = 0 + AutoSize = True + Caption = #21024#38500#35746#21333 + ImageIndex = 3 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 515 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 578 + Top = 0 + AutoSize = True + Caption = #29366#24577#26356#25913 + ImageIndex = 37 + OnClick = ToolButton2Click + end + object ComboBox1: TComboBox + Left = 665 + Top = 5 + Width = 126 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + #29983#20135#20013 + #23436#32467 + #20923#32467) + end + object ToolButton5: TToolButton + Left = 791 + Top = 0 + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 874 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1350 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 11 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 272 + Top = 11 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 405 + Top = 11 + Width = 40 + Height = 12 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 535 + Top = 11 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 143 + Top = 11 + Width = 49 + Height = 12 + Caption = '-------' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 676 + Top = 11 + Width = 39 + Height = 12 + Caption = #29702#21333#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 860 + Top = 11 + Width = 39 + Height = 12 + Caption = #30331#35760#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 7 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 174 + Top = 7 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 313 + Top = 7 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 446 + Top = 7 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCode: TEdit + Tag = 2 + Left = 588 + Top = 7 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object LiDanPerson: TComboBox + Tag = 1 + Left = 715 + Top = 7 + Width = 113 + Height = 20 + ItemHeight = 12 + TabOrder = 5 + OnChange = OrderNoChange + end + object Filler: TComboBox + Tag = 1 + Left = 899 + Top = 7 + Width = 113 + Height = 20 + ItemHeight = 12 + TabOrder = 6 + OnChange = OrderNoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 67 + Width = 1350 + Height = 25 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #29983#20135#20013 + #23436#32467 + #20923#32467 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 25 + ClientRectRight = 1350 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 92 + Width = 1350 + Height = 200 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35746#21333 + Width = 694 + end + item + Caption = #29702#21333 + Width = 311 + end + item + Caption = #21407#26448#26009 + Width = 368 + end + item + Caption = #21152#24037 + Width = 343 + end + item + Caption = #20179#24211 + Width = 414 + end + item + Caption = #20986#36135 + Width = 284 + end + item + Caption = #29366#24577 + Width = 53 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 127 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 139 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 61 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'DlyNote' + Options.Moving = False + Width = 152 + Position.BandIndex = 1 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #21551#21160#26085#26399 + DataBinding.FieldName = 'YCLBegDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 66 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #32467#26463#26085#26399 + DataBinding.FieldName = 'YCLEndDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 65 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column7: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'YCLNote' + Options.Moving = False + Width = 237 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Caption = #21551#21160#26085#26399 + DataBinding.FieldName = 'JGBegDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 63 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column9: TcxGridDBBandedColumn + Caption = #32467#26463#26085#26399 + DataBinding.FieldName = 'JGEndDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 66 + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column10: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'JGNote' + Options.Moving = False + Width = 214 + Position.BandIndex = 3 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column11: TcxGridDBBandedColumn + Caption = #21551#21160#26085#26399 + DataBinding.FieldName = 'CKBegDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 69 + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column12: TcxGridDBBandedColumn + Caption = #32467#26463#26085#26399 + DataBinding.FieldName = 'CKEndDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 76 + Position.BandIndex = 4 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column13: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CKNote' + Options.Moving = False + Width = 269 + Position.BandIndex = 4 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column14: TcxGridDBBandedColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OutNote' + Options.Moving = False + Width = 210 + Position.BandIndex = 5 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column15: TcxGridDBBandedColumn + Caption = #20986#36135#26085#26399 + DataBinding.FieldName = 'OutDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 74 + Position.BandIndex = 5 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column16: TcxGridDBBandedColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Width = 43 + Position.BandIndex = 6 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column17: TcxGridDBBandedColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column18: TcxGridDBBandedColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column19: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 107 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column20: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 113 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column21: TcxGridDBBandedColumn + Caption = #39044#35745#20986#36135#26102#38388 + DataBinding.FieldName = 'CHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ReadOnly = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 98 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v1Column22: TcxGridDBBandedColumn + Caption = #33337#26399 + DataBinding.FieldName = 'ChuanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ReadOnly = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 110 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 300 + Width = 1350 + Height = 377 + Align = alBottom + TabOrder = 4 + object ScrollBox2: TScrollBox + Left = 0 + Top = 0 + Width = 1346 + Height = 45 + Align = alTop + TabOrder = 0 + object cxGrid2: TcxGrid + Left = 57 + Top = 0 + Width = 1285 + Height = 41 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn2 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2LiDanPerson: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'LiDanPerson' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 77 + end + object v2Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 73 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133'(CM)' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column1: TcxGridDBColumn + Caption = 'HS'#32534#30721 + DataBinding.FieldName = 'HSCode' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column2: TcxGridDBColumn + Caption = #24320#31080#21517#31216 + DataBinding.FieldName = 'KPName' + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v2Column3: TcxGridDBColumn + Caption = #31665#22411 + DataBinding.FieldName = 'BoxType' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'ORDQty' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object V2QtyUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column5: TcxGridDBColumn + Caption = #39044#35745#20986#36135#26102#38388 + DataBinding.FieldName = 'CHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column6: TcxGridDBColumn + Caption = #33337#26399 + DataBinding.FieldName = 'ChuanDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 78 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 57 + Height = 41 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + Visible = False + object Button1: TButton + Left = 4 + Top = 7 + Width = 49 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button1Click + end + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 45 + Width = 1346 + Height = 328 + Align = alClient + TabOrder = 1 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 257 + Height = 307 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 253 + Height = 111 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label5: TLabel + Left = 7 + Top = 4 + Width = 30 + Height = 14 + Caption = #29702#21333 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 47 + Top = 5 + Width = 48 + Height = 12 + Caption = #20132#36135#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 223 + Top = 27 + Width = 24 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 101 + Top = 1 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object DlyNote: TRichEdit + Left = 47 + Top = 40 + Width = 202 + Height = 65 + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object Panel4: TPanel + Left = -1 + Top = 31 + Width = 46 + Height = 78 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button2: TButton + Left = 4 + Top = 1 + Width = 37 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 25 + Width = 37 + Height = 25 + Caption = #22686#34892 + TabOrder = 1 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 49 + Width = 37 + Height = 25 + Caption = #21024#34892 + TabOrder = 2 + OnClick = Button4Click + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 111 + Width = 253 + Height = 192 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + OnDblClick = Tv3DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 79 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 157 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + end + object ScrollBox5: TScrollBox + Left = 265 + Top = 0 + Width = 264 + Height = 307 + Align = alLeft + TabOrder = 1 + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 260 + Height = 111 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 45 + Height = 14 + Caption = #21407#26448#26009 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 56 + Top = 5 + Width = 48 + Height = 12 + Caption = #21551#21160#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 233 + Top = 27 + Width = 24 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 56 + Top = 25 + Width = 48 + Height = 12 + Caption = #32467#26463#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object YCLBegDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 1 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object YCLNote: TRichEdit + Left = 56 + Top = 40 + Width = 202 + Height = 65 + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object Panel6: TPanel + Left = 6 + Top = 31 + Width = 46 + Height = 78 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button5: TButton + Left = 4 + Top = 1 + Width = 37 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 25 + Width = 37 + Height = 25 + Caption = #22686#34892 + TabOrder = 1 + OnClick = Button6Click + end + object Button7: TButton + Left = 4 + Top = 49 + Width = 37 + Height = 25 + Caption = #21024#34892 + TabOrder = 2 + OnClick = Button7Click + end + end + object YCLEndDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 21 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 3 + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 111 + Width = 260 + Height = 192 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBTableView + OnDblClick = Tv4DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource4 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn6: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 99 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 129 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv4 + end + end + end + object ScrollBox6: TScrollBox + Left = 537 + Top = 0 + Width = 265 + Height = 307 + Align = alLeft + TabOrder = 2 + object Panel7: TPanel + Left = 0 + Top = 0 + Width = 261 + Height = 111 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 14 + Top = 4 + Width = 30 + Height = 14 + Caption = #21152#24037 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 56 + Top = 5 + Width = 48 + Height = 12 + Caption = #21551#21160#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 234 + Top = 27 + Width = 24 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label16: TLabel + Left = 56 + Top = 25 + Width = 48 + Height = 12 + Caption = #32467#26463#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object JGBegDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 1 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object JGNote: TRichEdit + Left = 56 + Top = 40 + Width = 202 + Height = 65 + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object Panel8: TPanel + Left = 6 + Top = 31 + Width = 46 + Height = 78 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button8: TButton + Left = 4 + Top = 1 + Width = 37 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button8Click + end + object Button9: TButton + Left = 4 + Top = 25 + Width = 37 + Height = 25 + Caption = #22686#34892 + TabOrder = 1 + OnClick = Button9Click + end + object Button10: TButton + Left = 4 + Top = 49 + Width = 37 + Height = 25 + Caption = #21024#34892 + TabOrder = 2 + OnClick = Button10Click + end + end + object JGEndDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 21 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 3 + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 111 + Width = 261 + Height = 192 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBTableView + OnDblClick = Tv5DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 153 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + end + object ScrollBox7: TScrollBox + Left = 810 + Top = 0 + Width = 264 + Height = 307 + Align = alLeft + TabOrder = 3 + object Panel9: TPanel + Left = 0 + Top = 0 + Width = 260 + Height = 111 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label17: TLabel + Left = 14 + Top = 4 + Width = 30 + Height = 14 + Caption = #20179#24211 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 56 + Top = 5 + Width = 48 + Height = 12 + Caption = #21551#21160#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label19: TLabel + Left = 233 + Top = 27 + Width = 24 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 56 + Top = 25 + Width = 48 + Height = 12 + Caption = #32467#26463#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object CKBegDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 1 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object CKNote: TRichEdit + Left = 56 + Top = 40 + Width = 202 + Height = 65 + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object Panel10: TPanel + Left = 6 + Top = 31 + Width = 46 + Height = 78 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button11: TButton + Left = 4 + Top = 1 + Width = 37 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button11Click + end + object Button12: TButton + Left = 4 + Top = 25 + Width = 37 + Height = 25 + Caption = #22686#34892 + TabOrder = 1 + OnClick = Button12Click + end + object Button13: TButton + Left = 4 + Top = 49 + Width = 37 + Height = 25 + Caption = #21024#34892 + TabOrder = 2 + OnClick = Button13Click + end + end + object CKEndDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 21 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 3 + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 111 + Width = 260 + Height = 192 + Align = alClient + TabOrder = 1 + object Tv6: TcxGridDBTableView + OnDblClick = Tv6DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn10: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 99 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 169 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv6 + end + end + end + object ScrollBox8: TScrollBox + Left = 1082 + Top = 0 + Width = 258 + Height = 307 + Align = alLeft + TabOrder = 4 + object Panel11: TPanel + Left = 0 + Top = 0 + Width = 254 + Height = 111 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label21: TLabel + Left = 14 + Top = 4 + Width = 30 + Height = 14 + Caption = #20986#36135 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 56 + Top = 5 + Width = 48 + Height = 12 + Caption = #20986#36135#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 226 + Top = 27 + Width = 24 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object OutDate: TDateTimePicker + Tag = 2 + Left = 109 + Top = 1 + Width = 105 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object OutNote: TRichEdit + Left = 56 + Top = 40 + Width = 192 + Height = 65 + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 1 + end + object Panel12: TPanel + Left = 6 + Top = 31 + Width = 46 + Height = 78 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + Visible = False + object Button14: TButton + Left = 4 + Top = 1 + Width = 37 + Height = 25 + Caption = #20445#23384 + TabOrder = 0 + OnClick = Button14Click + end + object Button15: TButton + Left = 4 + Top = 25 + Width = 37 + Height = 25 + Caption = #22686#34892 + TabOrder = 1 + OnClick = Button15Click + end + object Button16: TButton + Left = 4 + Top = 49 + Width = 37 + Height = 25 + Caption = #21024#34892 + TabOrder = 2 + OnClick = Button16Click + end + end + end + object cxGrid7: TcxGrid + Left = 0 + Top = 111 + Width = 254 + Height = 192 + Align = alClient + TabOrder = 1 + object Tv7: TcxGridDBTableView + OnDblClick = Tv7DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource7 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn12: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 99 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 183 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv7 + end + end + end + object cxSplitter2: TcxSplitter + Left = 257 + Top = 0 + Width = 8 + Height = 307 + Hint = #21487#31227#21160#65292#21487#38544#34255 + HotZoneClassName = 'TcxMediaPlayer9Style' + AutoPosition = False + Control = ScrollBox4 + end + object cxSplitter3: TcxSplitter + Left = 529 + Top = 0 + Width = 8 + Height = 307 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox5 + end + object cxSplitter4: TcxSplitter + Left = 802 + Top = 0 + Width = 8 + Height = 307 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox6 + end + object cxSplitter5: TcxSplitter + Left = 1074 + Top = 0 + Width = 8 + Height = 307 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox7 + end + object cxSplitter6: TcxSplitter + Left = 1340 + Top = 0 + Width = 8 + Height = 307 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = ScrollBox8 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 292 + Width = 1350 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = ScrollBox1 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 744 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 992 + Top = 288 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 144 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 352 + Top = 144 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 280 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 488 + Top = 280 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 80 + Top = 488 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 112 + Top = 488 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 352 + Top = 480 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 480 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 632 + Top = 480 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 664 + Top = 480 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 904 + Top = 496 + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 496 + end + object DataSource7: TDataSource + DataSet = ClientDataSet7 + Left = 1200 + Top = 488 + end + object ClientDataSet7: TClientDataSet + Aggregates = <> + Params = <> + Left = 1232 + Top = 488 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 472 + Top = 160 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 440 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 504 + Top = 160 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 160 + Top = 496 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 432 + Top = 488 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 712 + Top = 488 + end + object cxGridPopupMenu6: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 992 + Top = 504 + end + object cxGridPopupMenu7: TcxGridPopupMenu + Grid = cxGrid7 + PopupMenus = <> + Left = 1096 + Top = 504 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.pas new file mode 100644 index 0000000..301abf0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJDList.pas @@ -0,0 +1,1225 @@ +unit U_OrderJDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridCustomTableView, cxGridTableView, cxGridBandedTableView, + cxGridDBBandedTableView, cxControls, cxGridCustomView, + cxGridCustomPopupMenu, cxGridPopupMenu, cxClasses, cxGridLevel, cxGrid, + cxPC, cxSplitter, cxGridDBTableView, DBClient, ADODB, cxCalendar, + cxDropDownEdit; + +type + TfrmOrderJDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label4: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + CustomerNoName: TEdit; + Label8: TLabel; + MPRTCode: TEdit; + Label2: TLabel; + cxTabControl1: TcxTabControl; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column4: TcxGridDBBandedColumn; + v1Column5: TcxGridDBBandedColumn; + v1Column6: TcxGridDBBandedColumn; + v1Column7: TcxGridDBBandedColumn; + v1Column8: TcxGridDBBandedColumn; + v1Column9: TcxGridDBBandedColumn; + v1Column10: TcxGridDBBandedColumn; + v1Column11: TcxGridDBBandedColumn; + v1Column12: TcxGridDBBandedColumn; + v1Column13: TcxGridDBBandedColumn; + v1Column14: TcxGridDBBandedColumn; + v1Column15: TcxGridDBBandedColumn; + v1Column16: TcxGridDBBandedColumn; + ScrollBox1: TScrollBox; + cxSplitter1: TcxSplitter; + cxGridPopupMenu2: TcxGridPopupMenu; + ScrollBox2: TScrollBox; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + V2QtyUnit: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel2: TPanel; + Button1: TButton; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + Panel3: TPanel; + Label5: TLabel; + Label6: TLabel; + DlyDate: TDateTimePicker; + Label7: TLabel; + DlyNote: TRichEdit; + Panel4: TPanel; + Button2: TButton; + Button3: TButton; + Button4: TButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ScrollBox5: TScrollBox; + Panel5: TPanel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + YCLBegDate: TDateTimePicker; + YCLNote: TRichEdit; + Panel6: TPanel; + Button5: TButton; + Button6: TButton; + Button7: TButton; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Label12: TLabel; + YCLEndDate: TDateTimePicker; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + Label14: TLabel; + Label15: TLabel; + Label16: TLabel; + JGBegDate: TDateTimePicker; + JGNote: TRichEdit; + Panel8: TPanel; + Button8: TButton; + Button9: TButton; + Button10: TButton; + JGEndDate: TDateTimePicker; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ScrollBox7: TScrollBox; + Panel9: TPanel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + CKBegDate: TDateTimePicker; + CKNote: TRichEdit; + Panel10: TPanel; + Button11: TButton; + Button12: TButton; + Button13: TButton; + CKEndDate: TDateTimePicker; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + ScrollBox8: TScrollBox; + Panel11: TPanel; + Label21: TLabel; + Label22: TLabel; + Label23: TLabel; + OutDate: TDateTimePicker; + OutNote: TRichEdit; + Panel12: TPanel; + Button14: TButton; + Button15: TButton; + Button16: TButton; + cxGrid7: TcxGrid; + Tv7: TcxGridDBTableView; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + Edit1: TEdit; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ComboBox1: TComboBox; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource4: TDataSource; + ClientDataSet4: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource6: TDataSource; + ClientDataSet6: TClientDataSet; + DataSource7: TDataSource; + ClientDataSet7: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGridPopupMenu5: TcxGridPopupMenu; + cxGridPopupMenu6: TcxGridPopupMenu; + cxGridPopupMenu7: TcxGridPopupMenu; + LiDanPerson: TComboBox; + Label24: TLabel; + v1Column17: TcxGridDBBandedColumn; + v2LiDanPerson: TcxGridDBColumn; + v1Column18: TcxGridDBBandedColumn; + Label25: TLabel; + Filler: TComboBox; + ToolButton3: TToolButton; + v2Column4: TcxGridDBColumn; + v1Column19: TcxGridDBBandedColumn; + cxSplitter2: TcxSplitter; + cxSplitter3: TcxSplitter; + cxSplitter4: TcxSplitter; + cxSplitter5: TcxSplitter; + cxSplitter6: TcxSplitter; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + v1Column20: TcxGridDBBandedColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column21: TcxGridDBBandedColumn; + v1Column22: TcxGridDBBandedColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure Button15Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure Button14Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure Button13Click(Sender: TObject); + procedure Button16Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure Tv3DblClick(Sender: TObject); + procedure Tv4DblClick(Sender: TObject); + procedure Tv5DblClick(Sender: TObject); + procedure Tv6DblClick(Sender: TObject); + procedure Tv7DblClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton5Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + canshu1:string; + procedure InitGrid(); + procedure InitATGrid(ClientDataSet87:TClientDataSet;ATTYpe:String); + procedure SaveDateP(Panel87:TPanel;ClientDataSet87:TClientDataSet;FATType:String); + procedure DelData(ClientDataSet87:TClientDataSet); + procedure FInitNote(FFAttyp:string); + public + { Public declarations } + end; + +var + frmOrderJDList: TfrmOrderJDList; + +implementation +uses + U_DataLink,U_RTFun,U_OrderJDNote, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmOrderJDList.FormDestroy(Sender: TObject); +begin + frmOrderJDList:=nil; +end; + +procedure TfrmOrderJDList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderJDList.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('1',Tv1,'ȱ'); + WriteCxGrid('2',Tv2,'ȱ'); + WriteCxGrid('3',Tv3,'ȱ'); + WriteCxGrid('4',Tv4,'ȱ'); + WriteCxGrid('5',Tv5,'ȱ'); + WriteCxGrid('6',Tv6,'ȱ'); + WriteCxGrid('7',Tv7,'ȱ'); + close; + +end; + +procedure TfrmOrderJDList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select isnull(DlyNote10,DlyNote) DlyNote,isnull(YCLNote10,YCLNote) YCLNote,isnull(JGNote10,JGNote) JGNote,'); + sql.Add(' isnull(CKNote10,CKNote) CKNote,isnull(OutNote10,OutNote) OutNote, '); + sql.Add(' AA.* from(select A.*,DlyDate10=isnull(DlyDate,Cast(''2090-01-01'' as Datetime))'); + sql.Add(' ,DlyNote10=(select Top 1 ATNote from JYOrderJD_Main_Att JMA where JMA.MainId=A.MainId and ATType='''' Order by ATDate Desc)'); + sql.Add(' ,YCLNote10=(select Top 1 ATNote from JYOrderJD_Main_Att JMA where JMA.MainId=A.MainId and ATType=''ԭ'' Order by ATDate Desc)'); + sql.Add(' ,JGNote10=(select Top 1 ATNote from JYOrderJD_Main_Att JMA where JMA.MainId=A.MainId and ATType=''ӹ'' Order by ATDate Desc)'); + sql.Add(' ,CKNote10=(select Top 1 ATNote from JYOrderJD_Main_Att JMA where JMA.MainId=A.MainId and ATType=''ֿ'' Order by ATDate Desc)'); + sql.Add(' ,OutNote10=(select Top 1 ATNote from JYOrderJD_Main_Att JMA where JMA.MainId=A.MainId and ATType='''' Order by ATDate Desc)'); + sql.Add(' from JYOrderJD_Main A where A.OrderNO not like ''KC%'' '); + if Trim(DParameters1)='' then + begin + if Trim(ComboBox1.Text)<>'' then + begin + sql.Add(' and isnull(LiDanPerson,'''')='''+Trim(LiDanPerson.Text)+''''); + end; + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''' ); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''' ); + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''' ); + sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''' ); + end; + sql.Add(' ) AA order by DlyDate10'); + + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + end; +end; + +procedure TfrmOrderJDList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + TBFind.Click; +end; + +procedure TfrmOrderJDList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + if Trim(Edit1.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where OrderNo='''+Trim(Edit1.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'JD','JYOrderJD_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӷʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrderJD_Main where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('OrderNo').Value:=Trim(Edit1.Text); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('LiDanPerson').Value:=Trim(DName); + FieldByName('Status').Value:=''; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('ORderNo').Value:=Trim(Edit1.Text); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('LiDanPerson').Value:=Trim(DName); + FieldByName('Status').Value:=''; + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmOrderJDList.Button1Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet1.IsEmpty then Exit; + if ClientDataSet2.IsEmpty then Exit; + if ClientDataSet1.IsEmpty then Exit; + {if Trim(ClientDataSet1.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where DPID=('); + sql.Add('select DPID from SY_User where UserName='''+Trim(DName)+''')'); + sql.Add(' and (UserName='''+Trim(ClientDataSet1.fieldbyname('Filler').AsString)+''''); + sql.Add(' or UserName='''+Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)+''')'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ܲĶ!','',0); + Exit; + end; + {if Trim(canshu1)<>'' then + begin + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + end;} + + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Panel2.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrderJD_Main where MainId='''+Trim(ClientDataSet2.fieldbyname('MainId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrderJD_Main',0); + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCodeName').AsString); + FieldByName('MPRTCode').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCode').AsString); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmOrderJDList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + DlyDate.Checked:=False; + DlyNote.Text:=''; + YCLBegDate.Checked:=False; + YCLEndDate.Checked:=False; + YCLNote.Text:=''; + JGBegDate.Checked:=False; + JGEndDate.Checked:=False; + JGNote.Text:=''; + CKBegDate.Checked:=False; + CKEndDate.Checked:=False; + CKNote.Text:=''; + OutDate.Checked:=False; + OutNote.Text:=''; +end; +procedure TfrmOrderJDList.InitATGrid(ClientDataSet87:TClientDataSet;ATTYpe:String); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main_Att where Mainid='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + sql.Add(' and ATType='''+Trim(ATTYpe)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet87); + SInitCDSData20(ADOQueryTemp,ClientDataSet87); +end; + +procedure TfrmOrderJDList.Button2Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + { if Trim(ClientDataSet1.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; } + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + SaveDateP(Panel3,ClientDataSet3,''); + SaveDateP(Panel11,ClientDataSet7,''); +end; +procedure TfrmOrderJDList.SaveDateP(Panel87:TPanel;ClientDataSet87:TClientDataSet;FATType:String); +var + FATID:string; +begin + + //if ClientDataSet87.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Panel1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrderJD_Main where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrderJD_Main',Panel87,2); + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + ClientDataSet87.DisableControls; + with ClientDataSet87 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet87.fieldbyname('ATID').AsString)<>'' then + begin + FATID:=ClientDataSet87.fieldbyname('ATID').AsString; + end else + begin + if GetLSNo(ADOQueryCmd,FATID,'AT','JYOrderJD_Main_Att',4,1)=False then + begin + ClientDataSet87.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȸ쳣!','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main_Att where ATID='''+Trim(ClientDataSet87.fieldbyname('ATID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet87.fieldbyname('ATID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('ATID').Value:=Trim(FATID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('MainId').AsString); + FieldByName('ATTYpe').Value:=FATType; + FieldByName('ATDate').Value:=ClientDataSet87.fieldbyname('ATDate').Value; + FieldByName('ATNote').Value:=ClientDataSet87.fieldbyname('ATNote').Value; + Post; + end; + ClientDataSet87.Edit; + ClientDataSet87.FieldByName('ATID').Value:=Trim(FATID); + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet87.EnableControls; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('DlyDate').Value:=ADOQueryTemp.fieldbyname('DlyDate').Value; + FieldByName('DlyNote').Value:=ADOQueryTemp.fieldbyname('DlyNote').Value; + FieldByName('YCLBegDate').Value:=ADOQueryTemp.fieldbyname('YCLBegDate').Value; + FieldByName('YCLEndDate').Value:=ADOQueryTemp.fieldbyname('YCLEndDate').Value; + FieldByName('YCLNote').Value:=ADOQueryTemp.fieldbyname('YCLNote').Value; + FieldByName('JGBegDate').Value:=ADOQueryTemp.fieldbyname('JGBegDate').Value; + FieldByName('JGEndDate').Value:=ADOQueryTemp.fieldbyname('JGEndDate').Value; + FieldByName('JGNote').Value:=ADOQueryTemp.fieldbyname('JGNote').Value; + FieldByName('CKBegDate').Value:=ADOQueryTemp.fieldbyname('CKBegDate').Value; + FieldByName('CKEndDate').Value:=ADOQueryTemp.fieldbyname('CKEndDate').Value; + FieldByName('CKNote').Value:=ADOQueryTemp.fieldbyname('CKNote').Value; + FieldByName('OutDate').Value:=ADOQueryTemp.fieldbyname('OutDate').Value; + FieldByName('OutNote').Value:=ADOQueryTemp.fieldbyname('OutNote').Value; + Post; + end; + //ADOQueryCmd.Connection.CommitTrans; + ClientDataSet87.EnableControls; + except + ClientDataSet87.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + + end; +end; + +procedure TfrmOrderJDList.Button3Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + {if Trim(ClientDataSet1.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end;} + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + ClientDataSet3.Append; + ClientDataSet3.Post; +end; + +procedure TfrmOrderJDList.Button6Click(Sender: TObject); +begin + + ClientDataSet4.Append; + ClientDataSet4.Post; +end; + +procedure TfrmOrderJDList.Button9Click(Sender: TObject); +begin + + ClientDataSet5.Append; + ClientDataSet5.Post; +end; + +procedure TfrmOrderJDList.Button12Click(Sender: TObject); +begin + + ClientDataSet6.Append; + ClientDataSet6.Post; +end; + +procedure TfrmOrderJDList.Button15Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + ClientDataSet7.Append; + ClientDataSet7.Post; +end; + +procedure TfrmOrderJDList.Button5Click(Sender: TObject); +begin + SaveDateP(Panel5,ClientDataSet4,'ԭ'); +end; + +procedure TfrmOrderJDList.Button8Click(Sender: TObject); +begin + SaveDateP(Panel7,ClientDataSet5,'ӹ'); +end; + +procedure TfrmOrderJDList.Button11Click(Sender: TObject); +begin + SaveDateP(Panel9,ClientDataSet6,'ֿ'); +end; + +procedure TfrmOrderJDList.Button14Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + SaveDateP(Panel3,ClientDataSet3,''); + SaveDateP(Panel11,ClientDataSet7,''); +end; + +procedure TfrmOrderJDList.Button4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + DelData(ClientDataSet3); +end; +procedure TfrmOrderJDList.DelData(ClientDataSet87:TClientDataSet); +begin + + if ClientDataSet87.IsEmpty then Exit; + if Trim(ClientDataSet87.fieldbyname('ATID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrderJD_Main_Att where ATID='''+Trim(ClientDataSet87.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet87.Delete; +end; + +procedure TfrmOrderJDList.Button7Click(Sender: TObject); +begin + DelData(ClientDataSet4); +end; + +procedure TfrmOrderJDList.Button10Click(Sender: TObject); +begin + DelData(ClientDataSet5); +end; + +procedure TfrmOrderJDList.Button13Click(Sender: TObject); +begin + DelData(ClientDataSet6); +end; + +procedure TfrmOrderJDList.Button16Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + DelData(ClientDataSet7); +end; + +procedure TfrmOrderJDList.FormShow(Sender: TObject); +var + fsj:string; +begin + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-30; + DlyDate.Date:=EndDate.Date; + DlyDate.Checked:=False; + YCLBegDate.Date:=EndDate.Date; + YCLBegDate.Checked:=False; + YCLEndDate.Date:=EndDate.Date; + YCLEndDate.Checked:=False; + JGBegDate.Date:=EndDate.Date; + JGBegDate.Checked:=False; + JGEndDate.Date:=EndDate.Date; + JGEndDate.Checked:=False; + CKBegDate.Date:=EndDate.Date; + CKBegDate.Checked:=False; + CKEndDate.Date:=EndDate.Date; + CKEndDate.Checked:=False; + OutDate.Date:=EndDate.Date; + OutDate.Checked:=False; + ReadCxBandedGrid('1',Tv1,'ȱ'); + ReadCxGrid('2',Tv2,'ȱ'); + ReadCxGrid('3',Tv3,'ȱ'); + ReadCxGrid('4',Tv4,'ȱ'); + ReadCxGrid('5',Tv5,'ȱ'); + ReadCxGrid('6',Tv6,'ȱ'); + ReadCxGrid('7',Tv7,'ȱ'); + if Trim(DParameters1)='' then + begin + Panel2.Visible:=True; + Panel4.Visible:=True; + Panel12.Visible:=True; + end else + begin + TBAdd.Visible:=False; + ToolButton1.Visible:=False; + ToolButton2.Visible:=False; + ToolButton3.Visible:=False; + Edit1.Visible:=False; + + ComboBox1.Visible:=False; + if Trim(DParameters1)='ԭ' then + begin + Panel6.Visible:=True; + end else + if Trim(DParameters1)='ӹ' then + begin + Panel8.Visible:=True; + end else + if Trim(DParameters1)='ֿ' then + begin + Panel10.Visible:=True; + end; + end; + fsj:='select distinct(Filler) Name,Cast('''' as varchar(20)) Code from JYOrderJD_Main'; + + SInitComBoxBySql(ADOQueryTemp,Filler,False,fsj); + fsj:='select distinct(LiDanPerson) Name,Cast('''' as varchar(20)) Code from JYOrderJD_Main'; + SInitComBoxBySql(ADOQueryTemp,LiDanPerson,False,fsj); + SInitCxGridComboBoxBySql(ADOQueryTemp,v2LiDanPerson,fsj,0,False,''); + fsj:='select distinct(QtyUnit) Name,Cast('''' as varchar(20)) Code from JYOrderJD_Main'; + SInitCxGridComboBoxBySql(ADOQueryTemp,V2QtyUnit,fsj,0,False,''); + if Trim(DParameters1)='' then + begin + LiDanPerson.Text:=Trim(DName); + end; + +end; + +procedure TfrmOrderJDList.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + {if Trim(ClientDataSet1.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; } + {if (Trim(ClientDataSet1.fieldbyname('Filler').AsString)=Trim(DName)) + or + (Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)=Trim(DName)) + then + begin + end else + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where DPID=('); + sql.Add('select DPID from SY_User where UserName='''+Trim(DName)+''')'); + sql.Add(' and (UserName='''+Trim(ClientDataSet1.fieldbyname('Filler').AsString)+''''); + sql.Add(' or UserName='''+Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)+''')'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ܲĶ!','',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main_ATT where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѿݣɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete JYOrderJD_Main where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmOrderJDList.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('״̬Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + if Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵Ķ!','ʾ',0); + Exit; + end; + + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where DPID=('); + sql.Add('select DPID from SY_User where UserName='''+Trim(DName)+''')'); + sql.Add(' and (UserName='''+Trim(ClientDataSet1.fieldbyname('Filler').AsString)+''''); + sql.Add(' or UserName='''+Trim(ClientDataSet1.fieldbyname('LiDanPerson').AsString)+''')'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ܲĶ!','',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrderJD_Main Set Status='''+Trim(ComboBox1.Text)+''''); + sql.add(' where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + if Trim(ComboBox1.Text)<>Trim(ClientDataSet1.fieldbyname('Status').AsString) then + begin + ClientDataSet1.Delete; + end; +end; + +procedure TfrmOrderJDList.OrderNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmOrderJDList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where orderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and Status='''' ' ); + end else + if cxTabControl1.TabIndex=3 then + begin + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmOrderJDList.ToolButton3Click(Sender: TObject); +var + maxno:string; +begin + if Trim(Edit1.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where OrderNo='''+Trim(Edit1.Text)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪƶ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'JD','JYOrderJD_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӷʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrderJD_Main where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('OrderNo').Value:=Trim(Edit1.Text); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('LiDanPerson').Value:=Trim(DName); + FieldByName('CustomerNoName').Value:=ClientDataSet2.fieldbyname('CustomerNoName').Value; + FieldByName('MPRTCode').Value:=ClientDataSet2.fieldbyname('MPRTCode').Value; + FieldByName('MPRTCodeName').Value:=ClientDataSet2.fieldbyname('MPRTCodeName').Value; + FieldByName('MPRTSpec').Value:=ClientDataSet2.fieldbyname('MPRTSpec').Value; + FieldByName('MPRTCF').Value:=ClientDataSet2.fieldbyname('MPRTCF').Value; + FieldByName('MPRTMF').Value:=ClientDataSet2.fieldbyname('MPRTMF').Value; + FieldByName('MPRTKZ').Value:=ClientDataSet2.fieldbyname('MPRTKZ').Value; + FieldByName('HSCode').Value:=ClientDataSet2.fieldbyname('HSCode').Value; + FieldByName('KPName').Value:=ClientDataSet2.fieldbyname('KPName').Value; + FieldByName('BoxType').Value:=ClientDataSet2.fieldbyname('BoxType').Value; + FieldByName('ORDQty').Value:=ClientDataSet2.fieldbyname('ORDQty').Value; + FieldByName('QtyUnit').Value:=ClientDataSet2.fieldbyname('QtyUnit').Value; + FieldByName('Status').Value:=''; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('ORderNo').Value:=Trim(Edit1.Text); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('LiDanPerson').Value:=Trim(DName); + FieldByName('MPRTCode').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCode').AsString); + FieldByName('MPRTCodeName').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCodeName').AsString); + FieldByName('Status').Value:=''; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MPRTCode').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCode').AsString); + FieldByName('MPRTCodeName').Value:=Trim(ClientDataSet2.fieldbyname('MPRTCodeName').AsString); + Post; + end; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmOrderJDList.Tv3DblClick(Sender: TObject); +begin + FInitNote(''); +end; +procedure TfrmOrderJDList.FInitNote(FFAttyp:string); +begin + try + frmOrderJDNote:=TfrmOrderJDNote.Create(Application); + with frmOrderJDNote do + begin + FMainId:=Trim(ClientDataSet1.fieldbyname('MainId').AsString); + FTTYpe:=FFAttyp; + frmOrderJDNote.Caption:=Trim(FTTYpe)+Trim(frmOrderJDNote.Caption); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderJDNote.Free; + end; +end; + +procedure TfrmOrderJDList.Tv4DblClick(Sender: TObject); +begin + FInitNote('ԭ'); +end; + +procedure TfrmOrderJDList.Tv5DblClick(Sender: TObject); +begin + FInitNote('ӹ'); +end; + +procedure TfrmOrderJDList.Tv6DblClick(Sender: TObject); +begin + FInitNote('ֿ'); +end; + +procedure TfrmOrderJDList.Tv7DblClick(Sender: TObject); +begin + FInitNote(''); +end; + +procedure TfrmOrderJDList.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('ȱ',cxGrid1); +end; + +procedure TfrmOrderJDList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + SCSHDataNew(ADOQueryTemp,Panel3,2); + SCSHDataNew(ADOQueryTemp,Panel5,2); + SCSHDataNew(ADOQueryTemp,Panel7,2); + SCSHDataNew(ADOQueryTemp,Panel9,2); + SCSHDataNew(ADOQueryTemp,Panel11,2); + DlyNote.Text:=Trim(ClientDataSet1.fieldbyname('DlyNote').AsString); + YCLNote.Text:=Trim(ClientDataSet1.fieldbyname('YCLNote').AsString); + JGNote.Text:=Trim(ClientDataSet1.fieldbyname('JGNote').AsString); + CKNote.Text:=Trim(ClientDataSet1.fieldbyname('CKNote').AsString); + OutNote.Text:=Trim(ClientDataSet1.fieldbyname('OutNote').AsString); + + + InitATGrid(ClientDataSet3,''); + InitATGrid(ClientDataSet4,'ԭ'); + InitATGrid(ClientDataSet5,'ӹ'); + InitATGrid(ClientDataSet6,'ֿ'); + InitATGrid(ClientDataSet7,''); +end; + +procedure TfrmOrderJDList.ToolButton5Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ȱ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmOrderJDList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmOrderJDList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters2); + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.dfm new file mode 100644 index 0000000..c9fd849 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.dfm @@ -0,0 +1,115 @@ +object frmOrderJDNote: TfrmOrderJDNote + Left = 127 + Top = 101 + Width = 1195 + Height = 568 + Caption = #24773#20917#35828#26126 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1179 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBClose: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 32 + Width = 1179 + Height = 497 + Align = alClient + TabOrder = 1 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn4: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ATDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 79 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'ATNote' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 1088 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 136 + Top = 64 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 168 + Top = 64 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 200 + Top = 64 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 232 + Top = 64 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.pas new file mode 100644 index 0000000..d05f080 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJDNote.pas @@ -0,0 +1,69 @@ +unit U_OrderJDNote; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, + cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ADODB; + +type + TfrmOrderJDNote = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + ADOQuerySub: TADOQuery; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + private + { Private declarations } + procedure InitATGrid(); + public + { Public declarations } + FMainId,FTTYpe:string; + end; + +var + frmOrderJDNote: TfrmOrderJDNote; + +implementation +Uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmOrderJDNote.InitATGrid(); +begin + with ADOQuerySub do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrderJD_Main_Att where Mainid='''+Trim(FMainId)+''''); + sql.Add(' and ATType='''+Trim(FTTYpe)+''''); + Open; + end; + SCreateCDS20(ADOQuerySub,ClientDataSet3); + SInitCDSData20(ADOQuerySub,ClientDataSet3); +end; + +procedure TfrmOrderJDNote.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmOrderJDNote.FormShow(Sender: TObject); +begin + InitATGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.dfm new file mode 100644 index 0000000..7cb3832 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.dfm @@ -0,0 +1,495 @@ +object frmOrderJSHZView: TfrmOrderJSHZView + Left = 56 + Top = 120 + Width = 1260 + Height = 571 + Caption = #35746#21333#32467#31639#27719#24635#20998#26512 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1244 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #32467#31639#23436#32467 + ImageIndex = 22 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #23436#32467#25764#38144 + ImageIndex = 17 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1244 + Height = 42 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 328 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 458 + Top = 15 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 611 + Top = 15 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 772 + Top = 15 + Width = 39 + Height = 12 + Caption = #29702#21333#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 369 + Top = 11 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 127 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 231 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object MPRTCode: TEdit + Tag = 2 + Left = 511 + Top = 11 + Width = 85 + Height = 20 + TabOrder = 3 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 665 + Top = 11 + Width = 85 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object Filler: TEdit + Tag = 2 + Left = 812 + Top = 11 + Width = 85 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object CheckBox1: TCheckBox + Left = 945 + Top = 14 + Width = 61 + Height = 17 + Caption = #33258#24049 + TabOrder = 6 + Visible = False + end + object ComboBox1: TComboBox + Left = 37 + Top = 11 + Width = 91 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 12 + ItemIndex = 4 + ParentFont = False + TabOrder = 7 + Text = #25353#32467#31639#26085#26399 + Items.Strings = ( + #25353#21046#21333#26085#26399 + #25353#20132#36135#26085#26399 + #25353#29983#20135#26085#26399 + #25353#26816#39564#26085#26399 + #25353#32467#31639#26085#26399) + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 74 + Width = 1244 + Height = 458 + Align = alClient + TabOrder = 2 + object Tv0: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv0CellDblClick + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skAverage + Position = spFooter + Column = v0Column1 + end + item + Kind = skAverage + Position = spFooter + Column = v0Column2 + end + item + Kind = skSum + Position = spFooter + Column = v0Column3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skAverage + Column = v0Column1 + end + item + Kind = skAverage + Column = v0Column2 + end + item + Kind = skSum + Column = v0Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v0Column9: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v0Column10: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v0Column11: TcxGridDBColumn + Caption = #29983#20135#26085#26399 + DataBinding.FieldName = 'SCDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v0Column12: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'JYDate' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v0Column6: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v0Column5: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v0Column1: TcxGridDBColumn + Caption = #31995#32479#25439#32791'%' + DataBinding.FieldName = 'HZSH' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 76 + end + object v0Column2: TcxGridDBColumn + Caption = #25163#24037#25439#32791'%' + DataBinding.FieldName = 'SGJSSH' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 73 + end + object v0Column3: TcxGridDBColumn + Caption = #25968#37327#24046#39069'Kg' + DataBinding.FieldName = 'HZSHQty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FonePurple + Styles.Header = DataLink_DDMD.FonePurple + Width = 77 + end + object v0Column4: TcxGridDBColumn + Caption = #32467#31639#23436#32467 + DataBinding.FieldName = 'JSFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v0Column7: TcxGridDBColumn + Caption = #32467#31639#20154 + DataBinding.FieldName = 'JSPerson' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v0Column8: TcxGridDBColumn + Caption = #32467#31639#26102#38388 + DataBinding.FieldName = 'JSTime' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v0Column13: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'HZNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv0 + end + end + object Panel2: TPanel + Left = 480 + Top = 183 + Width = 272 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 224 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 616 + Top = 224 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.pas new file mode 100644 index 0000000..3317dde --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderJSHZView.pas @@ -0,0 +1,357 @@ +unit U_OrderJSHZView; //27 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmOrderJSHZView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label18: TLabel; + MPRTCode: TEdit; + Label19: TLabel; + MPRTCodeName: TEdit; + ADOQueryMain: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Label2: TLabel; + Filler: TEdit; + cxGrid4: TcxGrid; + Tv0: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + v0Column1: TcxGridDBColumn; + v0Column2: TcxGridDBColumn; + v0Column3: TcxGridDBColumn; + v0Column5: TcxGridDBColumn; + v0Column6: TcxGridDBColumn; + Panel2: TPanel; + CheckBox1: TCheckBox; + v0Column4: TcxGridDBColumn; + v0Column7: TcxGridDBColumn; + v0Column8: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ComboBox1: TComboBox; + v0Column9: TcxGridDBColumn; + v0Column10: TcxGridDBColumn; + v0Column11: TcxGridDBColumn; + v0Column12: TcxGridDBColumn; + ToolButton3: TToolButton; + v0Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeChange(Sender: TObject); + procedure Tv0CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + canshu1:String; + procedure InitGrid(); + procedure GetData(); + public + { Public declarations } + end; + +var + frmOrderJSHZView: TfrmOrderJSHZView; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp,U_OrdCostList, U_ModuleNote; +{$R *.dfm} + +procedure TfrmOrderJSHZView.FormDestroy(Sender: TObject); +begin + frmOrderJSHZView:=nil; +end; + +procedure TfrmOrderJSHZView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderJSHZView.TBRafreshClick(Sender: TObject); +begin + Panel2.Visible:=True; + Panel2.Refresh; + InitGrid(); + GetData(); + Panel2.Visible:=False; +end; +procedure TfrmOrderJSHZView.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_OrderHZDate :begdate,:enddate,'''',:PState,:WSql '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1)); + Parameters.ParamByName('PState').Value:=ComboBox1.ItemIndex; + if CheckBox1.Checked then + Parameters.ParamByName('WSql').Value:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))' + else + Parameters.ParamByName('WSql').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmOrderJSHZView.GetData(); +begin + ClientDataSet6.DisableControls; + with ClientDataSet6 do + begin + First; + while not Eof do + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from JYOrder_Main_MD where ORDMainID='''+Trim(ClientDataSet6.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQuery1.IsEmpty=False then + begin + try + with ADOQueryTemp do + begin + Close; + SQL.Clear; + //sql.Add(' exec F_View_PSNameSH :MainId'); + sql.Add(' exec P_View_PSNameSH :MainId'); + Parameters.ParamByName('MainId').Value:=Trim(ClientDataSet6.fieldbyname('MainId').AsString); + Open; + end; + Edit; + FieldByName('HZSH').Value:=ADOQueryTemp.fieldbyname('HZSH').Value; + FieldByName('HZSHQty').Value:=ADOQueryTemp.fieldbyname('HZSHQty').Value; + Post; + except + Edit; + FieldByName('HZSH').Value:=NUll; + FieldByName('HZSHQty').Value:=Null; + FieldByName('HZNote').Value:='ȱٹ뵥0'; + Post; + end; + end; + + Next; + end; + end; + ClientDataSet6.EnableControls; +end; +procedure TfrmOrderJSHZView.FormShow(Sender: TObject); +begin + ReadCxGrid('ܲѯ',Tv0,'ͳƲѯ'); + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-30; + if Trim(canshu1)='Ȩ' then + begin + ToolButton1.Visible:=True; + ToolButton2.Visible:=True; + end; +end; + +procedure TfrmOrderJSHZView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ܲѯ',Tv0,'ͳƲѯ'); + close; +end; + +procedure TfrmOrderJSHZView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + Panel2.Visible:=True; + Panel2.Refresh; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_OrderHZDate '''','''',:OrderNo,1,'''' '); + Parameters.ParamByName('OrderNo').Value:=Trim(OrderNo.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); + GetData(); + Panel2.Visible:=False; + end; + +end; + +procedure TfrmOrderJSHZView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter10(ClientDataSet6,SGetFilters(Panel1,1,2)); + //SCreateCDS20(ADOQueryMain,ClientDataSet6); + //SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmOrderJSHZView.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmOrderJSHZView.MPRTCodeChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmOrderJSHZView.Tv0CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + try + frmOrdCostList:=TfrmOrdCostList.Create(Application); + with frmOrdCostList do + begin + //frmOrdCostList.Align:=alClient; + frmOrdCostList.orderNo.Text:=Trim(Self.ClientDataSet6.fieldbyname('OrderNo').AsString); + with frmOrdCostList.ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.MainId,MPRTCode=RTrim(A.MPRTCode)+RTrim(A.MPRTGY),A.MPRTCodeName,A.OrderNo,A.Filler,A.SGJSSH from JYOrder_Main A where '); + sql.Add(' A.orderno like '''+'%'+Trim(frmOrdCostList.orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(frmOrdCostList.ADOQueryMain,frmOrdCostList.ClientDataSet0); + SInitCDSData20(frmOrdCostList.ADOQueryMain,frmOrdCostList.ClientDataSet0); + if Trim(canshu1)='Ȩ' then + begin + Button1.Visible:=True; + end; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrdCostList.Free; + end; +end; + +procedure TfrmOrderJSHZView.ToolButton1Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main Set JSFlag=1,JSTime=getdate(),JSPerson='''+Trim(DName)+''''); + if Trim(ClientDataSet6.FieldByName('HZSH').AsString)<>'' then + begin + sql.Add(',HZSH='+ClientDataSet6.FieldByName('HZSH').AsString); + end else + begin + SQL.Add(',HZSH=NUll'); + end; + if Trim(ClientDataSet6.FieldByName('HZSHQty').AsString)<>'' then + begin + sql.Add(',HZSHQty='+ClientDataSet6.FieldByName('HZSHQty').AsString); + end else + begin + SQL.Add(',HZSHQty=NUll'); + end; + sql.Add(' where MainId='''+Trim(ClientDataSet6.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with ClientDataSet6 do + begin + Edit; + FieldByName('JSFlag').Value:=True; + FieldByName('JSPerson').Value:=Trim(DName); + FieldByName('JSTime').Value:=Now; + Post; + end; +end; + +procedure TfrmOrderJSHZView.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if Application.MessageBox('ȷҪִ᳷','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate JYOrder_Main Set JSFlag=0,JSTime=Null,JSPerson=Null,HZSH=Null,HZSHQty=Null '); + sql.Add(' where MainId='''+Trim(ClientDataSet6.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + with ClientDataSet6 do + begin + Edit; + FieldByName('JSFlag').Value:=False; + FieldByName('JSPerson').Value:=''; + FieldByName('JSTime').Value:=Null; + Post; + end; +end; + +procedure TfrmOrderJSHZView.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); +end; + +procedure TfrmOrderJSHZView.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ܷ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.dfm new file mode 100644 index 0000000..88d9346 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.dfm @@ -0,0 +1,598 @@ +object frmOrderSubSel: TfrmOrderSubSel + Left = 33 + Top = 100 + Width = 1193 + Height = 593 + Align = alClient + Caption = #35746#21333#26126#32454#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1177 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20840#36873 + ImageIndex = 12 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20840#24323 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20851#38381 + ImageIndex = 21 + OnClick = ToolButton4Click + end + object Panel3: TPanel + Left = 248 + Top = 0 + Width = 283 + Height = 30 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label30: TLabel + Left = 74 + Top = 8 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 151 + Top = 8 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 9 + Top = 8 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 99 + Top = 4 + Width = 47 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 225 + Top = 4 + Width = 41 + Height = 20 + Style = csDropDownList + Enabled = False + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 176 + Top = 4 + Width = 47 + Height = 20 + ReadOnly = True + TabOrder = 2 + end + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1177 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label1: TLabel + Left = 559 + Top = 16 + Width = 48 + Height = 12 + Caption = #23433#25490#21305#25968 + end + object Label2: TLabel + Left = 674 + Top = 16 + Width = 48 + Height = 12 + Caption = #23433#25490#25968#37327 + end + object Label3: TLabel + Left = 19 + Top = 16 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label4: TLabel + Left = 275 + Top = 16 + Width = 36 + Height = 12 + Caption = #36319#21333#21592 + end + object Label5: TLabel + Left = 411 + Top = 16 + Width = 48 + Height = 12 + Caption = #20132#36135#26085#26399 + end + object PFTPPS: TEdit + Left = 607 + Top = 12 + Width = 48 + Height = 20 + TabOrder = 0 + OnChange = PFTPPSChange + end + object PFTPQty: TEdit + Left = 722 + Top = 12 + Width = 73 + Height = 20 + TabOrder = 1 + end + object FactoryName: TBtnEditA + Left = 56 + Top = 12 + Width = 202 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = FactoryNameBtnClick + end + object PFTPUnit: TComboBox + Left = 797 + Top = 12 + Width = 44 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + 'KG' + 'M' + #26465) + end + object PFDlyDate: TDateTimePicker + Left = 460 + Top = 12 + Width = 83 + Height = 20 + Date = 41623.000000000000000000 + Time = 41623.000000000000000000 + TabOrder = 4 + end + object PFGenDanPerson: TBtnEditA + Tag = 2 + Left = 313 + Top = 12 + Width = 82 + Height = 20 + TabOrder = 5 + OnBtnClick = PFGenDanPersonBtnClick + end + end + object cxGrid3: TcxGrid + Left = 599 + Top = 78 + Width = 578 + Height = 476 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv3CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 144 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 71 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column5: TcxGridDBColumn + Caption = #23433#25490#21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column4: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + Width = 59 + end + object v3Column8: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + Width = 57 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 78 + Width = 529 + Height = 476 + Align = alLeft + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn1: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 22 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 53 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 36 + end + object v1Column3: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column2: TcxGridDBColumn + Caption = #24050#23433#25490 + DataBinding.FieldName = 'APFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + SortIndex = 0 + SortOrder = soDescending + Width = 63 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 529 + Top = 78 + Width = 70 + Height = 476 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Button1: TButton + Left = 2 + Top = 184 + Width = 66 + Height = 40 + Caption = '>>>>>>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 288 + Top = 232 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 320 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 344 + Top = 236 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 256 + Top = 229 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 752 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet1 + Left = 784 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 816 + Top = 252 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.pas new file mode 100644 index 0000000..373dc71 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSel.pas @@ -0,0 +1,323 @@ +unit U_OrderSubSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, cxCheckBox, + ADODB, StdCtrls, BtnEdit, ExtCtrls, cxCalendar; + +type + TfrmOrderSubSel = class(TForm) + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + Order_Sub: TClientDataSet; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery1: TADOQuery; + Panel1: TPanel; + Label1: TLabel; + PFTPPS: TEdit; + Label2: TLabel; + PFTPQty: TEdit; + Label3: TLabel; + FactoryName: TBtnEditA; + PFTPUnit: TComboBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label4: TLabel; + Label5: TLabel; + PFDlyDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + v1Column1: TcxGridDBColumn; + ClientDataSet1: TClientDataSet; + DataSource2: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel2: TPanel; + Button1: TButton; + v3Column4: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + PFGenDanPerson: TBtnEditA; + Panel3: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FactoryNameBtnClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Tv3CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure PFGenDanPersonBtnClick(Sender: TObject); + procedure PFTPPSChange(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + FFFMainId:String; + end; + +var + frmOrderSubSel: TfrmOrderSubSel; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun, U_GYSList, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmOrderSubSel.FormDestroy(Sender: TObject); +begin + //frmOrderSubSel:=nil; +end; + +procedure TfrmOrderSubSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSubSel.FormShow(Sender: TObject); +begin + PFDlyDate.Date:=SGetServerDate(ADOQuery1); + ReadCxGrid('ϸ',Tv1,'ϸѡ'); + ReadCxGrid('ϸ',Tv1,'ϸѡ'); + + try + ADOQuery1.DisableControls; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where Mainid='''+Trim(FFFMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel3,2); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,APFlag=Cast(0 as bit) from JYOrder_Sub A Where MainId='''+Trim(FFFMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColorEng,'''')+'' ''+isnull(B.PRTColor,''''), '); + sql.Add(' B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A'); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + finally + ADOQuery1.EnableControls; + end; + PFTPUnit.ItemIndex:=OneQtyUnit.ItemIndex; +end; + +procedure TfrmOrderSubSel.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid('ϸ',Tv1,'ϸѡ'); + WriteCxGrid('ϸ',Tv1,'ϸѡ'); + Close; +end; + +procedure TfrmOrderSubSel.ToolButton1Click(Sender: TObject); +begin + {if Order_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + ModalResult:=1; +end; + +procedure TfrmOrderSubSel.ToolButton2Click(Sender: TObject); +begin + SelOKNo(Order_Sub,True); +end; + +procedure TfrmOrderSubSel.ToolButton3Click(Sender: TObject); +begin + SelOKNo(Order_Sub,False); +end; + +procedure TfrmOrderSubSel.FactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + FactoryName.TxtCode:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FactoryName.Text:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmOrderSubSel.Button1Click(Sender: TObject); +var + FReal:Double; +begin + if Order_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Trim(FactoryName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(PFGenDanPerson.Text)='' then + begin + Application.MessageBox('ԱΪ!','ʾ',0); + Exit; + end; + if Trim(PFTPPS.Text)='' then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end else + if TryStrToFloat(PFTPPS.Text,FReal)=False then + begin + Application.MessageBox('ƥǷ!','ʾ',0); + Exit; + end; + if Trim(PFTPQty.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end else + if TryStrToFloat(PFTPQty.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Order_Sub.FieldByName('SSel').AsBoolean=true then + begin + + with ClientDataSet1 do + begin + Append; + FieldByName('SubId').Value:=Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTHX').Value:=Order_Sub.fieldbyname('PRTHX').Value; + FieldByName('PRTColor').Value:=Trim(Order_Sub.fieldbyname('PRTColorNo').AsString)+' '+ + Trim(Order_Sub.fieldbyname('PRTColorEng').AsString)+' '+ + Trim(Order_Sub.fieldbyname('PRTColor').AsString); + FieldByName('FactoryName').Value:=Trim(FactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(FactoryName.TxtCode); + FieldByName('PFGenDanPerson').Value:=Trim(PFGenDanPerson.Text); + FieldByName('PFDlyDate').Value:=PFDlyDate.Date; + FieldByName('PFTPPS').Value:=Trim(PFTPPS.Text); + FieldByName('PFTPQty').Value:=Trim(PFTPQty.Text); + FieldByName('PFTPUnit').Value:=Trim(PFTPUnit.Text); + FieldByName('PRTOrdQty').Value:=Order_Sub.fieldbyname('PRTOrdQty').Value; + FieldByName('OrderUnit').Value:=Order_Sub.fieldbyname('OrderUnit').Value; + Post; + end; + Edit; + FieldByName('APFlag').Value:=True; + FieldByName('SSel').Value:=False; + Post; + end; + Next; + end; + end; + Order_Sub.EnableControls; +end; + +procedure TfrmOrderSubSel.Tv3CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet1.IsEmpty then Exit; + ClientDataSet1.Delete; +end; + +procedure TfrmOrderSubSel.PFGenDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + PFGenDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderSubSel.PFTPPSChange(Sender: TObject); +var + FReal:Double; +begin + if Trim(PFTPPS.Text)<>'' then + begin + if TryStrToFloat(Trim(PFTPPS.Text),FReal)=False then Exit; + if Trim(ClothOneQty.Text)<>'' then + begin + PFTPQty.Text:=FloatToStr(StrToFloat(PFTPPS.Text)*StrToFloat(ClothOneQty.Text)); + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.dfm new file mode 100644 index 0000000..f2aa059 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.dfm @@ -0,0 +1,584 @@ +object frmOrderSubSelMX: TfrmOrderSubSelMX + Left = 86 + Top = 162 + Width = 1193 + Height = 593 + Align = alClient + Caption = #35746#21333#26126#32454#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1177 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20840#36873 + ImageIndex = 12 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20840#24323 + ImageIndex = 13 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20851#38381 + ImageIndex = 21 + OnClick = ToolButton4Click + end + object Panel3: TPanel + Left = 248 + Top = 0 + Width = 283 + Height = 30 + Align = alRight + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + Visible = False + object Label30: TLabel + Left = 74 + Top = 8 + Width = 24 + Height = 12 + Caption = #30333#22383 + end + object Label29: TLabel + Left = 151 + Top = 8 + Width = 24 + Height = 12 + Caption = #25104#21697 + end + object Label31: TLabel + Left = 9 + Top = 8 + Width = 65 + Height = 12 + Caption = #27599#21305#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ClothOneQty: TEdit + Tag = 2 + Left = 99 + Top = 4 + Width = 47 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object OneQtyUnit: TComboBox + Tag = 2 + Left = 225 + Top = 4 + Width = 41 + Height = 20 + Style = csDropDownList + Enabled = False + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + 'KG' + 'M') + end + object MPRTOneQty: TEdit + Tag = 2 + Left = 176 + Top = 4 + Width = 47 + Height = 20 + ReadOnly = True + TabOrder = 2 + end + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1177 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + Visible = False + object Label1: TLabel + Left = 559 + Top = 16 + Width = 48 + Height = 12 + Caption = #23433#25490#21305#25968 + end + object Label2: TLabel + Left = 674 + Top = 16 + Width = 48 + Height = 12 + Caption = #23433#25490#25968#37327 + end + object Label3: TLabel + Left = 19 + Top = 16 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label4: TLabel + Left = 275 + Top = 16 + Width = 36 + Height = 12 + Caption = #36319#21333#21592 + end + object Label5: TLabel + Left = 411 + Top = 16 + Width = 48 + Height = 12 + Caption = #20132#36135#26085#26399 + end + object PFTPPS: TEdit + Left = 607 + Top = 12 + Width = 48 + Height = 20 + TabOrder = 0 + OnChange = PFTPPSChange + end + object PFTPQty: TEdit + Left = 722 + Top = 12 + Width = 73 + Height = 20 + TabOrder = 1 + end + object FactoryName: TBtnEditA + Left = 56 + Top = 12 + Width = 202 + Height = 20 + TabOrder = 2 + OnBtnClick = FactoryNameBtnClick + end + object PFTPUnit: TComboBox + Left = 797 + Top = 12 + Width = 44 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + 'KG' + 'M' + #26465) + end + object PFDlyDate: TDateTimePicker + Left = 460 + Top = 12 + Width = 83 + Height = 20 + Date = 41623.000000000000000000 + Time = 41623.000000000000000000 + TabOrder = 4 + end + object PFGenDanPerson: TBtnEditA + Tag = 2 + Left = 313 + Top = 12 + Width = 82 + Height = 20 + TabOrder = 5 + OnBtnClick = PFGenDanPersonBtnClick + end + end + object cxGrid3: TcxGrid + Left = 70 + Top = 78 + Width = 1107 + Height = 476 + Align = alClient + TabOrder = 2 + Visible = False + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv3CellDblClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v3Column2 + end + item + Format = '0' + Position = spFooter + Column = v3Column3 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v3Column3 + end + item + Kind = skSum + Column = v3Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column6: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object v3Column7: TcxGridDBColumn + Tag = 22 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 41 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 144 + end + object v3Column1: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 71 + end + object v3Column2: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column3: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column5: TcxGridDBColumn + Caption = #23433#25490#21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column4: TcxGridDBColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + Width = 59 + end + object v3Column8: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + Width = 57 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxGrid1: TcxGrid + Left = 70 + Top = 78 + Width = 1107 + Height = 476 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Tag = 22 + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 22 + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 53 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrderUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 36 + end + object v1Column3: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 0 + Top = 78 + Width = 70 + Height = 476 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + Visible = False + object Button1: TButton + Left = 2 + Top = 184 + Width = 66 + Height = 40 + Caption = '>>>>>>>' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 288 + Top = 232 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 320 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 344 + Top = 236 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 256 + Top = 229 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 752 + Top = 248 + end + object DataSource2: TDataSource + DataSet = ClientDataSet1 + Left = 784 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 816 + Top = 252 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.pas new file mode 100644 index 0000000..96e121d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSubSelMX.pas @@ -0,0 +1,328 @@ +unit U_OrderSubSelMX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, cxCheckBox, + ADODB, StdCtrls, BtnEdit, ExtCtrls, cxCalendar; + +type + TfrmOrderSubSelMX = class(TForm) + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + Order_Sub: TClientDataSet; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery1: TADOQuery; + Panel1: TPanel; + Label1: TLabel; + PFTPPS: TEdit; + Label2: TLabel; + PFTPQty: TEdit; + Label3: TLabel; + FactoryName: TBtnEditA; + PFTPUnit: TComboBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label4: TLabel; + Label5: TLabel; + PFDlyDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ClientDataSet1: TClientDataSet; + DataSource2: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel2: TPanel; + Button1: TButton; + v3Column4: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + PFGenDanPerson: TBtnEditA; + Panel3: TPanel; + Label30: TLabel; + Label29: TLabel; + Label31: TLabel; + ClothOneQty: TEdit; + OneQtyUnit: TComboBox; + MPRTOneQty: TEdit; + v1Column3: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FactoryNameBtnClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Tv3CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure PFGenDanPersonBtnClick(Sender: TObject); + procedure PFTPPSChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + public + { Public declarations } + FFFMainId:String; + end; + +var + frmOrderSubSelMX: TfrmOrderSubSelMX; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun, U_GYSList; + +{$R *.dfm} + +procedure TfrmOrderSubSelMX.FormDestroy(Sender: TObject); +begin + //frmOrderSubSel:=nil; +end; + +procedure TfrmOrderSubSelMX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSubSelMX.FormShow(Sender: TObject); +begin + PFDlyDate.Date:=SGetServerDate(ADOQuery1); + ReadCxGrid('ϸ',Tv1,'ϸѡ'); + ReadCxGrid('ϸ',Tv1,'ϸѡ'); + + try + ADOQuery1.DisableControls; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where Mainid='''+Trim(FFFMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel3,2); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,APFlag=Cast(0 as bit) from JYOrder_Sub A Where MainId='''+Trim(FFFMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PRTHX,B.PRTColorNo,B.PRTOrdQty,B.OrderUnit from JYOrder_PCS_Sub A '); + sql.Add(' left join JYOrder_Sub B on A.SubId=B.SubId'); + sql.Add('where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + finally + ADOQuery1.EnableControls; + end; + PFTPUnit.ItemIndex:=OneQtyUnit.ItemIndex; +end; + +procedure TfrmOrderSubSelMX.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid('ϸ',Tv1,'ϸѡ'); + WriteCxGrid('ϸ',Tv1,'ϸѡ'); + Close; +end; + +procedure TfrmOrderSubSelMX.ToolButton1Click(Sender: TObject); +begin + {if Order_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + ModalResult:=1; +end; + +procedure TfrmOrderSubSelMX.ToolButton2Click(Sender: TObject); +begin + SelOKNo(Order_Sub,True); +end; + +procedure TfrmOrderSubSelMX.ToolButton3Click(Sender: TObject); +begin + SelOKNo(Order_Sub,False); +end; + +procedure TfrmOrderSubSelMX.FactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + FactoryName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmOrderSubSelMX.Button1Click(Sender: TObject); +var + FReal:Double; +begin + if Order_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Trim(FactoryName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(PFGenDanPerson.Text)='' then + begin + Application.MessageBox('ԱΪ!','ʾ',0); + Exit; + end; + if Trim(PFTPPS.Text)='' then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end else + if TryStrToFloat(PFTPPS.Text,FReal)=False then + begin + Application.MessageBox('ƥǷ!','ʾ',0); + Exit; + end; + if Trim(PFTPQty.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end else + if TryStrToFloat(PFTPQty.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Order_Sub.FieldByName('SSel').AsBoolean=true then + begin + + with ClientDataSet1 do + begin + Append; + FieldByName('SubId').Value:=Order_Sub.fieldbyname('SubId').Value; + FieldByName('PRTHX').Value:=Order_Sub.fieldbyname('PRTHX').Value; + FieldByName('PRTColorNo').Value:=Order_Sub.fieldbyname('PRTColorNo').Value; + FieldByName('FactoryName').Value:=Trim(FactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(FactoryName.TxtCode); + FieldByName('PFGenDanPerson').Value:=Trim(PFGenDanPerson.Text); + FieldByName('PFDlyDate').Value:=PFDlyDate.Date; + FieldByName('PFTPPS').Value:=Trim(PFTPPS.Text); + FieldByName('PFTPQty').Value:=Trim(PFTPQty.Text); + FieldByName('PFTPUnit').Value:=Trim(PFTPUnit.Text); + FieldByName('PRTOrdQty').Value:=Order_Sub.fieldbyname('PRTOrdQty').Value; + FieldByName('OrderUnit').Value:=Order_Sub.fieldbyname('OrderUnit').Value; + Post; + end; + Edit; + FieldByName('APFlag').Value:=True; + FieldByName('SSel').Value:=False; + Post; + end; + Next; + end; + end; + Order_Sub.EnableControls; +end; + +procedure TfrmOrderSubSelMX.Tv3CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet1.IsEmpty then Exit; + ClientDataSet1.Delete; +end; + +procedure TfrmOrderSubSelMX.PFGenDanPersonBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PFGenDanPerson'; + flagname:='Ա'; + fnote:=True; + V1Note.Caption:='绰'; + if ShowModal=1 then + begin + PFGenDanPerson.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOrderSubSelMX.PFTPPSChange(Sender: TObject); +var + FReal:Double; +begin + if Trim(PFTPPS.Text)<>'' then + begin + if TryStrToFloat(Trim(PFTPPS.Text),FReal)=False then Exit; + if Trim(ClothOneQty.Text)<>'' then + begin + PFTPQty.Text:=FloatToStr(StrToFloat(PFTPPS.Text)*StrToFloat(ClothOneQty.Text)); + end; + end; +end; + +procedure TfrmOrderSubSelMX.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.dfm new file mode 100644 index 0000000..3205516 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.dfm @@ -0,0 +1,356 @@ +object frmOrderSunSelList: TfrmOrderSunSelList + Left = 46 + Top = 97 + Width = 1382 + Height = 600 + Align = alClient + Caption = #35746#21333#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 73 + Width = 1366 + Height = 488 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column18 + end + item + Kind = skSum + Column = v1Column19 + end + item + Kind = skSum + Column = v1Column20 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1ConNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 79 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 71 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v1Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object v1Column11: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v1Column12: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Width = 84 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGYHZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 79 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 69 + end + object v1Column13: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 81 + end + object v1Column6: TcxGridDBColumn + Caption = #25351#31034#21333#25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v1Column5: TcxGridDBColumn + Caption = #25171#21253#27491#21697#21305#25968 + DataBinding.FieldName = 'ZPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 87 + end + object v1Column15: TcxGridDBColumn + Caption = #25171#21253#27491#21697#25968#37327 + DataBinding.FieldName = 'ZPQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 84 + end + object v1Column16: TcxGridDBColumn + Caption = #25171#21253#27425#21697#21305#25968 + DataBinding.FieldName = 'CPPS' + Options.Focusing = False + Width = 86 + end + object v1Column17: TcxGridDBColumn + Caption = #25171#21253#27425#21697#25968#37327 + DataBinding.FieldName = 'CPQty' + Options.Focusing = False + Width = 87 + end + object v1Column14: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'CKPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v1Column18: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'CKQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object v1Column19: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v1Column20: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label9: TLabel + Left = 57 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 98 + Top = 11 + Width = 183 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 384 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 416 + Top = 240 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 304 + Top = 232 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 240 + Top = 232 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.pas new file mode 100644 index 0000000..4508877 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_OrderSunSelList.pas @@ -0,0 +1,183 @@ +unit U_OrderSunSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxPC; + +type + TfrmOrderSunSelList = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + v1ConNo: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label9: TLabel; + OrderNo: TEdit; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + N1: TMenuItem; + v1Column5: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + private + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmOrderSunSelList: TfrmOrderSunSelList; + +implementation +uses + U_DataLink,U_ConInPut,U_RTFun; + +{$R *.dfm} + +procedure TfrmOrderSunSelList.FormDestroy(Sender: TObject); +begin + frmOrderSunSelList:=nil; +end; + +procedure TfrmOrderSunSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmOrderSunSelList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmOrderSunSelList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ϸбѡ',Tv1,'ָʾ'); +end; +procedure TfrmOrderSunSelList.InitForm(); +begin + ReadCxGrid('ϸбѡ',Tv1,'ָʾ'); +end; +procedure TfrmOrderSunSelList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmOrderSunSelList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select AAA.*,KCPS=AAA.ZPPS-AAA.CKPS,KCQty=AAA.ZPQty-AAA.CKQty '); + sql.Add(' from ('); + sql.Add(' select AA.* '); + sql.Add(' ,Case when isnull(OrderUnit,'''')=''M'' then ZPMQty'); + sql.Add(' when isnull(OrderUnit,'''')=''Y'' then ZPYQty'); + sql.Add(' else ZPKgQty end as ZPQty'); + sql.Add(' ,Case when isnull(OrderUnit,'''')=''M'' then CPMQty'); + sql.Add(' when isnull(OrderUnit,'''')=''Y'' then CPYQty'); + sql.Add(' else CPKgQty end as CPQty'); + sql.Add(' ,CKPS=(select isnull(Sum(FHPS),0) from JYOrder_FH FH where FH.SubId=AA.SubId)'); + sql.Add(' ,CKQty=(select Cast(isnull(Sum(FHQty),0) as decimal(18,2)) from JYOrder_FH FH where FH.SubId=AA.SubId)'); + sql.Add('from ('); + sql.Add('select A.*,B.SubId,B.PRTHX,B.OrderUnit,B.PRTOrdQty '); + sql.Add(',PRTColor=isnull(B.PRTColorNo,'''')+'' ''+isnull(B.PRTColor,'''')+'' ''+isnull(B.PRTColorEng,'''')'); + sql.Add(',ZPPS=(select Count(*) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(',ZPKgQty=(select Cast(isnull(sum(MJQty4),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'' )'); + sql.Add(',ZPMQty=(select Cast(isnull(sum(MJLen),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(',ZPYQty=(select Cast(isnull(sum(MJLenMa),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(',CPPS=(select Count(*) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(',CPKgQty=(select Cast(isnull(sum(MJQty4),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'' )'); + sql.Add(',CPMQty=(select Cast(isnull(sum(MJLen),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(',CPYQty=(select Cast(isnull(sum(MJLenMa),0) as decimal(18,2)) from WFB_MJJY WM where WM.SubId=B.SubId and MJType=''Ʒ'')'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' inner join JYOrder_Sub B on A.MainId=B.MainId'); + SQL.Add(' where A.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''')AA)AAA'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmOrderSunSelList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + OrderNo.SetFocus; + ModalResult:=1; +end; + +procedure TfrmOrderSunSelList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmOrderSunSelList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.dfm new file mode 100644 index 0000000..85e824c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.dfm @@ -0,0 +1,626 @@ +object frmPBCKChkList: TfrmPBCKChkList + Left = 65 + Top = 122 + Width = 1191 + Height = 511 + Caption = #22383#24067#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1175 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 1 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 402 + Top = 0 + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 485 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 548 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1175 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 357 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 498 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 24 + Height = 12 + Caption = #21305#21495 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 498 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 642 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label9: TLabel + Left = 642 + Top = 36 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label10: TLabel + Left = 778 + Top = 12 + Width = 48 + Height = 12 + Caption = #32433' '#32455 + end + object Label11: TLabel + Left = 778 + Top = 37 + Width = 48 + Height = 12 + Caption = #24067#21305#31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 384 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 535 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SXID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SXIDChange + OnKeyPress = SXIDKeyPress + end + object BatchNO: TEdit + Tag = 2 + Left = 384 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = BatchNOChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 535 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object SPMF: TEdit + Tag = 2 + Left = 668 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPKZ: TEdit + Tag = 2 + Left = 668 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object ShaZhi: TEdit + Tag = 2 + Left = 827 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SPType: TComboBox + Tag = 2 + Left = 828 + Top = 33 + Width = 79 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 11 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037 + #36141#20837 + #36864#20837 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 126 + Width = 1175 + Height = 346 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column9: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column6: TcxGridDBColumn + Caption = #37319#36141#21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + Width = 81 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 77 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1175 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1175 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.pas new file mode 100644 index 0000000..84e1eaa --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKChkList.pas @@ -0,0 +1,421 @@ +unit U_PBCKChkList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxPC; + +type + TfrmPBCKChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SXID: TEdit; + BatchNO: TEdit; + CRType: TComboBox; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + SPMF: TEdit; + v1Column11: TcxGridDBColumn; + Label9: TLabel; + SPKZ: TEdit; + Label10: TLabel; + ShaZhi: TEdit; + Label11: TLabel; + SPType: TComboBox; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure SXIDKeyPress(Sender: TObject; var Key: Char); + procedure SXIDChange(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPBCKChkList: TfrmPBCKChkList; + +implementation +uses + U_DataLink,U_RTFun,U_PBCKInPut; + +{$R *.dfm} + +procedure TfrmPBCKChkList.FormDestroy(Sender: TObject); +begin + frmPBCKChkList:=nil; +end; + +procedure TfrmPBCKChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPBCKChkList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmPBCKChkList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate and isnull(CKName,'''')='''' '); + SQL.Add(' and CRFlag='''' '); + sql.Add(' and isnull(SChker,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Chker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(Chker,'''')<>'''' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + end else + begin + Parameters.ParamByName('begdate').Value:='1900-01-01'; + Parameters.ParamByName('enddate').Value:='2500-01-01'; + end; + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPBCKChkList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPBCKChkList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPBCKChkList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б',Tv1,'ֿ'); + Close; +end; + +procedure TfrmPBCKChkList.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ֿ'); + //InitGrid(); +end; + +procedure TfrmPBCKChkList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPBCKChkList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmPBCKChkList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPBCKChkList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPBCKChkList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmPBCKChkList.ToolButton1Click(Sender: TObject); +begin + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKChkList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKChkList.SXIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(SXID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + //sql.Add(' ,CGConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGConMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SXID like :SXID'); + sql.Add(' and isnull(SChker,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Chker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(Chker,'''')<>'''' '); + end; + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPBCKChkList.SXIDChange(Sender: TObject); +begin + if Length(Trim(SXID.Text))<4 then + begin + if Trim(SXID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmPBCKChkList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKChkList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKChkList.ToolButton3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmPBCKChkList.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set Chker=NUll'); + SQL.Add(',ChkTime=Null,ChkStatus=Null '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmPBCKChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.dfm new file mode 100644 index 0000000..559bc85 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.dfm @@ -0,0 +1,306 @@ +object frmPBCKInPut: TfrmPBCKInPut + Left = 48 + Top = 128 + Width = 1293 + Height = 502 + Align = alClient + Caption = #22383#24067#20837#24211 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1277 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1277 + Height = 430 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column3: TcxGridDBColumn + Tag = 2 + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNo' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownRows = 50 + Properties.OnEditValueChanged = v2Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 135 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037 + #36141#20837 + #36864#20837) + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 76 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #37319#36141#21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 113 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 512 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.pas new file mode 100644 index 0000000..5aa9357 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKInPut.pas @@ -0,0 +1,533 @@ +unit U_PBCKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmPBCKInPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v2Column3PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmPBCKInPut: TfrmPBCKInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList; + +{$R *.dfm} + +procedure TfrmPBCKInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPBCKInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmPBCKInPut.SaveCKData():Boolean; +var + FCRID,Maxno:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+''''); + sql.Add(' and isnull(CKName,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+FCRID); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=FCRID; + FieldByName('CKName').Value:=''; + FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value; + FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value; + FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value; + FieldByName('SPCF').Value:=CDS_Sub.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value:=CDS_Sub.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=CDS_Sub.fieldbyname('SPKZ').Value; + FieldByName('ShaZhi').Value:=CDS_Sub.fieldbyname('ShaZhi').Value; + FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value; + Post; + end; + end; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'PR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('SPID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SX_CR',2); + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ܱ!','ʾ',0); + Exit; + end; + { if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('CRID').Value:=Trim(FCRID); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmPBCKInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ǽ',Tv1,'ֿ'); + Close; +end; + +procedure TfrmPBCKInPut.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('Ǽ',Tv1,'ֿ'); + fsj:=' select Code=BatchNo,Name=BatchNo from CK_SXPB_CR where isnull(CKName,'''')='''' Group by BatchNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2Column3,fsj,0,True,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmPBCKInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmPBCKInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('BatchNo',null,[])=True then + begin + Application.MessageBox('ƥŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPType',null,[])=True then + begin + Application.MessageBox('ƥͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPCF',null,[])=True then + begin + Application.MessageBox('ɷֲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPMF',null,[])=True then + begin + Application.MessageBox('ŷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPKZ',null,[])=True then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('KGQty',null,[])=True then + begin + Application.MessageBox('ܹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CostPrice',null,[])=True then + begin + Application.MessageBox('ɱΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType;Price',VarArrayOf(['',Null]),[loPartialKey])=True then + begin + Application.MessageBox('ݣɹӹ۲Ϊ!','ʾ',0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmPBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXKuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmPBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBName'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPBCKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + v2Column3.Options.Focusing:=False; + end else + begin + v2Column3.Options.Focusing:=True; + end; +end; + +procedure TfrmPBCKInPut.v2Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with CDS_Sub do + begin + Edit; + FieldByName('BatchNo').Value:=mvalue; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from CK_SXPB_CR where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+''''); + sql.Add(' and isnull(CKName,'''')='''' '); + sql.Add(' order by FillTIme desc'); + Open; + end; + with CDS_Sub do + begin + Edit; + FieldByName('FactoryName').Value:=ADOQueryTemp.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=ADOQueryTemp.fieldbyname('FactoryNo').Value; + FieldByName('SPType').Value:=ADOQueryTemp.fieldbyname('SPType').Value; + FieldByName('SPName').Value:=ADOQueryTemp.fieldbyname('SPName').Value; + FieldByName('SPCF').Value:=ADOQueryTemp.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value:=ADOQueryTemp.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=ADOQueryTemp.fieldbyname('SPKZ').Value; + FieldByName('ShaZhi').Value:=ADOQueryTemp.fieldbyname('ShaZhi').Value; + FieldByName('Price').Value:=ADOQueryTemp.fieldbyname('Price').Value; + FieldByName('CostPrice').Value:=ADOQueryTemp.fieldbyname('CostPrice').Value; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm new file mode 100644 index 0000000..57b054c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm @@ -0,0 +1,614 @@ +object frmPBCKKCList: TfrmPBCKKCList + Left = 353 + Top = 180 + Width = 1181 + Height = 511 + Caption = #22383#24067#24211#23384#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 31 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1165 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 307 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 524 + Top = 12 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 307 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 524 + Top = 36 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 420 + Top = 120 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 420 + Top = 144 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label1: TLabel + Left = 650 + Top = 96 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label14: TLabel + Left = 650 + Top = 120 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object SPName: TEdit + Tag = 2 + Left = 334 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 584 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 334 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #37319#36141#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + #35843#25320#20837#24211 + '' + '') + end + object SPCF: TEdit + Tag = 2 + Left = 584 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 525 + Top = 89 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 517 + Top = 116 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + #33258#24049 + #23458#25143 + '') + end + object ToFactoryName: TEdit + Tag = 2 + Left = 699 + Top = 93 + Width = 108 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPCode: TEdit + Tag = 2 + Left = 700 + Top = 116 + Width = 108 + Height = 20 + TabOrder = 9 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1165 + Height = 375 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column15: TcxGridDBColumn + Caption = #25152#23646#31867#22411 + DataBinding.FieldName = 'SSType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #33258#24049 + #23458#25143) + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column17: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #31216#21628 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object Tv1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24211#23384#37329#39069 + DataBinding.FieldName = 'kcMoney' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas new file mode 100644 index 0000000..b4f7646 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas @@ -0,0 +1,229 @@ +unit U_PBCKKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmPBCKKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label9: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + SSType: TComboBox; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column16: TcxGridDBColumn; + ToolButton2: TToolButton; + Label14: TLabel; + SPCode: TEdit; + v1Column17: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPBCKKCList: TfrmPBCKKCList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmPBCKKCList.FormDestroy(Sender: TObject); +begin + frmPBCKKCList:=nil; +end; + +procedure TfrmPBCKKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPBCKKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add(' select A.*,KCmoney=cast(MXKCQty*Price as decimal(18,2)) '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')='''' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty<>0'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPBCKKCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPBCKKCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPBCKKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б',Tv1,'ֿ'); + Close; +end; + +procedure TfrmPBCKKCList.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ֿ'); + //InitGrid(); +end; + +procedure TfrmPBCKKCList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmPBCKKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKKCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPBCKKCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPBCKKCList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKKCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKKCList.ToolButton1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmPBCKKCList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmPBCKKCList.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKList.dfm new file mode 100644 index 0000000..f262dbe --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKList.dfm @@ -0,0 +1,623 @@ +object frmPBCKList: TfrmPBCKList + Left = 65 + Top = 122 + Width = 1191 + Height = 511 + Caption = #22383#24067#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1175 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 524 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1175 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 357 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 498 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 24 + Height = 12 + Caption = #21305#21495 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 498 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 642 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label9: TLabel + Left = 642 + Top = 36 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label10: TLabel + Left = 778 + Top = 12 + Width = 48 + Height = 12 + Caption = #32433' '#32455 + end + object Label11: TLabel + Left = 778 + Top = 37 + Width = 48 + Height = 12 + Caption = #24067#21305#31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 384 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 535 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SXID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SXIDChange + OnKeyPress = SXIDKeyPress + end + object BatchNO: TEdit + Tag = 2 + Left = 384 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = BatchNOChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 535 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object SPMF: TEdit + Tag = 2 + Left = 668 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPKZ: TEdit + Tag = 2 + Left = 668 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object ShaZhi: TEdit + Tag = 2 + Left = 827 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SPType: TComboBox + Tag = 2 + Left = 828 + Top = 33 + Width = 79 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 11 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037 + #36141#20837 + #36864#20837 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 126 + Width = 1175 + Height = 346 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column9: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column6: TcxGridDBColumn + Caption = #37319#36141#21152#24037#21333#20215 + DataBinding.FieldName = 'Price' + Width = 81 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#26412 + DataBinding.FieldName = 'CostPrice' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 77 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1175 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1175 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKList.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKList.pas new file mode 100644 index 0000000..e25dd89 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKList.pas @@ -0,0 +1,425 @@ +unit U_PBCKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxPC; + +type + TfrmPBCKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SXID: TEdit; + BatchNO: TEdit; + CRType: TComboBox; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + SPMF: TEdit; + v1Column11: TcxGridDBColumn; + Label9: TLabel; + SPKZ: TEdit; + Label10: TLabel; + ShaZhi: TEdit; + Label11: TLabel; + SPType: TComboBox; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure SXIDKeyPress(Sender: TObject; var Key: Char); + procedure SXIDChange(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPBCKList: TfrmPBCKList; + +implementation +uses + U_DataLink,U_RTFun,U_PBCKInPut; + +{$R *.dfm} + +procedure TfrmPBCKList.FormDestroy(Sender: TObject); +begin + frmPBCKList:=nil; +end; + +procedure TfrmPBCKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPBCKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmPBCKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate and isnull(CKName,'''')='''' '); + SQL.Add(' and CRFlag='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SChker,'''')<>'''' '); + end; + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPBCKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPBCKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPBCKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б',Tv1,'ֿ'); + Close; +end; + +procedure TfrmPBCKList.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ֿ'); + //InitGrid(); +end; + +procedure TfrmPBCKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPBCKList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmPBCKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPBCKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPBCKList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmPBCKList.ToolButton1Click(Sender: TObject); +begin + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKList.SXIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(SXID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + //sql.Add(' ,CGConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGConMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SXID like :SXID'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(SChker,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(SChker,'''')<>'''' '); + end; + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPBCKList.SXIDChange(Sender: TObject); +begin + if Length(Trim(SXID.Text))<4 then + begin + if Trim(SXID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmPBCKList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKList.ToolButton3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set SChker='''+Trim(DName)+''''); + SQL.Add(',SChkTime=getdate() '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmPBCKList.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_SXPB_CR '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set SChker=NUll'); + SQL.Add(',SChkTime=Null '); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; +end; + +procedure TfrmPBCKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.dfm new file mode 100644 index 0000000..57cc15c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.dfm @@ -0,0 +1,550 @@ +object frmPBCKOutList: TfrmPBCKOutList + Left = 141 + Top = 163 + Width = 1191 + Height = 511 + Caption = #22383#24067#20986#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1175 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 1 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBRKCXClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1175 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 181 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 322 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label8: TLabel + Left = 181 + Top = 36 + Width = 24 + Height = 12 + Caption = #21305#21495 + end + object Label6: TLabel + Left = 322 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 466 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label9: TLabel + Left = 466 + Top = 36 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label10: TLabel + Left = 602 + Top = 12 + Width = 48 + Height = 12 + Caption = #32433' '#32455 + end + object Label11: TLabel + Left = 602 + Top = 37 + Width = 48 + Height = 12 + Caption = #24067#21305#31867#22411 + end + object Label5: TLabel + Left = 746 + Top = 12 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label12: TLabel + Left = 746 + Top = 36 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 208 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 359 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object BatchNO: TEdit + Tag = 2 + Left = 208 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = BatchNOChange + end + object SPCF: TEdit + Tag = 2 + Left = 359 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object SPMF: TEdit + Tag = 2 + Left = 492 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SPKZ: TEdit + Tag = 2 + Left = 492 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ShaZhi: TEdit + Tag = 2 + Left = 651 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPType: TComboBox + Tag = 2 + Left = 652 + Top = 33 + Width = 79 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037 + #36141#20837 + #36864#20837 + '') + end + object OrderNo: TEdit + Tag = 2 + Left = 784 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + OnKeyPress = OrderNoKeyPress + end + object FromFactoryName: TEdit + Tag = 2 + Left = 784 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1175 + Height = 367 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column3: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column9: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column6: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'MDPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'MDQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.pas new file mode 100644 index 0000000..6c67e20 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKOutList.pas @@ -0,0 +1,335 @@ +unit U_PBCKOutList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar; + +type + TfrmPBCKOutList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + BatchNO: TEdit; + v1Column9: TcxGridDBColumn; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + SPMF: TEdit; + v1Column11: TcxGridDBColumn; + Label9: TLabel; + SPKZ: TEdit; + Label10: TLabel; + ShaZhi: TEdit; + Label11: TLabel; + SPType: TComboBox; + Label5: TLabel; + OrderNo: TEdit; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Label12: TLabel; + FromFactoryName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPBCKOutList: TfrmPBCKOutList; + +implementation +uses + U_DataLink,U_RTFun,U_PBCKInPut; + +{$R *.dfm} + +procedure TfrmPBCKOutList.FormDestroy(Sender: TObject); +begin + frmPBCKOutList:=nil; +end; + +procedure TfrmPBCKOutList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPBCKOutList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmPBCKOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select AA.* from('); + sql.Add(' select A.*,MDQty=MD.Qty,MDPS=MD.PS,MD.MDNO,MD.MDDate,MD.FromFactoryName '); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=MD.ORDMainId)'); + sql.Add(' from JYOrder_Main_MD MD'); + sql.Add(' inner join CK_SXPB_KC A on MD.BatchNo=A.BatchNo'); + sql.add('where MD.MDDate>=:begdate and MD.MDDate<:enddate and isnull(A.CKName,'''')='''' '); + sql.Add(' and isnull(MD.CKName,'''')='''' ) AA'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPBCKOutList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPBCKOutList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPBCKOutList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б',Tv1,'ֿ'); + Close; +end; + +procedure TfrmPBCKOutList.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ֿ'); + //InitGrid(); +end; + +procedure TfrmPBCKOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPBCKOutList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmPBCKOutList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPBCKOutList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPBCKOutList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmPBCKOutList.ToolButton1Click(Sender: TObject); +begin + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKOutList.ToolButton2Click(Sender: TObject); +begin + try + frmPBCKInPut:=TfrmPBCKInPut.Create(Application); + with frmPBCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmPBCKInPut.Free; + end; +end; + +procedure TfrmPBCKOutList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKOutList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPBCKOutList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select AA.* from('); + sql.Add(' select A.*,MDQty=MD.Qty,MDPS=MD.PS,MD.MDNO '); + sql.Add(' ,orderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=MD.ORDMainId)'); + sql.Add(' from JYOrder_Main_MD MD'); + sql.Add(' inner join CK_SXPB_KC A on MD.BatchNo=A.BatchNo'); + sql.add(' where isnull(A.CKName,'''')='''' '); + sql.Add(' and isnull(MD.CKName,'''')='''' ) AA'); + sql.Add(' where OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.dfm new file mode 100644 index 0000000..1ff8a35 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.dfm @@ -0,0 +1,711 @@ +object frmPKChkCFList: TfrmPKChkCFList + Left = 30 + Top = 122 + Width = 1328 + Height = 552 + Caption = #36164#37329#30003#35831#23457#26680 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1312 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton2Click + end + object ToolButton6: TToolButton + Left = 213 + Top = 0 + Caption = #23457#26680#19981#36890#36807 + ImageIndex = 32 + OnClick = ToolButton6Click + end + object ToolButton5: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 371 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 434 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 521 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1312 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 140 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 254 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 27 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 521 + Top = 18 + Width = 52 + Height = 12 + Caption = #25903#20184#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 649 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 784 + Top = 18 + Width = 26 + Height = 12 + Caption = #24065#31181 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 905 + Top = 18 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 404 + Top = 18 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 55 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 158 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FactoryName: TEdit + Tag = 2 + Left = 295 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 2 + OnChange = FactoryNameChange + end + object PayMent: TEdit + Tag = 2 + Left = 575 + Top = 14 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 703 + Top = 14 + Width = 69 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object BZType: TComboBox + Tag = 1 + Left = 813 + Top = 14 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 5 + OnChange = FactoryNameChange + Items.Strings = ( + #20154#27665#24065 + #32654#37329 + '') + end + object JBPerson: TEdit + Tag = 2 + Left = 945 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object PKName: TEdit + Tag = 2 + Left = 432 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 103 + Width = 1312 + Height = 410 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column19: TcxGridDBColumn + Tag = 77 + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Tag = 77 + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column26: TcxGridDBColumn + Tag = 77 + Caption = #31867#22411 + DataBinding.FieldName = 'HZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column6: TcxGridDBColumn + Tag = 77 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 130 + end + object v1Column8: TcxGridDBColumn + Tag = 77 + Caption = #21697#21517 + DataBinding.FieldName = 'PKName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column16: TcxGridDBColumn + Tag = 77 + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 87 + end + object v1Column17: TcxGridDBColumn + Tag = 77 + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column17PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#20182')' + DataBinding.FieldName = 'FactoryNameOther' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownRows = 20 + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column9: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column3: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column21: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column24: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column7: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column23: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FonePurple + Styles.Footer = DataLink_DDMD.FonePurple + Styles.Header = DataLink_DDMD.FonePurple + Width = 113 + end + object v1ShipDate: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 63 + end + object v1Column12: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'FKPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26102#38388 + DataBinding.FieldName = 'FKTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1312 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1312 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 352 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 616 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 200 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 607 + Top = 143 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 350 + Top = 185 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 320 + Top = 184 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 351 + Top = 152 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 725 + Top = 145 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 381 + Top = 187 + end + object PopupMenu1: TPopupMenu + Left = 320 + Top = 152 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_FX: TClientDataSet + Aggregates = <> + Params = <> + Left = 319 + Top = 215 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.pas b/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.pas new file mode 100644 index 0000000..b0518f5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKChkCFList.pas @@ -0,0 +1,479 @@ +unit U_PKChkCFList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus, cxDropDownEdit; + + +type + TfrmPKChkCFList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + FactoryName: TEdit; + Label6: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton2: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton5: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + ToolButton6: TToolButton; + v1Column24: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + CDS_FX: TClientDataSet; + v1Column2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + PayMent: TEdit; + ComTaiTou: TEdit; + Label5: TLabel; + BZType: TComboBox; + Label7: TLabel; + JBPerson: TEdit; + Label8: TLabel; + PKName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton6Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPKChkCFList: TfrmPKChkCFList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmPKChkCFList.FormDestroy(Sender: TObject); +begin + frmPKChkCFList:=nil; +end; + +procedure TfrmPKChkCFList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPKChkCFList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKChkCFList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*'); + SQL.Add(' from YF_Money_PaiKuan A where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and A.PKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.PKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + end; + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmPKChkCFList.InitForm(); +var + fsj:string; +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate+7; + BegDate.Date:=FNowDate-7; + ReadCxGrid('ʽб',Tv1,''); +end; + + + +procedure TfrmPKChkCFList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʽб',cxGrid1); +end; + +procedure TfrmPKChkCFList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKChkCFList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPKChkCFList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKChkCFList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKChkCFList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + + + +procedure TfrmPKChkCFList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKChkCFList.FactoryNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPKChkCFList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPKChkCFList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPKChkCFList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmPKChkCFList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;ComTaiTou',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set ChkTime=getdate(),Chker='''+Trim(DName)+''''); + sql.Add(',ChkStatus=''ͨ'' '); + sql.Add(',ChkNote='''+Trim(Order_Main.fieldbyname('ChkNote').AsString)+''''); + {sql.Add(',ComTaiTou='''+Trim(Order_Main.fieldbyname('ComTaiTou').AsString)+''''); + sql.Add(',PayMent='''+Trim(Order_Main.fieldbyname('PayMent').AsString)+''''); + sql.Add(',PKYongTu='''+Trim(Order_Main.fieldbyname('PKYongTu').AsString)+''''); + sql.Add(',FactoryNameOther='''+Trim(Order_Main.fieldbyname('FactoryNameOther').AsString)+''''); + if Trim(Order_Main.fieldbyname('PKMoney').AsString)<>'' then + begin + sql.Add(',PKMoney='+Trim(Order_Main.fieldbyname('PKMoney').AsString)); + end else + begin + sql.Add(',PKMoney=0'); + end; } + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update ZH_KH_Info Set LockFlag=1'); + sql.Add(' where KHNameJC='''+Trim(Order_Main.fieldbyname('FactoryName').AsString)+''''); + sql.Add(' and KHType=''GYS'' '); + ExecSQL; + end; } + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmPKChkCFList.ToolButton5Click(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then Exit; + if cxTabControl1.TabIndex=3 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('FKID').AsString)<>'' then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Application.MessageBox('Ѹܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set ChkTime=NUll,Chker=Null,ChkNote=Null'); + sql.Add(',ChkStatus='''' '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmPKChkCFList.v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKChkCFList.ToolButton6Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;ChkNote',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('˱עΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ˲ͨ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set ChkTime=getdate(),Chker='''+Trim(DName)+''''); + sql.Add(',ChkStatus=''˲ͨ'' '); + sql.Add(',ChkNote='''+Trim(Order_Main.fieldbyname('ChkNote').AsString)+''''); + {sql.Add(',PayMent='''+Trim(Order_Main.fieldbyname('PayMent').AsString)+''''); + sql.Add(',PKYongTu='''+Trim(Order_Main.fieldbyname('PKYongTu').AsString)+''''); + sql.Add(',ComTaiTou='''+Trim(Order_Main.fieldbyname('ComTaiTou').AsString)+''''); + sql.Add(',FactoryNameOther='''+Trim(Order_Main.fieldbyname('FactoryNameOther').AsString)+''''); + if Trim(Order_Main.fieldbyname('PKMoney').AsString)<>'' then + begin + sql.Add(',PKMoney='+Trim(Order_Main.fieldbyname('PKMoney').AsString)); + end else + begin + sql.Add(',PKMoney=0'); + end; } + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKFKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKFKList.dfm new file mode 100644 index 0000000..ffbbad6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKFKList.dfm @@ -0,0 +1,651 @@ +object frmPKFKList: TfrmPKFKList + Left = -27 + Top = 95 + Width = 1382 + Height = 556 + Caption = #20184#27454#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20184#27454 + ImageIndex = 126 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 172 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 295 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 544 + Top = 18 + Width = 52 + Height = 12 + Caption = #25903#20184#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 672 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 33 + Top = 18 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 808 + Top = 18 + Width = 26 + Height = 12 + Caption = #24065#31181 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 936 + Top = 18 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 427 + Top = 18 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 87 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 190 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FactoryName: TEdit + Tag = 2 + Left = 336 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 2 + OnChange = FactoryNameChange + end + object PayMent: TEdit + Tag = 2 + Left = 598 + Top = 14 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 726 + Top = 14 + Width = 69 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object BZType: TComboBox + Tag = 1 + Left = 837 + Top = 14 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 5 + OnChange = FactoryNameChange + Items.Strings = ( + #20154#27665#24065 + #32654#37329 + '') + end + object JBPerson: TEdit + Tag = 2 + Left = 976 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object PKName: TEdit + Tag = 2 + Left = 455 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 103 + Width = 1366 + Height = 414 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column15 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column15: TcxGridDBColumn + Tag = 999 + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneClMaroon + Styles.Footer = DataLink_DDMD.FoneClMaroon + Styles.Header = DataLink_DDMD.FoneClMaroon + Width = 94 + end + object v1Column4: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'HZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PKName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column20: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 87 + end + object v1Column17: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column19: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#20182')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column2: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column9: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column7: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column23: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'FKTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 77 + end + object v1ShipDate: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #20184#27454#22791#27880 + DataBinding.FieldName = 'FKNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 83 + end + object v1Huilv: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'Huilv' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'FKPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FontBlue + Width = 49 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1366 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#20184#27454 + #24050#20184#27454 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1366 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 640 + Top = 208 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 608 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 640 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 672 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 672 + Top = 208 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 607 + Top = 207 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 397 + Top = 225 + end + object PopupMenu1: TPopupMenu + Left = 360 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 359 + Top = 223 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKFKList.pas b/坯布码单待检(PBMDDJ.dll)/U_PKFKList.pas new file mode 100644 index 0000000..2720bd5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKFKList.pas @@ -0,0 +1,906 @@ +unit U_PKFKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmPKFKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + FactoryName: TEdit; + Label6: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton2: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + Label3: TLabel; + PayMent: TEdit; + Label4: TLabel; + ComTaiTou: TEdit; + v1Column18: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton5: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + ClientDataSet3: TClientDataSet; + Label5: TLabel; + v1Column4: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Huilv: TcxGridDBColumn; + Label1: TLabel; + BZType: TComboBox; + Label7: TLabel; + JBPerson: TEdit; + Label8: TLabel; + PKName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + function SaveFKData():Boolean; + function SaveFKQTData():Boolean; + function HXYFK(FKID:string):Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmPKFKList: TfrmPKFKList; + +implementation +uses + U_DataLink,U_RTFun,U_PKInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmPKFKList.FormDestroy(Sender: TObject); +begin + frmPKFKList:=nil; +end; + +procedure TfrmPKFKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPKFKList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽ븶б',Tv1,''); + +end; + +procedure TfrmPKFKList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*'); + SQL.Add(' from YF_Money_PaiKuan A where 1=1 '); + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and A.PKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.PKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and A.FKTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.FKTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + end; + + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(FKID,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(FKID,'''')<>'''' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmPKFKList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate+7; + BegDate.Date:=FNowDate-7; + ReadCxGrid('ʽ븶б',Tv1,''); +end; + +function TfrmPKFKList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Main.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPKFKList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʽ븶б',cxGrid1); +end; + +procedure TfrmPKFKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKFKList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPKFKList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKFKList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ븶'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKFKList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; +procedure TfrmPKFKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKFKList.FactoryNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPKFKList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPKFKList.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ʽ.rmf' ; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete TBSubID where DName='''+Trim(DName)+''''); + ExecSQL; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into TBSubID'); + sql.Add(' select '''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(','''+Trim(DName)+''''); + ExecSQL; + end; + Edit; + FieldByName('PrtFlag').Value:=True; + Post; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set PrtFlag=1,PrtTime=getdate(),Prter='''+Trim(DName)+''''); + sql.Add(' where PKID in(select SubId from TBSubID A where A.DName='''+Trim(DName)+''')'); + ExecSQL; + end; + Order_Main.EnableControls; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,'); + sql.Add(' Case when isnull(FactoryNameOther,'''')<>'''' then RTrim(FactoryNameOther)+''/''+RTrim(FactoryName) '); + sql.Add(' else FactoryNameQC end as FactoryNameHZ'); + sql.Add(' from ('); + sql.Add(' select A.PKID,A.ComTaiTou,A.PKYongTu,A.PayMent,A.FactoryNameOther,A.FactoryName,isnull(A.PKMoney,0) PKMoney,A.ChkNote '); + sql.Add(' ,isnull(A.BQKKMoney,0) BQKKMoney,isnull(A.HZKKMoney,0) HZKKMoney,isnull(A.BQYFMoney,0) BQYFMoney,isnull(A.HZYFMoney,0) HZYFMoney'); + sql.Add(',isnull(A.DDuiZhangMoney,0) DDuiZhangMoney,isnull(A.MaxHZYFMoney,0) MaxHZYFMoney,A.PKDate,A.Filler'); + sql.Add(' ,FYear=Rtrim(Convert(varchar(4),A.PKDate,120))+'''''); + sql.Add(' ,FactoryNameQC=(select KHName from ZH_KH_Info B where B.KHNameJC=A.FactoryName and B.Type=''GYS'' ) '); + sql.Add(' from YF_Money_PaiKuan A'); + sql.Add(' where PKID in(select SubId from TBSubID where DName='''+Trim(DName)+'''))AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['FMonth']:=Order_Main.fieldbyname('KQDate10').AsString; + RM1.ShowPrintDialog:=True; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'ʽ'),'ʾ',0); + end; + +end; +procedure TfrmPKFKList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPKFKList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmPKFKList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;FKMoney',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;FKTime',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;ComTaiTou',VarArrayOf([True,null]),[loPartialKey])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Main.Locate('SSel;BZType;HuiLv',VarArrayOf([True,'',null]),[loPartialKey])=True then + begin + Application.MessageBox('ʲΪ!','ʾ',0); + Exit; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if FieldByName('FKMoney').Value=0 then + begin + Order_Main.EnableControls; + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if FieldByName('FKMoney').Value>FieldByName('PKMoney').Value then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴ!','ʾ',0); + Exit; + end; + + end; + Next; + end; + end; + Order_Main.EnableControls; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + if Trim(Order_Main.fieldbyname('HZType').AsString)='' then + begin + SaveFKData(); + end else + begin + SaveFKQTData(); + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmPKFKList.SaveFKData():Boolean; +var + maxId,CRID:String; +begin + try + //ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(Order_Main.fieldbyname('FactoryNo').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + if GetLSNo(ADOQueryCmd,maxId,'SF','YF_Money_CR',4,1)=False then + begin + Result:=False; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='Ǽ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=Order_Main.fieldbyname('FKTime').Value; + FieldByName('Money').Value:=Order_Main.fieldbyname('FKMoney').Value; + FieldByName('BBMoney').Value:=Order_Main.fieldbyname('FKMoney').Value; + FieldByName('BZType').Value:=''; + FieldByName('HuiLv').Value:=1; + FieldByName('Note').Value:=Order_Main.fieldbyname('FKNote').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set FKPerson='''+Trim(DName)+''''); + sql.Add(',FKID='''+Trim(maxId)+''''); + sql.Add(',FKTime='''+Trim(FormatDateTime('yyyy-MM-dd',Order_Main.fieldbyname('FKTime').AsDateTime))+''''); + sql.Add(',FKMoney='+Trim(Order_Main.fieldbyname('FKMoney').AsString)); + sql.Add(',FKNote='''+Trim(Order_Main.fieldbyname('FKNote').AsString)+''''); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Result:=True; + {if HXYFK(maxId)=True then + begin + Result:=True; + end else + begin + Result:=False; + end; } + + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('渶ʧ!','ʾ',0); + end; +end; +function TfrmPKFKList.SaveFKQTData():Boolean; +var + maxId:String; +begin + try + //ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'QF','YF_Money_CR',4,1)=False then + begin + Result:=False; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value:=Trim(maxId); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='Ǽ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=Order_Main.fieldbyname('FKTime').Value; + FieldByName('Money').Value:=Order_Main.fieldbyname('FKMoney').Value; + FieldByName('BBMoney').Value:=Order_Main.fieldbyname('FKMoney').Value + *Order_Main.fieldbyname('HuiLv').Value; + FieldByName('Note').Value:=Order_Main.fieldbyname('FKNote').Value; + FieldByName('BZType').Value:=Order_Main.fieldbyname('BZType').Value; + FieldByName('HuiLv').Value:=Order_Main.fieldbyname('HuiLv').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set FKPerson='''+Trim(DName)+''''); + sql.Add(',FKID='''+Trim(maxId)+''''); + sql.Add(',FKTime='''+Trim(FormatDateTime('yyyy-MM-dd',Order_Main.fieldbyname('FKTime').AsDateTime))+''''); + sql.Add(',FKMoney='+Trim(Order_Main.fieldbyname('FKMoney').AsString)); + sql.Add(',FKNote='''+Trim(Order_Main.fieldbyname('FKNote').AsString)+''''); + sql.Add(',HuiLv='+Trim(Order_Main.fieldbyname('HuiLv').AsString)); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +function TfrmPKFKList.HXYFK(FKID:string):Boolean; +var + factoryname,FFKMoney,maxno,FXType:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select FXType,'); + sql.Add(' DHXMoney=Money-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX B where B.FKID=A.YFID),0)'); + sql.Add(' from YF_Money_CR A'); + SQL.Add(' where YFID='''+Trim(FKID)+''''); + Open; + end; + FFKMoney:=ADOQueryTemp.fieldbyname('DHXMoney').AsString; + FXType:=Trim(ADOQueryTemp.fieldbyname('FXType').AsString); + if StrToFloat(FFKMoney)>0 then + begin + if Trim(FXType)='' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,YingFuMoney=Money-YiFuMoney '); + sql.Add(' ,DZMoney=(select isnull(Money,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' ,DZChaEMoney=(select isnull(ChaEMoney,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' from YF_Money_CR A '); + sql.Add(' where FactoryName='''+Trim(Order_Main.fieldbyname('FactoryName').AsString)+''''); + //SQL.Add(' and CRID='+Trim(ClientDataSet2.fieldbyname('CRID').AsString)); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and (Money-YiFuMoney)<>0'); + sql.Add(' and not exists(select * from JYOrder_Main_MD_HZ C where C.YFID=A.YFID and isnull(C.ItemName,'''')='''')'); + sql.Add(' order by CRTime,Money'); + Open; + end; + end else + if Trim(FXType)='' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,YingFuMoney=Money-YiFuMoney '); + sql.Add(' ,DZMoney=(select isnull(Money,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' ,DZChaEMoney=(select isnull(ChaEMoney,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' from YF_Money_CR A '); + sql.Add(' where isnull(A.MHID,'''')='''+Trim(Order_Main.fieldbyname('MHID').AsString)+''''); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and (Money-YiFuMoney)<>0'); + Open; + end; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('DZMoney').Value<0 then + begin + if ClientDataSet3.FieldByName('DZChaEMoney').Value<>0 then + begin + Next; + end; + end; + if ClientDataSet3.FieldByName('YingFuMoney').Value<=StrToFloat(FFKMoney) then //ӦСڵڸ + begin + if StrToFloat(FFKMoney)>0 then + begin + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet3.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(FKID); + FieldByName('HXMoney').Value:=ClientDataSet3.FieldByName('YingFuMoney').Value; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + FFKMoney:=FloatToStr(StrToFloat(FFKMoney)-ClientDataSet3.FieldByName('YingFuMoney').Value); + ClientDataSet3.Delete; + end else + begin + ClientDataSet3.Last; + end; + end else + //Ӧڸ + begin + if StrToFloat(FFKMoney)=0 then + begin + ClientDataSet3.Last; + end; + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet3.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(FKID); + FieldByName('HXMoney').Value:=FFKMoney; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet3.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + FFKMoney:='0'; + ClientDataSet3.Delete; + ClientDataSet3.Last; + end; + end; + end; + Result:=True; + end; +end; +procedure TfrmPKFKList.ToolButton5Click(Sender: TObject); +var + CRID:String; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(' and OKFlag=1 '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Order_Main.EnableControls; + Application.MessageBox('ȷϣܳ!','ʾ',0); + Exit; + end; + end; + Next; + end; + end; + Order_Main.EnableControls;} + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set FKTime=NUll,FKPerson=Null'); + if Trim(Order_Main.fieldbyname('BZType').AsString)='' then + begin + sql.Add(',HuiLv=Null '); + end; + sql.Add(',FKNote=Null,FKID=Null,FKMoney=Null '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmPKFKList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Order_Main.IsEmpty then exit; + if Trim(Order_Main.fieldbyname('BZType').AsString)='' then + begin + v1Huilv.Options.Editing:=False; + end else + begin + v1Huilv.Options.Editing:=True; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKHZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKHZList.dfm new file mode 100644 index 0000000..ba198d9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKHZList.dfm @@ -0,0 +1,667 @@ +object frmPKHZList: TfrmPKHZList + Left = 55 + Top = 122 + Width = 1328 + Height = 552 + Caption = #36164#37329#30003#35831#27719#24635#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1312 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1312 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 140 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 254 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 27 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 521 + Top = 18 + Width = 52 + Height = 12 + Caption = #25903#20184#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 649 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 784 + Top = 18 + Width = 26 + Height = 12 + Caption = #24065#31181 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 905 + Top = 18 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 404 + Top = 18 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 55 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 158 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FactoryName: TEdit + Tag = 2 + Left = 295 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 2 + OnChange = FactoryNameChange + end + object PayMent: TEdit + Tag = 2 + Left = 575 + Top = 14 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 703 + Top = 14 + Width = 69 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object BZType: TComboBox + Tag = 1 + Left = 813 + Top = 14 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 5 + OnChange = FactoryNameChange + Items.Strings = ( + #20154#27665#24065 + #32654#37329 + '') + end + object JBPerson: TEdit + Tag = 2 + Left = 945 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object PKName: TEdit + Tag = 2 + Left = 432 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 103 + Width = 1312 + Height = 410 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column19: TcxGridDBColumn + Tag = 77 + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column5: TcxGridDBColumn + Tag = 77 + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column26: TcxGridDBColumn + Tag = 77 + Caption = #31867#22411 + DataBinding.FieldName = 'HZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column6: TcxGridDBColumn + Tag = 77 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 130 + end + object v1Column8: TcxGridDBColumn + Tag = 77 + Caption = #21697#21517 + DataBinding.FieldName = 'PKName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column16: TcxGridDBColumn + Tag = 77 + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 87 + end + object v1Column17: TcxGridDBColumn + Tag = 77 + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column17PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#20182')' + DataBinding.FieldName = 'FactoryNameOther' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownRows = 20 + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column9: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column3: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column21: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column24: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column7: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column23: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FonePurple + Styles.Footer = DataLink_DDMD.FonePurple + Styles.Header = DataLink_DDMD.FonePurple + Width = 113 + end + object v1ShipDate: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 63 + end + object v1Column12: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'FKPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26102#38388 + DataBinding.FieldName = 'FKTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1312 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23457#26680 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1312 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 352 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 616 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 200 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 607 + Top = 143 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 350 + Top = 185 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 320 + Top = 184 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 351 + Top = 152 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 725 + Top = 145 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 381 + Top = 187 + end + object CDS_FX: TClientDataSet + Aggregates = <> + Params = <> + Left = 319 + Top = 215 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKHZList.pas b/坯布码单待检(PBMDDJ.dll)/U_PKHZList.pas new file mode 100644 index 0000000..9b0cac3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKHZList.pas @@ -0,0 +1,294 @@ +unit U_PKHZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus, cxDropDownEdit; + + +type + TfrmPKHZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + FactoryName: TEdit; + Label6: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + CDS_FX: TClientDataSet; + v1Column2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + PayMent: TEdit; + ComTaiTou: TEdit; + Label5: TLabel; + BZType: TComboBox; + Label7: TLabel; + JBPerson: TEdit; + Label8: TLabel; + PKName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPKHZList: TfrmPKHZList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmPKHZList.FormDestroy(Sender: TObject); +begin + frmPKHZList:=nil; +end; + +procedure TfrmPKHZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPKHZList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKHZList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*'); + SQL.Add(' from YF_Money_PaiKuan A where 1=1 '); + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and A.PKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.PKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + end; + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmPKHZList.InitForm(); +var + fsj:string; +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + begdate.DateTime:=StrToDate(Trim(FormatDateTime('yyyy-MM',SGetServerDate(ADOQueryTemp)))+'-01'); + ReadCxGrid('ʽб',Tv1,''); +end; + + + +procedure TfrmPKHZList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʽб',cxGrid1); +end; + +procedure TfrmPKHZList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKHZList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPKHZList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKHZList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKHZList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + + + +procedure TfrmPKHZList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKHZList.FactoryNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPKHZList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPKHZList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPKHZList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmPKHZList.v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKInPut.dfm new file mode 100644 index 0000000..f7b6a81 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPut.dfm @@ -0,0 +1,659 @@ +object frmPKInPut: TfrmPKInPut + Left = 218 + Top = 108 + Width = 1024 + Height = 573 + Caption = #25490#27454#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1008 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_YSYFMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 103 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 107 + OnClick = ToolButton4Click + end + object Panel1: TPanel + Left = 189 + Top = 0 + Width = 165 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 60 + Height = 12 + Caption = #24212#20184#27454#26085#26399 + end + object PKDate: TDateTimePicker + Left = 72 + Top = 4 + Width = 87 + Height = 20 + Date = 40664.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40664.464761099540000000 + TabOrder = 0 + end + end + object ToolButton1: TToolButton + Left = 354 + Top = 0 + Caption = #23548#20837#25968#25454 + ImageIndex = 30 + OnClick = ToolButton1Click + end + object Panel2: TPanel + Left = 437 + Top = 0 + Width = 276 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object RadioGroup1: TRadioGroup + Left = 1 + Top = -3 + Width = 274 + Height = 30 + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + #26412#26399 + #26412#26399#20043#21518 + #20840#37096) + TabOrder = 0 + OnClick = RadioGroup1Click + end + end + object ToolButton2: TToolButton + Left = 713 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 72 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 800 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1008 + Height = 293 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column15 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_YSYFMD.Default + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 117 + end + object v1Column8: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column5: TcxGridDBColumn + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_YSYFMD.Default + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #26412#26399#24212#20184#37329#39069 + DataBinding.FieldName = 'BQYFMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column9: TcxGridDBColumn + Caption = #24635#24212#20184#37329#39069 + DataBinding.FieldName = 'HZYFMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column7: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column22: TcxGridDBColumn + Caption = #25490#27454#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_YSYFMD.FontBlue + Styles.Header = DataLink_YSYFMD.FontBlue + Width = 80 + end + object v1Column14: TcxGridDBColumn + Tag = 999 + Caption = #24773#20917#35828#26126 + DataBinding.FieldName = 'MDQingKuang' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 126 + end + object v1Column11: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column12: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#23427')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1Column13: TcxGridDBColumn + Caption = #36164#37329#29992#36884 + DataBinding.FieldName = 'PKYongTu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column10: TcxGridDBColumn + Caption = #26412#26399#24212#25187#27454 + DataBinding.FieldName = 'BQKKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#24212#25187#27454 + DataBinding.FieldName = 'HZKKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column3: TcxGridDBColumn + Caption = #24453#23545#36134#37329#39069 + DataBinding.FieldName = 'DDuiZhangMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column4: TcxGridDBColumn + Caption = #26368#22823#21270#24212#20184#37329#39069 + DataBinding.FieldName = 'MaxHZYFMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 117 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 330 + Width = 1008 + Height = 204 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = VQty + end + item + Format = '0' + Position = spFooter + Column = VPrice + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + Column = VPS + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = VQty + end + item + Kind = skSum + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YSYFMD.SHuangSe + Styles.IncSearch = DataLink_YSYFMD.SHuangSe + Styles.Selection = DataLink_YSYFMD.SHuangSe + Styles.Header = DataLink_YSYFMD.Default + object VOrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 87 + end + object vPSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Width = 62 + end + object VDate: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 88 + end + object VFTYName: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 94 + end + object VYFName: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 115 + end + object VPayMent: TcxGridDBColumn + Tag = 2 + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VPS: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object VQty: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object VQtyUnit: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VPrice: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VYB: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 70 + end + object v2Column1: TcxGridDBColumn + Tag = 666 + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v2Column3: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'FKDate' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v2Column2: TcxGridDBColumn + Tag = 666 + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YFYMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object VNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 322 + Width = 1008 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object ADOTemp: TADOQuery + Connection = DataLink_YSYFMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_YSYFMD.ADOLink + Parameters = <> + Left = 813 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 463 + Top = 408 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 829 + Top = 405 + end + object ADOZDY: TADOQuery + Connection = DataLink_YSYFMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1010 + Top = 51 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 4 + end + object ADOQuery1: TADOQuery + Connection = DataLink_YSYFMD.ADOLink + Parameters = <> + Left = 1045 + Top = 61 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 818 + Top = 254 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 655 + Top = 383 + end + object DataSource3: TDataSource + DataSet = ClientDataSet2 + Left = 608 + Top = 392 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 570 + Top = 414 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_PKInPut.pas new file mode 100644 index 0000000..9b1160f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPut.pas @@ -0,0 +1,748 @@ +unit U_PKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmPKInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + Panel1: TPanel; + Label1: TLabel; + PKDate: TDateTimePicker; + ToolButton1: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + ClientDataSet2: TClientDataSet; + DataSource3: TDataSource; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VOrderNo: TcxGridDBColumn; + vPSName: TcxGridDBColumn; + VDate: TcxGridDBColumn; + VFTYName: TcxGridDBColumn; + VYFName: TcxGridDBColumn; + VPayMent: TcxGridDBColumn; + VPS: TcxGridDBColumn; + VQty: TcxGridDBColumn; + VQtyUnit: TcxGridDBColumn; + VPrice: TcxGridDBColumn; + VYB: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + Panel2: TPanel; + RadioGroup1: TRadioGroup; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure RadioGroup1Click(Sender: TObject); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmPKInPut: TfrmPKInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmPKInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ſ¼',Tv1,''); + WriteCxGrid('Ӧб1',Tv2,''); +end; + +procedure TfrmPKInPut.InitData(); +var + fsj:String; +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,MDQingKuang=Cast('''' as varchar(50)) '); + SQL.Add(' from YF_Money_PaiKuan A '); + sql.Add(' where A.PKId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + if Order_Sub.IsEmpty then + begin + PKDate.DateTime:=Now; + fsj:=Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime)); + PKDate.DateTime:=StrToDate(fsj); + end else + begin + fsj:=Trim(FormatDateTime('yyyy-MM-dd',Order_Sub.fieldbyname('PKDate').AsDateTime)); + PKDate.Date:=StrToDate(fsj); + end; + +end; + +procedure TfrmPKInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmPKInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ſ¼',Tv1,''); + ReadCxGrid('Ӧб1',Tv2,''); + InitData(); +end; +procedure TfrmPKInPut.GetMaxConNO(); +begin + +end; +function TfrmPKInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('PKMoney').AsString)<>'' then + begin + if Trim(Order_Sub.fieldbyname('PKID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'PK','YF_Money_PaiKuan',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('PKID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(Order_Sub.fieldbyname('PKID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('PKID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('PKID').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'YF_Money_PaiKuan',0) ; + FieldByName('PKDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',PKDate.Date)); + FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + if PState=1 then + begin + FieldByName('Chker').Value:=Null; + FieldByName('ChkStatus').Value:=Null; + FieldByName('ChkNote').Value:=Null; + FieldByName('ChkTime').Value:=Null; + end; + + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where '); + sql.Add(' FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + sql.Add(' and isnull(ComTaiTou,'''')='''+Trim(Order_Sub.fieldbyname('ComTaiTou').AsString)+''''); + sql.Add(' and isnull(FactoryNameOther,'''')='''+Trim(Order_Sub.fieldbyname('FactoryNameOther').AsString)+''''); + sql.Add(' and isnull(PayMent,'''')='''+Trim(Order_Sub.fieldbyname('PayMent').AsString)+''''); + sql.Add(' and PKDate='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + Result:=False; + ADOCmd.Connection.RollbackTrans; + Order_Sub.EnableControls; + Application.MessageBox(PChar('Ӧ:'+ + Trim(Order_Sub.fieldbyname('FactoryName').AsString)+ + Trim(FormatDateTime('yyyy-MM-dd',PKDate.Date))+ + 'ڵſݲظ¼!'),'ʾ',0); + Exit; + end; + Edit; + FieldByName('PKID').Value:=Trim(maxno); + end; + + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmPKInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + {if Order_Sub.Locate('PKMoney',null,[]) then + begin + Application.MessageBox('ſΪ!','ʾ',0); + Exit; + end;} + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('PKMoney').AsString)<>'' then + begin + {if Trim(Order_Sub.fieldbyname('ComTaiTou').AsString)='' then + begin + Order_Sub.EnableControls; + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end;} + if Trim(Order_Sub.fieldbyname('PayMent').AsString)='' then + begin + Order_Sub.EnableControls; + Application.MessageBox('֧ʽΪ!','ʾ',0); + Exit; + end; + if Trim(Order_Sub.fieldbyname('PSName').AsString)='' then + begin + Order_Sub.EnableControls; + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + if Trim(Order_Sub.fieldbyname('PKYongTu').AsString)='' then + begin + Order_Sub.EnableControls; + Application.MessageBox('ʽ;Ϊ!','ʾ',0); + Exit; + end; + + end; + Next; + end; + end; + Order_Sub.EnableControls; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmPKInPut.ToolButton3Click(Sender: TObject); +var + FKQDate:TDateTime; + FKQWorkDays,FStr:string; +begin + Fstr:=''; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + {with ADOTemp do + begin + close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Order_Main.fieldbyname('KHNameJC').AsString+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Fstr:='99'; + end else + if ADOTemp.FieldByName('KCMoney').Value>0 then + begin + FStr:=''; + end else + begin + FStr:='99'; + end;} + with ADOTemp do + begin + Close; + sql.Clear; + SQL.Add(' select AAA.*,MaxHZYFMoney=isnull(HZYFMoney,0)+isnull(DDuiZhangMoney,0) '); + sql.Add(' ,BQYFMoney=isnull(BQYFMoney10,0)+isnull(HZKKMoney,0)'); + sql.Add(',Case when GYS.LockFlag=1 and isnull(GYS.LockDays,0)+isnull(AAA.MinMHDate,Getdate())<=getdate() then ''δ뵥ſ'' '); + SQL.Add(' When isnull((select Top 1 PK.FactoryName from YF_Money_PaiKuan PK '); + SQL.Add(' where isnull(PK.FKMoney,0)=0 and PK.FactoryName='''+Trim(Order_Main.fieldbyname('KHNameJC').AsString)+''''); + sql.Add(' and isnull(PK.ChkStatus,'''')<>''˲ͨ'' and PK.PKDate>''2014-11-10''), '''')<>'''' then ''δſ¼ſ'' '); + SQL.Add(' else '''' end as MDQingKuang'); + sql.Add(' from('); + sql.Add(' select AA.* '); + SQL.Add(',MinMHDate=(select min(MHDate) from JYOrder_Main_MD_HZ B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.DuiZhangStatus,'''')='''' )'); + sql.Add(' ,HZYFMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and B.CRType=''ӦǼ'' )'); + sql.Add(' ,BQKKMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and isnull(B.Money,0)<0 and B.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''''); + sql.Add(' and B.CRType=''ӦǼ'' )'); + sql.Add(' ,HZKKMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and isnull(B.Money,0)<0 '); + sql.Add(' and B.CRType=''ӦǼ'' )'); + sql.Add(' ,DDuiZhangMoney=(select Sum(Money) from JYOrder_Main_MD_HZ JMMH where JMMH.FactoryName=AA.FactoryName ');//and JMMH.PSName=AA.PSName + sql.Add(' and isnull(JMMH.Status,'''')<>'''' and isnull(JMMH.DuiZhangStatus,'''')='''')'); + sql.Add(' from ('); + sql.Add(' select FactoryName,BQYFMoney10=sum(Money-YiFuMoney) '); //PSName,FactoryNo, + sql.Add(' from YF_Money_CR A'); + sql.Add(' where CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''''); + sql.Add(' and isnull(YiFuMoney,0)<>isnull(Money,0)'); + sql.Add(' and isnull(Money,0)>0'); + sql.Add(' and not exists(select * from YF_Money_PaiKuan PK where PK.FactoryName=A.FactoryName '); + sql.Add(' and PK.PKDate='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''')'); + sql.Add(' and FactoryName='''+Trim(Order_Main.fieldbyname('KHNameJC').AsString)+''''); + sql.Add(' and A.CRType=''ӦǼ'' '); + sql.Add(' Group by FactoryName)AA)AAA');//,PSName ,FactoryNo + sql.Add(' inner join ZH_KH_Info GYS on Rtrim(GYS.KHNameJC)=RTrim(AAA.FactoryName)'); + //sql.Add(' where (GYS.LockFlag=0 or (GYS.LockFlag=1 and isnull(GYS.LockDays,0)+isnull(AAA.MinMHDate,Getdate())>getdate() ))'); + Open; + end; + //if (ADOTemp.IsEmpty=False) or (FStr='99') then + begin + with Self.Order_Sub do + begin + Append; + // FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('ZKID').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('KHNameJC').AsString); + FieldByName('PKDate').Value:=PKDate.Date; + // FieldByName('PSName').Value:=ADOTemp.fieldbyname('PSName').Value; + FieldByName('MDQingKuang').Value:=ADOTemp.fieldbyname('MDQingKuang').Value; + FieldByName('BQYFMoney').Value:=ADOTemp.fieldbyname('BQYFMoney').Value; + FieldByName('HZYFMoney').Value:=ADOTemp.fieldbyname('HZYFMoney').Value; + FieldByName('BQKKMoney').Value:=ADOTemp.fieldbyname('BQKKMoney').Value; + FieldByName('HZKKMoney').Value:=ADOTemp.fieldbyname('HZKKMoney').Value; + FieldByName('DDuiZhangMoney').Value:=ADOTemp.fieldbyname('DDuiZhangMoney').Value; + FieldByName('MaxHZYFMoney').Value:=ADOTemp.fieldbyname('MaxHZYFMoney').Value; + Post; + end; + end; + + end; + end; + finally + frmGYSList.Free; + end; + +end; + +procedure TfrmPKInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('PKId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Sub.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmPKInPut.ToolButton1Click(Sender: TObject); +var + FReal:Double; +begin + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add(' select AAA.*,MaxHZYFMoney=isnull(HZYFMoney,0)+isnull(DDuiZhangMoney,0) '); + sql.Add(' ,BQYFMoney=isnull(BQYFMoney10,0)+isnull(HZKKMoney,0)'); + sql.Add(',Case when GYS.LockFlag=1 and isnull(GYS.LockDays,0)+isnull(AAA.MinMHDate,Getdate())<=getdate() then ''δ뵥ſ'' '); + SQL.Add(' When isnull((select Top 1 PK.FactoryName from YF_Money_PaiKuan PK '); + SQL.Add(' where isnull(FKMoney,0)=0 and PK.FactoryName=AAA.FactoryName and PK.PKDate<='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.Date))+''''); + sql.Add(' and isnull(PK.ChkStatus,'''')<>''˲ͨ'' and PKDate>''2014-11-10''), '''')<>'''' then ''δſ¼ſ'' '); + sql.Add(' else '''' end as MDQingKuang'); + sql.Add(' from('); + sql.Add(' select AA.* '); + SQL.Add(',MinMHDate=isnull((select min(MHDate) from JYOrder_Main_MD_HZ B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.DuiZhangStatus,'''')='''' ),getdate()+1)'); // and isnull(B.Status,'''')<>'''' + sql.Add(' ,HZYFMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and B.CRType=''ӦǼ'' )'); + // sql.Add(' and not exists(select * from JYOrder_Main_MD_HZ C on )'); + sql.Add(' ,BQKKMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and isnull(B.Money,0)<0 and B.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''''); + sql.Add(' and B.CRType=''ӦǼ'' )'); + sql.Add(' ,HZKKMoney=(select Sum(Money-YiFuMoney) from YF_Money_CR B '); + sql.Add(' where B.FactoryName=AA.FactoryName and isnull(B.YiFuMoney,0)<>isnull(B.Money,0)');//and B.PSName=AA.PSName + sql.Add(' and isnull(B.Money,0)<0 '); + sql.Add(' and B.CRType=''ӦǼ'' )'); + sql.Add(' ,DDuiZhangMoney=(select Sum(Money) from JYOrder_Main_MD_HZ JMMH where JMMH.FactoryName=AA.FactoryName ');//and JMMH.PSName=AA.PSName + sql.Add(' and isnull(JMMH.Status,'''')<>'''' and isnull(JMMH.DuiZhangStatus,'''')='''')'); + sql.Add(' from ('); + sql.Add(' select FactoryName,BQYFMoney10=sum(Money-YiFuMoney) ');//PSName,FactoryNo, + sql.Add(' from YF_Money_CR A'); + sql.Add(' where CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''''); + sql.Add(' and isnull(YiFuMoney,0)<>isnull(Money,0)'); + sql.Add(' and isnull(Money,0)>0'); + sql.Add(' and A.CRType=''ӦǼ'' '); + sql.Add(' and not exists(select * from YF_Money_PaiKuan PK where PK.FactoryName=A.FactoryName '); + sql.Add(' and PK.PKDate='''+Trim(FormatDateTime('yyyy-MM-dd',PKDate.DateTime))+''')'); + sql.Add(' Group by FactoryName)AA)AAA');//PSName ,FactoryNo + sql.Add(' inner join ZH_KH_Info GYS on Rtrim(GYS.KHNameJC)=RTrim(AAA.FactoryName)'); + //sql.Add(' where (GYS.LockFlag=0 or (GYS.LockFlag=1 and isnull(GYS.LockDays,0)+isnull(AAA.MinMHDate,Getdate())>getdate() ))'); + //sql.Add(' )AAA'); + //ShowMessage(sql.Text); + Open; + end; + with ADOTemp do + begin + First; + while not Eof do + begin + with Order_Sub do + begin + Append; + //FieldByName('FactoryNo').Value:=ADOTemp.fieldbyname('FactoryNo').Value; + FieldByName('FactoryName').Value:=ADOTemp.fieldbyname('FactoryName').Value; + //FieldByName('PSName').Value:=ADOTemp.fieldbyname('PSName').Value; + FieldByName('MDQingKuang').Value:=ADOTemp.fieldbyname('MDQingKuang').Value; + FieldByName('BQYFMoney').Value:=ADOTemp.fieldbyname('BQYFMoney').Value; + FieldByName('HZYFMoney').Value:=ADOTemp.fieldbyname('HZYFMoney').Value; + FieldByName('BQKKMoney').Value:=ADOTemp.fieldbyname('BQKKMoney').Value; + FieldByName('HZKKMoney').Value:=ADOTemp.fieldbyname('HZKKMoney').Value; + FieldByName('PKDate').Value:=PKDate.Date; + FieldByName('DDuiZhangMoney').Value:=ADOTemp.fieldbyname('DDuiZhangMoney').Value; + FieldByName('MaxHZYFMoney').Value:=ADOTemp.fieldbyname('MaxHZYFMoney').Value; + Post; + end; + Next; + end; + end; + +end; + +procedure TfrmPKInPut.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + { if Trim(Order_Sub.fieldbyname('MDQingKuang').AsString)<>'' then + begin + Tv1.OptionsData.Editing:=False; + end else + begin + Tv1.OptionsData.Editing:=True; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + SQL.Add(',FKDate=(select Top 1 CRTime from YF_Money_CR YR inner join YF_Money_CR_HX YH on YR.YFID=YH.FKID'); + sql.Add(' where YH.YFID=A.YFID order by YR.CRTime )'); + sql.Add(',YFYMoney=isnull(Money,0)-isnull(YiFuMoney,0)'); + sql.Add(' from YF_Money_CR A where CRType=''ӦǼ'''); + SQL.Add(' and FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + //SQL.Add(' and PSName='''+Trim(Order_Sub.fieldbyname('PSName').AsString)+''''); + if RadioGroup1.ItemIndex=0 then + begin + sql.Add(' and CRTime<='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end else + if RadioGroup1.ItemIndex=1 then + begin + sql.Add(' and CRTime>'''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOTemp,ClientDataSet2); + SInitCDSData20(ADOTemp,ClientDataSet2); + if Trim(Order_Sub.fieldbyname('PSName').AsString)='' then + begin + if ClientDataSet2.IsEmpty then Exit; + with Order_Sub do + begin + Edit; + FieldByName('PSName').Value:=Trim(ClientDataSet2.fieldbyname('PSName').AsString); + //Post; + end; + end; } +end; + +procedure TfrmPKInPut.RadioGroup1Click(Sender: TObject); +begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + SQL.Add(',FKDate=(select Top 1 CRTime from YF_Money_CR YR inner join YF_Money_CR_HX YH on YR.YFID=YH.FKID'); + sql.Add(' where YH.YFID=A.YFID order by YR.CRTime )'); + sql.Add(',YFYMoney=isnull(Money,0)-isnull(YiFuMoney,0)'); + sql.Add(' from YF_Money_CR A where CRType=''ӦǼ'''); + SQL.Add(' and FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + //SQL.Add(' and PSName='''+Trim(Order_Sub.fieldbyname('PSName').AsString)+''''); + if RadioGroup1.ItemIndex=0 then + begin + sql.Add(' and CRTime<='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end else + if RadioGroup1.ItemIndex=1 then + begin + sql.Add(' and CRTime>'''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOTemp,ClientDataSet2); + SInitCDSData20(ADOTemp,ClientDataSet2); +end; + +procedure TfrmPKInPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPut.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKPayMent'; + flagname:='ʽ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPut.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ſ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKInPut.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKYongTu'; + flagname:='ʽ;'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PKYongTu').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Trim(Order_Sub.fieldbyname('MDQingKuang').AsString)<>'' then + begin + Tv1.OptionsData.Editing:=False; + end else + begin + Tv1.OptionsData.Editing:=True; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) '); + SQL.Add(',FKDate=(select Top 1 CRTime from YF_Money_CR YR inner join YF_Money_CR_HX YH on YR.YFID=YH.FKID'); + sql.Add(' where YH.YFID=A.YFID order by YR.CRTime )'); + sql.Add(',YFYMoney=isnull(Money,0)-isnull(YiFuMoney,0)'); + sql.Add(' from YF_Money_CR A where CRType=''ӦǼ'''); + SQL.Add(' and FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + //SQL.Add(' and PSName='''+Trim(Order_Sub.fieldbyname('PSName').AsString)+''''); + if RadioGroup1.ItemIndex=0 then + begin + sql.Add(' and CRTime<='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end else + if RadioGroup1.ItemIndex=1 then + begin + sql.Add(' and CRTime>'''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + end; + Open; + end; + SCreateCDS20(ADOTemp,ClientDataSet2); + SInitCDSData20(ADOTemp,ClientDataSet2); + if Trim(Order_Sub.fieldbyname('PSName').AsString)='' then + begin + if ClientDataSet2.IsEmpty then Exit; + with Order_Sub do + begin + Edit; + FieldByName('PSName').Value:=Trim(ClientDataSet2.fieldbyname('PSName').AsString); + //Post; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.dfm new file mode 100644 index 0000000..556f448 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.dfm @@ -0,0 +1,283 @@ +object frmPKInPutQT: TfrmPKInPutQT + Left = 184 + Top = 129 + Width = 1092 + Height = 573 + Caption = #36164#37329#23457#25209#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1076 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1076 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column13: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 121 + end + object v1Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PKName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column7: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column3: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #20154#27665#24065 + #32654#37329) + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column12: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#23427')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column2: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 117 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 544 + Top = 141 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 509 + Top = 139 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 431 + Top = 144 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 470 + Top = 148 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 613 + Top = 141 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 530 + Top = 262 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.pas b/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.pas new file mode 100644 index 0000000..21b2da1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPutQT.pas @@ -0,0 +1,483 @@ +unit U_PKInPutQT; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmPKInPutQT = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmPKInPutQT: TfrmPKInPutQT; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_ModuleNote, + U_GYSSelList; + +{$R *.dfm} + +procedure TfrmPKInPutQT.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽ¼',Tv1,''); +end; + +procedure TfrmPKInPutQT.InitData(); +var + fsj:String; +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from YF_Money_PaiKuan A '); + sql.Add(' where A.PKId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + +end; + +procedure TfrmPKInPutQT.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmPKInPutQT.FormShow(Sender: TObject); +begin + ReadCxGrid('ʽ¼',Tv1,''); + InitData(); +end; +procedure TfrmPKInPutQT.GetMaxConNO(); +begin + +end; +function TfrmPKInPutQT.SaveData():Boolean; +var + maxno,FSQID:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(Order_Sub.fieldbyname('PKID').AsString)+''''); + Open; + end; + FSQID:=Trim(ADOTemp.fieldbyname('PKID').AsString); + if Trim(FSQID)='' then + begin + if GetLSNo(ADOCmd,maxno,'SS','YF_Money_PaiKuan',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FSQID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FSQID)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('PKID').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'YF_Money_PaiKuan',0) ; + FieldByName('HZType').Value:=''; + if Trim(Order_Sub.fieldbyname('BZType').AsString)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + if PState=1 then + begin + FieldByName('Chker').Value:=Null; + FieldByName('ChkStatus').Value:=Null; + FieldByName('ChkNote').Value:=Null; + FieldByName('ChkTime').Value:=Null; + end; + + if Trim(FSQID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where PKNO='+Trim(Order_Sub.fieldbyname('PKNO').AsString)); + sql.Add(' and Convert(varchar(4),PKDate,120)='''+Trim(FormatDateTime('yyyy',Order_Sub.fieldbyname('PKDate').AsDateTime))+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + Result:=False; + ADOCmd.Connection.RollbackTrans; + Order_Sub.EnableControls; + Application.MessageBox(PChar(': '+ + Trim(Order_Sub.fieldbyname('PKNO').AsString)+ + ' ظ¼!'),'ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where '); + sql.Add(' FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + sql.Add(' and isnull(ComTaiTou,'''')='''+Trim(Order_Sub.fieldbyname('ComTaiTou').AsString)+''''); + sql.Add(' and isnull(FactoryNameOther,'''')='''+Trim(Order_Sub.fieldbyname('FactoryNameOther').AsString)+''''); + sql.Add(' and isnull(PayMent,'''')='''+Trim(Order_Sub.fieldbyname('PayMent').AsString)+''''); + sql.Add(' and PKDate='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + Result:=False; + ADOCmd.Connection.RollbackTrans; + Order_Sub.EnableControls; + Application.MessageBox(PChar('Ӧ:'+ + Trim(Order_Sub.fieldbyname('FactoryName').AsString)+ + Trim(FormatDateTime('yyyy-MM-dd',Order_Sub.fieldbyname('FactoryName').AsDateTime))+ + 'ڵſݲظ¼!'),'ʾ',0); + Exit; + end; + Edit; + FieldByName('PKID').Value:=Trim(maxno); + + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmPKInPutQT.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('PKNO',null,[]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKDate',null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryName',null,[]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKName',null,[]) then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PayMent',null,[]) then + begin + Application.MessageBox('֧ʽΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKMoney',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('ComTaiTou',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('BZType',null,[]) then + begin + Application.MessageBox('ֲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('JBPerson',null,[]) then + begin + Application.MessageBox('˲Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmPKInPutQT.ToolButton3Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + FieldByName('PKDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; + +procedure TfrmPKInPutQT.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('PKId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Sub.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmPKInPutQT.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutQT.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKPayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutQT.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKInPutQT.v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PKName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutQT.v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString); + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmPKInPutQT.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JBPerson'; + flagname:=''; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('JBPerson').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.dfm new file mode 100644 index 0000000..71dfcb0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.dfm @@ -0,0 +1,272 @@ +object frmPKInPutWFX: TfrmPKInPutWFX + Left = 184 + Top = 129 + Width = 1092 + Height = 573 + Caption = #36164#37329#23457#25209#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1076 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1076 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column13: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 121 + end + object v1Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PKName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column7: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 99 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column12: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#23427')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column2: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 117 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 544 + Top = 141 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 509 + Top = 139 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 431 + Top = 144 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 470 + Top = 148 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 613 + Top = 141 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 530 + Top = 262 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.pas b/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.pas new file mode 100644 index 0000000..31bf097 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKInPutWFX.pas @@ -0,0 +1,475 @@ +unit U_PKInPutWFX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmPKInPutWFX = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmPKInPutWFX: TfrmPKInPutWFX; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_ModuleNote, + U_GYSSelList; + +{$R *.dfm} + +procedure TfrmPKInPutWFX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽ¼',Tv1,''); +end; + +procedure TfrmPKInPutWFX.InitData(); +var + fsj:String; +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* '); + SQL.Add(' from YF_Money_PaiKuan A '); + sql.Add(' where A.PKId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + +end; + +procedure TfrmPKInPutWFX.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmPKInPutWFX.FormShow(Sender: TObject); +begin + ReadCxGrid('ʽ¼',Tv1,''); + InitData(); +end; +procedure TfrmPKInPutWFX.GetMaxConNO(); +begin + +end; +function TfrmPKInPutWFX.SaveData():Boolean; +var + maxno,FSQID:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(Order_Sub.fieldbyname('PKID').AsString)+''''); + Open; + end; + FSQID:=Trim(ADOTemp.fieldbyname('PKID').AsString); + if Trim(FSQID)='' then + begin + if GetLSNo(ADOCmd,maxno,'SS','YF_Money_PaiKuan',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FSQID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_PaiKuan where PKID='''+Trim(maxno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FSQID)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('PKID').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'YF_Money_PaiKuan',0) ; + FieldByName('HZType').Value:=''; + FieldByName('BZType').Value:=''; + FieldByName('HuiLv').Value:=1; + FieldByName('FactoryNo').Value:=Order_Sub.fieldbyname('FactoryNo').Value; + if PState=1 then + begin + FieldByName('Chker').Value:=Null; + FieldByName('ChkStatus').Value:=Null; + FieldByName('ChkNote').Value:=Null; + FieldByName('ChkTime').Value:=Null; + end; + + if Trim(FSQID)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where PKNO='+Trim(Order_Sub.fieldbyname('PKNO').AsString)); + sql.Add(' and Convert(varchar(4),PKDate,120)='''+Trim(FormatDateTime('yyyy',Order_Sub.fieldbyname('PKDate').AsDateTime))+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + Result:=False; + ADOCmd.Connection.RollbackTrans; + Order_Sub.EnableControls; + Application.MessageBox(PChar(': '+ + Trim(Order_Sub.fieldbyname('PKNO').AsString)+ + ' ظ¼!'),'ʾ',0); + Exit; + end; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan where '); + sql.Add(' FactoryName='''+Trim(Order_Sub.fieldbyname('FactoryName').AsString)+''''); + sql.Add(' and isnull(ComTaiTou,'''')='''+Trim(Order_Sub.fieldbyname('ComTaiTou').AsString)+''''); + sql.Add(' and isnull(FactoryNameOther,'''')='''+Trim(Order_Sub.fieldbyname('FactoryNameOther').AsString)+''''); + sql.Add(' and isnull(PayMent,'''')='''+Trim(Order_Sub.fieldbyname('PayMent').AsString)+''''); + sql.Add(' and PKDate='''+Trim(Order_Sub.fieldbyname('PKDate').AsString)+''''); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + Result:=False; + ADOCmd.Connection.RollbackTrans; + Order_Sub.EnableControls; + Application.MessageBox(PChar('Ӧ:'+ + Trim(Order_Sub.fieldbyname('FactoryName').AsString)+ + Trim(FormatDateTime('yyyy-MM-dd',Order_Sub.fieldbyname('FactoryName').AsDateTime))+ + 'ڵſݲظ¼!'),'ʾ',0); + Exit; + end; + Edit; + FieldByName('PKID').Value:=Trim(maxno); + + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmPKInPutWFX.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('PKNO',null,[]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKDate',null,[]) then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('FactoryName',null,[]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKName',null,[]) then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PayMent',null,[]) then + begin + Application.MessageBox('֧ʽΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PKMoney',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('ComTaiTou',null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('JBPerson',null,[]) then + begin + Application.MessageBox('˲Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmPKInPutWFX.ToolButton3Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + FieldByName('PKDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; + +procedure TfrmPKInPutWFX.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('PKId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Sub.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmPKInPutWFX.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutWFX.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKPayMent'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PayMent').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutWFX.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKInPutWFX.v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PKName'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('PKName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPKInPutWFX.v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString); + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmPKInPutWFX.v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JBPerson'; + flagname:=''; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('JBPerson').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKList.dfm new file mode 100644 index 0000000..ca47b39 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKList.dfm @@ -0,0 +1,646 @@ +object frmPKList: TfrmPKList + Left = 165 + Top = 130 + Width = 1136 + Height = 556 + Caption = #36164#37329#30003#35831#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1120 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 29 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 654 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1120 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 140 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 263 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 27 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 547 + Top = 18 + Width = 52 + Height = 12 + Caption = #25903#20184#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 675 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 807 + Top = 18 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 430 + Top = 18 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 55 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 158 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FactoryName: TEdit + Tag = 2 + Left = 304 + Top = 14 + Width = 117 + Height = 20 + TabOrder = 2 + OnChange = FactoryNameChange + end + object PayMent: TEdit + Tag = 2 + Left = 601 + Top = 14 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 729 + Top = 14 + Width = 69 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object JBPerson: TEdit + Tag = 2 + Left = 847 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object PKName: TEdit + Tag = 2 + Left = 458 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 103 + Width = 1120 + Height = 414 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column20: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + OnCustomDrawCell = v1Column22CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.TextSHuangSe + Width = 87 + end + object v1Column17: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column19: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#20182')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column2: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column21: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column7: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column23: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1ShipDate: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column12: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'FKPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26102#38388 + DataBinding.FieldName = 'FKTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1120 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1120 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 696 + Top = 192 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 592 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 192 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 192 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 519 + Top = 191 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 557 + Top = 193 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 360 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKList.pas b/坯布码单待检(PBMDDJ.dll)/U_PKList.pas new file mode 100644 index 0000000..801d594 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKList.pas @@ -0,0 +1,609 @@ +unit U_PKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmPKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + FactoryName: TEdit; + Label6: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton2: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton5: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + PayMent: TEdit; + ComTaiTou: TEdit; + Label7: TLabel; + JBPerson: TEdit; + Label8: TLabel; + PKName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1Column22CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmPKList: TfrmPKList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote, U_ZDYHelp,U_PKInPutWFX; + +{$R *.dfm} + +procedure TfrmPKList.FormDestroy(Sender: TObject); +begin + frmPKList:=nil; +end; + +procedure TfrmPKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPKList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*'); + SQL.Add(' from YF_Money_PaiKuan A where '); + sql.Add(' A.PKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.PKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + sql.Add(' and isnull(HZType,'''')='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmPKList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate+7; + BegDate.Date:=FNowDate-7; + ReadCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if (cxTabControl1.TabIndex=0) or (cxTabControl1.TabIndex=3) then + begin + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + try + frmPKInPutWFX:=TfrmPKInPutWFX.Create(Application); + with frmPKInPutWFX do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('PKID').AsString); + ToolButton3.Visible:=False; + ToolButton4.Visible:=False; + ToolButton1.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmPKInPutWFX.Free; + end; + end; + +end; + +procedure TfrmPKList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; } + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //Order_Main.Delete; + end; +end; + +function TfrmPKList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Main.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPKList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʽб()',cxGrid1); +end; + +procedure TfrmPKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKList.TBAddClick(Sender: TObject); +begin + try + frmPKInPutWFX:=TfrmPKInPutWFX.Create(Application); + with frmPKInPutWFX do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmPKInPutWFX.Free; + end; +end; + +procedure TfrmPKList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPKList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + + + +procedure TfrmPKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKList.FactoryNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPKList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPKList.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ʽ.rmf' ; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete TBSubID where DName='''+Trim(DName)+''''); + ExecSQL; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into TBSubID'); + sql.Add(' select '''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(','''+Trim(DName)+''''); + ExecSQL; + end; + Edit; + FieldByName('PrtFlag').Value:=True; + Post; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set PrtFlag=1,PrtTime=getdate(),Prter='''+Trim(DName)+''''); + sql.Add(',PrtCount=PrtCount+1'); + sql.Add(' where PKID in(select SubId from TBSubID A where A.DName='''+Trim(DName)+''')'); + ExecSQL; + end; + Order_Main.EnableControls; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,'); + sql.Add(' Case when isnull(FactoryNameOther,'''')<>'''' then RTrim(FactoryNameOther)+''''+RTrim(FactoryName) '); + sql.Add(' else RTrim(FactoryNameQC)+''''+RTrim(FactoryName) end as FactoryNameHZ'); + sql.Add(' from ('); + sql.Add(' select A.PKID,A.ComTaiTou,A.PKYongTu,A.PayMent,A.FactoryNameOther,A.FactoryName,isnull(A.PKMoney,0) PKMoney,A.ChkNote,A.Note '); + sql.Add(' ,isnull(A.BQKKMoney,0) BQKKMoney,isnull(A.HZKKMoney,0) HZKKMoney,isnull(A.BQYFMoney,0) BQYFMoney,isnull(A.HZYFMoney,0) HZYFMoney'); + sql.Add(',isnull(A.DDuiZhangMoney,0) DDuiZhangMoney,isnull(A.MaxHZYFMoney,0) MaxHZYFMoney,A.PKDate,A.Filler'); + sql.Add(' ,FYear=Rtrim(Convert(varchar(4),A.PKDate,120))+'''''); + sql.Add(' ,FactoryNameQC=(select KHName from ZH_KH_Info B where B.KHNameJC=A.FactoryName and B.Type=''GYS'' ) '); + sql.Add(' from YF_Money_PaiKuan A'); + sql.Add(' where PKID in(select SubId from TBSubID where DName='''+Trim(DName)+'''))AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['FMonth']:=Order_Main.fieldbyname('KQDate10').AsString; + RM1.ShowPrintDialog:=True; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'ʽ'),'ʾ',0); + end; + +end; +procedure TfrmPKList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10,id20:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('YuJinagDate1').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('YuJinagDate2').Index-tv1.GroupedItemCount; + Id20:=TV1.GetColumnByFieldName('MoneyKC').Index; + if ARecord.Values[id20]<=0 then Exit; + if ARecord.Values[Id10]-FNowDate<=0 then + begin + AStyle:=DataLink_KangChi.Red; + end else + begin + if ARecord.Values[Id]-FNowDate<=0 then + begin + AStyle:=DataLink_KangChi.Yellow; + end; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPKList.v1Column22CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10,Id20:Integer; +begin + {Id:=TV1.GetColumnByFieldName('PKMoney').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('BQYFMoney').Index; + Id20:=TV1.GetColumnByFieldName('HZYFMoney').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[id]>AViewInfo.GridRecord.Values[id20] then + begin + ACanvas.Brush.Color:=clRed; + end else + begin + if AViewInfo.GridRecord.Values[id]>AViewInfo.GridRecord.Values[id10] then + begin + ACanvas.Brush.Color:=clPurple; + end else + begin + ACanvas.Brush.Color:=clSkyBlue; + end; + end; } +end; + +procedure TfrmPKList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPKList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmPKList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set SSTime=getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(',ChkStatus='''' '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmPKList.ToolButton5Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͨݣˢ½!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set SSTime=NUll,SSPerson=Null'); + sql.Add(',ChkStatus=Null '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKQTList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PKQTList.dfm new file mode 100644 index 0000000..698abc4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKQTList.dfm @@ -0,0 +1,680 @@ +object frmPKQTList: TfrmPKQTList + Left = 165 + Top = 130 + Width = 1136 + Height = 556 + Caption = #36164#37329#30003#35831#21015#34920#20854#20182 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1120 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 29 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 654 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1120 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 140 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 263 + Top = 18 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 27 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 547 + Top = 18 + Width = 52 + Height = 12 + Caption = #25903#20184#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 675 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 807 + Top = 18 + Width = 39 + Height = 12 + Caption = #32463#21150#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 430 + Top = 18 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 954 + Top = 18 + Width = 26 + Height = 12 + Caption = #24065#31181 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 55 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 158 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object FactoryName: TEdit + Tag = 2 + Left = 304 + Top = 14 + Width = 117 + Height = 20 + TabOrder = 2 + OnChange = FactoryNameChange + end + object PayMent: TEdit + Tag = 2 + Left = 601 + Top = 14 + Width = 65 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 729 + Top = 14 + Width = 69 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object JBPerson: TEdit + Tag = 2 + Left = 847 + Top = 14 + Width = 97 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object PKName: TEdit + Tag = 2 + Left = 458 + Top = 14 + Width = 79 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object BZType: TComboBox + Tag = 1 + Left = 983 + Top = 14 + Width = 80 + Height = 20 + ItemHeight = 12 + TabOrder = 7 + OnChange = FactoryNameChange + Items.Strings = ( + #20154#27665#24065 + #32654#37329 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 103 + Width = 1120 + Height = 414 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column20: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'PKNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'PKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 92 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column16: TcxGridDBColumn + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column22: TcxGridDBColumn + Caption = #30003#35831#37329#39069 + DataBinding.FieldName = 'PKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + OnCustomDrawCell = v1Column22CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.TextSHuangSe + Width = 87 + end + object v1Column17: TcxGridDBColumn + Caption = #20184#27454#21333#20301 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column19: TcxGridDBColumn + Caption = #25910#27454#21333#20301'('#20854#20182')' + DataBinding.FieldName = 'FactoryNameOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column9: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column2: TcxGridDBColumn + Caption = #32463#21150#20154 + DataBinding.FieldName = 'JBPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column21: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column25: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column7: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column23: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1ShipDate: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 63 + end + object v1Column12: TcxGridDBColumn + Caption = #20184#27454#20154 + DataBinding.FieldName = 'FKPerson' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26102#38388 + DataBinding.FieldName = 'FKTime' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 79 + Width = 1120 + Height = 24 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #23457#26680#36890#36807 + #23457#26680#19981#36890#36807 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 24 + ClientRectRight = 1120 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 696 + Top = 192 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 592 + Top = 192 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 192 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 192 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 519 + Top = 191 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 557 + Top = 193 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object PopupMenu1: TPopupMenu + Left = 360 + Top = 192 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PKQTList.pas b/坯布码单待检(PBMDDJ.dll)/U_PKQTList.pas new file mode 100644 index 0000000..7214146 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PKQTList.pas @@ -0,0 +1,612 @@ +unit U_PKQTList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + + +type + TfrmPKQTList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + FactoryName: TEdit; + Label6: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton2: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton5: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + PayMent: TEdit; + ComTaiTou: TEdit; + Label7: TLabel; + JBPerson: TEdit; + Label8: TLabel; + PKName: TEdit; + v1Column9: TcxGridDBColumn; + Label5: TLabel; + BZType: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1Column22CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmPKQTList: TfrmPKQTList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote, U_ZDYHelp,U_PKInPutQT; + +{$R *.dfm} + +procedure TfrmPKQTList.FormDestroy(Sender: TObject); +begin + frmPKQTList:=nil; +end; + +procedure TfrmPKQTList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPKQTList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKQTList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.*'); + SQL.Add(' from YF_Money_PaiKuan A where '); + sql.Add(' A.PKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.PKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.Date+1))+''''); + sql.Add(' and isnull(HZType,'''')='''' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(ChkStatus,'''')=''˲ͨ'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmPKQTList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate+7; + BegDate.Date:=FNowDate-7; + ReadCxGrid('ʽб',Tv1,''); +end; + +procedure TfrmPKQTList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if (cxTabControl1.TabIndex=0) or (cxTabControl1.TabIndex=3) then + begin + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + try + frmPKInPutQT:=TfrmPKInPutQT.Create(Application); + with frmPKInPutQT do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('PKID').AsString); + ToolButton3.Visible:=False; + ToolButton4.Visible:=False; + ToolButton1.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmPKInPutQT.Free; + end; + end; + +end; + +procedure TfrmPKQTList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; } + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + //Order_Main.Delete; + end; +end; + +function TfrmPKQTList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_PaiKuan where PKId='''+Trim(Order_Main.fieldbyname('PKId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPKQTList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ʽб()',cxGrid1); +end; + +procedure TfrmPKQTList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKQTList.TBAddClick(Sender: TObject); +begin + try + frmPKInPutQT:=TfrmPKInPutQT.Create(Application); + with frmPKInPutQT do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmPKInPutQT.Free; + end; +end; + +procedure TfrmPKQTList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPKQTList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKQTList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ʽ()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPKQTList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + + + +procedure TfrmPKQTList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPKQTList.FactoryNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPKQTList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPKQTList.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ʽ.rmf' ; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete TBSubID where DName='''+Trim(DName)+''''); + ExecSQL; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into TBSubID'); + sql.Add(' select '''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(','''+Trim(DName)+''''); + ExecSQL; + end; + Edit; + FieldByName('PrtFlag').Value:=True; + Post; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set PrtFlag=1,PrtTime=getdate(),Prter='''+Trim(DName)+''''); + sql.Add(',PrtCount=PrtCount+1'); + sql.Add(' where PKID in(select SubId from TBSubID A where A.DName='''+Trim(DName)+''')'); + ExecSQL; + end; + Order_Main.EnableControls; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select AA.*,'); + sql.Add(' Case when isnull(FactoryNameOther,'''')<>'''' then RTrim(FactoryNameOther)+''''+RTrim(FactoryName) '); + sql.Add(' else RTrim(FactoryNameQC)+''''+RTrim(FactoryName) end as FactoryNameHZ'); + sql.Add(' from ('); + sql.Add(' select A.PKID,A.ComTaiTou,A.PKYongTu,A.PayMent,A.FactoryNameOther,A.FactoryName,isnull(A.PKMoney,0) PKMoney,A.ChkNote,A.Note '); + sql.Add(' ,isnull(A.BQKKMoney,0) BQKKMoney,isnull(A.HZKKMoney,0) HZKKMoney,isnull(A.BQYFMoney,0) BQYFMoney,isnull(A.HZYFMoney,0) HZYFMoney'); + sql.Add(',isnull(A.DDuiZhangMoney,0) DDuiZhangMoney,isnull(A.MaxHZYFMoney,0) MaxHZYFMoney,A.PKDate,A.Filler'); + sql.Add(' ,FYear=Rtrim(Convert(varchar(4),A.PKDate,120))+'''''); + sql.Add(' ,FactoryNameQC=(select KHName from ZH_KH_Info B where B.KHNameJC=A.FactoryName and B.Type=''GYS'' ) '); + sql.Add(' from YF_Money_PaiKuan A'); + sql.Add(' where PKID in(select SubId from TBSubID where DName='''+Trim(DName)+'''))AA'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + //RMVariables['FMonth']:=Order_Main.fieldbyname('KQDate10').AsString; + RM1.ShowPrintDialog:=True; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'ʽ'),'ʾ',0); + end; + +end; +procedure TfrmPKQTList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10,id20:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('YuJinagDate1').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('YuJinagDate2').Index-tv1.GroupedItemCount; + Id20:=TV1.GetColumnByFieldName('MoneyKC').Index; + if ARecord.Values[id20]<=0 then Exit; + if ARecord.Values[Id10]-FNowDate<=0 then + begin + AStyle:=DataLink_KangChi.Red; + end else + begin + if ARecord.Values[Id]-FNowDate<=0 then + begin + AStyle:=DataLink_KangChi.Yellow; + end; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPKQTList.v1Column22CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10,Id20:Integer; +begin + {Id:=TV1.GetColumnByFieldName('PKMoney').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('BQYFMoney').Index; + Id20:=TV1.GetColumnByFieldName('HZYFMoney').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[id]>AViewInfo.GridRecord.Values[id20] then + begin + ACanvas.Brush.Color:=clRed; + end else + begin + if AViewInfo.GridRecord.Values[id]>AViewInfo.GridRecord.Values[id10] then + begin + ACanvas.Brush.Color:=clPurple; + end else + begin + ACanvas.Brush.Color:=clSkyBlue; + end; + end; } +end; + +procedure TfrmPKQTList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPKQTList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmPKQTList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set SSTime=getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(',ChkStatus='''' '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmPKQTList.ToolButton5Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')=''ͨ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͨݣˢ½!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_PaiKuan Set SSTime=NUll,SSPerson=Null'); + sql.Add(',ChkStatus=Null '); + sql.Add(' where PKID='''+Trim(Order_Main.fieldbyname('PKID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.dfm new file mode 100644 index 0000000..d333fd3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.dfm @@ -0,0 +1,534 @@ +object frmPRTJYDJList: TfrmPRTJYDJList + Left = 122 + Top = 125 + Width = 1027 + Height = 511 + Align = alClient + Caption = #25104#21697#26816#39564#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1019 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBRKCX: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25764#38144#26816#39564 + ImageIndex = 52 + Visible = False + OnClick = TBRKCXClick + end + object ToolButton1: TToolButton + Left = 276 + Top = 0 + Caption = #25171#21360#30721#21333 + ImageIndex = 14 + Visible = False + OnClick = ToolButton1Click + end + object BtnEditA1: TBtnEditA + Left = 359 + Top = 0 + Width = 187 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + OnBtnClick = BtnEditA1BtnClick + end + object TBClose: TToolButton + Left = 546 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object Lot: TComboBox + Left = 609 + Top = 5 + Width = 145 + Height = 20 + ItemHeight = 12 + TabOrder = 1 + Visible = False + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1019 + Height = 62 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label4: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label10: TLabel + Left = 357 + Top = 36 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 357 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Color: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 110 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object GangNo: TEdit + Tag = 1 + Left = 381 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = MPRTCodeNameChange + end + object HX: TEdit + Tag = 2 + Left = 381 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 95 + Width = 1019 + Height = 385 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + Column = v1Column5 + end + item + Kind = skSum + Position = spFooter + Column = v1Column16 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v1Column10: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v1Column12: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'HX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'JYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #26816#39564#26102#38388 + DataBinding.FieldName = 'FillTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1Column16: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column11: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJZS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 72 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 144 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 896 + Top = 128 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 400 + Top = 224 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 472 + Top = 224 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 432 + Top = 224 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 600 + Top = 224 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 568 + Top = 224 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 224 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_Juan: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 256 + end + object CDS_JuanPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 256 + end + object RMDBMX: TRMDBDataSet + Visible = True + DataSet = CDS_JuanPRT + Left = 208 + Top = 192 + end + object RM3: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMX + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 256 + Top = 192 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.pas new file mode 100644 index 0000000..e88d1f1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYDJList.pas @@ -0,0 +1,1946 @@ +unit U_PRTJYDJList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, BtnEdit; + +type + TfrmPRTJYDJList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label4: TLabel; + Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + orderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + GangNo: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + CDS_Juan: TClientDataSet; + CDS_JuanPRT: TClientDataSet; + RMDBMX: TRMDBDataSet; + RM3: TRMGridReport; + BtnEditA1: TBtnEditA; + ADOQueryPrint: TADOQuery; + Lot: TComboBox; + Label11: TLabel; + HX: TEdit; + v1Column20: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + private + FLeft,FTop:Integer; + procedure InitGrid(); + procedure GetLotData(); + procedure GetLotDataLie(); + procedure GetLotDataLie38(); + procedure GetLotDataLie38Ye(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPRTJYDJList: TfrmPRTJYDJList; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_MJEdit; + +{$R *.dfm} + +procedure TfrmPRTJYDJList.FormDestroy(Sender: TObject); +begin + frmPRTJYDJList:=nil; +end; + +procedure TfrmPRTJYDJList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTJYDJList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmPRTJYDJList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',JYDate=Convert(Varchar(10),FillTime,120)'); + sql.Add(' from DJ_JY A where FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and FillTime<='''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTJYDJList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPRTJYDJList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPRTJYDJList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷCX',Tv1,'Ʒ'); + Close; +end; + +procedure TfrmPRTJYDJList.FormShow(Sender: TObject); +begin + + ReadCxGrid('ƷCX',Tv1,'Ʒ'); + {if Trim(DParameters2)='' then + begin + TBRKCX.Visible:=True; + end else + begin + v1Column4.Visible:=False; + end; } + //InitGrid(); +end; + +procedure TfrmPRTJYDJList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPRTJYDJList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmPRTJYDJList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPRTJYDJList.orderNoChange(Sender: TObject); +begin + //if Length(Trim(orderNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmPRTJYDJList.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',JYDate=Convert(Varchar(10),FillTime,120)'); + sql.Add(' from DJ_JY A '); + sql.add('where A.OrderNo like :OrderNo'); + Parameters.ParamByName('orderNo').Value:='%'+Trim(orderNo.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTJYDJList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPRTJYDJList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPRTJYDJList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +procedure TfrmPRTJYDJList.GetLotData(); +var + i,j,z,h,q,Hang,GHang:Integer; + FGangNo,FHZ,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + sql.Add(' Case when isnull(A.DuoPinNote,'''')<>'''' then ''(''+RTrim(A.DuoPinNote)+'')'' else A.DuoPinNote end as DPNote,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen, '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JJQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GGQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + sql.Add(' order by A.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty8=Cast(1.00 as decimal(18,1)),LenQty9=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ8=Cast(1.00 as decimal(18,2)),MZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ8=Cast(1.00 as decimal(18,2)),JZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' DP0=Cast('''' as varchar(20)),DP1=Cast('''' as varchar(20)),'); + sql.Add(' DP2=Cast('''' as varchar(20)),DP3=Cast('''' as varchar(20)),'); + sql.Add(' DP4=Cast('''' as varchar(20)),DP5=Cast('''' as varchar(20)),'); + sql.Add(' DP6=Cast('''' as varchar(20)),DP7=Cast('''' as varchar(20)),'); + sql.Add(' DP8=Cast('''' as varchar(20)),DP9=Cast('''' as varchar(20)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' MJPS8=Cast(1 as int),MJPS9=Cast(1 as int),'); + sql.Add(' JuanQty=Cast(0 as int),GangQty=Cast(0 as int),'); + sql.Add(' XH=Cast(0 as int),Hang=Cast(0 as int),GHang=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;hang:=0; GHang:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=0; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('GHang').Value:=0; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=0;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + GHang:=0; + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>FSubId then + begin + Hang:=0; + end else + begin + Hang:=Hang+1; + end; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if Z<10 then + begin + CDS_JuanPRT.Locate('XH',j,[]); + with CDS_JuanPRT do + begin + Edit; + FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + FieldByName('MJPS'+Trim(IntToStr(Z))).Value:=1; + FieldByName('LenQty'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('DPNote').Value; + FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + Post; + end; + end else + begin + GHang:=GHang+1; + Hang:=Hang+1; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.Post; + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end; + end; + end + end; + Z:=Z+1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYDJList.GetLotDataLie(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + + + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<25 then //кС25 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ25л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYDJList.GetLotDataLie38(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYDJList.GetLotDataLie38Ye();//ҳ +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' CoL0=Cast('''' as varchar(80)),CoL1=Cast('''' as varchar(80)),'); + sql.Add(' CoL2=Cast('''' as varchar(80)),CoL3=Cast('''' as varchar(80)),'); + sql.Add(' CoL4=Cast('''' as varchar(80)),CoL5=Cast('''' as varchar(80)),'); + sql.Add(' CoL6=Cast('''' as varchar(80)),CoL7=Cast('''' as varchar(80)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end else //һҳ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end; + + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value;} + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value;} + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; } + CDS_JuanPRT.Post; + end; + end; + end; + end; + end; + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYDJList.ToolButton1Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(BtnEditA1.Text)='' then + begin + Application.MessageBox('뵥ƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(BtnEditA1.Text)+'.rmf' ; + if Trim(BtnEditA1.Text)='ͨ뵥(׺)' then + begin + GetLotDataLie(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + begin + GetLotData(); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select AAA.*,JSM.OrderNo,JSB.PRTColorEng,JSB.PRTHX,JSB.PRTColorNo from('); + sql.Add('select Sum(MJLen) MQty,Sum(YQty) YQty,Count(*) PS,Sum(MJQty4) MJJingZ,Sum(MJMaoZ) MJMaoZ ,SubId'); + SQL.Add('from (select A.MJLen,A.MJQty4,A.MJMaoZ,A.SubId,'); + sql.Add(' Case when isnull(A.MJLenMa,-1)<=0 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as YQty '); + //sql.Add('GangNo=(select GangNo from JYOrder_Main_MD B where B.MDID=A.APID),A.Subid'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + begin + SQL.Add(' and 1=1 )AA'); + end; + sql.Add('Group by SubId)AAA'); + sql.add(' inner join JYOrder_Sub JSB on AAA.SubId=JSB.SubID'); + sql.Add(' inner join JYOrder_Main JSM on JSB.MainId=JSM.MainId'); + sql.add(' order by SubId'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryCmd,CDS_HZ); + SInitCDSData20(ADOQueryCmd,CDS_HZ); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(MJLen) MQty,Cast(sum(MJLen)*1.0936 as decimal(18,1)) YQty, '); + sql.Add(' sum(MJMaoZ) MaoZ,sum(MJQty4) JingZ,Count(*) PS'); + sql.Add(' from WFB_MJJY where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and ZhuangXiangSYFlag=0'); + sql.Add(' group by MainId'); + Open; + end; + if FileExists(fPrintFile) then + begin + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + RMVariables['MQty']:=ADOQueryTemp.fieldbyname('MQty').Value; + RMVariables['MaoZ']:=ADOQueryTemp.fieldbyname('MaoZ').Value; + RMVariables['JingZ']:=ADOQueryTemp.fieldbyname('JingZ').Value; + RMVariables['PS']:=ADOQueryTemp.fieldbyname('PS').Value; + // RMVariables['QtyUnit']:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(BtnEditA1.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTJYDJList.BtnEditA1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CKMD'; + flagname:='뵥'; + if ShowModal=1 then + begin + BtnEditA1.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.dfm new file mode 100644 index 0000000..9174e37 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.dfm @@ -0,0 +1,1022 @@ +object frmPRTJYList: TfrmPRTJYList + Left = 114 + Top = 131 + Width = 1226 + Height = 511 + Caption = #25104#21697#26816#39564#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1210 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #25171#21360#21305#26465#26631#31614 + ImageIndex = 14 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #26816#39564#25253#21578 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 474 + Top = 0 + AutoSize = True + Caption = #25171#21360#30721#21333 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object Panel3: TPanel + Left = 561 + Top = 0 + Width = 82 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object CheckBox1: TCheckBox + Left = 8 + Top = 7 + Width = 73 + Height = 17 + Caption = #35013#31665#21097#20313 + TabOrder = 0 + end + end + object BtnEditA1: TBtnEditA + Left = 643 + Top = 0 + Width = 187 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + OnBtnClick = BtnEditA1BtnClick + end + object TBClose: TToolButton + Left = 830 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1210 + Height = 58 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 648 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 650 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 766 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label36: TLabel + Left = 9 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'1'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label37: TLabel + Left = 205 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'2'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 1 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 406 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object MJType: TComboBox + Tag = 2 + Left = 674 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 8 + Text = #27491#21697 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + '') + end + object SelfGangNo: TEdit + Tag = 1 + Left = 674 + Top = 9 + Width = 68 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 790 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object LabNote1: TEdit + Left = 77 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 11 + Visible = False + end + object LabNote2: TEdit + Left = 273 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 12 + Visible = False + end + object Lot: TComboBox + Left = 1062 + Top = 45 + Width = 92 + Height = 20 + ItemHeight = 12 + TabOrder = 13 + Visible = False + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 91 + Width = 1210 + Height = 381 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + Column = v1Column5 + end + item + Kind = skSum + Position = spFooter + Column = v1Column16 + end + item + Kind = skSum + Position = spFooter + Column = v1Column17 + end + item + Kind = skSum + Position = spFooter + Column = v1Column18 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column19 + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column18 + end + item + Kind = skSum + Column = v1Column19 + end + item + Format = '0' + Kind = skSum + Column = v1Column23 + end + item + Kind = skSum + Column = v1Column25 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v1Column10: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v1Column13: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + Options.Editing = False + Width = 63 + end + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v1Column12: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column14: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'SelfGangNo' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 86 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #35013#31665#21097#20313 + DataBinding.FieldName = 'ZhuangXiangSYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column20: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'JYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #26816#39564#26102#38388 + DataBinding.FieldName = 'FillTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1Column16: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column17: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'MJQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column18: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v2Column6: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + end + object v1Column19: TcxGridDBColumn + Caption = #30721#25968#37327 + DataBinding.FieldName = 'YQty' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column11: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column22: TcxGridDBColumn + Caption = #36192#36865#21333#20301 + DataBinding.FieldName = 'ZSUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column7: TcxGridDBColumn + Caption = #30133#28857#24773#20917 + DataBinding.FieldName = 'CDQK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column23: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 48 + end + object v1Column27: TcxGridDBColumn + Caption = #24179#26041#31859#25187#20998 + DataBinding.FieldName = 'KouFenAvg' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column24: TcxGridDBColumn + Caption = #33394#29282#24230 + DataBinding.FieldName = 'SeLaoDu' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column24PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column21: TcxGridDBColumn + Caption = #22810#25340#20449#24687 + DataBinding.FieldName = 'DuoPinNote' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column25: TcxGridDBColumn + Caption = #21305#26465#25968#37327 + DataBinding.FieldName = 'PiTiaoQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column26: TcxGridDBColumn + Caption = #21305#26465#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label12: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object Panel2: TPanel + Left = 391 + Top = 209 + Width = 232 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#22788#29702#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 72 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 978 + Top = 166 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 950 + Top = 159 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 400 + Top = 224 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 472 + Top = 224 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 432 + Top = 224 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 600 + Top = 224 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 568 + Top = 224 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 224 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_Juan: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 256 + end + object CDS_JuanPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 256 + end + object RMDBMX: TRMDBDataSet + Visible = True + DataSet = CDS_JuanPRT + Left = 208 + Top = 192 + end + object RM3: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMX + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 256 + Top = 192 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 160 + end + object RMDBCD: TRMDBDataSet + Visible = True + DataSet = CDS_CD + Left = 688 + Top = 304 + end + object RMCD: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBCD + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 656 + Top = 304 + ReportData = {} + end + object CDS_LS: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 304 + end + object CDS_CD: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 312 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.pas new file mode 100644 index 0000000..88eba34 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYList.pas @@ -0,0 +1,2427 @@ +unit U_PRTJYList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, BtnEdit, + cxTextEdit; + +type + TfrmPRTJYList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + orderNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + MJType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + SelfGangNo: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + v1Column4: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + CDS_Juan: TClientDataSet; + CDS_JuanPRT: TClientDataSet; + RMDBMX: TRMDBDataSet; + RM3: TRMGridReport; + BtnEditA1: TBtnEditA; + ADOQueryPrint: TADOQuery; + Label11: TLabel; + PRTHX: TEdit; + v1Column7: TcxGridDBColumn; + Panel4: TPanel; + Label12: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Label36: TLabel; + Label37: TLabel; + LabNote1: TEdit; + LabNote2: TEdit; + v1Column22: TcxGridDBColumn; + Panel2: TPanel; + Panel3: TPanel; + CheckBox1: TCheckBox; + v1Column23: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column25: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + ToolButton4: TToolButton; + RMDBCD: TRMDBDataSet; + RMCD: TRMGridReport; + CDS_LS: TClientDataSet; + CDS_CD: TClientDataSet; + Lot: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Image2Click(Sender: TObject); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column24PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + FLeft,FTop:Integer; + procedure InitGrid(); + procedure GetLotData(); + procedure GetLotDataLie(); + procedure GetLotDataLie38(); + procedure GetLotDataLie38Ye(); + procedure GetBGData(); + procedure GetCDSData(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPRTJYList: TfrmPRTJYList; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_MJEdit; + +{$R *.dfm} + +procedure TfrmPRTJYList.FormDestroy(Sender: TObject); +begin + frmPRTJYList:=nil; +end; + +procedure TfrmPRTJYList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTJYList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmPRTJYList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,C.PiTiaoQty,C.OrderUnit,'); + sql.Add(' Case when D.MJLen>0 then D.KouFenHZ*1.00*100/(MJLen*MJFK) else Null end as KouFenAvg,'); + SQL.Add(' B.OrderNo,MPRTCode=isnull(B.MPRTCode,'''')+isnull(B.MPRTGY,''''),B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' GangNo=E.SelfGangNo ,B.CustomerNoName,'); //YQty=Cast(D.MJLen*1.0936 as decimal(18,1)), + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + SQL.Add(' CDQK=dbo.F_Get_Order_SubStr(D.MJID,''MJCDHZSL'')'); + sql.Add(',JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where D.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' and D.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTJYList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPRTJYList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPRTJYList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷCX',Tv1,'Ʒ'); + Close; +end; + +procedure TfrmPRTJYList.FormShow(Sender: TObject); +begin + + ReadCxGrid('ƷCX',Tv1,'Ʒ'); + {if Trim(DParameters2)='' then + begin + TBRKCX.Visible:=True; + end else + begin + v1Column4.Visible:=False; + end; } + //InitGrid(); +end; + +procedure TfrmPRTJYList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPRTJYList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmPRTJYList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPRTJYList.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + exit; + end; + with CDS_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['LabNote1']:=Trim(LabNote1.Text); + RMVariables['LabNote2']:=Trim(LabNote2.Text); + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; + CDS_Main.Edit; + CDS_Main.FieldByName('SSel').Value:=False; + CDS_Main.Post; + end; + end; +end; + +procedure TfrmPRTJYList.orderNoChange(Sender: TObject); +begin + if Length(Trim(orderNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmPRTJYList.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,C.PiTiaoQty,C.OrderUnit,'); + sql.Add(' Case when D.MJLen>0 then D.KouFenHZ*1.00*100/(MJLen*MJFK) else Null end as KouFenAvg,'); + SQL.Add(' B.OrderNo,MPRTCode=isnull(B.MPRTCode,'''')+isnull(B.MPRTGY,''''),B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,'); + //SQL.Add(' C.PRTColor,C.PRTHX,C.PRTColorEng,C.PRTColorNo,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' E.SelfGangNo,E.GangNo,B.CustomerNoName,'); //YQty=Cast(D.MJLen*1.0936 as decimal(18,1)) + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + SQL.Add(' CDQK=dbo.F_Get_Order_SubStr(D.MJID,''MJCDHZSL''),'); + sql.Add(' JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where B.OrderNo like '''+'%'+Trim(orderNo.Text)+'%'+''''); + + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTJYList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPRTJYList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPRTJYList.GetLotData(); +var + i,j,z,h,q,Hang,GHang:Integer; + FGangNo,FHZ,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + sql.Add(' Case when isnull(A.DuoPinNote,'''')<>'''' then ''(''+RTrim(A.DuoPinNote)+'')'' else A.DuoPinNote end as DPNote,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen, '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JJQty=(select Count(MJID) from WFB_MJJY WM where WM.SubId=JS.SubId'); + if CheckBox1.Checked=false then + begin + sql.Add(' and WM.ZhuangXiangSYFlag=0 '); + end else + begin + sql.Add(' and WM.ZhuangXiangSYFlag=1 '); + end; + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and WM.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add('),'); + sql.Add(' GKgQty=(select sum(MJQty4) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo') ; + if CheckBox1.Checked=false then + begin + sql.Add(' and WM.ZhuangXiangSYFlag=0 '); + end else + begin + sql.Add(' and WM.ZhuangXiangSYFlag=1 '); + end; + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and WM.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add('),'); + sql.Add(' GGQty=(select Count(MJID) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo') ; + if CheckBox1.Checked=false then + begin + sql.Add(' and WM.ZhuangXiangSYFlag=0'); + end else + begin + sql.Add(' and WM.ZhuangXiangSYFlag=1'); + end; + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and WM.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(')'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + //sql.Add(' and A.ZhuangXiangSYFlag=0'); + if CheckBox1.Checked=False then + sql.Add(' and A.ZhuangXiangSYFlag=0') + else + sql.Add(' and A.ZhuangXiangSYFlag=1'); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + //sql.Add(' order by A.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + sql.Add(' order by JS.XHInt,JS.PRTHX,JS.PRTColorNo, Cast(MD.SelfGangNo as int),A.MJXH '); + // ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty8=Cast(1.00 as decimal(18,1)),LenQty9=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ8=Cast(1.00 as decimal(18,2)),MZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ8=Cast(1.00 as decimal(18,2)),JZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' DP0=Cast('''' as varchar(20)),DP1=Cast('''' as varchar(20)),'); + sql.Add(' DP2=Cast('''' as varchar(20)),DP3=Cast('''' as varchar(20)),'); + sql.Add(' DP4=Cast('''' as varchar(20)),DP5=Cast('''' as varchar(20)),'); + sql.Add(' DP6=Cast('''' as varchar(20)),DP7=Cast('''' as varchar(20)),'); + sql.Add(' DP8=Cast('''' as varchar(20)),DP9=Cast('''' as varchar(20)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' MJPS8=Cast(1 as int),MJPS9=Cast(1 as int),'); + sql.Add(' JuanQty=Cast(0 as int),GangQty=Cast(0 as int),GangKgQty=Cast(0 as decimal(18,2)),'); + sql.Add(' XH=Cast(0 as int),Hang=Cast(0 as int),GHang=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;hang:=0; GHang:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=0; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('GHang').Value:=0; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.FieldByName('GangKgQty').Value:=CDS_Juan.fieldbyname('GKgQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=0;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + GHang:=0; + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>FSubId then + begin + Hang:=0; + end else + begin + Hang:=Hang+1; + end; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.FieldByName('GangKgQty').Value:=CDS_Juan.fieldbyname('GKgQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if Z<10 then + begin + CDS_JuanPRT.Locate('XH',j,[]); + with CDS_JuanPRT do + begin + Edit; + FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + FieldByName('MJPS'+Trim(IntToStr(Z))).Value:=1; + FieldByName('LenQty'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('DPNote').Value; + FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + Post; + end; + end else + begin + GHang:=GHang+1; + Hang:=Hang+1; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=CDS_Juan.fieldbyname('JJQty').Value; + CDS_JuanPRT.FieldByName('GangQty').Value:=CDS_Juan.fieldbyname('GGQty').Value; + CDS_JuanPRT.FieldByName('GangKgQty').Value:=CDS_Juan.fieldbyname('GKgQty').Value; + CDS_JuanPRT.Post; + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end; + end; + end + end; + Z:=Z+1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYList.GetLotDataLie(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + + + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + if CheckBox1.Checked=False then + sql.Add(' and A.ZhuangXiangSYFlag=0') + else + sql.Add(' and A.ZhuangXiangSYFlag=1'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + //sql.Add(' order by JS.PRTHX,JS.PRTColorNo, Cast(MD.SelfGangNo as int),A.MJXH '); //JS.SubId, + sql.Add(' order by JS.XHInt,JS.PRTHX,JS.PRTColorNo, Cast(MD.SelfGangNo as int),A.MJXH '); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<25 then //кС25 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ25л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYList.GetLotDataLie38(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYList.GetLotDataLie38Ye();//ҳ +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + //sql.Add(' and A.ZhuangXiangSYFlag=0'); + if CheckBox1.Checked=False then + sql.Add(' and A.ZhuangXiangSYFlag=0') + else + sql.Add(' and A.ZhuangXiangSYFlag=1'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' CoL0=Cast('''' as varchar(80)),CoL1=Cast('''' as varchar(80)),'); + sql.Add(' CoL2=Cast('''' as varchar(80)),CoL3=Cast('''' as varchar(80)),'); + sql.Add(' CoL4=Cast('''' as varchar(80)),CoL5=Cast('''' as varchar(80)),'); + sql.Add(' CoL6=Cast('''' as varchar(80)),CoL7=Cast('''' as varchar(80)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end else //һҳ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end; + + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value;} + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value;} + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; } + CDS_JuanPRT.Post; + end; + end; + end; + end; + end; + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYList.ToolButton1Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(BtnEditA1.Text)='' then + begin + Application.MessageBox('뵥ƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(BtnEditA1.Text)+'.rmf' ; + Panel2.Visible:=True; + Panel2.Refresh; + if Trim(BtnEditA1.Text)='ͨ뵥(׺)' then + begin + GetLotDataLie(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38M)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + begin + GetLotData(); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select AAA.*,JSM.OrderNo,JSB.PRTColorEng,JSB.PRTHX,JSB.PRTColorNo,JSB.PRTOrdQty,'); + sql.Add('DifLv=Cast((MJJingZ-PRTOrdQty)*1.00*100/PRTOrdQty as decimal(18,2))'); + sql.Add(' from('); + sql.Add('select Sum(MJLen) MQty,Sum(YQty) YQty,Count(*) PS,Sum(MJQty4) MJJingZ,Sum(MJMaoZ) MJMaoZ ,SubId'); + SQL.Add('from (select A.MJLen,A.MJQty4,A.MJMaoZ,A.SubId,'); + sql.Add(' Case when isnull(A.MJLenMa,-1)<=0 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as YQty '); + //sql.Add('GangNo=(select GangNo from JYOrder_Main_MD B where B.MDID=A.APID),A.Subid'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + //sql.Add(' and A.ZhuangXiangSYFlag=0'); + if CheckBox1.Checked=False then + sql.Add(' and A.ZhuangXiangSYFlag=0') + else + sql.Add(' and A.ZhuangXiangSYFlag=1'); + if Trim(MJType.Text)<>'' then + begin + SQL.Add(' and A.MJType='''+Trim(MJType.Text)+''' )AA '); + end else + begin + SQL.Add(' and 1=1 )AA'); + end; + sql.Add('Group by SubId)AAA'); + sql.add(' inner join JYOrder_Sub JSB on AAA.SubId=JSB.SubID'); + sql.Add(' inner join JYOrder_Main JSM on JSB.MainId=JSM.MainId'); + sql.add(' order by SubId'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryCmd,CDS_HZ); + SInitCDSData20(ADOQueryCmd,CDS_HZ); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(MJLen) MQty,Cast(sum(MJLen)*1.0936 as decimal(18,1)) YQty, '); + sql.Add(' sum(MJMaoZ) MaoZ,sum(MJQty4) JingZ,Count(*) PS'); + sql.Add(' from WFB_MJJY where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + if CheckBox1.Checked=False then + sql.Add(' and ZhuangXiangSYFlag=0') + else + sql.Add(' and ZhuangXiangSYFlag=1'); + if Trim(MJType.Text)<>'' then + begin + SQL.Add(' and MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' group by MainId'); + Open; + end; + Panel2.Visible:=False; + if FileExists(fPrintFile) then + begin + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + RMVariables['MQty']:=ADOQueryTemp.fieldbyname('MQty').Value; + RMVariables['MaoZ']:=ADOQueryTemp.fieldbyname('MaoZ').Value; + RMVariables['JingZ']:=ADOQueryTemp.fieldbyname('JingZ').Value; + RMVariables['PS']:=ADOQueryTemp.fieldbyname('PS').Value; + // RMVariables['QtyUnit']:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(BtnEditA1.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTJYList.BtnEditA1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CKMD'; + flagname:='뵥'; + if ShowModal=1 then + begin + BtnEditA1.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPRTJYList.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmPRTJYList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel4.Refresh; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; +end; + +procedure TfrmPRTJYList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmPRTJYList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmPRTJYList.v1Column24PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with CDS_Main do + begin + Edit; + FieldByName('SeLaoDu').Value:=Trim(mvalue); + post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set SeLaoDu='''+Trim(mvalue)+''''); + sql.Add(' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmPRTJYList.ToolButton3Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + exit; + end; + with CDS_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ƥǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ƥǩ'),'ʾ',0); + end; + CDS_Main.Edit; + CDS_Main.FieldByName('SSel').Value:=False; + CDS_Main.Post; + end; + end; +end; +procedure TfrmPRTJYList.GetCDSData(); +begin + CDS_CD.FieldByName('MJXH').Value:=CDS_LS.fieldbyname('MJXH').Value; + CDS_CD.FieldByName('SelfGangNo').Value:=CDS_LS.fieldbyname('SelfGangNo').Value; + CDS_CD.FieldByName('PRTColor').Value:=CDS_LS.fieldbyname('PRTColor').Value; + CDS_CD.FieldByName('PRTColorNo').Value:=CDS_LS.fieldbyname('PRTColorNo').Value; + CDS_CD.FieldByName('MJLen').Value:=CDS_LS.fieldbyname('MJLen').Value; + CDS_CD.FieldByName('MJLenMa').Value:=CDS_LS.fieldbyname('MJLenMa').Value; + CDS_CD.FieldByName('MJJZ').Value:=CDS_LS.fieldbyname('MJQty4').Value; + CDS_CD.FieldByName('MJMZ').Value:=CDS_LS.fieldbyname('MJMaoZ').Value; + CDS_CD.FieldByName('MJFK').Value:=CDS_LS.fieldbyname('MJFK').Value; + CDS_CD.FieldByName('KouFenHZ').Value:=CDS_LS.fieldbyname('KouFenHZ').Value; + CDS_CD.FieldByName('KouFenAvg').Value:=CDS_LS.fieldbyname('KouFenAvg').Value; + CDS_CD.FieldByName('MJID').Value:=CDS_LS.fieldbyname('MJID').Value; + CDS_CD.FieldByName('FillTime').Value:=CDS_LS.fieldbyname('FillTime').Value; +end; +procedure TfrmPRTJYList.GetBGData(); +var + FMJId:string; + i,j,z:Integer; +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MJXH=Cast(0 as int),SelfGangNo=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20))'); + sql.Add(',MJID=Cast('''' as varchar(20)),PRTColor=Cast('''' as varchar(20)),FillTime=Cast(Null as datetime)'); + sql.Add(',MJLen=Cast(0 as decimal(18,1)),MJLenMa=Cast(0 as decimal(18,1)),MJJZ=Cast(0 as decimal(18,2)),XH=Cast(0 as int)'); + sql.Add(',MJMZ=Cast(0 as decimal(18,2)),MJFK=Cast(0 as decimal(18,2)),KouFenHZ=Cast(0 as int),KouFenAvg=Cast(0 as decimal(18,2))'); + sql.Add(',CDName0=Cast('''' as varchar(20)),CDBeg0=Cast('''' as varchar(20)),KFQty0=Cast(0 as int)'); + sql.Add(',CDName1=Cast('''' as varchar(20)),CDBeg1=Cast('''' as varchar(20)),KFQty1=Cast(0 as int)'); + sql.Add(',CDName2=Cast('''' as varchar(20)),CDBeg2=Cast('''' as varchar(20)),KFQty2=Cast(0 as int)'); + sql.Add(',CDName3=Cast('''' as varchar(20)),CDBeg3=Cast('''' as varchar(20)),KFQty3=Cast(0 as int)'); + sql.Add(',CDName4=Cast('''' as varchar(20)),CDBeg4=Cast('''' as varchar(20)),KFQty4=Cast(0 as int)'); + sql.Add(',CDName5=Cast('''' as varchar(20)),CDBeg5=Cast('''' as varchar(20)),KFQty5=Cast(0 as int)'); + sql.Add(',CDName6=Cast('''' as varchar(20)),CDBeg6=Cast('''' as varchar(20)),KFQty6=Cast(0 as int)'); + sql.Add(',CDName7=Cast('''' as varchar(20)),CDBeg7=Cast('''' as varchar(20)),KFQty7=Cast(0 as int)'); + sql.Add(',CDName8=Cast('''' as varchar(20)),CDBeg8=Cast('''' as varchar(20)),KFQty8=Cast(0 as int)'); + sql.Add(',CDName9=Cast('''' as varchar(20)),CDBeg9=Cast('''' as varchar(20)),KFQty9=Cast(0 as int)'); + sql.Add(',CDName10=Cast('''' as varchar(20)),CDBeg10=Cast('''' as varchar(20)),KFQty10=Cast(0 as int)'); + sql.Add(',CDName11=Cast('''' as varchar(20)),CDBeg11=Cast('''' as varchar(20)),KFQty11=Cast(0 as int)'); + sql.Add(',CDName12=Cast('''' as varchar(20)),CDBeg12=Cast('''' as varchar(20)),KFQty12=Cast(0 as int)'); + sql.Add(',CDName13=Cast('''' as varchar(20)),CDBeg13=Cast('''' as varchar(20)),KFQty13=Cast(0 as int)'); + sql.Add(',CDName14=Cast('''' as varchar(20)),CDBeg14=Cast('''' as varchar(20)),KFQty14=Cast(0 as int)'); + sql.Add(',CDName15=Cast('''' as varchar(20)),CDBeg15=Cast('''' as varchar(20)),KFQty15=Cast(0 as int)'); + sql.Add(',CDName16=Cast('''' as varchar(20)),CDBeg16=Cast('''' as varchar(20)),KFQty16=Cast(0 as int)'); + sql.Add(',CDName17=Cast('''' as varchar(20)),CDBeg17=Cast('''' as varchar(20)),KFQty17=Cast(0 as int)'); + sql.Add(',CDName18=Cast('''' as varchar(20)),CDBeg18=Cast('''' as varchar(20)),KFQty18=Cast(0 as int)'); + sql.Add(',CDName19=Cast('''' as varchar(20)),CDBeg19=Cast('''' as varchar(20)),KFQty19=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CD); + SInitCDSData20(ADOQueryTemp,CDS_CD); + if CDS_CD.IsEmpty=False then CDS_CD.Delete; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select AA.*, '); + SQL.Add(' case when CDBeg=CDEnd then Cast(CDBeg as varchar(20)) else Cast(CDBeg as varchar(20))+''-''+Cast(CDEnd as varchar(20)) end as CDQK'); + sql.Add('from (select A.CDBeg,A.CDEnd,A.CDName,A.KouFen,B.MJXH,C.SelfGangNo,JS.PRTColorNo,JS.PRTColor,B.MJID, '); + sql.Add(' Case when B.MJLen>0 then B.KouFenHZ*1.00*100/(B.MJLen*B.MJFK) else Null end as KouFenAvg'); + sql.Add(',CDEName=(select Note from KH_Zdy KZ where KZ.ZdyName=A.CDName and KZ.Type=''WFBCD'' )'); + sql.Add(',B.MJLen,B.MJLenMa,B.MJQty4,B.MJMaoZ,B.MJSJKZ,B.MJFK,B.MJType,B.KouFenHZ,B.FillTime'); + sql.Add(' from WFB_MJJY B '); + sql.Add(' left join WFB_MJJY_CD A on B.MJID=A.MJID'); + sql.Add(' inner join JYOrder_Main_MD C on B.APID=C.MDID'); + sql.Add(' inner join JYOrder_Sub JS on C.ORDSubId=JS.SubId'); + SQL.Add(' where B.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and isnull(B.MJType,'''')='''+Trim(MJType.Text)+''''); + end; + + sql.Add(')AA order by PRTColorNo,Cast(SelfGangNo as int),MJXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_LS); + SInitCDSData20(ADOQueryTemp,CDS_LS); + CDS_LS.DisableControls; + with CDS_LS do + begin + First; + while not Eof do + begin + if CDS_CD.IsEmpty then + begin + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName0').Value:=CDS_LS.fieldbyname('CDEName').Value + else } + FieldByName('CDName0').Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg0').Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty0').Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + FMJId:=Trim(CDS_LS.fieldbyname('MJID').AsString); + i:=0;//к + j:=0; + z:=0;//к + end; + end else + begin + if Trim(CDS_LS.fieldbyname('MJID').AsString)=FMJId then + begin + i:=i+1; + if i<20 then + begin + with CDS_CD do + begin + Edit; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else } + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + end else + begin + i:=0; + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else} + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + end; + end else + begin + i:=0; + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else} + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + FMJId:=Trim(CDS_LS.fieldbyname('MJID').AsString); + end; + end; + Next; + end; + end; + CDS_LS.EnableControls; +end; +procedure TfrmPRTJYList.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then exit; + GetBGData(); + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\鱨.rmf' ; + if FileExists(fPrintFile) then + begin + RMCD.LoadFromFile(fPrintFile); + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['CustomerNoName']:=Trim(CDS_Main.fieldbyname('CustomerNoName').AsString); + //RMVariables['FillTIme']:=Trim(CDS_Main.fieldbyname('FillTIme').AsString); + RMVariables['MPRTMF']:=Trim(CDS_Main.fieldbyname('MPRTMF').AsString); + RMVariables['MPRTKZ']:=Trim(CDS_Main.fieldbyname('MPRTKZ').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + RMCD.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\鱨.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.dfm new file mode 100644 index 0000000..fc10518 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.dfm @@ -0,0 +1,1045 @@ +object frmPRTJYListGL: TfrmPRTJYListGL + Left = 22 + Top = 127 + Width = 1249 + Height = 511 + Caption = #25104#21697#26816#39564#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1233 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton5: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25171#21360#21305#26465#26631#31614 + ImageIndex = 14 + OnClick = ToolButton5Click + end + object TBRKCX: TToolButton + Left = 450 + Top = 0 + AutoSize = True + Caption = #25764#38144#26816#39564 + ImageIndex = 52 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 537 + Top = 0 + AutoSize = True + Caption = #35013#31665#21097#20313 + ImageIndex = 22 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 624 + Top = 0 + Caption = #35013#31665#21097#20313#25764#38144 + ImageIndex = 22 + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 731 + Top = 0 + AutoSize = True + Caption = #26816#39564#25253#21578 + ImageIndex = 4 + OnClick = ToolButton6Click + end + object ToolButton1: TToolButton + Left = 818 + Top = 0 + AutoSize = True + Caption = #25171#21360#30721#21333 + ImageIndex = 14 + Visible = False + OnClick = ToolButton1Click + end + object BtnEditA1: TBtnEditA + Left = 905 + Top = 0 + Width = 187 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + OnBtnClick = BtnEditA1BtnClick + end + object TBClose: TToolButton + Left = 1092 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1233 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 648 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 650 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 770 + Top = 12 + Width = 48 + Height = 12 + Caption = #26412#21378#32568#21495 + end + object Label36: TLabel + Left = 9 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'1'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label37: TLabel + Left = 205 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'2'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label13: TLabel + Left = 770 + Top = 36 + Width = 48 + Height = 12 + Caption = #26426' '#21488' '#21495 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 1 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 406 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object MJType: TComboBox + Tag = 2 + Left = 674 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 8 + Text = #27491#21697 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + '') + end + object GangNo: TEdit + Tag = 1 + Left = 674 + Top = 9 + Width = 68 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + object SelfGangNo: TEdit + Tag = 1 + Left = 819 + Top = 9 + Width = 68 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object LabNote1: TEdit + Left = 77 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 11 + Visible = False + end + object LabNote2: TEdit + Left = 273 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 12 + Visible = False + end + object JTType: TEdit + Tag = 1 + Left = 819 + Top = 32 + Width = 68 + Height = 20 + TabOrder = 13 + OnChange = MPRTCodeNameChange + end + object Lot: TComboBox + Left = 1093 + Top = 37 + Width = 92 + Height = 20 + ItemHeight = 12 + TabOrder = 14 + Visible = False + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 91 + Width = 1233 + Height = 381 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + Column = v1Column5 + end + item + Kind = skSum + Position = spFooter + Column = v1Column16 + end + item + Kind = skSum + Position = spFooter + Column = v1Column17 + end + item + Kind = skSum + Position = spFooter + Column = v1Column18 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column19 + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column18 + end + item + Kind = skSum + Column = v1Column19 + end + item + Kind = skSum + Column = v1Column25 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v1Column10: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 55 + end + object v1Column7: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'SelfGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + Options.Editing = False + Width = 63 + end + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v1Column12: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 86 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column22: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'JTType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #35013#31665#21097#20313 + DataBinding.FieldName = 'ZhuangXiangSYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v1Column20: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'JYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #26816#39564#26102#38388 + DataBinding.FieldName = 'FillTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1Column16: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column17: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'MJQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column18: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v2Column6: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + end + object v1Column19: TcxGridDBColumn + Caption = #30721#25968#37327 + DataBinding.FieldName = 'YQty' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column11: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column21: TcxGridDBColumn + Caption = #36192#36865#21333#20301 + DataBinding.FieldName = 'ZSUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column14: TcxGridDBColumn + Caption = #30133#28857#24773#20917 + DataBinding.FieldName = 'CDQK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column23: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenHZ' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column27: TcxGridDBColumn + Caption = #24179#26041#31859#25187#20998 + DataBinding.FieldName = 'KouFenAvg' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column24: TcxGridDBColumn + Caption = #33394#29282#24230 + DataBinding.FieldName = 'SeLaoDu' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column25: TcxGridDBColumn + Caption = #21305#26465#25968#37327 + DataBinding.FieldName = 'PiTiaoQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column26: TcxGridDBColumn + Caption = #21305#26465#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Width = 58 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label12: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object Panel2: TPanel + Left = 391 + Top = 209 + Width = 232 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#22788#29702#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 48 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 144 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 896 + Top = 128 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 400 + Top = 224 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 472 + Top = 224 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 432 + Top = 224 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 600 + Top = 224 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 568 + Top = 224 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 512 + Top = 224 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_Juan: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 256 + end + object CDS_JuanPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 256 + end + object RMDBMX: TRMDBDataSet + Visible = True + DataSet = CDS_JuanPRT + Left = 208 + Top = 192 + end + object RM3: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMX + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 256 + Top = 192 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 160 + end + object CDS_CD: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 312 + end + object CDS_LS: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 304 + end + object RMCD: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBCD + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 656 + Top = 304 + ReportData = {} + end + object RMDBCD: TRMDBDataSet + Visible = True + DataSet = CDS_CD + Left = 688 + Top = 304 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.pas new file mode 100644 index 0000000..2c23fc5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListGL.pas @@ -0,0 +1,2308 @@ +unit U_PRTJYListGL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, BtnEdit; + +type + TfrmPRTJYListGL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + orderNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + MJType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + GangNo: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + v1Column4: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + CDS_Juan: TClientDataSet; + CDS_JuanPRT: TClientDataSet; + RMDBMX: TRMDBDataSet; + RM3: TRMGridReport; + BtnEditA1: TBtnEditA; + ADOQueryPrint: TADOQuery; + ToolButton2: TToolButton; + v1Column7: TcxGridDBColumn; + Label11: TLabel; + SelfGangNo: TEdit; + Panel4: TPanel; + Label12: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column14: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column15: TcxGridDBColumn; + ToolButton4: TToolButton; + v1Column20: TcxGridDBColumn; + Label36: TLabel; + Label37: TLabel; + LabNote1: TEdit; + LabNote2: TEdit; + v1Column21: TcxGridDBColumn; + Panel2: TPanel; + v1Column22: TcxGridDBColumn; + Label13: TLabel; + JTType: TEdit; + ToolButton5: TToolButton; + v1Column23: TcxGridDBColumn; + v1Column24: TcxGridDBColumn; + v1Column25: TcxGridDBColumn; + v1Column26: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + ToolButton6: TToolButton; + CDS_CD: TClientDataSet; + CDS_LS: TClientDataSet; + RMCD: TRMGridReport; + RMDBCD: TRMDBDataSet; + Lot: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + FLeft,FTop:Integer; + procedure InitGrid(); + procedure GetLotData(); + procedure GetLotDataLie(); + procedure GetLotDataLie38Ye(); + function SaveConData(FConNO:string):Boolean; + procedure GetBGData(); + procedure GetCDSData(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPRTJYListGL: TfrmPRTJYListGL; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_MJEdit; + +{$R *.dfm} + +procedure TfrmPRTJYListGL.FormDestroy(Sender: TObject); +begin + frmPRTJYListGL:=nil; +end; + +procedure TfrmPRTJYListGL.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTJYListGL.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmPRTJYListGL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,C.PiTiaoQty,C.OrderUnit,'); + sql.Add(' Case when D.MJLen>0 then D.KouFenHZ*1.00*100/(MJLen*MJFK) else Null end as KouFenAvg,'); + SQL.Add(' B.OrderNo,MPRTCode=isnull(B.MPRTCode,'''')+isnull(B.MPRTGY,''''),B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,B.KgZMiXS,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' E.GangNo,E.SelfGangNo,B.CustomerNoName,'); + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + SQL.Add(' CDQK=dbo.F_Get_Order_SubStr(D.MJID,''MJCDHZSL'')'); + sql.Add(',JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where D.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and D.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTJYListGL.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPRTJYListGL.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPRTJYListGL.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ',Tv1,'Ʒ'); + Close; +end; + +procedure TfrmPRTJYListGL.FormShow(Sender: TObject); +begin + + ReadCxGrid('Ʒ',Tv1,'Ʒ'); + +end; + +procedure TfrmPRTJYListGL.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPRTJYListGL.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmPRTJYListGL.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPRTJYListGL.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + exit; + end; + with CDS_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['LabNote1']:=Trim(LabNote1.Text); + RMVariables['LabNote2']:=Trim(LabNote2.Text); + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; + CDS_Main.Edit; + CDS_Main.FieldByName('SSel').Value:=False; + CDS_Main.Post; + end; + end; + +end; + +procedure TfrmPRTJYListGL.orderNoChange(Sender: TObject); +begin + if Length(Trim(orderNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmPRTJYListGL.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,C.PiTiaoQty,C.OrderUnit,'); + sql.Add(' Case when D.MJLen>0 then D.KouFenHZ*1.00*100/(MJLen*MJFK) else Null end as KouFenAvg,'); + SQL.Add(' B.OrderNo,MPRTCode=isnull(B.MPRTCode,'''')+isnull(B.MPRTGY,''''),B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,B.KgZMiXS,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' E.GangNo,E.SelfGangNo,B.CustomerNoName,'); + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + sql.Add(' JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where B.OrderNo like :OrderNo'); + Parameters.ParamByName('orderNo').Value:='%'+Trim(orderNo.Text)+'%'; + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTJYListGL.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPRTJYListGL.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPRTJYListGL.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while CDS_Main.Locate('SSEl',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +procedure TfrmPRTJYListGL.GetLotDataLie(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + + + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX '); + //SQL.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + // sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<25 then //кС25 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ25л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListGL.GetLotDataLie38Ye();//ҳ +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX'); + // sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + //sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' CoL0=Cast('''' as varchar(80)),CoL1=Cast('''' as varchar(80)),'); + sql.Add(' CoL2=Cast('''' as varchar(80)),CoL3=Cast('''' as varchar(80)),'); + sql.Add(' CoL4=Cast('''' as varchar(80)),CoL5=Cast('''' as varchar(80)),'); + sql.Add(' CoL6=Cast('''' as varchar(80)),CoL7=Cast('''' as varchar(80)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end else //һҳ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end; + + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value;} + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value;} + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; } + CDS_JuanPRT.Post; + end; + end; + end; + end; + end; + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListGL.GetLotData(); +var + i,j,z,h,q,Hang,GHang,JuanQty,GangQty:Integer; + FGangNo,FHZ,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + sql.Add(' Case when isnull(A.DuoPinNote,'''')<>'''' then ''(''+RTrim(A.DuoPinNote)+'')'' else A.DuoPinNote end as DPNote,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen, '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX '); + //sql.Add(' JJQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GGQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + //sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by A.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty8=Cast(1.00 as decimal(18,1)),LenQty9=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ8=Cast(1.00 as decimal(18,2)),MZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ8=Cast(1.00 as decimal(18,2)),JZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' DP0=Cast('''' as varchar(20)),DP1=Cast('''' as varchar(20)),'); + sql.Add(' DP2=Cast('''' as varchar(20)),DP3=Cast('''' as varchar(20)),'); + sql.Add(' DP4=Cast('''' as varchar(20)),DP5=Cast('''' as varchar(20)),'); + sql.Add(' DP6=Cast('''' as varchar(20)),DP7=Cast('''' as varchar(20)),'); + sql.Add(' DP8=Cast('''' as varchar(20)),DP9=Cast('''' as varchar(20)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' MJPS8=Cast(1 as int),MJPS9=Cast(1 as int),'); + sql.Add(' JuanQty=Cast(0 as int),GangQty=Cast(0 as int),'); + sql.Add(' XH=Cast(0 as int),Hang=Cast(0 as int),GHang=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;hang:=0; GHang:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) JuanQty from WFB_MJJY where SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + Open; + end; + JuanQty:=ADOQueryTemp.fieldbyname('JuanQty').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=0; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('GHang').Value:=0; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=0;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + GHang:=0; + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>FSubId then + begin + Hang:=0; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) JuanQty from WFB_MJJY where SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + Open; + end; + JuanQty:=ADOQueryTemp.fieldbyname('JuanQty').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + end else + begin + Hang:=Hang+1; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + end; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if Z<10 then + begin + CDS_JuanPRT.Locate('XH',j,[]); + with CDS_JuanPRT do + begin + Edit; + FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + FieldByName('MJPS'+Trim(IntToStr(Z))).Value:=1; + FieldByName('LenQty'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('DPNote').Value; + FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + Post; + end; + end else + begin + GHang:=GHang+1; + Hang:=Hang+1; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end; + end; + end + end; + Z:=Z+1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListGL.ToolButton1Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(BtnEditA1.Text)='' then + begin + Application.MessageBox('뵥ƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(BtnEditA1.Text)+'.rmf' ; + Panel2.Visible:=True; + Panel2.Refresh; + if Trim(BtnEditA1.Text)='ͨ뵥(׺)' then + begin + GetLotDataLie(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38M)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + begin + GetLotData(); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select AAA.*,JSM.OrderNo,JSB.PRTColorEng,JSB.PRTHX,JSB.PRTColorNo from('); + sql.Add('select Sum(MJLen) MQty,Sum(YQty) YQty,Count(*) PS,Sum(MJQty4) MJJingZ,Sum(MJMaoZ) MJMaoZ ,SubId'); + SQL.Add('from (select A.MJLen,A.MJQty4,A.MJMaoZ,A.SubId,'); + sql.Add(' Case when isnull(A.MJLenMa,-1)<=0 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as YQty '); + //sql.Add('GangNo=(select GangNo from JYOrder_Main_MD B where B.MDID=A.APID),A.Subid'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + if Trim(MJType.Text)<>'' then + begin + SQL.Add(' and A.MJType='''+Trim(MJType.Text)+''' )AA '); + end else + begin + SQL.Add(' and 1=1 )AA'); + end; + sql.Add('Group by SubId)AAA'); + sql.add(' inner join JYOrder_Sub JSB on AAA.SubId=JSB.SubID'); + sql.Add(' inner join JYOrder_Main JSM on JSB.MainId=JSM.MainId'); + sql.add(' order by SubId'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryCmd,CDS_HZ); + SInitCDSData20(ADOQueryCmd,CDS_HZ); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(MJLen) MQty,Cast(sum(MJLen)*1.0936 as decimal(18,1)) YQty, '); + sql.Add(' sum(MJMaoZ) MaoZ,sum(MJQty4) JingZ,Count(*) PS'); + sql.Add(' from WFB_MJJY where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and ZhuangXiangSYFlag=0'); + sql.Add(' group by MainId'); + Open; + end; + Panel2.Visible:=False; + if FileExists(fPrintFile) then + begin + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + RMVariables['MQty']:=ADOQueryTemp.fieldbyname('MQty').Value; + RMVariables['MaoZ']:=ADOQueryTemp.fieldbyname('MaoZ').Value; + RMVariables['JingZ']:=ADOQueryTemp.fieldbyname('JingZ').Value; + RMVariables['PS']:=ADOQueryTemp.fieldbyname('PS').Value; + // RMVariables['QtyUnit']:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(BtnEditA1.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTJYListGL.BtnEditA1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CKMD'; + flagname:='뵥'; + if ShowModal=1 then + begin + BtnEditA1.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPRTJYListGL.ToolButton2Click(Sender: TObject); +begin + try + frmMJEdit:=TfrmMJEdit.Create(Application); + with frmMJEdit do + begin + MJID.Text:=Trim(Self.CDS_Main.fieldbyname('MJID').AsString); + KgZMiXS:=Trim(Self.CDS_Main.fieldbyname('KgZMiXS').AsString); + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select A.* from WFB_MJJY A '); + sql.Add(' where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJID.Text:=''; + Label2.Caption:=''; + Label2.Visible:=False; + Application.MessageBox('!','ʾ',0); + Exit; + end; + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('MJQty3').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJQty4.Text:=Trim(ADOTmp.fieldbyname('MJQty4').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + //M.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString)); + // Ma.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString)); + + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=0 + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=1; + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='ƴ' then + begin + RadioGroup1.ItemIndex:=2; + end; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY_CD A where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + Label2.Caption:=Trim(MJID.Text); + Label2.Visible:=True; + MJID.Text:=''; + SCreateCDS20(ADOTmp,Order_MJ); + SInitCDSData20(ADOTmp,Order_MJ); + if ShowModal=1 then + begin + + end; + end; + finally + frmMJEdit.Free; + end; +end; + +procedure TfrmPRTJYListGL.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmPRTJYListGL.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmPRTJYListGL.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel4.Refresh; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; +end; + +procedure TfrmPRTJYListGL.Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; +function TfrmPRTJYListGL.SaveConData(FConNO:string):Boolean; +var + maxno,maxsubno,MainID,SubId,PSName:string; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ConNo='''+Trim(FConNO)+''''); + sql.Add(' and ConType=''װ'' and ConTypeOther=''װʣ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MainID:=Trim(ADOQueryTemp.fieldbyname('MainID').AsString); + end else + begin + MainID:=''; + end; + if Trim(MainID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'ZM','Contract_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MainID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(MainID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MainID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('MainID').Value:=Trim(maxno); + FieldByName('ConNo').Value:=Trim(FConNO); + FieldByName('FactoryNoName').Value:='ֿ'; + FieldByName('FactoryNo').Value:='GS131230001'; + FieldByName('ConTypeOther').Value:='װʣ'; + FieldByName('ConType').Value:='װ'; + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + SubId:=''; + end else + begin + SubId:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + end; + if Trim(SubId)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'ZS','Contract_Sub',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(SubId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(SubId)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + FieldByName('C_Code').Value:=CDS_Main.fieldbyname('MPRTCode').Value; + FieldByName('C_CodeName').Value:=CDS_Main.fieldbyname('MPRTCodeName').Value; + Post; + end; + Result:=True; + +end; +procedure TfrmPRTJYListGL.ToolButton3Click(Sender: TObject); +var + FPSID,FFMainId,FFOrdeNo:String; +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + CDS_Main.Locate('SSel',True,[]); + FFMainId:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FFOrdeNo:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FFMainId)+''''); + sql.Add(' and PSName=''װ'' '); + Open; + end; + FPSID:=Trim(ADOQueryTemp.fieldbyname('PSID').AsString); + if Trim(FPSID)='' then + begin + Application.MessageBox('ûж<װ>','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFB_MJJY Set ZhuangXiangSYFlag=1 where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ZhuangXiangSYFlag').Value:=1; + Post; + end; + end; + CDS_Main.EnableControls; + if SaveConData(Trim(FFOrdeNo))=False then + begin + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' insert into JYOrder_PCS_Sub(MainId,SubId,PSID,PFID,FactoryNo,FactoryName,Filler,FillTime)'); + sql.Add('select MainId,SubId,'''+FPSID+''''); + sql.Add(',''FP''+RTrim(SubId),''GS131230001'',''ֿ'','''+Trim(DName)+''',getdate()'); + SQL.Add(' from WFB_MJJY where Mainid='''+Trim(FFMainId)+''''); + sql.Add(' and ZhuangXiangSYFlag=1 '); + sql.Add(' and not exists(select * from JYOrder_PCS_Sub A where A.SubId=WFB_MJJY.SubId and A.PSID='''+Trim(FPSID)+''')'); + sql.Add(' group by MainId,SubId'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set'); + sql.Add('PFTPPS=(select isnull(Count(*),0) from WFB_MJJY A where A.SubId=JYOrder_PCS_Sub.SubId and A.ZhuangXiangSYFlag=1)'); + sql.Add(',PFTPQty=(select isnull(sum(MJQty4),0) from WFB_MJJY A where A.SubId=JYOrder_PCS_Sub.SubId and A.ZhuangXiangSYFlag=1)'); + sql.Add(',PFTPUnit=''KG'' '); + sql.Add(' where PSID='''+Trim(FPSID)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmPRTJYListGL.ToolButton4Click(Sender: TObject); +var + FPSID,FFMainId,FFOrdeNo:String; +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + CDS_Main.Locate('SSel',True,[]); + FFMainId:=Trim(CDS_Main.fieldbyname('MainId').AsString); + FFOrdeNo:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFB_MJJY Set ZhuangXiangSYFlag=0 where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ZhuangXiangSYFlag').Value:=0; + Post; + end; + end; + CDS_Main.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set'); + sql.Add('PFTPPS=(select Count(*) from WFB_MJJY A where A.SubId=JYOrder_PCS_Sub.SubId and A.ZhuangXiangSYFlag=1)'); + sql.Add(',PFTPQty=(select sum(MJQty4) from WFB_MJJY A where A.SubId=JYOrder_PCS_Sub.SubId and A.ZhuangXiangSYFlag=1)'); + sql.Add(',PFTPUnit=''KG'' '); + sql.Add(' where PSID='''+Trim(FPSID)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmPRTJYListGL.ToolButton5Click(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + exit; + end; + with CDS_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ƥǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ƥǩ'),'ʾ',0); + end; + CDS_Main.Edit; + CDS_Main.FieldByName('SSel').Value:=False; + CDS_Main.Post; + end; + end; +end; + +procedure TfrmPRTJYListGL.ToolButton6Click(Sender: TObject); +var + fPrintFile:string; +begin + GetBGData(); + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\鱨.rmf' ; + if FileExists(fPrintFile) then + begin + RMCD.LoadFromFile(fPrintFile); + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['CustomerNoName']:=Trim(CDS_Main.fieldbyname('CustomerNoName').AsString); + RMVariables['MPRTMF']:=Trim(CDS_Main.fieldbyname('MPRTMF').AsString); + RMVariables['MPRTKZ']:=Trim(CDS_Main.fieldbyname('MPRTKZ').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + // RMVariables['FillTIme']:=Trim(CDS_Main.fieldbyname('FillTIme').AsString); + RMCD.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\鱨.rmf'),'ʾ',0); + end; +end; +procedure TfrmPRTJYListGL.GetCDSData(); +begin + CDS_CD.FieldByName('MJXH').Value:=CDS_LS.fieldbyname('MJXH').Value; + CDS_CD.FieldByName('SelfGangNo').Value:=CDS_LS.fieldbyname('SelfGangNo').Value; + CDS_CD.FieldByName('PRTColor').Value:=CDS_LS.fieldbyname('PRTColor').Value; + CDS_CD.FieldByName('PRTColorNo').Value:=CDS_LS.fieldbyname('PRTColorNo').Value; + CDS_CD.FieldByName('MJLen').Value:=CDS_LS.fieldbyname('MJLen').Value; + CDS_CD.FieldByName('MJLenMa').Value:=CDS_LS.fieldbyname('MJLenMa').Value; + CDS_CD.FieldByName('MJJZ').Value:=CDS_LS.fieldbyname('MJQty4').Value; + CDS_CD.FieldByName('MJMZ').Value:=CDS_LS.fieldbyname('MJMaoZ').Value; + CDS_CD.FieldByName('MJFK').Value:=CDS_LS.fieldbyname('MJFK').Value; + CDS_CD.FieldByName('KouFenHZ').Value:=CDS_LS.fieldbyname('KouFenHZ').Value; + CDS_CD.FieldByName('KouFenAvg').Value:=CDS_LS.fieldbyname('KouFenAvg').Value; + CDS_CD.FieldByName('MJID').Value:=CDS_LS.fieldbyname('MJID').Value; + CDS_CD.FieldByName('FillTime').Value:=CDS_LS.fieldbyname('FillTime').Value; +end; +procedure TfrmPRTJYListGL.GetBGData(); +var + FMJId:string; + i,j,z:Integer; +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MJXH=Cast(0 as int),SelfGangNo=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20))'); + sql.Add(',MJID=Cast('''' as varchar(20)),PRTColor=Cast('''' as varchar(20)),FillTime=Cast(Null as datetime)'); + sql.Add(',MJLen=Cast(0 as decimal(18,1)),MJLenMa=Cast(0 as decimal(18,1)),MJJZ=Cast(0 as decimal(18,2)),XH=Cast(0 as int)'); + sql.Add(',MJMZ=Cast(0 as decimal(18,2)),MJFK=Cast(0 as decimal(18,2)),KouFenHZ=Cast(0 as int),KouFenAvg=Cast(0 as decimal(18,2))'); + sql.Add(',CDName0=Cast('''' as varchar(20)),CDBeg0=Cast('''' as varchar(20)),KFQty0=Cast(0 as int)'); + sql.Add(',CDName1=Cast('''' as varchar(20)),CDBeg1=Cast('''' as varchar(20)),KFQty1=Cast(0 as int)'); + sql.Add(',CDName2=Cast('''' as varchar(20)),CDBeg2=Cast('''' as varchar(20)),KFQty2=Cast(0 as int)'); + sql.Add(',CDName3=Cast('''' as varchar(20)),CDBeg3=Cast('''' as varchar(20)),KFQty3=Cast(0 as int)'); + sql.Add(',CDName4=Cast('''' as varchar(20)),CDBeg4=Cast('''' as varchar(20)),KFQty4=Cast(0 as int)'); + sql.Add(',CDName5=Cast('''' as varchar(20)),CDBeg5=Cast('''' as varchar(20)),KFQty5=Cast(0 as int)'); + sql.Add(',CDName6=Cast('''' as varchar(20)),CDBeg6=Cast('''' as varchar(20)),KFQty6=Cast(0 as int)'); + sql.Add(',CDName7=Cast('''' as varchar(20)),CDBeg7=Cast('''' as varchar(20)),KFQty7=Cast(0 as int)'); + sql.Add(',CDName8=Cast('''' as varchar(20)),CDBeg8=Cast('''' as varchar(20)),KFQty8=Cast(0 as int)'); + sql.Add(',CDName9=Cast('''' as varchar(20)),CDBeg9=Cast('''' as varchar(20)),KFQty9=Cast(0 as int)'); + sql.Add(',CDName10=Cast('''' as varchar(20)),CDBeg10=Cast('''' as varchar(20)),KFQty10=Cast(0 as int)'); + sql.Add(',CDName11=Cast('''' as varchar(20)),CDBeg11=Cast('''' as varchar(20)),KFQty11=Cast(0 as int)'); + sql.Add(',CDName12=Cast('''' as varchar(20)),CDBeg12=Cast('''' as varchar(20)),KFQty12=Cast(0 as int)'); + sql.Add(',CDName13=Cast('''' as varchar(20)),CDBeg13=Cast('''' as varchar(20)),KFQty13=Cast(0 as int)'); + sql.Add(',CDName14=Cast('''' as varchar(20)),CDBeg14=Cast('''' as varchar(20)),KFQty14=Cast(0 as int)'); + sql.Add(',CDName15=Cast('''' as varchar(20)),CDBeg15=Cast('''' as varchar(20)),KFQty15=Cast(0 as int)'); + sql.Add(',CDName16=Cast('''' as varchar(20)),CDBeg16=Cast('''' as varchar(20)),KFQty16=Cast(0 as int)'); + sql.Add(',CDName17=Cast('''' as varchar(20)),CDBeg17=Cast('''' as varchar(20)),KFQty17=Cast(0 as int)'); + sql.Add(',CDName18=Cast('''' as varchar(20)),CDBeg18=Cast('''' as varchar(20)),KFQty18=Cast(0 as int)'); + sql.Add(',CDName19=Cast('''' as varchar(20)),CDBeg19=Cast('''' as varchar(20)),KFQty19=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_CD); + SInitCDSData20(ADOQueryTemp,CDS_CD); + if CDS_CD.IsEmpty=False then CDS_CD.Delete; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select AA.*, '); + SQL.Add(' case when CDBeg=CDEnd then Cast(CDBeg as varchar(20)) else Cast(CDBeg as varchar(20))+''-''+Cast(CDEnd as varchar(20)) end as CDQK'); + sql.Add('from (select A.CDBeg,A.CDEnd,A.CDName,A.KouFen,B.MJXH,C.SelfGangNo,JS.PRTColorNo,JS.PRTColor,B.MJID, '); + sql.Add(' Case when B.MJLen>0 then B.KouFenHZ*1.00*100/(B.MJLen*B.MJFK) else Null end as KouFenAvg'); + sql.Add(',CDEName=(select Note from KH_Zdy KZ where KZ.ZdyName=A.CDName and KZ.Type=''WFBCD'' )'); + sql.Add(',B.MJLen,B.MJLenMa,B.MJQty4,B.MJMaoZ,B.MJSJKZ,B.MJFK,B.MJType,B.KouFenHZ,B.FillTime'); + sql.Add(' from WFB_MJJY B '); + sql.Add(' left join WFB_MJJY_CD A on B.MJID=A.MJID'); + sql.Add(' inner join JYOrder_Main_MD C on B.APID=C.MDID'); + sql.Add(' inner join JYOrder_Sub JS on C.ORDSubId=JS.SubId'); + SQL.Add(' where B.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and isnull(B.MJType,'''')='''+Trim(MJType.Text)+''''); + end; + + sql.Add(')AA order by PRTColorNo,Cast(SelfGangNo as int),MJXH'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_LS); + SInitCDSData20(ADOQueryTemp,CDS_LS); + CDS_LS.DisableControls; + with CDS_LS do + begin + First; + while not Eof do + begin + if CDS_CD.IsEmpty then + begin + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName0').Value:=CDS_LS.fieldbyname('CDEName').Value + else } + FieldByName('CDName0').Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg0').Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty0').Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + FMJId:=Trim(CDS_LS.fieldbyname('MJID').AsString); + i:=0;//к + j:=0; + z:=0;//к + end; + end else + begin + if Trim(CDS_LS.fieldbyname('MJID').AsString)=FMJId then + begin + i:=i+1; + if i<20 then + begin + with CDS_CD do + begin + Edit; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else } + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + end else + begin + i:=0; + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else} + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + end; + end else + begin + i:=0; + with CDS_CD do + begin + Append; + GetCDSData(); + {if CheckBox1.Checked=True then + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDEName').Value + else} + FieldByName('CDName'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDName').Value; + FieldByName('CDBeg'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('CDQK').Value; + FieldByName('KFQty'+Trim(IntToStr(i))).Value:=CDS_LS.fieldbyname('KouFen').Value; + FieldByName('XH').Value:=CDS_LS.fieldbyname('MJXH').Value; + Post; + end; + FMJId:=Trim(CDS_LS.fieldbyname('MJID').AsString); + end; + end; + Next; + end; + end; + CDS_LS.EnableControls; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.dfm new file mode 100644 index 0000000..682fe19 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.dfm @@ -0,0 +1,916 @@ +object frmPRTJYListNew: TfrmPRTJYListNew + Left = 122 + Top = 131 + Width = 1027 + Height = 511 + Caption = #25104#21697#26816#39564#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1019 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBRKCX: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25764#38144#26816#39564 + ImageIndex = 52 + Visible = False + OnClick = TBRKCXClick + end + object ToolButton1: TToolButton + Left = 426 + Top = 0 + Caption = #25171#21360#30721#21333 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object BtnEditA1: TBtnEditA + Left = 509 + Top = 0 + Width = 187 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + OnBtnClick = BtnEditA1BtnClick + end + object TBClose: TToolButton + Left = 696 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object Lot: TComboBox + Left = 759 + Top = 5 + Width = 145 + Height = 20 + ItemHeight = 12 + TabOrder = 1 + Visible = False + Items.Strings = ( + '1' + '2' + '3' + '4') + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1019 + Height = 86 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 526 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 526 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 648 + Top = 36 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 650 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 766 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label36: TLabel + Left = 9 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'1'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label37: TLabel + Left = 205 + Top = 64 + Width = 72 + Height = 12 + Caption = #26631#31614#20869#23481'2'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 1 + OnChange = MPRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 406 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + end + object MJType: TComboBox + Tag = 2 + Left = 674 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + '') + end + object SelfGangNo: TEdit + Tag = 1 + Left = 674 + Top = 9 + Width = 68 + Height = 20 + TabOrder = 9 + OnChange = MPRTCodeNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 790 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 10 + OnChange = MPRTCodeNameChange + end + object LabNote1: TEdit + Left = 77 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 11 + end + object LabNote2: TEdit + Left = 273 + Top = 60 + Width = 122 + Height = 20 + CharCase = ecUpperCase + TabOrder = 12 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 119 + Width = 1019 + Height = 361 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + Column = v1Column5 + end + item + Kind = skSum + Position = spFooter + Column = v1Column16 + end + item + Kind = skSum + Position = spFooter + Column = v1Column17 + end + item + Kind = skSum + Position = spFooter + Column = v1Column18 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column19 + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column18 + end + item + Kind = skSum + Column = v1Column19 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v1Column10: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v1Column13: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + Options.Editing = False + Width = 63 + end + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v1Column12: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column14: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'SelfGangNo' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 86 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #35013#31665#21097#20313 + DataBinding.FieldName = 'ZhuangXiangSYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column20: TcxGridDBColumn + Caption = #26816#39564#26085#26399 + DataBinding.FieldName = 'JYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column2: TcxGridDBColumn + Caption = #26816#39564#26102#38388 + DataBinding.FieldName = 'FillTIme' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1Column16: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column17: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'MJQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column18: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v2Column6: TcxGridDBColumn + Caption = #31859#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + end + object v1Column19: TcxGridDBColumn + Caption = #30721#25968#37327 + DataBinding.FieldName = 'YQty' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column11: TcxGridDBColumn + Caption = #36192#36865#25968#37327 + DataBinding.FieldName = 'MJQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column22: TcxGridDBColumn + Caption = #36192#36865#21333#20301 + DataBinding.FieldName = 'ZSUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column7: TcxGridDBColumn + Caption = #30133#28857#24773#20917 + DataBinding.FieldName = 'CDQK' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column21: TcxGridDBColumn + Caption = #22810#25340#20449#24687 + DataBinding.FieldName = 'DuoPinNote' + HeaderAlignmentHorz = taCenter + Width = 75 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 3 + Visible = False + object Label12: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 292 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #20107#20214#35828#26126 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 269 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object RichEdit1: TRichEdit + Left = 1 + Top = 24 + Width = 292 + Height = 188 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + object Panel2: TPanel + Left = 391 + Top = 209 + Width = 232 + Height = 41 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = #27491#22312#22788#29702#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 840 + Top = 72 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 978 + Top = 166 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 950 + Top = 159 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 384 + Top = 273 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 457 + Top = 272 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 417 + Top = 259 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 616 + Top = 291 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 578 + Top = 286 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 504 + Top = 272 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_Juan: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 256 + end + object CDS_JuanPRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 256 + end + object RMDBMX: TRMDBDataSet + Visible = True + DataSet = CDS_JuanPRT + Left = 208 + Top = 192 + end + object RM3: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMX + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 256 + Top = 192 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.pas new file mode 100644 index 0000000..2876f16 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTJYListNew.pas @@ -0,0 +1,2230 @@ +unit U_PRTJYListNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, BtnEdit; + +type + TfrmPRTJYListNew = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + PRTColor: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + orderNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + MJType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label10: TLabel; + SelfGangNo: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + v1Column4: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + CDS_Juan: TClientDataSet; + CDS_JuanPRT: TClientDataSet; + RMDBMX: TRMDBDataSet; + RM3: TRMGridReport; + BtnEditA1: TBtnEditA; + ADOQueryPrint: TADOQuery; + ToolButton2: TToolButton; + Lot: TComboBox; + Label11: TLabel; + PRTHX: TEdit; + v1Column7: TcxGridDBColumn; + Panel4: TPanel; + Label12: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Label36: TLabel; + Label37: TLabel; + LabNote1: TEdit; + LabNote2: TEdit; + v1Column22: TcxGridDBColumn; + Panel2: TPanel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Image2Click(Sender: TObject); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + FLeft,FTop:Integer; + procedure InitGrid(); + procedure GetLotData(); + procedure GetLotDataLie(); + procedure GetLotDataLie38(); + procedure GetLotDataLie38Ye(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPRTJYListNew: TfrmPRTJYListNew; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_MJEdit; + +{$R *.dfm} + +procedure TfrmPRTJYListNew.FormDestroy(Sender: TObject); +begin + frmPRTJYListNew:=nil; +end; + +procedure TfrmPRTJYListNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTJYListNew.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmPRTJYListNew.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,'); + SQL.Add(' B.OrderNo,MPRTCode=B.MPRTCode+B.MPRTGY,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' GangNo=E.SelfGangNo ,'); //YQty=Cast(D.MJLen*1.0936 as decimal(18,1)), + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + SQL.Add(' CDQK=dbo.F_Get_Order_SubStr(D.MJID,''MJCDHZSL'')'); + sql.Add(',JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where D.FillTime>=:begdate and D.FillTime<:enddate'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTJYListNew.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmPRTJYListNew.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmPRTJYListNew.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷCX',Tv1,'Ʒ'); + Close; +end; + +procedure TfrmPRTJYListNew.FormShow(Sender: TObject); +begin + + ReadCxGrid('ƷCX',Tv1,'Ʒ'); + {if Trim(DParameters2)='' then + begin + TBRKCX.Visible:=True; + end else + begin + v1Column4.Visible:=False; + end; } + //InitGrid(); +end; + +procedure TfrmPRTJYListNew.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmPRTJYListNew.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmPRTJYListNew.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmPRTJYListNew.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + exit; + end; + with CDS_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('exec P_Print_Lable :MJID'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)<>'' then + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString) + else + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨӢıǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['LabNote1']:=Trim(LabNote1.Text); + RMVariables['LabNote2']:=Trim(LabNote2.Text); + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('SLBName').AsString)),'ʾ',0); + end; + CDS_Main.Edit; + CDS_Main.FieldByName('SSel').Value:=False; + CDS_Main.Post; + end; + end; +end; + +procedure TfrmPRTJYListNew.orderNoChange(Sender: TObject); +begin + if Length(Trim(orderNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmPRTJYListNew.orderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select D.*,'); + SQL.Add(' B.OrderNo,MPRTCode=B.MPRTCode+B.MPRTGY,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,B.OrderNo,B.CustomerNoName,'); + //SQL.Add(' C.PRTColor,C.PRTHX,C.PRTColorEng,C.PRTColorNo,'); + SQL.Add(' PRTColor=Rtrim(isnull(C.PRTColorNo,''''))+'' ''+Rtrim(isnull(C.PRTColor,''''))+'' ''+RTrim(isnull(C.PRTColorEng,'''')) ,C.PRTHX,'); + sql.Add(' E.SelfGangNo,E.GangNo,'); //YQty=Cast(D.MJLen*1.0936 as decimal(18,1)) + sql.Add(' Case when isnull(D.MJLenMa,-1)<=0 then Cast(D.MJLen*1.0936 as decimal(18,1)) else Cast(D.MJLenMa*1 as decimal(18,1)) end as YQty, '); + SQL.Add(' CDQK=dbo.F_Get_Order_SubStr(D.MJID,''MJCDHZSL''),'); + sql.Add(' JYDate=CONVERT(varchar(10) , D.FillTime,120 ) '); + sql.add('from WFB_MJJY D '); + Sql.add(' inner join JYOrder_Main B on D.MainId=B.MainId'); + Sql.add(' inner join JYOrder_Sub C on D.SubId=C.SubId'); + sql.Add(' inner join JYOrder_Main_MD E on D.APID=E.MDID'); + sql.add('where B.OrderNo like :OrderNo'); + //sql.Add(' and D.Valie=''Y'' '); + Parameters.ParamByName('orderNo').Value:='%'+Trim(orderNo.Text)+'%'; + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTJYListNew.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmPRTJYListNew.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmPRTJYListNew.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִв','ʾ',32+4)<>IDYES then Exit; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +procedure TfrmPRTJYListNew.GetLotData(); +var + i,j,z,h,q,Hang,GHang,JuanQty,GangQty:Integer; + FGangNo,FHZ,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + sql.Add(' Case when isnull(A.DuoPinNote,'''')<>'''' then ''(''+RTrim(A.DuoPinNote)+'')'' else A.DuoPinNote end as DPNote,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen, '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX '); + //sql.Add(' JJQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GGQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + //sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by A.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' GangNo=Cast('''' as varchar(20)),BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty8=Cast(1.00 as decimal(18,1)),LenQty9=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ8=Cast(1.00 as decimal(18,2)),MZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ8=Cast(1.00 as decimal(18,2)),JZ9=Cast(1.00 as decimal(18,2)),'); + sql.Add(' DP0=Cast('''' as varchar(20)),DP1=Cast('''' as varchar(20)),'); + sql.Add(' DP2=Cast('''' as varchar(20)),DP3=Cast('''' as varchar(20)),'); + sql.Add(' DP4=Cast('''' as varchar(20)),DP5=Cast('''' as varchar(20)),'); + sql.Add(' DP6=Cast('''' as varchar(20)),DP7=Cast('''' as varchar(20)),'); + sql.Add(' DP8=Cast('''' as varchar(20)),DP9=Cast('''' as varchar(20)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' MJPS8=Cast(1 as int),MJPS9=Cast(1 as int),'); + sql.Add(' JuanQty=Cast(0 as int),GangQty=Cast(0 as int),'); + sql.Add(' XH=Cast(0 as int),Hang=Cast(0 as int),GHang=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;hang:=0; GHang:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) JuanQty from WFB_MJJY where SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + Open; + end; + JuanQty:=ADOQueryTemp.fieldbyname('JuanQty').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=0; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('GHang').Value:=0; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=0;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + GHang:=0; + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>FSubId then + begin + Hang:=0; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) JuanQty from WFB_MJJY where SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + Open; + end; + JuanQty:=ADOQueryTemp.fieldbyname('JuanQty').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + end else + begin + Hang:=Hang+1; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(*) GangQty from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID '); + sql.Add(' where A.SubId='''+Trim(CDS_Juan.fieldbyname('SubId').AsString)+''''); + sql.Add(' and B.SelfGangNo='''+Trim(CDS_Juan.fieldbyname('GangNo').AsString)+''''); + Open; + end; + GangQty:=ADOQueryTemp.fieldbyname('GangQty').AsInteger; + end; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end else + begin + if Z<10 then + begin + CDS_JuanPRT.Locate('XH',j,[]); + with CDS_JuanPRT do + begin + Edit; + FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + FieldByName('MJPS'+Trim(IntToStr(Z))).Value:=1; + FieldByName('LenQty'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP'+Trim(IntToStr(Z))).Value:=CDS_Juan.fieldbyname('DPNote').Value; + FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + Post; + end; + end else + begin + GHang:=GHang+1; + Hang:=Hang+1; + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('GangNo').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('BaoNO').Value:=CDS_Juan.fieldbyname('BaoNO').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('XH').Value:=J+1; + CDS_JuanPRT.FieldByName('Hang').Value:=Hang; + CDS_JuanPRT.FieldByName('GHang').Value:=GHang; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('DP0').Value:=CDS_Juan.fieldbyname('DPNote').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('JuanQty').Value:=JuanQty; + CDS_JuanPRT.FieldByName('GangQty').Value:=GangQty; + CDS_JuanPRT.Post; + Z:=0;//gang ׺ + j:=j+1;//к + for i:=1 to 9 do + begin + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(i))).Value:=0; + CDS_JuanPRT.Post; + end; + end; + end; + end + end; + Z:=Z+1; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListNew.GetLotDataLie(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + + + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX '); + //SQL.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + // sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<25 then //кС25 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ25л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L div 2))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=26; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=26; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=26; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=26; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 24 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=26+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=26+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=26+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=26+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListNew.GetLotDataLie38(); +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX,'); + sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + end; + end; + end; + + + + end; + end; + + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListNew.GetLotDataLie38Ye();//ҳ +var + i,j,z,H,q,L,Y:Integer; + FGangNo,FHZ,Lot0,Lot1,Lot2,Lot3,FSubId:String; +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select GangNo=MD.SelfGangNo,A.MJXH,A.MJMaoZ,A.SubId,A.MainId,A.MJQty4,'); + if Pos('Y',Trim(BtnEditA1.Text))>0 then + begin + //sql.Add('MJLen=Cast(A.MJLen*1.0936 as decimal(18,1)),'); + sql.Add(' Case when isnull(A.MJLenMa,-1)=-1 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as MJLen '); + end else + begin + sql.Add('A.MJLen,'); + end; + sql.Add('DD.OrderNo,JS.PRTColor,PRTEColor=JS.PRTColorEng,PRTColorNo=JS.PRTColorNo,JS.PRTHX'); + // sql.Add(' JQty=(select Count(*) from WFB_MJJY WM where WM.SubId=JS.SubId),'); + //sql.Add(' GQty=(select Count(*) from WFB_MJJY WM inner join JYOrder_Main_MD JMD on WM.APID=JMD.MDID '); + //sql.add(' where WM.SubId=JS.SubId and JMD.SelfGangNo=MD.SelfGangNo)') ; + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' inner join JYOrder_Sub JS on A.SubId=JS.SubId'); + sql.Add(' inner join JYOrder_Main_MD MD on A.APID=MD.MDID'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + //sql.Add(' and A.SubId=''JS1402100003'' '); + //sql.Add(' and A.Valie=''Y'' '); + if Trim(MJType.Text)<>'' then + begin + sql.Add(' and A.MJType='''+Trim(MJType.Text)+''''); + end; + sql.Add(' order by JS.SubId,Cast(MD.SelfGangNo as int),A.MJXH'); + Open; + end; + //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); + SCreateCDS20(ADOQueryTemp,CDS_Juan); + SInitCDSData20(ADOQueryTemp,CDS_Juan); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select MainId=Cast('''' as varchar(20)),SubId=Cast('''' as varchar(20)),'); + sql.Add(' PRTEColor=Cast('''' as varchar(20)),PRTHX=Cast('''' as varchar(20)),PRTColorNo=Cast('''' as varchar(20)),'); + sql.Add(' Lot0=Cast('''' as varchar(20)),Lot1=Cast('''' as varchar(20)),'); + sql.Add(' Lot2=Cast('''' as varchar(20)),Lot3=Cast('''' as varchar(20)),'); + sql.Add(' Lot4=Cast('''' as varchar(20)),Lot5=Cast('''' as varchar(20)),'); + sql.Add(' Lot6=Cast('''' as varchar(20)),Lot7=Cast('''' as varchar(20)),'); + sql.Add(' CoL0=Cast('''' as varchar(80)),CoL1=Cast('''' as varchar(80)),'); + sql.Add(' CoL2=Cast('''' as varchar(80)),CoL3=Cast('''' as varchar(80)),'); + sql.Add(' CoL4=Cast('''' as varchar(80)),CoL5=Cast('''' as varchar(80)),'); + sql.Add(' CoL6=Cast('''' as varchar(80)),CoL7=Cast('''' as varchar(80)),'); + sql.Add(' BaoNo=Cast('''' as varchar(20)),XH=Cast(0 as int),JJQty=Cast(0 as int),GGQty=Cast(0 as int),'); + sql.Add(' LenQty0=Cast(1.00 as decimal(18,1)),LenQty1=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty2=Cast(1.00 as decimal(18,1)),LenQty3=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty4=Cast(1.00 as decimal(18,1)),LenQty5=Cast(1.00 as decimal(18,1)),'); + sql.Add(' LenQty6=Cast(1.00 as decimal(18,1)),LenQty7=Cast(1.00 as decimal(18,1)),'); + sql.Add(' MZ0=Cast(1.00 as decimal(18,2)),MZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ2=Cast(1.00 as decimal(18,2)),MZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ4=Cast(1.00 as decimal(18,2)),MZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MZ6=Cast(1.00 as decimal(18,2)),MZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ0=Cast(1.00 as decimal(18,2)),JZ1=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ2=Cast(1.00 as decimal(18,2)),JZ3=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ4=Cast(1.00 as decimal(18,2)),JZ5=Cast(1.00 as decimal(18,2)),'); + sql.Add(' JZ6=Cast(1.00 as decimal(18,2)),JZ7=Cast(1.00 as decimal(18,2)),'); + sql.Add(' MJPS0=Cast(1 as int),MJPS1=Cast(1 as int),'); + sql.Add(' MJPS2=Cast(1 as int),MJPS3=Cast(1 as int),'); + sql.Add(' MJPS4=Cast(1 as int),MJPS5=Cast(1 as int),'); + sql.Add(' MJPS6=Cast(1 as int),MJPS7=Cast(1 as int),'); + sql.Add(' JH0=Cast(1 as int),JH1=Cast(1 as int),'); + sql.Add(' JH2=Cast(1 as int),JH3=Cast(1 as int),'); + sql.Add(' JH4=Cast(1 as int),JH5=Cast(1 as int),'); + sql.Add(' JH6=Cast(1 as int),JH7=Cast(1 as int),'); + sql.Add(' Hang=Cast(0 as int),'); + sql.Add(' Ye=Cast(0 as int),'); + sql.Add(' Lie=Cast(0 as int)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_JuanPRT); + SInitCDSData20(ADOQueryTemp,CDS_JuanPRT); + if CDS_JuanPRT.IsEmpty=False then + begin + CDS_JuanPRT.Delete; + end; + i:=0;j:=0;z:=0;FGangNo:='';h:=0;L:=0;Y:=0; + CDS_Juan.DisableControls; + with CDS_Juan do + begin + First; + while not Eof do + begin + //FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString)+Trim(CDS_Juan.fieldbyname('BaoNO').AsString) + //+Trim(CDS_Juan.fieldbyname('GangNo').AsString); + with CDS_JuanPRT do + begin + if CDS_JuanPRT.IsEmpty then + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=0;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end else //ݼΪգɫŸ׺űΪµġ + begin + if Trim(CDS_Juan.fieldbyname('SubId').AsString)<>Trim(FSubId) then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end else //һҳ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //CDS_JuanPRT.FieldByName('Lot0').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + CDS_JuanPRT.Post; + end; + end; + + end else //subid ͬ׺Ųͬ + begin + if (Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString))<>FHZ then + begin + L:=L+1; + if L<8 then + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//кС8 λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + H:=0; + end + else //кŴ7µһҳ + begin + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + //Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; } + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + //CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('gangno').Value; + //CDS_JuanPRT.FieldByName('Lot1').Value:=Lot.Items[0]; + //CDS_JuanPRT.FieldByName('Lot2').Value:=Lot.Items[0]; + // CDS_JuanPRT.FieldByName('Lot3').Value:=Lot.Items[0]; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + { CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value;} + CDS_JuanPRT.Post; + end; + end; + end else //ݼΪգ׺ɫͬ + begin + + H:=H+1; + if H<38 then //кС38 ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, H]), [loPartialKey]);//λǰҳһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + // Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else + begin //кŴ38л ݼΪգ׺ɫͬ + H:=0; + L:=L+1; + {if (L mod 2)=1 then + L:=L+1 + else + L:=L+2; } + if L<8 then //ڵǰҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Locate('Ye;Hang', VarArrayOf([Y, 0]), [loPartialKey]);//λǰҳһеһ + CDS_JuanPRT.Edit; + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('LenQty'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('MJPS'+Trim(IntToStr(L))).Value:=1; + CDS_JuanPRT.FieldByName('Lot'+Trim(IntToStr(L))).Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL'+Trim(IntToStr(L))).Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //Lot.Items[L div 2]:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.Post; + FHZ:=Trim((CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString)); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + end else //ڵǰҳһҳ ݼΪգ׺ɫͬ + begin + CDS_JuanPRT.Append; + CDS_JuanPRT.FieldByName('Lot0').Value:=CDS_Juan.fieldbyname('GangNo').Value; + CDS_JuanPRT.FieldByName('CoL0').Value:=Trim(CDS_Juan.fieldbyname('PRTColorNo').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTEColor').AsString) + +' '+Trim(CDS_Juan.fieldbyname('PRTHX').AsString); + // Lot.Items[0]:=CDS_Juan.fieldbyname('GangNo').Value; + //Lot.Items[1]:=''; + //Lot.Items[2]:=''; + //Lot.Items[3]:=''; + //Lot0:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value; + CDS_JuanPRT.FieldByName('MJPS0').Value:=1; + CDS_JuanPRT.FieldByName('Hang').Value:=0; + CDS_JuanPRT.FieldByName('Ye').Value:=Y+1; + // CDS_JuanPRT.FieldByName('Lie').Value:=0; + CDS_JuanPRT.FieldByName('JH0').Value:=1; + CDS_JuanPRT.FieldByName('JH1').Value:=1; + CDS_JuanPRT.FieldByName('JH2').Value:=1; + CDS_JuanPRT.FieldByName('JH3').Value:=1; + CDS_JuanPRT.FieldByName('JH4').Value:=1; + CDS_JuanPRT.FieldByName('JH5').Value:=1; + CDS_JuanPRT.FieldByName('JH6').Value:=1; + CDS_JuanPRT.FieldByName('JH7').Value:=1; + CDS_JuanPRT.FieldByName('LenQty0').Value:=CDS_Juan.fieldbyname('MJLen').Value; + CDS_JuanPRT.FieldByName('MZ0').Value:=CDS_Juan.fieldbyname('MJMaoZ').Value; + CDS_JuanPRT.FieldByName('JZ0').Value:=CDS_Juan.fieldbyname('MJQty4').Value; + CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; + //CDS_JuanPRT.FieldByName('JQty').Value:=CDS_Juan.fieldbyname('JQty').Value; + //CDS_JuanPRT.FieldByName('GQty').Value:=CDS_Juan.fieldbyname('GQty').Value; + CDS_JuanPRT.Post; + FHZ:=Trim(CDS_Juan.fieldbyname('SubId').AsString) + +Trim(CDS_Juan.fieldbyname('GangNo').AsString); + FSubId:=Trim(CDS_Juan.fieldbyname('SubId').AsString); + //FGangNo:=Trim(CDS_Juan.fieldbyname('GangNo').AsString); + H:=0;//к + L:=0;//к + Y:=Y+1;//ҳ + for i:=1 to 37 do + begin + CDS_JuanPRT.Append; + {CDS_JuanPRT.FieldByName('PRTEColor').Value:=CDS_Juan.fieldbyname('PRTEColor').Value; + CDS_JuanPRT.FieldByName('PRTColorNo').Value:=CDS_Juan.fieldbyname('PRTColorNo').Value; + CDS_JuanPRT.FieldByName('PRTHX').Value:=CDS_Juan.fieldbyname('PRTHX').Value;} + CDS_JuanPRT.FieldByName('JH0').Value:=1+i; + CDS_JuanPRT.FieldByName('JH1').Value:=1+i; + CDS_JuanPRT.FieldByName('JH2').Value:=1+i; + CDS_JuanPRT.FieldByName('JH3').Value:=1+i; + CDS_JuanPRT.FieldByName('JH4').Value:=1+i; + CDS_JuanPRT.FieldByName('JH5').Value:=1+i; + CDS_JuanPRT.FieldByName('JH6').Value:=1+i; + CDS_JuanPRT.FieldByName('JH7').Value:=1+i; + CDS_JuanPRT.FieldByName('Ye').Value:=Y; + CDS_JuanPRT.FieldByName('Hang').Value:=i; + {CDS_JuanPRT.FieldByName('SubId').Value:=CDS_Juan.fieldbyname('SubId').Value; + CDS_JuanPRT.FieldByName('MainId').Value:=CDS_Juan.fieldbyname('MainId').Value; } + CDS_JuanPRT.Post; + end; + end; + end; + end; + end; + end + end; + Next; + end; + end; + CDS_Juan.EnableControls; +end; +procedure TfrmPRTJYListNew.ToolButton1Click(Sender: TObject); +var + fPrintFile:String; +begin + if Trim(BtnEditA1.Text)='' then + begin + Application.MessageBox('뵥ƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(BtnEditA1.Text)+'.rmf' ; + Panel2.Visible:=True; + Panel2.Refresh; + if Trim(BtnEditA1.Text)='ͨ뵥(׺)' then + begin + GetLotDataLie(); + end else + if Trim(BtnEditA1.Text)='ͨ뵥(׺38)' then + begin + //GetLotDataLie38(); + GetLotDataLie38Ye(); + end else + begin + GetLotData(); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select AAA.*,JSM.OrderNo,JSB.PRTColorEng,JSB.PRTHX,JSB.PRTColorNo from('); + sql.Add('select Sum(MJLen) MQty,Sum(YQty) YQty,Count(*) PS,Sum(MJQty4) MJJingZ,Sum(MJMaoZ) MJMaoZ ,SubId'); + SQL.Add('from (select A.MJLen,A.MJQty4,A.MJMaoZ,A.SubId,'); + sql.Add(' Case when isnull(A.MJLenMa,-1)<=0 then Cast(A.MJLen*1.0936 as decimal(18,1)) else Cast(A.MJLenMa*1 as decimal(18,1)) end as YQty '); + //sql.Add('GangNo=(select GangNo from JYOrder_Main_MD B where B.MDID=A.APID),A.Subid'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId'); + sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.ZhuangXiangSYFlag=0'); + if Trim(MJType.Text)<>'' then + begin + SQL.Add(' and A.MJType='''+Trim(MJType.Text)+''' )AA '); + end else + begin + SQL.Add(' and 1=1 )AA'); + end; + sql.Add('Group by SubId)AAA'); + sql.add(' inner join JYOrder_Sub JSB on AAA.SubId=JSB.SubID'); + sql.Add(' inner join JYOrder_Main JSM on JSB.MainId=JSM.MainId'); + sql.add(' order by SubId'); + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryCmd,CDS_HZ); + SInitCDSData20(ADOQueryCmd,CDS_HZ); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(MJLen) MQty,Cast(sum(MJLen)*1.0936 as decimal(18,1)) YQty, '); + sql.Add(' sum(MJMaoZ) MaoZ,sum(MJQty4) JingZ,Count(*) PS'); + sql.Add(' from WFB_MJJY where MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and ZhuangXiangSYFlag=0'); + sql.Add(' group by MainId'); + Open; + end; + Panel2.Visible:=False; + if FileExists(fPrintFile) then + begin + RMVariables['OrderNo']:=Trim(CDS_Main.fieldbyname('OrderNo').AsString); + RMVariables['MPRTCode']:=Trim(CDS_Main.fieldbyname('MPRTCode').AsString); + RMVariables['MQty']:=ADOQueryTemp.fieldbyname('MQty').Value; + RMVariables['MaoZ']:=ADOQueryTemp.fieldbyname('MaoZ').Value; + RMVariables['JingZ']:=ADOQueryTemp.fieldbyname('JingZ').Value; + RMVariables['PS']:=ADOQueryTemp.fieldbyname('PS').Value; + // RMVariables['QtyUnit']:=Trim(CDS_Main.fieldbyname('QtyUnit').AsString); + RM3.LoadFromFile(fPrintFile); + RM3.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(BtnEditA1.Text)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTJYListNew.BtnEditA1BtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CKMD'; + flagname:='뵥'; + if ShowModal=1 then + begin + BtnEditA1.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmPRTJYListNew.ToolButton2Click(Sender: TObject); +begin + try + frmMJEdit:=TfrmMJEdit.Create(Application); + with frmMJEdit do + begin + MJID.Text:=Trim(Self.CDS_Main.fieldbyname('MJID').AsString); + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select A.* from WFB_MJJY A '); + sql.Add(' where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + if ADOTmp.IsEmpty then + begin + MJID.Text:=''; + Label2.Caption:=''; + Label2.Visible:=False; + Application.MessageBox('!','ʾ',0); + Exit; + end; + MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJQty3.Text:=Trim(ADOTmp.fieldbyname('MJQty3').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); + MJQty4.Text:=Trim(ADOTmp.fieldbyname('MJQty4').AsString); + MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + //M.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString)); + // Ma.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString)); + + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=0 + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='Ʒ' then + begin + RadioGroup1.ItemIndex:=1; + end else + if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='ƴ' then + begin + RadioGroup1.ItemIndex:=2; + end; + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY_CD A where A.MJID='''+Trim(MJID.Text)+''''); + Open; + end; + Label2.Caption:=Trim(MJID.Text); + Label2.Visible:=True; + MJID.Text:=''; + SCreateCDS20(ADOTmp,Order_MJ); + SInitCDSData20(ADOTmp,Order_MJ); + if ShowModal=1 then + begin + + end; + end; + finally + frmMJEdit.Free; + end; +end; + +procedure TfrmPRTJYListNew.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmPRTJYListNew.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Panel4.Left:=FLeft; + Panel4.Top:=FTop+110; + Panel4.Visible:=True; + Panel4.Refresh; + Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); + RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; +end; + +procedure TfrmPRTJYListNew.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmPRTJYListNew.Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.dfm new file mode 100644 index 0000000..38dc5a5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.dfm @@ -0,0 +1,693 @@ +object frmPRTOrderAPList: TfrmPRTOrderAPList + Left = 80 + Top = 84 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333#23433#25490 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1270 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 143 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 81 + Visible = False + OnClick = ToolButton2Click + end + object TBView: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #25171#21360#21253#35013#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton1: TToolButton + Left = 627 + Top = 0 + Caption = #25171#21360#29983#20135#25805#20316#25351#31034#21333 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 770 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 857 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 920 + Top = 0 + Width = 105 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1270 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 179 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 318 + Top = 15 + Width = 53 + Height = 12 + Caption = #23458' '#25143' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 470 + Top = 15 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 470 + Top = 39 + Width = 54 + Height = 12 + Caption = #35268' '#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 621 + Top = 39 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 621 + Top = 15 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 318 + Top = 39 + Width = 52 + Height = 12 + Caption = #19994#21153#21161#29702 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object KHNO: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 523 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 523 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 649 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 143 + Width = 1270 + Height = 410 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143#21495 + DataBinding.FieldName = 'KHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column9: TcxGridDBColumn + Caption = #20986#36135#24050#23436#25104 + DataBinding.FieldName = 'ChuHuoFinishFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1270 + Height = 22 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#23433#25490 + #37096#20998#23433#25490 + #24050#23433#25490 + #24050#23436#25104) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1270 + ClientRectTop = 23 + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 121 + Width = 1270 + Height = 22 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 4 + Tabs.Strings = ( + #37319#36141#21152#24037#21512#21516#26410#24405#20837 + #37319#36141#21152#24037#21512#21516#37096#20998#24405#20837 + #37319#36141#21152#24037#21512#21516#24050#24405#20837) + Visible = False + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1270 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 472 + Top = 184 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 540 + Top = 208 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.pas new file mode 100644 index 0000000..e4f3ba1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderAPList.pas @@ -0,0 +1,807 @@ +unit U_PRTOrderAPList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderAPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + Label4: TLabel; + KHNO: TEdit; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ComboBox1: TComboBox; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + RMXLSExport2: TRMXLSExport; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxTabControl1: TcxTabControl; + cxTabControl2: TcxTabControl; + v1Column9: TcxGridDBColumn; + ToolButton1: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderAPList: TfrmPRTOrderAPList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; + +{$R *.dfm} + +procedure TfrmPRTOrderAPList.FormDestroy(Sender: TObject); +begin + frmPRTOrderAPList:=nil; +end; + +procedure TfrmPRTOrderAPList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderAPList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + if Trim(CanShu2)='ֿ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + ToolButton2.Visible:=False; + end; +end; + +procedure TfrmPRTOrderAPList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderAPList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_AP :begdate,:enddate,:WSql') ; + + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and( (isnull(WAPCount,0)<>0 and isnull(APSatus,'''')='''') and isnull(CPSatus,'''')='''' ) '; + if cxTabControl2.TabIndex=0 then + begin + fsj:=fsj+ ' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl2.TabIndex=1 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount<>0'; + end else + if cxTabControl2.TabIndex=2 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount=0'; + end; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and( (isnull(WAPCount,0)<>0 and isnull(APSatus,'''')<>'''') or isnull(CPSatus,'''')<>'''') '; + if cxTabControl2.TabIndex=0 then + begin + fsj:=fsj+ ' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl2.TabIndex=1 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount<>0'; + end else + if cxTabControl2.TabIndex=2 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount=0'; + end; + end; + if cxTabControl1.TabIndex<>3 then + begin + fsj:=fsj+' and ChuHuoFinishFlag=0'; + end else + begin + cxTabControl2.Visible:=False; + fsj:=fsj+' and ChuHuoFinishFlag=1'; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and isnull(ChkStatus,'''')=''ͨ'' and ZuoFeiFlag=0 '; + if cxTabControl1.TabIndex=2 then + begin + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + end else + begin + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + end; + + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderAPList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderAPList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmPRTOrderAPList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderAPList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ConSubId:=Trim(Self.Order_Main.fieldbyname('ConSubId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + FXianShi:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; + RM1.Clear; +end; + +procedure TfrmPRTOrderAPList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmPRTOrderAPList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderAPList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + +end; + +procedure TfrmPRTOrderAPList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select HZ.* '); + sql.Add(',Case when HXCount>0 then Cast(HXCount As varchar(20))+'''' else Cast(null as varchar(20)) end as HX '); + sql.Add(',Case when ColorCount>0 then Cast(ColorCount As varchar(20))+''ɫ'' else Cast(null as varchar(20)) end as YS '); + sql.Add(' from(select A.* '); + sql.Add(',KHType=(select KHType from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',HXCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTHX from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTHX,'''')<>'''' group by PRTHX)AA)'); + sql.Add(',ColorCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTColorEng from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTColorEng,'''')<>'''' group by PRTColorEng)AA)'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')HZ'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTOrderAPList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + +end; + +procedure TfrmPRTOrderAPList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderAPList.OrderNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderAPList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderAPList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderAPList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderAPList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderAPList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderAPList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderAPList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderAPList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderAPList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_AP :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(WAPCount,0)<>0 and isnull(APSatus,'''')='''' '; + if cxTabControl2.TabIndex=0 then + begin + fsj:=fsj+ ' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl2.TabIndex=1 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount<>0'; + end else + if cxTabControl2.TabIndex=2 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount=0'; + end; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(WAPCount,0)<>0 and isnull(APSatus,'''')<>'''' '; + if cxTabControl2.TabIndex=0 then + begin + fsj:=fsj+ ' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl2.TabIndex=1 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount<>0'; + end else + if cxTabControl2.TabIndex=2 then + begin + fsj:=fsj+' and isnull(WAPCount,0)<>0 and APConCount=0'; + end; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''' and isnull(ChkStatus,'''')=''ͨ'' and ZuoFeiFlag=0 '; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderAPList.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_AP :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(WAPCount,0)=0 '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(WAPCount,0)<>0 and isnull(APSatus,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(WAPCount,0)<>0 and isnull(APSatus,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and conno like '''+'%'+Trim(conno.Text)+'%'+''' and isnull(ChkStatus,'''')=''ͨ'' and ZuoFeiFlag=0'; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderAPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPRTOrderAPList.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then + begin + cxTabControl2.Visible:=True; + end else + begin + cxTabControl2.Visible:=False; + end; + InitGrid(); +end; + +procedure TfrmPRTOrderAPList.ToolButton1Click(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrder_Main A '); + sql.Add(' inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.dfm new file mode 100644 index 0000000..c003695 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.dfm @@ -0,0 +1,700 @@ +object frmPRTOrderChkList: TfrmPRTOrderChkList + Left = 24 + Top = 101 + Width = 1342 + Height = 592 + Caption = #29983#20135#25351#31034#21333#23457#26680 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1326 + Height = 62 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBView: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #23457#25209#36890#36807 + ImageIndex = 114 + Wrap = True + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #23457#25209#25764#38144 + ImageIndex = 129 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 87 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 150 + Top = 30 + AutoSize = True + Caption = #25171#21360#25805#20316#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 273 + Top = 30 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 360 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 423 + Top = 33 + Width = 105 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1326 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 179 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 318 + Top = 15 + Width = 53 + Height = 12 + Caption = #23458' '#25143' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 468 + Top = 15 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 468 + Top = 39 + Width = 54 + Height = 12 + Caption = #35268' '#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 621 + Top = 39 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 613 + Top = 15 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 318 + Top = 39 + Width = 52 + Height = 12 + Caption = #19994#21153#21161#29702 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object KHNO: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 523 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 522 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 649 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 129 + Width = 1326 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #24453#23457#25209 + #24050#23457#25209 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1326 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 150 + Width = 1326 + Height = 403 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143#21495 + DataBinding.FieldName = 'KHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column9: TcxGridDBColumn + Caption = #24050#20316#24223 + DataBinding.FieldName = 'ZuoFeiFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #20986#36135#24050#23436#25104 + DataBinding.FieldName = 'ChuHuoFinishFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 540 + Top = 208 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.pas new file mode 100644 index 0000000..5669ecd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderChkList.pas @@ -0,0 +1,690 @@ +unit U_PRTOrderChkList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + Label4: TLabel; + KHNO: TEdit; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ComboBox1: TComboBox; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + RMXLSExport2: TRMXLSExport; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton2: TToolButton; + ToolButton5: TToolButton; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderChkList: TfrmPRTOrderChkList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; + +{$R *.dfm} + +procedure TfrmPRTOrderChkList.FormDestroy(Sender: TObject); +begin + frmPRTOrderChkList:=nil; +end; + +procedure TfrmPRTOrderChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderChkList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + +end; + +procedure TfrmPRTOrderChkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderChkList.InitGrid(); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(A.Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(Chker,'''')<>'''' and ZuoFeiFlag=0 '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(PChker,'''')='''' and ZuoFeiFlag=1 '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and isnull(PChker,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=' and isnull(A.SChker,'''')<>'''' '+fsj; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderChkList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderChkList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmPRTOrderChkList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmPRTOrderChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderChkList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + +end; + +procedure TfrmPRTOrderChkList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select HZ.* '); + sql.Add(',Case when HXCount>0 then Cast(HXCount As varchar(20))+'''' else Cast(null as varchar(20)) end as HX '); + sql.Add(',Case when ColorCount>0 then Cast(ColorCount As varchar(20))+''ɫ'' else Cast(null as varchar(20)) end as YS '); + sql.Add(' from(select A.* '); + sql.Add(',KHType=(select KHType from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',HXCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTHX from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTHX,'''')<>'''' group by PRTHX)AA)'); + sql.Add(',ColorCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTColorEng from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTColorEng,'''')<>'''' group by PRTColorEng)AA)'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')HZ'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTOrderChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmPRTOrderChkList.OrderNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderChkList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderChkList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderChkList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderChkList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderChkList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderChkList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderChkList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderChkList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(Chker,'''')<>'''' and ZuoFeiFlag=0 '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(PChker,'''')='''' and ZuoFeiFlag=1 '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and isnull(PChker,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:='and isnull(SChker,'''')<>'''' '+fsj+' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderChkList.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(Chker,'''')<>'''' and ZuoFeiFlag=0 '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(PChker,'''')='''' and ZuoFeiFlag=1 '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and isnull(PChker,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderChkList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPRTOrderChkList.ToolButton1Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set Chker='''+Trim(DName)+''''); + SQL.Add(',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderChkList.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set Chker=NUll'); + SQL.Add(',ChkTime=NUll,ChkStatus=Null '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderChkList.ToolButton5Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>3 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set PChker=NUll'); + SQL.Add(',PChkTime=NUll,PChkStatus=Null '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderChkList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>2 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set PChker='''+Trim(DName)+''''); + SQL.Add(',PChkTime=getdate(),PChkStatus=''ͨ'' '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.dfm new file mode 100644 index 0000000..3887dfe --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.dfm @@ -0,0 +1,746 @@ +object frmPRTOrderList: TfrmPRTOrderList + Left = 37 + Top = 78 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1270 + Height = 62 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 81 + OnClick = ToolButton2Click + end + object TBView: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #36865#23457#25764#38144 + ImageIndex = 52 + Wrap = True + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #20316#24223#36865#23457 + ImageIndex = 32 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 87 + Top = 30 + AutoSize = True + Caption = #20316#24223#25764#38144 + ImageIndex = 52 + OnClick = ToolButton6Click + end + object TBDel: TToolButton + Left = 174 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 237 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 300 + Top = 30 + AutoSize = True + Caption = #25171#21360#25805#20316#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 423 + Top = 30 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 510 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ToolButton7: TToolButton + Left = 573 + Top = 30 + AutoSize = True + Caption = #20986#36135#23436#25104 + ImageIndex = 34 + OnClick = ToolButton7Click + end + object ToolButton8: TToolButton + Left = 660 + Top = 30 + AutoSize = True + Caption = #23436#25104#25764#38144 + ImageIndex = 52 + OnClick = ToolButton8Click + end + object ComboBox1: TComboBox + Left = 747 + Top = 33 + Width = 105 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1270 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 179 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 318 + Top = 15 + Width = 53 + Height = 12 + Caption = #23458' '#25143' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 470 + Top = 15 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 468 + Top = 39 + Width = 54 + Height = 12 + Caption = #35268' '#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 621 + Top = 39 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 621 + Top = 15 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 318 + Top = 39 + Width = 52 + Height = 12 + Caption = #19994#21153#21161#29702 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object KHNO: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 523 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 522 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 649 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 129 + Width = 1270 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#36865#23457 + #24050#36865#23457 + #24050#23457#26680 + #24050#20316#24223 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1270 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 150 + Width = 1270 + Height = 403 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143#21495 + DataBinding.FieldName = 'KHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 88 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column9: TcxGridDBColumn + Caption = #24050#20316#24223 + DataBinding.FieldName = 'ZuoFeiFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column10: TcxGridDBColumn + Caption = #23457#25209#20154 + DataBinding.FieldName = 'PChker' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #23457#25209#26102#38388 + DataBinding.FieldName = 'PChkTime' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#25209#29366#24577 + DataBinding.FieldName = 'PChkStatus' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #20986#36135#24050#23436#25104 + DataBinding.FieldName = 'ChuHuoFinishFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 74 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 540 + Top = 208 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.pas new file mode 100644 index 0000000..baf707b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderList.pas @@ -0,0 +1,911 @@ +unit U_PRTOrderList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + Label4: TLabel; + KHNO: TEdit; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ComboBox1: TComboBox; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + RMXLSExport2: TRMXLSExport; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + v1Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderList: TfrmPRTOrderList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; + +{$R *.dfm} + +procedure TfrmPRTOrderList.FormDestroy(Sender: TObject); +begin + frmPRTOrderList:=nil; +end; + +procedure TfrmPRTOrderList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + if Trim(CanShu2)='ֿ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + ToolButton2.Visible:=False; + end; +end; + +procedure TfrmPRTOrderList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderList.InitGrid(); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(A.SChker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')<>'''' '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and ZuoFeiFlag=1 and ChuHuoFinishFlag=0 '; + end else + if cxTabControl1.TabIndex=4 then + begin + fsj:=' and ChuHuoFinishFlag=1 '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmPRTOrderList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ConSubId:=Trim(Self.Order_Main.fieldbyname('ConSubId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; + RM1.Clear; +end; + +procedure TfrmPRTOrderList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmPRTOrderList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + +end; + +procedure TfrmPRTOrderList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select HZ.* '); + sql.Add(',Case when HXCount>0 then Cast(HXCount As varchar(20))+'''' else Cast(null as varchar(20)) end as HX '); + sql.Add(',Case when ColorCount>0 then Cast(ColorCount As varchar(20))+''ɫ'' else Cast(null as varchar(20)) end as YS '); + sql.Add(' from(select A.* '); + sql.Add(',KHType=(select KHType from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',HXCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTHX from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTHX,'''')<>'''' group by PRTHX)AA)'); + sql.Add(',ColorCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTColorEng from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTColorEng,'''')<>'''' group by PRTColorEng)AA)'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')HZ'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTOrderList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmPRTOrderList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderList.OrderNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(SChker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')<>'''' '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and ZuoFeiFlag=1 and ChuHuoFinishFlag=0 '; + end else + if cxTabControl1.TabIndex=4 then + begin + fsj:=' and ChuHuoFinishFlag=1 '; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderList.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(SChker,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')='''' '; + end else + if cxTabControl1.TabIndex=2 then + begin + fsj:=' and isnull(SChker,'''')<>'''' and ZuoFeiFlag=0 and ChuHuoFinishFlag=0 and isnull(Chker,'''')<>'''' '; + end else + if cxTabControl1.TabIndex=3 then + begin + fsj:=' and ZuoFeiFlag=1 and ChuHuoFinishFlag=0 '; + end else + if cxTabControl1.TabIndex=4 then + begin + fsj:=' and ChuHuoFinishFlag=1 '; + end; + Parameters.ParamByName('WSql').Value:=fsj+' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPRTOrderList.ToolButton1Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set SChker='''+Trim(DName)+''''); + SQL.Add(',SChkTime=getdate() '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderList.ToolButton4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and isnull(ChkStatus,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ͨܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set SChker=NUll'); + SQL.Add(',SChkTime=NUll '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderList.ToolButton5Click(Sender: TObject); +begin + //if cxTabControl1.TabIndex<>1 then Exit; + if cxTabControl1.TabIndex<>2 then + begin + Application.MessageBox('״̬µ!','ʾ',0); + Exit; + end; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from JYOrder_Main where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('PChker').AsString<>'' then Exit; + if ADOQueryTemp.FieldByName('ZuoFeiPerson').AsString<>'' then Exit; + if ADOQueryTemp.FieldByName('Chker').AsString='' then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set ZuoFeiPerson='''+Trim(DName)+''''); + SQL.Add(',ZuoFeiTime=getdate(),ZuoFeiFlag=1 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderList.ToolButton6Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>3 then Exit; + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from JYOrder_Main where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('PChker').AsString<>'' then + begin + Application.MessageBox('Ѿͨܳ!','ʾ',0); + Exit; + end; + if ADOQueryTemp.FieldByName('ZuoFeiPerson').AsString='' then Exit; + if Application.MessageBox('ȷҪִϳ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set ZuoFeiPerson=Null'); + SQL.Add(',ZuoFeiTime=Null,ZuoFeiFlag=0 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; +end; + +procedure TfrmPRTOrderList.ToolButton7Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>2 then + begin + Application.MessageBox('״̬µ!','ʾ',0); + Exit; + end; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set ChuHuoFinishPerson='''+Trim(DName)+''''); + SQL.Add(',ChuHuoFinishTime=getdate(),ChuHuoFinishFlag=1 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + {with Order_Main do + begin + Edit; + FieldByName('ChuHuoFinishFlag').Value:=True; + Post; + end; } + +end; + +procedure TfrmPRTOrderList.ToolButton8Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>4 then Exit; + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪִɳ','ʾ',32+4)<>IDYES then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set ChuHuoFinishPerson=Null'); + SQL.Add(',ChuHuoFinishTime=Null,ChuHuoFinishFlag=0 '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + {with Order_Main do + begin + Edit; + FieldByName('ChuHuoFinishFlag').Value:=False; + Post; + end; } +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.dfm new file mode 100644 index 0000000..5e6bfb0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.dfm @@ -0,0 +1,614 @@ +object frmPRTOrderPBDHViewList: TfrmPRTOrderPBDHViewList + Left = 50 + Top = 102 + Width = 1382 + Height = 598 + Caption = #22383#24067#21040#36135#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBView: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360#21253#35013#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ToolButton2: TToolButton + Left = 312 + Top = 0 + Caption = #25171#21360#25805#20316#25351#31034#21333 + ImageIndex = 14 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 431 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 494 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 179 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #23458#25143#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 316 + Top = 39 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 462 + Top = 39 + Width = 26 + Height = 12 + Caption = #35268#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 579 + Top = 39 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 579 + Top = 15 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 318 + Top = 15 + Width = 52 + Height = 12 + Caption = #21040#36135#22320#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 462 + Top = 15 + Width = 26 + Height = 12 + Caption = #25104#20998 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object KHNO: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 488 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 606 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 606 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object GYS: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object Edit1: TEdit + Tag = 2 + Left = 488 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1366 + Height = 460 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143#21495 + DataBinding.FieldName = 'KHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #35746#21333#24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column3: TcxGridDBColumn + Caption = #35746#21333#25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column11: TcxGridDBColumn + Caption = #21040#36135#22320#28857 + DataBinding.FieldName = 'GYS' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column6: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'HZDHPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'HZDHQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #20986#36135#21305#25968 + DataBinding.FieldName = 'HZCHPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column9: TcxGridDBColumn + Caption = #20986#36135#25968#37327 + DataBinding.FieldName = 'HZCHQty' + Width = 66 + end + object v1Column10: TcxGridDBColumn + Caption = #21305#25968#24046#39069 + DataBinding.FieldName = 'PSCE' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 84 + end + object v1Column4: TcxGridDBColumn + Caption = #25968#37327#24046#39069 + DataBinding.FieldName = 'QtyCE' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 79 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 444 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.pas new file mode 100644 index 0000000..825eafa --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPBDHViewList.pas @@ -0,0 +1,547 @@ +unit U_PRTOrderPBDHViewList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderPBDHViewList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + Label4: TLabel; + KHNO: TEdit; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + Label2: TLabel; + GYS: TEdit; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + RMXLSExport2: TRMXLSExport; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Label5: TLabel; + Edit1: TEdit; + ToolButton1: TToolButton; + v1Column4: TcxGridDBColumn; + ToolButton2: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderPBDHViewList: TfrmPRTOrderPBDHViewList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; + +{$R *.dfm} + +procedure TfrmPRTOrderPBDHViewList.FormDestroy(Sender: TObject); +begin + frmPRTOrderPBDHViewList:=nil; +end; + +procedure TfrmPRTOrderPBDHViewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderPBDHViewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + +end; + +procedure TfrmPRTOrderPBDHViewList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderPBDHViewList.InitGrid(); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_DH :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=' '; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderPBDHViewList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderPBDHViewList.InitForm(); +begin + ReadCxGrid('ָʾ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-90; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + +end; + +procedure TfrmPRTOrderPBDHViewList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmPRTOrderPBDHViewList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderPBDHViewList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select HZ.* '); + sql.Add(',Case when HXCount>0 then Cast(HXCount As varchar(20))+'''' else Cast(null as varchar(20)) end as HX '); + sql.Add(',Case when ColorCount>0 then Cast(ColorCount As varchar(20))+''ɫ'' else Cast(null as varchar(20)) end as YS '); + sql.Add(' from(select A.* '); + sql.Add(',KHType=(select KHType from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',HXCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTHX from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTHX,'''')<>'''' group by PRTHX)AA)'); + sql.Add(',ColorCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTColorEng from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTColorEng,'''')<>'''' group by PRTColorEng)AA)'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')HZ'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTOrderPBDHViewList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPBDHViewList.OrderNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderPBDHViewList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderPBDHViewList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderPBDHViewList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPBDHViewList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderPBDHViewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderPBDHViewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderPBDHViewList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + Panel1.Enabled:=False; + Label14.Visible:=False; + CustomerNoName.Visible:=False; + ToolButton13.Visible:=False; + ToolButton18.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderPBDHViewList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_DH :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=' and JM.orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderPBDHViewList.ConNoKeyPress(Sender: TObject; + var Key: Char); + +begin + {if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmPRTOrderPBDHViewList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPBDHViewList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ָʾб',cxGrid1); +end; + +procedure TfrmPRTOrderPBDHViewList.ToolButton2Click(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(' from JYOrder_Main A '); + sql.Add(' inner join JYOrder_Sub B on A.MainId=B.Mainid'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.dfm new file mode 100644 index 0000000..b13059c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.dfm @@ -0,0 +1,656 @@ +object frmPRTOrderPriceList: TfrmPRTOrderPriceList + Left = 34 + Top = 98 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333'('#21333#20215#25351#23450')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1270 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + Caption = #21333#20215#25351#23450 + ImageIndex = 126 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 209 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton2Click + end + object TBView: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBExport: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + end + object ToolButton3: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 485 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1270 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 179 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 318 + Top = 15 + Width = 54 + Height = 12 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 471 + Top = 15 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 469 + Top = 39 + Width = 54 + Height = 12 + Caption = #35268' '#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 622 + Top = 39 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 622 + Top = 15 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 318 + Top = 39 + Width = 52 + Height = 12 + Caption = #19994#21153#21161#29702 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 372 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeHZ: TEdit + Tag = 2 + Left = 524 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 523 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 650 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 651 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 372 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 120 + Width = 1270 + Height = 433 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column10: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 52 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1Column6: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'PIConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrdQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column7: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PIPriceUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 48 + end + object v1Column9: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PIPrtPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 99 + Width = 1270 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#25351#23450 + #24050#25351#23450 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1270 + ClientRectTop = 23 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 448 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 496 + Top = 176 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 176 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 176 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 600 + Top = 176 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 176 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 784 + Top = 176 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 752 + Top = 176 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 548 + Top = 176 + end + object PopupMenu1: TPopupMenu + Left = 264 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.pas new file mode 100644 index 0000000..37837cc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderPriceList.pas @@ -0,0 +1,563 @@ +unit U_PRTOrderPriceList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderPriceList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeHZ: TEdit; + v1MPRTKZ: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + v1Column1: TcxGridDBColumn; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + RMXLSExport2: TRMXLSExport; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1Column10: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column11: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + + + { Public declarations } + end; + +var + frmPRTOrderPriceList: TfrmPRTOrderPriceList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice + ,U_ContractSelList; + +{$R *.dfm} + +procedure TfrmPRTOrderPriceList.FormDestroy(Sender: TObject); +begin + frmPRTOrderPriceList:=nil; +end; + +procedure TfrmPRTOrderPriceList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderPriceList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmPRTOrderPriceList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбPrice',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderPriceList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_OrderSub :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + fsj:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + end else + begin + fsj:=''; + end; + if cxTabControl1.TabIndex=0 then + begin + //fsj:=fsj+' and exists(select * from JYOrderCon_Main JCM where JCM.ConNo=A.ConNo )'; + fsj:=fsj+' and isnull(B.PISubId,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(B.PISubId,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderPriceList.InitForm(); +begin + ReadCxGrid('ָʾбPrice',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-30; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmPRTOrderPriceList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + + + +procedure TfrmPRTOrderPriceList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPriceList.OrderNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderPriceList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderPriceList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderPriceList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPriceList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderPriceList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderPriceList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderPriceList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderPriceList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_OrderSub :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + fsj:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + end else + begin + fsj:=''; + end; + if cxTabControl1.TabIndex=0 then + begin + //fsj:=fsj+' and exists(select * from JYOrderCon_Main JCM where JCM.ConNo=A.ConNo )'; + fsj:=fsj+' and isnull(B.PISubId,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(B.PISubId,'''')<>'''' '; + end; + fsj:=fsj+' and OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderPriceList.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_OrderSub :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + fsj:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + end else + begin + fsj:=''; + end; + if cxTabControl1.TabIndex=0 then + begin + //fsj:=fsj+' and exists(select * from JYOrderCon_Main JCM where JCM.ConNo=A.ConNo )'; + fsj:=fsj+' and isnull(B.PISubId,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=fsj+' and isnull(B.PISubId,'''')<>'''' '; + end; + fsj:=fsj+' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + Parameters.ParamByName('WSql').Value:=fsj; + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderPriceList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾָ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPRTOrderPriceList.ToolButton1Click(Sender: TObject); +var + ConPrice,ConSubId:String; +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ConSubId:=''; + try + frmContractSelList:=TfrmContractSelList.Create(Application); + with frmContractSelList do + begin + if ShowModal=1 then + begin + ConSubId:=Trim(frmContractSelList.Order_Main.fieldbyname('SubId').AsString); + ConPrice:=Trim(frmContractSelList.Order_Main.fieldbyname('PRTPrice').AsString); + end; + end; + finally + frmContractSelList.Free; + end; + if Trim(ConSubId)<>'' then + begin + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Sub Set PISubId='''+Trim(ConSubId)+''''); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + end; +end; + +procedure TfrmPRTOrderPriceList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update JYOrder_Sub Set PISubId=Null'); + sql.Add(' where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmPRTOrderPriceList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderPriceList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmPRTOrderPriceList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.dfm new file mode 100644 index 0000000..c60146a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.dfm @@ -0,0 +1,592 @@ +object frmPRTOrderSCList: TfrmPRTOrderSCList + Left = 35 + Top = 71 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333'('#20250#35758')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1270 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBEdit: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #32534#36753 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBView: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object ToolButton3: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1270 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 179 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 318 + Top = 15 + Width = 40 + Height = 12 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 458 + Top = 15 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 456 + Top = 39 + Width = 54 + Height = 12 + Caption = #35268' '#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 609 + Top = 39 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 609 + Top = 15 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 318 + Top = 39 + Width = 39 + Height = 12 + Caption = #29702#21333#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 715 + Top = 39 + Width = 52 + Height = 12 + Caption = #23436#25104#24773#20917 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeHZ: TEdit + Tag = 2 + Left = 511 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 510 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 637 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 638 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 359 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + object WCStr: TComboBox + Tag = 2 + Left = 770 + Top = 35 + Width = 69 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 10 + OnChange = WCStrChange + Items.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + '') + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1270 + Height = 454 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#24773#20917 + DataBinding.FieldName = 'WCStr' + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 540 + Top = 208 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.pas new file mode 100644 index 0000000..dcd5895 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderSCList.pas @@ -0,0 +1,433 @@ +unit U_PRTOrderSCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, RM_DsgGridReport, RM_Designer; + +type + TfrmPRTOrderSCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBEdit: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeHZ: TEdit; + v1MPRTKZ: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + v1Column1: TcxGridDBColumn; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + RMXLSExport2: TRMXLSExport; + v1Column6: TcxGridDBColumn; + Label5: TLabel; + WCStr: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton3Click(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure WCStrChange(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderSCList: TfrmPRTOrderSCList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice + ,U_MeetingAPNew; + +{$R *.dfm} + +procedure TfrmPRTOrderSCList.FormDestroy(Sender: TObject); +begin + frmPRTOrderSCList:=nil; +end; + +procedure TfrmPRTOrderSCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderSCList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmPRTOrderSCList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб()',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderSCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + //Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + Parameters.ParamByName('WSql').Value:=' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + end else + begin + Parameters.ParamByName('WSql').Value:=''; + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmPRTOrderSCList.InitForm(); +begin + ReadCxGrid('ָʾб()',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + if Trim(CanShu2)='鿴' then + begin + TBEdit.Visible:=False; + end; +end; + +procedure TfrmPRTOrderSCList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderSCList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmMeetingAPNew:=TfrmMeetingAPNew.Create(Application); + with frmMeetingAPNew do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + frmMeetingAPNew.OrderNo.Text:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + frmMeetingAPNew.Align:=alClient; + if ShowModal=1 then + begin + + end; + end; + finally + frmMeetingAPNew.Free; + end; +end; + + + +procedure TfrmPRTOrderSCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderSCList.OrderNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderSCList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderSCList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderSCList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderSCList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderSCList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderSCList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''+ + ' and Filler in(select UserName from SY_User where DPID in'+ + '(select DPID from SY_User where UserName='''+Trim(DName)+'''))'; + end else + begin + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + end; + + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderSCList.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(CanShu1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderSCList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ()'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmPRTOrderSCList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmMeetingAPNew:=TfrmMeetingAPNew.Create(Application); + with frmMeetingAPNew do + begin + PState:=2; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + frmMeetingAPNew.OrderNo.Text:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + frmMeetingAPNew.Align:=alClient; + if ShowModal=1 then + begin + + end; + end; + finally + frmMeetingAPNew.Free; + end; +end; + +procedure TfrmPRTOrderSCList.WCStrChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.dfm new file mode 100644 index 0000000..387a775 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.dfm @@ -0,0 +1,586 @@ +object frmPRTOrderViewCXList: TfrmPRTOrderViewCXList + Left = 95 + Top = 82 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1270 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 119 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBView: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360#25805#20316#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 312 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 375 + Top = 3 + Width = 105 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + Visible = False + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1270 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 179 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 318 + Top = 15 + Width = 53 + Height = 12 + Caption = #23458' '#25143' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 468 + Top = 15 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 468 + Top = 39 + Width = 54 + Height = 12 + Caption = #35268' '#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 621 + Top = 39 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 613 + Top = 15 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 318 + Top = 39 + Width = 52 + Height = 12 + Caption = #19994#21153#21161#29702 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object KHNO: TEdit + Tag = 2 + Left = 371 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 523 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 522 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 649 + Top = 35 + Width = 58 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 650 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 371 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1270 + Height = 454 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 72 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 76 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143#21495 + DataBinding.FieldName = 'KHNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 85 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 928 + Top = 200 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 848 + Top = 200 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 444 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.pas new file mode 100644 index 0000000..21c7a70 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewCXList.pas @@ -0,0 +1,542 @@ +unit U_PRTOrderViewCXList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, RM_DsgGridReport, RM_Designer, cxPC; + +type + TfrmPRTOrderViewCXList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + Label4: TLabel; + KHNO: TEdit; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ComboBox1: TComboBox; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + RMXLSExport2: TRMXLSExport; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderViewCXList: TfrmPRTOrderViewCXList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote,U_OrderInPutPrice; + +{$R *.dfm} + +procedure TfrmPRTOrderViewCXList.FormDestroy(Sender: TObject); +begin + frmPRTOrderViewCXList:=nil; +end; + +procedure TfrmPRTOrderViewCXList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderViewCXList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + CanShu1:=Trim(DParameters1); + CanShu2:=Trim(DParameters2); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + +end; + +procedure TfrmPRTOrderViewCXList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderViewCXList.InitGrid(); +var + fsj:string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + + fsj:=' and isnull(A.Chker,'''')<>'''' and ZuoFeiFlag=0 '; + Parameters.ParamByName('WSql').Value:=' and isnull(A.SChker,'''')<>'''' '+fsj; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderViewCXList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderViewCXList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmPRTOrderViewCXList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmPRTOrderViewCXList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderViewCXList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select HZ.* '); + sql.Add(',Case when HXCount>0 then Cast(HXCount As varchar(20))+'''' else Cast(null as varchar(20)) end as HX '); + sql.Add(',Case when ColorCount>0 then Cast(ColorCount As varchar(20))+''ɫ'' else Cast(null as varchar(20)) end as YS '); + sql.Add(' from(select A.* '); + sql.Add(',KHType=(select KHType from ZH_KH_Info KH where KH.KHNameJC=A.CustomerNoName)'); + sql.Add(',HXCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTHX from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTHX,'''')<>'''' group by PRTHX)AA)'); + sql.Add(',ColorCount=(select isnull(Count(*),0) from '); + sql.Add(' (select PRTColorEng from JYOrder_Sub B where B.MainId=A.MainId and isnull(PRTColorEng,'''')<>'''' group by PRTColorEng)AA)'); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')HZ'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; +end; + +procedure TfrmPRTOrderViewCXList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; +end; + +procedure TfrmPRTOrderViewCXList.OrderNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderViewCXList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderViewCXList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderViewCXList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderViewCXList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderViewCXList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderViewCXList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderViewCXList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPutPrice:=TfrmOrderInPutPrice.Create(Application); + with frmOrderInPutPrice do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + Panel1.Enabled:=False; + Label14.Visible:=False; + CustomerNoName.Visible:=False; + ToolButton13.Visible:=False; + ToolButton18.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPutPrice.Free; + end; +end; + +procedure TfrmPRTOrderViewCXList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + fsj:=' and isnull(A.Chker,'''')<>'''' and ZuoFeiFlag=0 '; + Parameters.ParamByName('WSql').Value:='and isnull(SChker,'''')<>'''' '+fsj+' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderViewCXList.ConNoKeyPress(Sender: TObject; + var Key: Char); + +begin + {if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmPRTOrderViewCXList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.dfm new file mode 100644 index 0000000..c457198 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.dfm @@ -0,0 +1,670 @@ +object frmPRTOrderViewList: TfrmPRTOrderViewList + Left = 49 + Top = 111 + Width = 1286 + Height = 592 + Caption = #29983#20135#25351#31034#21333#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1270 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 81 + Visible = False + OnClick = ToolButton2Click + end + object TBView: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object ComboBox3: TComboBox + Left = 567 + Top = 3 + Width = 114 + Height = 24 + Style = csDropDownList + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 2 + Items.Strings = ( + #26579#33394#25351#31034#21333 + #21360#33457#25351#31034#21333 + #21360#33457#25351#31034#21333'('#20004#26639')' + #21518#24037#33402#25351#31034#21333) + end + object ComboBox2: TComboBox + Left = 681 + Top = 3 + Width = 82 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 1 + end + object ToolButton1: TToolButton + Left = 763 + Top = 0 + AutoSize = True + Caption = #21253#35013#25351#31034#21333 + ImageIndex = 14 + OnClick = ToolButton1Click + end + object CheckBox1: TCheckBox + Left = 862 + Top = 0 + Width = 51 + Height = 30 + Caption = #26579#33394 + TabOrder = 3 + end + object ToolButton3: TToolButton + Left = 913 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 1000 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 1063 + Top = 3 + Width = 115 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1270 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 179 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 318 + Top = 15 + Width = 40 + Height = 12 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 458 + Top = 15 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 456 + Top = 39 + Width = 54 + Height = 12 + Caption = #35268' '#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 609 + Top = 39 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 609 + Top = 15 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 318 + Top = 39 + Width = 39 + Height = 12 + Caption = #29702#21333#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object MPRTCodeHZ: TEdit + Tag = 2 + Left = 511 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object MPRTSpec: TEdit + Tag = 2 + Left = 510 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 638 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 638 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object LiDanPerson: TEdit + Tag = 2 + Left = 359 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1270 + Height = 454 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_CYZZ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 62 + end + object v1Column5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCodeHZ' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'LiDanPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 440 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 624 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 216 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 576 + Top = 208 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 576 + Top = 144 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 576 + Top = 176 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 240 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = Order_Main + Left = 848 + Top = 136 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 848 + Top = 200 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.pas b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.pas new file mode 100644 index 0000000..6f54974 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PRTOrderViewList.pas @@ -0,0 +1,883 @@ +unit U_PRTOrderViewList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus; + +type + TfrmPRTOrderViewList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + TBView: TToolButton; + Label8: TLabel; + MPRTCodeHZ: TEdit; + v1MPRTKZ: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ComboBox1: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label9: TLabel; + Label2: TLabel; + ConNo: TEdit; + LiDanPerson: TEdit; + v1Column1: TcxGridDBColumn; + ComboBox2: TComboBox; + ToolButton1: TToolButton; + RMDBDataSet1: TRMDBDataSet; + RM2: TRMGridReport; + ToolButton3: TToolButton; + ComboBox3: TComboBox; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + CheckBox1: TCheckBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBViewClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + CanShu1,CanShu2:string; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmPRTOrderViewList: TfrmPRTOrderViewList; + +implementation +uses + U_DataLink,U_OrderInPut,U_RTFun, U_ZDYHelp, U_ZDYHelpSel, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmPRTOrderViewList.FormDestroy(Sender: TObject); +begin + frmPRTOrderViewList:=nil; +end; + +procedure TfrmPRTOrderViewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPRTOrderViewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmPRTOrderViewList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmPRTOrderViewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=''; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmPRTOrderViewList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPRTOrderViewList.InitForm(); +begin + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-92; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmPRTOrderViewList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderViewList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(CanShu1)<>'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + + + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmPRTOrderViewList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ORDMainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=false then + begin + Application.MessageBox('Ѿ¼뵥ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmPRTOrderViewList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmPRTOrderViewList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + +end; + +procedure TfrmPRTOrderViewList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno,PFTPUnit,LD,LDTel,GD,GDTel,CPQtyStr,BPQtyStr,QtyUnit:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + if Trim(ComboBox2.Text)='' then Exit; + if Trim(ComboBox3.Text)='' then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(ComboBox3.Text)+'.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName,B.PSNote,C.ClothOneQty,C.MPRTOneQty,C.OneQtyUnit,C.OrderNo,C.MPRTCode,C.MPRTCodeName,C.MPRTCF '); + sql.Add(' ,C.MPRTSpec,C.MPRTMF,C.MPRTKZ,C.ChuanY,C.MPRTGY,C.MPRTGYHZ,D.*'); + sql.Add(',GSTT=(select Top 1 ZdyStr1 from KH_Zdy A where A.ZdyName=C.ComTaiTou)'); + sql.Add(',Case when RTrim(A.PFTPUnit)=''KG'' then '',''+Cast(Cast(A.PFTPQty*B.KgZM as int) as varchar(20))+''M'' '); + sql.Add(' else '''' end as MStr'); + sql.Add(',C.LiDanPerson,LDTel10=(select Top 1 Note from KH_Zdy KZ where KZ.ZdyName=C.LiDanPerson and KZ.Type=''LiDanPerson'' )'); + sql.Add(',GDTel10=(select Top 1 Note from KH_Zdy KZ where KZ.ZdyName=A.PFGenDanPerson and KZ.Type=''PFGenDanPerson'' )'); + sql.Add(' from JYOrder_PCS_Sub A'); + SQL.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.Mainid'); + sql.Add(' left join JYOrder_Sub D on A.Subid=D.SubId'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(' and A.FactoryName='''+Trim(ComboBox2.Text)+''''); + SQL.Add(' order by D.SubId'); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + PFTPUnit:=Trim(CDS_Print.fieldbyname('PFTPUnit').AsString); + LD:=Trim(CDS_Print.fieldbyname('LiDanPerson').AsString); + LDTel:=Trim(CDS_Print.fieldbyname('LDTel10').AsString); + GD:=Trim(CDS_Print.fieldbyname('PFGenDanPerson').AsString); + GDTel:=Trim(CDS_Print.fieldbyname('GDTel10').AsString); + if (CDS_Print.RecordCount mod 2)=1 then + begin + CDS_Print.Append; + CDS_Print.Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(PFTPQty) PFTPQtyHZ,sum(PFTPPS) PFTPPSHZ '); + sql.Add(' from JYOrder_PCS_Sub A'); + SQL.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.Mainid'); + sql.Add(' left join JYOrder_Sub D on A.Subid=D.SubId'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(' and A.FactoryName='''+Trim(ComboBox2.Text)+''''); + sql.Add(' group by A.FactoryName'); + Open; + end; + if FileExists(fPrintFile) then + begin + RMVariables['PFTPQtyHZ']:=ADOQueryTemp.fieldbyname('PFTPQtyHZ').Value; + RMVariables['PFTPPSHZ']:=ADOQueryTemp.fieldbyname('PFTPPSHZ').Value; + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RMVariables['QtyUnit']:=Order_Main.fieldbyname('OneQtyUnit').Value; + RMVariables['CPQtyStr']:=Order_Main.fieldbyname('MPRTOneQty').Value; + RMVariables['BPQtyStr']:=Order_Main.fieldbyname('ClothOneQty').Value; + RMVariables['PFTPUnitHZ']:=Trim(PFTPUnit); + RMVariables['LD']:=Trim(LD); + RMVariables['LDTel']:=Trim(LDTel); + RMVariables['GD']:=Trim(GD); + RMVariables['GDTel']:=Trim(GDTel); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +procedure TfrmPRTOrderViewList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + if Order_Main.IsEmpty=False then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select distinct(FactoryName) FactoryName from JYOrder_PCS_Sub '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + ComboBox2.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox2.Items.Add(Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString)); + Next; + end; + end; + end; +end; + +procedure TfrmPRTOrderViewList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmPRTOrderViewList.OrderNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmPRTOrderViewList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmPRTOrderViewList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TBView.Visible=False then Exit; + TBView.Click; +end; + +procedure TfrmPRTOrderViewList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPRTOrderViewList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmPRTOrderViewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmPRTOrderViewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmPRTOrderViewList.TBViewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + //ToolBar3.Visible:=False; + ToolBar4.Visible:=False; + ToolBar5.Visible:=False; + TBSave.Visible:=False; + ToolButton4.Visible:=False; + ToolButton5.Visible:=False; + ToolButton8.Visible:=False; + ToolButton10.Visible:=False; + ToolButton11.Visible:=False; + //ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + ToolBar6.Visible:=False; + ToolButton20.Visible:=False; + ToolButton21.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmPRTOrderViewList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmPRTOrderViewList.OrderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderViewList.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmPRTOrderViewList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Order_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select distinct(FactoryName) FactoryName from JYOrder_PCS_Sub '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + ComboBox2.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox2.Items.Add(Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString)); + Next; + end; + end; +end; + +procedure TfrmPRTOrderViewList.ToolButton1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,PFTPUnit,LD,LDTel,GD,GDTel,PSID:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + //if Trim(ComboBox2.Text)='' then Exit; + if CheckBox1.Checked=False then + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\װָʾ.rmf' + else + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\װָʾȾɫ.rmf'; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and PSName=''װ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and PSName=''Ʒ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + i:=1;//װǰһ + end else + begin + if ADOQueryTemp.FieldByName('PSXH').AsInteger=1 then + begin + i:=1; + end else + begin + i:=2;//װǰ + end; + end; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName,B.PSNote,C.OrderNo,C.MPRTCode,C.MPRTCodeName,C.MPRTCF, '); + sql.Add(' C.MPRTSpec,C.MPRTMF,C.MPRTKZ,C.ChuanY,C.MPRTGY,D.PRTHX,D.PRTColorNo'); + sql.Add(',C.MPRTMFNOte,C.MPRTKZNote,C.CJNote,C.DHNote,C.BZNote,C.CHNote,C.MPRTGYHZ,D.*'); + sql.Add(',GSTT=(select Top 1 ZdyStr1 from KH_Zdy A where A.ZdyName=C.ComTaiTou)'); + sql.Add(',Case when RTrim(A.PFTPUnit)=''KG'' then '',''+Cast(Cast(A.PFTPQty*B.KgZM as int) as varchar(20))+''M'' '); + sql.Add(' else '''' end as MStr'); + sql.Add(',C.LiDanPerson,LDTel10=(select Top 1 Note from KH_Zdy KZ where KZ.ZdyName=C.LiDanPerson and KZ.Type=''LiDanPerson'' )'); + sql.Add(',GDTel10=(select Top 1 Note from KH_Zdy KZ where KZ.ZdyName=A.PFGenDanPerson and KZ.Type=''PFGenDanPerson'' )'); + sql.Add(' from JYOrder_PCS_Sub A'); + SQL.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.Mainid'); + sql.Add(' inner join JYOrder_Sub D on A.Subid=D.SubId'); + //sql.Add(' left join JYOrder_Sub D on A.Subid=D.SubId'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + if i=1 then + begin + sql.Add(' and B.PSID=(select Top 1 PSID from JYOrder_Process JP where JP.MainId=C.MainId'); + sql.Add(' and JP.PSXH<(select PSXH from JYOrder_Process JPP where JPP.MainId=C.MainId and JPP.PSName=''װ'' )'); + sql.Add(' order by PSXH DESC)'); + end else + if i=2 then + begin + sql.Add(' and B.PSID in (select Top 2 PSID from JYOrder_Process JP where JP.MainId=C.MainId'); + sql.Add(' and JP.PSXH<(select PSXH from JYOrder_Process JPP where JPP.MainId=C.MainId and JPP.PSName=''װ'' )'); + sql.Add(' order by PSXH DESC)'); + end; + + //SQL.Add(' and A.FactoryName='''+Trim(ComboBox2.Text)+''''); + sql.Add(' order by D.SubId'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + PFTPUnit:=Trim(CDS_Print.fieldbyname('PFTPUnit').AsString); + LD:=Trim(CDS_Print.fieldbyname('LiDanPerson').AsString); + LDTel:=Trim(CDS_Print.fieldbyname('LDTel10').AsString); + GD:=Trim(CDS_Print.fieldbyname('PFGenDanPerson').AsString); + GDTel:=Trim(CDS_Print.fieldbyname('GDTel10').AsString); + if (CDS_Print.RecordCount mod 2)=1 then + begin + CDS_Print.Append; + CDS_Print.Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(PFTPQty) PFTPQtyHZ,sum(PFTPPS) PFTPPSHZ '); + sql.Add(' from JYOrder_PCS_Sub A'); + SQL.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.Mainid'); + //sql.Add(' left join JYOrder_Sub D on A.Subid=D.SubId'); + sql.Add(' inner join JYOrder_Sub D on A.Subid=D.SubId'); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + if i=1 then + begin + sql.Add(' and B.PSID=(select Top 1 PSID from JYOrder_Process JP where JP.MainId=C.MainId'); + sql.Add(' and JP.PSXH<(select PSXH from JYOrder_Process JPP where JPP.MainId=C.MainId and JPP.PSName=''װ'' )'); + sql.Add(' order by PSXH DESC)'); + end else + if i=2 then + begin + sql.Add(' and B.PSID in (select Top 2 PSID from JYOrder_Process JP where JP.MainId=C.MainId'); + sql.Add(' and JP.PSXH<(select PSXH from JYOrder_Process JPP where JPP.MainId=C.MainId and JPP.PSName=''װ'' )'); + sql.Add(' order by PSXH DESC)'); + end; + // sql.Add(' group by A.FactoryName'); + Open; + end; + if FileExists(fPrintFile) then + begin + RMVariables['PFTPQtyHZ']:=ADOQueryTemp.fieldbyname('PFTPQtyHZ').Value; + RMVariables['PFTPPSHZ']:=ADOQueryTemp.fieldbyname('PFTPPSHZ').Value; + RMVariables['ZQty']:=Order_Main.fieldbyname('ZQty').Value; + RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; + RMVariables['QtyUnit']:=Order_Main.fieldbyname('OneQtyUnit').Value; + RMVariables['CPQtyStr']:=Order_Main.fieldbyname('MPRTOneQty').Value; + RMVariables['BPQtyStr']:=Order_Main.fieldbyname('ClothOneQty').Value; + RMVariables['PFTPUnitHZ']:=Trim(PFTPUnit); + RMVariables['LD']:=Trim(LD); + RMVariables['LDTel']:=Trim(LDTel); + RMVariables['GD']:=Trim(GD); + RMVariables['GDTel']:=Trim(GDTel); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\װָʾ.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +procedure TfrmPRTOrderViewList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ָʾ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.dfm b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.dfm new file mode 100644 index 0000000..20b107c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.dfm @@ -0,0 +1,344 @@ +object frmProductOrderListSel: TfrmProductOrderListSel + Left = 125 + Top = 102 + Width = 1094 + Height = 600 + Caption = #29983#20135#25351#31034#21333#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1078 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + Caption = #36873#25321 + ImageIndex = 10 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1078 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 35 + Top = 22 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNoM: TEdit + Tag = 2 + Left = 76 + Top = 18 + Width = 149 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoMKeyPress + end + end + object cxGrid1: TcxGrid + Left = 24 + Top = 96 + Width = 1009 + Height = 353 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1Column6: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTkuanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 80 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 90 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 64 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 70 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 56 + end + object v1Column2: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column3: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'PRTOrderKgQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 440 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 240 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 248 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 208 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 392 + Top = 200 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 288 + Top = 184 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.pas b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.pas new file mode 100644 index 0000000..a0c061c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.pas @@ -0,0 +1,161 @@ +unit U_ProductOrderListSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus; + +type + TfrmProductOrderListSel = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + v1OrderNo: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure Tv1DblClick(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderListSel: TfrmProductOrderListSel; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmProductOrderListSel.FormDestroy(Sender: TObject); +begin + frmProductOrderListSel:=nil; +end; + +procedure TfrmProductOrderListSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderListSel.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmProductOrderListSel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбѡֿ',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderListSel.InitGrid(); +begin + if Length(Trim(OrderNoM.Text))<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select B.*,A.*,A.OrderNo orderNoM'); + sql.add('from JYOrder_sub A'); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID '); + SQL.Add('where B.OrderNo like '''+'%'+Trim(OrderNoM.Text)+'%'+''''); + sQL.Add('and isnull(B.status,''0'')>''0'' and B.OrderType='''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmProductOrderListSel.InitForm(); +begin + ReadCxGrid('ָʾбѡֿ',Tv1,'ָʾ'); + InitGrid(); +end; + +procedure TfrmProductOrderListSel.FormShow(Sender: TObject); +begin + InitForm(); + +end; + +procedure TfrmProductOrderListSel.ToolButton3Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmProductOrderListSel.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + InitGrid(); + end; +end; + +procedure TfrmProductOrderListSel.Tv1DblClick(Sender: TObject); +begin + ToolButton3.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.dfm new file mode 100644 index 0000000..c5d777c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.dfm @@ -0,0 +1,823 @@ +object frmProductOrderNewList: TfrmProductOrderNewList + Left = 84 + Top = 20 + Width = 1132 + Height = 592 + Caption = #29983#20135#25351#31034#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1099 + Height = 62 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + Wrap = True + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton4: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #23457#26680#20154#23450#20041 + ImageIndex = 114 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 162 + Top = 30 + AutoSize = True + Caption = #36865#23457 + ImageIndex = 132 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 225 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 288 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 351 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 414 + Top = 33 + Width = 145 + Height = 24 + DropDownCount = 10 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ParentFont = False + TabOrder = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1099 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 179 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 318 + Top = 15 + Width = 40 + Height = 12 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 458 + Top = 15 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 179 + Top = 39 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 456 + Top = 39 + Width = 54 + Height = 12 + Caption = #35268' '#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 609 + Top = 39 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 609 + Top = 15 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 318 + Top = 39 + Width = 39 + Height = 12 + Caption = #19994#21153#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNoM: TEdit + Tag = 2 + Left = 220 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 359 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 511 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object ConNo: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + OnKeyPress = ConNoKeyPress + end + object MPRTSpec: TEdit + Tag = 2 + Left = 510 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 638 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = OrderNoMChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 638 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 8 + OnChange = OrderNoMChange + end + object OrdPerson2: TEdit + Tag = 2 + Left = 359 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = OrderNoMChange + end + end + object cxGrid1: TcxGrid + Left = 8 + Top = 144 + Width = 1049 + Height = 209 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column6: TcxGridDBColumn + Caption = #19994#21153#21161#29702 + DataBinding.FieldName = 'OrdPerson3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MPRTKZ' + Options.Focusing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'ZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #36865#23457 + DataBinding.FieldName = 'OrdFlag1' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column5: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 410 + Top = 137 + Width = 231 + Height = 216 + TabOrder = 3 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 229 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 206 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 83 + Top = 176 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object RadioGroup1: TRadioGroup + Left = 56 + Top = 24 + Width = 129 + Height = 145 + ItemIndex = 0 + Items.Strings = ( + #21253#35013#25351#31034#21333 + #39068#33394#26679 + #21697#36136#26679 + #33457#22411#26679) + TabOrder = 2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 353 + Width = 1099 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 361 + Width = 1099 + Height = 225 + Align = alBottom + TabOrder = 5 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_Chk + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 111 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 704 + Top = 216 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 312 + Top = 248 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 208 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 336 + Top = 200 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Print + Left = 392 + Top = 200 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 256 + Top = 176 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + OnClick = N2Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end + object DS_Chk: TDataSource + DataSet = CDS_Chk + Left = 416 + Top = 464 + end + object CDS_Chk: TClientDataSet + Aggregates = <> + Params = <> + Left = 336 + Top = 424 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 304 + Top = 488 + end + object CDS_Chker: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 168 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.pas b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.pas new file mode 100644 index 0000000..ec8bf04 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderNewList.pas @@ -0,0 +1,1093 @@ +unit U_ProductOrderNewList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus; + +type + TfrmProductOrderNewList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + OrderNoM: TEdit; + TBExport: TToolButton; + v1OrderNo: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + Label4: TLabel; + CustomerNoName: TEdit; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label8: TLabel; + MPRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1MPRTKZ: TcxGridDBColumn; + Label10: TLabel; + MPRTSpec: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + Label13: TLabel; + MPRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + ComboBox1: TComboBox; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + RadioGroup1: TRadioGroup; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + cxSplitter1: TcxSplitter; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DS_Chk: TDataSource; + CDS_Chk: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + CDS_Chker: TClientDataSet; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Label2: TLabel; + OrdPerson2: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Button1Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrderNewList: TfrmProductOrderNewList; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun, U_ZDYHelp, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList:=nil; +end; + +procedure TfrmProductOrderNewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderNewList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбFF',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderNewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + end else + begin + Parameters.ParamByName('WSql').Value:=''; + end; + Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.DateTime); + Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',enddate.DateTime+1); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrderNewList.InitGridFH(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec Order_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' + +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmProductOrderNewList.InitForm(); +begin + ReadCxGrid('ָʾбFF',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + //InitGrid(); +end; + +procedure TfrmProductOrderNewList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmProductOrderNewList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('˲޸!','ʾ',0); + Exit; + end else + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + if ADOQueryTemp.FieldByName('OrdFlag1').AsBoolean=True then + begin + Application.MessageBox('в޸!','ʾ',0); + Exit; + end; + + end; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNoM').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + if Order_Main.FieldByName('OrdFlag1').AsBoolean=True then + begin + Application.MessageBox('ɾ!','ʾ',0); + Exit; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from Contract_Cloth_LL A where exists (select * from JYOrder_Sub B where B.SubId=A.OrdSubId '); + SQL.Add(' and B.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѳݲɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѳݲɾ!','ʾ',0); + Exit; + end; } + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LLMX where OrdSubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ϲɾ!','ʾ',0); + Exit; + end; } + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ѻزֲɾ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmProductOrderNewList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + if IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrderNewList.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.FieldByName('ChkStatus').AsString)<>'ͨ' then + begin + RM1.PreviewButtons:=[pbExit]; + end else + begin + RM1.PreviewButtons:=[pbZoom,pbLoad,pbSave,pbPrint,pbFind,pbPageSetup,pbExit,pbExport,pbNavigator]; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,ColorCount=(select isnull(Count(*),0) from JYOrder_Sub where MainId=A.MainId), '); + sql.add('OrderUnit=(select Top 1 OrderUnit from JYOrder_Sub where MainId=A.MainId),'); + sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId)'); + // sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' from JYOrder_Main A '); + sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; + // Panel4.Visible:=True; +end; + +procedure TfrmProductOrderNewList.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 10* from JYOrder_Main Order by FillTime desc'); + Open; + end; + ComboBox1.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('OrderNO').AsString)); + Next; + end; + end; + end; +end; + +procedure TfrmProductOrderNewList.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.OrderNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmProductOrderNewList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderNewList.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderNewList.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmProductOrderNewList.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmProductOrderNewList.N1Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ10.rmf' ; + SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+''''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ10.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewList.N2Click(Sender: TObject); +var + fPrintFile:string; + Porderno:string; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+''''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString); + if FileExists(fPrintFile) then + begin + //RMVariables['begindate']:=begindate.DateTime; + //RMVariables['enddate']:=enddate.DateTime; + //RMVariables['printtime']:=Now; + //RMVariables['printer']:=Trim(gUserName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; + SDofilter(ADOQueryMain,''); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + Order_Main.Locate('ordernoM',Porderno,[]); +end; + +procedure TfrmProductOrderNewList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderNewList.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNoM.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and Filler='''+Trim(DName)+''''; + end; + begin + Parameters.ParamByName('WSql').Value:=' and orderno like '''+'%'+Trim(OrderNoM.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderNewList.ConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(DParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end; + begin + Parameters.ParamByName('WSql').Value:=' and conno like '''+'%'+Trim(conno.Text)+'%'+''''; + end; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmProductOrderNewList.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmProductOrderNewList.Button1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,LBName:string; + i,j:Integer; + OrderKg:Double; +begin + if Order_Main.IsEmpty then Exit; + LBName:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBName)+'.rmf' ; + if RadioGroup1.ItemIndex=0 then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,ColorCount=(select isnull(Count(*),0) from JYOrder_Sub where MainId=A.MainId), '); + sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId)'); + SQL.Add(', Case when B.OrderUnit=''M'' then Cast(Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,0)) as varchar(20))+''Kg'' '); + SQL.Add(' when B.OrderUnit=''Y'' then Cast (Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,0)) as varchar(20))+''Kg'' '); + sql.Add(' else '''' end as PRTOrderKgQtyStr '); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + + end else + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('exec P_View_OrderSub :begdate,:enddate,:wsql '); + Parameters.ParamByName('WSql').Value:=' and A.MainId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''; + Parameters.ParamByName('begdate').Value:='1899-01-01'; + Parameters.ParamByName('enddate').Value:='2050-01-01'; + Open; + end; + if Trim(ADOQueryPrint.FieldByName('PRTHX').AsString)<>'' then + begin + if Trim(LBName)='ɫ' then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɫ.rmf' ; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(PRTOrderKgQty),0) PRTOrderKgHZQty from('); + sql.Add('select '); + SQL.Add(' Case when B.OrderUnit=''M'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'') '); + sql.Add(' *1.00/100*B.PRTOrderQty*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as decimal(18,0))'); + SQL.Add(' when B.OrderUnit=''Y'' then Cast(dbo.F_Get_Order_MFKZ(A.MainId,''MF'')'); + sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 As decimal(18,0)) '); + sql.Add(' else 0 end as PRTOrderKgQty'); + sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); + sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')AA'); + Open; + end; + OrderKg:=ADOQueryTemp.fieldbyname('PRTOrderKgHZQty').Value; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + if OrderKg>0 then + RMVariables['OrderKg']:='/'+Trim(FloatToStr(OrderKg))+'Kg' + else + RMVariables['OrderKg']:=''; + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LBName)+'.rmf'),'ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmProductOrderNewList.ToolButton4Click(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrdConChker'; + flagname:='ָʾ'; + MainType:=Trim(DName); + if ShowModal=1 then + begin + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton5Click(Sender: TObject); +var + maxno:string; + FCount:Integer; +begin + if Order_Main.IsEmpty then Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + if Trim(Order_Main.fieldbyname('ChkStatus').AsString)='ͨ' then + begin + Application.MessageBox('ͨ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Chker=Cast('''' as varchar(20))'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Chker); + SInitCDSData20(ADOQueryTemp,CDS_Chker); + while CDS_Chker.IsEmpty=False do + begin + CDS_Chker.Delete; + end; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='OrdConChker'; + flagname:='ָʾ'; + MainType:=Trim(DName); + if ShowModal=1 then + begin + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSEl').AsBoolean=True then + begin + CDS_Chker.Append; + CDS_Chker.FieldByName('Chker').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + CDS_Chker.Post; + end; + Next; + end; + end; + if CDS_Chker.IsEmpty then FCount:=9 + + end; + end; + finally + frmZDYHelpSel.Free; + end; + if FCount=9 then + begin + if CDS_Chker.IsEmpty then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + + + CDS_Chker.DisableControls; + with CDS_Chker do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserName='''+Trim(CDS_Chker.fieldbyname('Chker').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + CDS_Chker.EnableControls; + Application.MessageBox('˶!','ʾ',0); + Exit; + end; + Next; + end; + end; + CDS_Chker.EnableControls; + if CDS_Chker.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + //if CDS_Chk.IsEmpty then + begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdFlag1=1,OrdDefDate1=getdate() where MainId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('OrdFlag1').Value:=1; + Post; + end; + with CDS_Chker do + begin + First; + while not Eof do + begin + if CDS_Chk.Locate('Chker',Trim(CDS_Chker.fieldbyname('Chker').AsString),[])=False then + begin + if GetLSNo(ADOQueryCmd,maxno,'CK','OrdCon_Chk',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from OrdCon_Chk where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CKID').Value:=Trim(maxno); + FieldByName('MainID').Value:=Trim(Order_Main.fieldbyname('MainID').AsString); + FieldByName('Chker').Value:=Trim(CDS_Chker.fieldbyname('Chker').AsString); + Post; + end; + with CDS_Chk do + begin + Append; + FieldByName('Chker').Value:=Trim(CDS_Chker.fieldbyname('Chker').AsString); + Post; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; + end; +end; + +procedure TfrmProductOrderNewList.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from OrdCon_Chk where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Chk); + SInitCDSData20(ADOQueryTemp,CDS_Chk); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.dfm b/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.dfm new file mode 100644 index 0000000..7fd6d2a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.dfm @@ -0,0 +1,239 @@ +object frmRTZDYHelp: TfrmRTZDYHelp + Left = 466 + Top = 188 + Width = 461 + Height = 528 + Caption = #39033#30446#32500#25252 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid1: TcxGrid + Left = 8 + Top = 88 + Width = 417 + Height = 200 + TabOrder = 0 + object TV1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object V1Code: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'ZDYNo' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 97 + end + object V1OrderNo: TcxGridDBColumn + Caption = #39034#24207#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 46 + end + object V1Name: TcxGridDBColumn + Tag = 2 + Caption = #21517#31216 + DataBinding.FieldName = 'ZDYName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 146 + end + object V1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1NotePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 113 + end + object V1ZdyFlag: TcxGridDBColumn + Caption = #26631#24535 + DataBinding.FieldName = 'ZdyFlag' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1Column1PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 57 + end + object V1HelpType: TcxGridDBColumn + Caption = #24110#21161#31867#27604 + DataBinding.FieldName = 'HelpType' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1HelpTypePropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 55 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 445 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Caption = #36873#25321 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 59 + Top = 0 + Caption = #22686#34892 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 118 + Top = 0 + Caption = #21024#34892 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBEdit: TToolButton + Left = 177 + Top = 0 + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBSave: TToolButton + Left = 236 + Top = 0 + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 295 + Top = 0 + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 445 + Height = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 18 + Top = 17 + Width = 24 + Height = 12 + Caption = #21517#31216 + end + object Label2: TLabel + Left = 240 + Top = 11 + Width = 120 + Height = 24 + Caption = #27880#65306#28966#28857#31163#24320#24403#21069#32534#36753#13#10' '#21333#20803#26684#20445#23384#25968#25454#12290 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentColor = False + ParentFont = False + end + object ZDYName: TEdit + Tag = 2 + Left = 53 + Top = 12 + Width = 169 + Height = 20 + TabOrder = 0 + OnChange = ZDYNameChange + end + end + object ADOQueryMain: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 48 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 80 + Top = 144 + end + object ADOQueryCmd: TADOQuery + Connection = ADOConnection1 + Parameters = <> + Left = 112 + Top = 152 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 280 + Top = 144 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + Top = 144 + end + object ADOConnection1: TADOConnection + LoginPrompt = False + Left = 80 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 168 + Top = 152 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.pas b/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.pas new file mode 100644 index 0000000..f86d442 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_RTZDYHelp.pas @@ -0,0 +1,685 @@ +unit U_RTZDYHelp; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, + StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmRTZDYHelp = class(TForm) + TV1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + V1Code: TcxGridDBColumn; + V1Name: TcxGridDBColumn; + ToolBar1: TToolBar; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + TBAdd: TToolButton; + TBSave: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ToolButton1: TToolButton; + TBEdit: TToolButton; + V1Note: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + ADOConnection1: TADOConnection; + Panel1: TPanel; + Label1: TLabel; + ZDYName: TEdit; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + V1ZdyFlag: TcxGridDBColumn; + V1HelpType: TcxGridDBColumn; + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TV1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ZDYNameChange(Sender: TObject); + procedure V1NamePropertiesEditValueChanged(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure V1NotePropertiesEditValueChanged(Sender: TObject); + procedure V1Column1PropertiesEditValueChanged(Sender: TObject); + procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + flag,flagname,snote,MainType:string; + fnote,forderno,fZdyFlag,ViewFlag:Boolean; + PPSTE:integer; + { Public declarations } + end; + +var + frmRTZDYHelp: TfrmRTZDYHelp; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmRTZDYHelp.FormCreate(Sender: TObject); +begin + try + cxGrid1.Align:=alClient; + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + //ConnectionString:=''; + Connected:=true; + end; + except + {if Application.MessageBox('ʧ,ǷҪٴ?','ʾ',32+4)=IDYES then + begin + try + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + //ConnectionString:='23242'; + Connected:=true; + end; + except + end; + end; } + + frmRTZDYHelp.Free; + end; +end; + +procedure TfrmRTZDYHelp.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + ZDYName.SetFocus; + Action:=caFree; +end; + +procedure TfrmRTZDYHelp.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type='''+flag+''''); + if Trim(MainType)<>'' then + begin + sql.Add(' and A.MainType='''+Trim(MainType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmRTZDYHelp.TBAddClick(Sender: TObject); +var + i:Integer; +begin + ZDYName.SetFocus; + TV1.OptionsData.Editing:=True; + TV1.OptionsSelection.CellSelect:=True; + for i:=0 to 5 do + begin + with ClientDataSet1 do + begin + Append; + Post; + end; + end; + +end; +procedure TfrmRTZDYHelp.TBSaveClick(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet1.IsEmpty then Exit; + ZDYName.SetFocus; + + if ClientDataSet1.Locate('ZDYName',null,[]) then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('ZDYName','',[]) then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+''''); + open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType '); + Parameters.ParamByName('ZDYNo').Value:=Trim(flag); + Parameters.ParamByName('ZDYName').Value:=Trim(flagname); + Parameters.ParamByName('Type').Value:='Main'; + Parameters.ParamByName('MainType').Value:=Trim(MainType); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then + begin + if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from KH_Zdy where Type='''+Trim(flag)+''''); + if Trim(MainType)<>'' then + SQL.Add(' and MainType='''+Trim(MainType)+''''); + sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end else + begin + if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_ZDY where 1<>1'); + Open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno); + ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').Value; + ADOQueryCmd.FieldByName('note').Value:=Trim(snote); + //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString; + ADOQueryCmd.FieldByName('Type').Value:=flag; + ADOQueryCmd.FieldByName('valid').Value:='Y'; + if Trim(MainType)<>'' then + ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType); + //ADOQueryCmd.FieldByName('sel').Value:=0; + ADOQueryCmd.Post; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno); + ClientDataSet1.Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + TV1.OptionsData.Editing:=False; + TV1.OptionsSelection.CellSelect:=False; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmRTZDYHelp.TBDelClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString)<>'') or + (Trim(ClientDataSet1.FieldByName('ZDYname').AsString)<>'') then + begin + if application.MessageBox('ȷҪɾ?','ʾϢ',1)=2 then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete KH_ZDY where ZDYNo='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+''''); + SQL.Add(' and Type='''+Trim(flag)+''''); + ExecSQL; + end; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmRTZDYHelp.TBCloseClick(Sender: TObject); +begin + ModalResult:=2; + ZDYName.SetFocus; + WriteCxGrid('Զ'+Trim(flag),TV1,'Զ'); + Close; +end; + +procedure TfrmRTZDYHelp.FormShow(Sender: TObject); +var + fsj,fsj1:string; +begin + {if PPSTE=1 then + begin + Application.Terminate; + Exit; + end; } + InitGrid(); + fsj:=Trim(flag)+'01'; + fsj1:=Trim(flagname)+'01'; + {if ClientDataSet1.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into KH_ZDY(ZDYNo,ZDYname,Type,note)'); + sql.Add('select '''+Trim(fsj)+''''); + sql.Add(','''+Trim(fsj1)+''''); + SQL.Add(','''+Trim(flag)+''''); + sql.Add(','''+Trim(snote)+''''); + ExecSQL; + end; + InitGrid(); + end;} + //frmZDYHelp.Caption:=Trim(flagname)+'<'+Trim(flag)+'>'; + //ReadCxGrid('Զ',TV1,'Զ'); + ReadCxGrid('Զ'+Trim(flag),TV1,'Զ'); + frmRTZDYHelp.Caption:=Trim(flagname); + V1Note.Visible:=fnote; + V1ZdyFlag.Visible:=fZdyFlag; + V1OrderNo.Visible:=forderno; + if ViewFlag=True then + begin + TBAdd.Visible:=False; + TBSave.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + Label2.Visible:=False; + end; +end; + +procedure TfrmRTZDYHelp.ToolButton1Click(Sender: TObject); +begin + ZDYName.SetFocus; + WriteCxGrid('Զ'+Trim(flag),TV1,'Զ'); + ModalResult:=1; +end; + +procedure TfrmRTZDYHelp.TBEditClick(Sender: TObject); +begin + TV1.OptionsData.Editing:=True; + TV1.OptionsSelection.CellSelect:=True; +end; + +procedure TfrmRTZDYHelp.TV1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TV1.OptionsData.Editing=False then + begin + ModalResult:=1; + end; +end; + +procedure TfrmRTZDYHelp.ZDYNameChange(Sender: TObject); +var + fsj:String; +begin + if Trim(ZDYName.Text)<>'' then + begin + fsj:=' zdyname like '''+'%'+Trim(ZDYName.Text)+'%'+'''' + +' or Note like '''+'%'+Trim(ZDYName.Text)+'%'+'''' + +' or ZJM like '''+'%'+Trim(ZDYName.Text)+'%'+''''; + end; + if ADOQueryMain.Active then + begin + // SDofilter(ADOQueryMain,fsj); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + if Trim(fsj)='' then + begin + Filtered:=False; + end else + begin + Filtered:=False; + Filter:=fsj; + Filtered:=True; + end; + end; + finally + ADOQueryMain.EnableControls; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmRTZDYHelp.V1NamePropertiesEditValueChanged(Sender: TObject); +var + maxno,mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + //Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('ZdyName').Value:=Trim(mvalue); + //Post; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+''''); + open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType '); + Parameters.ParamByName('ZDYNo').Value:=Trim(flag); + Parameters.ParamByName('ZDYName').Value:=Trim(flagname); + Parameters.ParamByName('Type').Value:='Main'; + Parameters.ParamByName('MainType').Value:=Trim(MainType); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + //ClientDataSet1.DisableControls; + //with ClientDataSet1 do + //begin + //First; + //while not eof do + //begin + if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then + begin + if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from KH_Zdy where Type='''+Trim(flag)+''''); + if Trim(MainType)<>'' then + SQL.Add(' and MainType='''+Trim(MainType)+''''); + sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end else + begin + if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_ZDY where 1<>1'); + Open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno); + ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString; + ADOQueryCmd.FieldByName('note').Value:=Trim(snote); + //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString; + ADOQueryCmd.FieldByName('Type').Value:=flag; + ADOQueryCmd.FieldByName('valid').Value:='Y'; + if Trim(MainType)<>'' then + ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType); + //ADOQueryCmd.FieldByName('sel').Value:=0; + ADOQueryCmd.Post; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno); + //ClientDataSet1.Post; + // Next; + //end; + //end; + // ClientDataSet1.EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ','ʾ',0); + //TV1.OptionsData.Editing:=False; + //TV1.OptionsSelection.CellSelect:=False; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmRTZDYHelp.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNo').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update KH_Zdy Set OrderNo='+mvalue); + sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmRTZDYHelp.V1NotePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Note').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update KH_Zdy Set Note='''+Trim(mvalue)+''''); + sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmRTZDYHelp.V1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('ZdyFlag').Value:=StrToInt(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update KH_Zdy Set ZdyFlag='+Trim(mvalue)); + sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmRTZDYHelp.V1HelpTypePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('HelpType').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update KH_Zdy Set HelpType='''+Trim(mvalue)+''''); + sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + ExecSQL; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SCMDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SCMDList.dfm new file mode 100644 index 0000000..352d76c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SCMDList.dfm @@ -0,0 +1,1026 @@ +object frmSCMDList: TfrmSCMDList + Left = 39 + Top = 102 + Width = 1235 + Height = 572 + Caption = #30721#21333#26597#35810'('#29983#20135')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1219 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1219 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 357 + Top = 12 + Width = 42 + Height = 12 + Caption = #21697' '#21517 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label6: TLabel + Left = 181 + Top = 36 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label9: TLabel + Left = 536 + Top = 12 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label11: TLabel + Left = 357 + Top = 36 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object ConName: TEdit + Tag = 2 + Left = 406 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object orderNo: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + OnKeyPress = orderNoKeyPress + end + object MDNO: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = MDNOKeyPress + end + object PSName: TComboBox + Tag = 2 + Left = 587 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 406 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 105 + Width = 1219 + Height = 428 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 428 + ClientRectRight = 1219 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27491#24120#30721#21333 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv3CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + Column = v3Column15 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v3Column16: TcxGridDBColumn + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object Tv3Column1: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v3Column17: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column7: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column12: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #24453#22788#29702#20179#24211#30721#21333 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn8 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn9 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 78 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv1Column1: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object Tv1Column2: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColorHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v1Column1: TcxGridDBColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 48 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #26080#21333#32433#32447#30721#21333 + ImageIndex = 2 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn27: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column3: TcxGridDBColumn + Caption = #21407#26009#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21407#26009#32534#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #33394#21035 + DataBinding.FieldName = 'SeBie' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20928#37325'(Kg)' + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #26080#21333#22383#24067#30721#21333 + ImageIndex = 3 + object cxGrid5: TcxGrid + Left = 0 + Top = 0 + Width = 1219 + Height = 405 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv5CellClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn41 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn42 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn31: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #21305#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object cxGridDBColumn38: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column14: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn39: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object cxGridDBColumn40: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn41: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object cxGridDBColumn42: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object cxGridDBColumn45: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column16: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + HeaderAlignmentHorz = taCenter + Width = 77 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv5 + end + end + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 216 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 248 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 752 + Top = 7 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 784 + Top = 7 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 824 + Top = 7 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 281 + Top = 249 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 488 + Top = 248 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 248 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 553 + Top = 249 + end + object ADOQuery3: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 720 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 521 + Top = 313 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 457 + Top = 305 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SCMDList.pas b/坯布码单待检(PBMDDJ.dll)/U_SCMDList.pas new file mode 100644 index 0000000..378dd85 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SCMDList.pas @@ -0,0 +1,442 @@ +unit U_SCMDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, cxPC, cxControls, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, cxCheckBox; + +type + TfrmSCMDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + ConName: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Label6: TLabel; + MDNO: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQuery3: TADOQuery; + PSName: TComboBox; + Label9: TLabel; + Label11: TLabel; + FactoryName: TEdit; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn27: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridDBColumn38: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn39: TcxGridDBColumn; + cxGridDBColumn40: TcxGridDBColumn; + cxGridDBColumn41: TcxGridDBColumn; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn45: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure MDNOKeyPress(Sender: TObject; var Key: Char); + procedure TBExportClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + canshu1,canshu2:string; + public + { Public declarations } + end; + +var + frmSCMDList: TfrmSCMDList; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmSCMDList.FormDestroy(Sender: TObject); +begin + frmSCMDList:=nil; +end; + +procedure TfrmSCMDList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSCMDList.TBRafreshClick(Sender: TObject); +var + fsj:string; +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex<2 then + begin + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'' '); + sql.Add(',orderNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + end else + if cxPageControl1.ActivePageIndex=3 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'',orderno='''' '); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate and isnull(CKName,'''')='''' '); + SQL.Add(' and CRFlag='''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.Date+1)); + end; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmSCMDList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxPageControl1.ActivePageIndex:=0; +end; + +procedure TfrmSCMDList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('SCTV1',Tv1,'뵥'); + WriteCxGrid('SCTV2',Tv2,'뵥'); + WriteCxGrid('SCTV3',Tv3,'뵥'); + WriteCxGrid('SCTV5',Tv5,'뵥'); + Close; +end; + +procedure TfrmSCMDList.cxPageControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmSCMDList.TBFindClick(Sender: TObject); +begin + if ADOQuery3.Active=False then Exit; + SDofilter(ADOQuery3,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); +end; + +procedure TfrmSCMDList.orderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + + if Key=#13 then + begin + if cxPageControl1.ActivePageIndex>1 then Exit; + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text); + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=' and isnull(JMM.CKName,'''')<>'''' '; + end; + {if Trim(canshu2)<>'Ȩ' then + begin + fsj:=fsj+' and JMM.Filler='''+Trim(DName)+''''; + end; } + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmSCMDList.MDNOKeyPress(Sender: TObject; var Key: Char); +var + fsj:string; +begin + if Key=#13 then + begin + if Trim(MDNO.Text)='' then Exit; + if Length(Trim(MDNO.Text))<4 then Exit; + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Close; + Filtered:=False; + sql.Clear; + if cxPageControl1.ActivePageIndex<2 then + begin + sql.Add('exec P_View_MD :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('begdate').Value:=''; + Parameters.ParamByName('enddate').Value:=''; + Parameters.ParamByName('orderno').Value:=''; + Parameters.ParamByName('MDType').Value:=Trim(canshu1); + fsj:=' and JMM.MDNO like '''+'%'+Trim(MDNO.Text)+'%'+''''; + if cxPageControl1.ActivePageIndex=0 then + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')='''' '; + end else + begin + fsj:=fsj+' and isnull(JMM.CKName,'''')<>'''' '; + end; + Parameters.ParamByName('WSql').Value:=fsj; + end else + if cxPageControl1.ActivePageIndex=2 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'' '); + sql.Add(',orderNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.SPID like '''+'%'+Trim(MDNO.Text)+'%'+''''); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + end else + if cxPageControl1.ActivePageIndex=3 then + begin + sql.Add(' select A.*,MDNO=A.SPID,ConName=A.SPName,PSName=''ɴ'',orderno='''' '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.SPID like '''+'%'+Trim(MDNO.Text)+'%'+''''); + SQL.Add(' and CRFlag='''' '); + end; + + Open; + end; + SCreateCDS20(ADOQuery3,ClientDataSet3); + SInitCDSData20(ADOQuery3,ClientDataSet3); + finally + ADOQuery3.EnableControls; + end; + end; + +end; + +procedure TfrmSCMDList.TBExportClick(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('뵥',cxGrid3) + else if cxPageControl1.ActivePageIndex=1 then + TcxGridToExcel('ֿ뵥',cxGrid1) + else if cxPageControl1.ActivePageIndex=2 then + TcxGridToExcel('޵ɴ뵥',cxGrid2) + else if cxPageControl1.ActivePageIndex=5 then + TcxGridToExcel('޵뵥',cxGrid1); +end; + +procedure TfrmSCMDList.FormShow(Sender: TObject); +begin + READCxGrid('SCTV1',Tv1,'뵥'); + READCxGrid('SCTV2',Tv2,'뵥'); + READCxGrid('SCTV3',Tv3,'뵥'); + READCxGrid('SCTV5',Tv5,'뵥'); +end; + +procedure TfrmSCMDList.Tv3CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +procedure TfrmSCMDList.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + +begin + PSName.Clear; +end; + +procedure TfrmSCMDList.Tv5CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + +begin + PSName.Clear; +end; + +procedure TfrmSCMDList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + if ClientDataSet3.IsEmpty then Exit; + fsj:='select distinct(PSName) Name, Cast('''' as varchar(20)) code from JYOrder_Process where Mainid='''+Trim(ClientDataSet3.fieldbyname('ORDMainId').AsString)+''''; + SInitComBoxBySql(ADOQueryTemp,PSName,False,fsj); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.dfm b/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.dfm new file mode 100644 index 0000000..7ba61ed --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.dfm @@ -0,0 +1,528 @@ +object frmSKCRCYZZ: TfrmSKCRCYZZ + Left = 91 + Top = 86 + Width = 1175 + Height = 618 + Caption = #25910#27454#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1159 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1159 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 433 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 295 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 1088 + Top = 5 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + Visible = False + end + object Label8: TLabel + Left = 1226 + Top = 5 + Width = 48 + Height = 12 + Caption = #32479#35745#21333#20301 + Visible = False + end + object Label9: TLabel + Left = 585 + Top = 13 + Width = 48 + Height = 12 + Caption = #20844#21496#25260#22836 + end + object YFName: TEdit + Tag = 2 + Left = 495 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 343 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 1125 + Top = 1 + Width = 75 + Height = 20 + TabOrder = 4 + Visible = False + end + object HZFactoryName: TEdit + Tag = 2 + Left = 1274 + Top = 1 + Width = 75 + Height = 20 + TabOrder = 5 + Visible = False + OnChange = FactoryNameChange + end + object ComTaiTou: TEdit + Tag = 2 + Left = 635 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1159 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column2 + end + item + Kind = skSum + Column = v2Column3 + end + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + Column = v2Column8 + end + item + Kind = skSum + Column = v2Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column13: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 45 + end + object VDate: TcxGridDBColumn + Tag = 3 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 107 + end + object VFTYName: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 116 + end + object v2Column5: TcxGridDBColumn + Tag = 3 + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 78 + end + object VYFName: TcxGridDBColumn + Tag = 3 + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 105 + end + object VPayMent: TcxGridDBColumn + Tag = 3 + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = VPayMentPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v2Column1: TcxGridDBColumn + Tag = 3 + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32654#37329 + #20154#27665#24065) + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column9: TcxGridDBColumn + Tag = 3 + Caption = #20837#36134#37329#39069 + DataBinding.FieldName = 'RZMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column8: TcxGridDBColumn + Tag = 3 + Caption = #38134#34892#36153#29992 + DataBinding.FieldName = 'BankFee' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 73 + end + object VYB: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143#23454#20184#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column9PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v2Column2: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'FPDJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column3: TcxGridDBColumn + Caption = #20313#27454 + DataBinding.FieldName = 'FPYKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column10: TcxGridDBColumn + Caption = #20840#27454 + DataBinding.FieldName = 'FPQKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column11: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'FPYJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column4: TcxGridDBColumn + Caption = #26410#20998#37197 + DataBinding.FieldName = 'WFPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object VNote: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 397 + Top = 145 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 429 + Top = 145 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 461 + Top = 145 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 432 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 392 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 464 + Top = 176 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 395 + Top = 179 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 432 + Top = 176 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.pas b/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.pas new file mode 100644 index 0000000..49fa488 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SKCRCYZZ.pas @@ -0,0 +1,542 @@ +unit U_SKCRCYZZ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmSKCRCYZZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + Label4: TLabel; + OrderNo: TEdit; + ToolButton5: TToolButton; + Label8: TLabel; + HZFactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + VFTYName: TcxGridDBColumn; + VYFName: TcxGridDBColumn; + VPayMent: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + Label9: TLabel; + ComTaiTou: TEdit; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure VPayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column9PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + canshu1:String; + procedure InitGrid(); + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmSKCRCYZZ: TfrmSKCRCYZZ; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_ZHKHListNewCX; + +{$R *.dfm} + +procedure TfrmSKCRCYZZ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.* '); + sql.Add(' from YF_Money_CR A'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''տǼ'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmSKCRCYZZ.FormDestroy(Sender: TObject); +begin + frmSKCRCYZZ:=nil; +end; + +procedure TfrmSKCRCYZZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSKCRCYZZ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('տǼ1',Tv2,''); + Close; +end; +procedure TfrmSKCRCYZZ.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if CDS_HZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + sql.Add(' and isnull(Money,0)<>isnull(WFPMoney,0) '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('տѱ䲻ɾ!','ʾ',0); + Exit; + end; + end; + end; + end; + CDS_HZ.EnableControls;} + try + ADOQueryCmd.Connection.BeginTrans; + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while Locate('SSel',True,[]) do + begin + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + sql.Add(' and isnull(Money,0)<>isnull(WFPMoney,0) '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + CDS_HZ.EnableControls; + Application.MessageBox('տѱ䲻ɾ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; + end; + end; + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmSKCRCYZZ.FormShow(Sender: TObject); +begin + ReadCxGrid('տǼ1',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=SGetServerDateMBeg(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmSKCRCYZZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSKCRCYZZ.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmSKCRCYZZ.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; +procedure TfrmSKCRCYZZ.ToolButton3Click(Sender: TObject); +begin + try + frmZHKHListNewCX:=TfrmZHKHListNewCX.Create(Application); + with frmZHKHListNewCX do + begin + + DParameters1:='Ȩ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('ZKID').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('KHName').AsString); + FieldByName('CRTime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + //Self.SaveData(); + end; + end; + finally + frmZHKHListNewCX.Free; + end; +end; + +procedure TfrmSKCRCYZZ.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SKYFName'; + flagname:='ĿժҪ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCRCYZZ.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('տб',cxGrid2); +end; + +procedure TfrmSKCRCYZZ.ToolButton5Click(Sender: TObject); +var + maxId,FYFID:String; +begin + if CDS_HZ.IsEmpty then exit; + if CDS_HZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if CDS_HZ.Locate('SSel;Money',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('ͻʵΪ!','ʾ',0); + Exit; + end; + if CDS_HZ.Locate('SSel;BZType',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('ֲΪ!','ʾ',0); + Exit; + end; + if CDS_HZ.Locate('SSel;ComTaiTou',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('˾̧ͷΪ!','ʾ',0); + Exit; + end; + if CDS_HZ.Locate('SSel;CRTime',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ToolBar1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'SK','YF_Money_CR',4,1)=False then + begin + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡտʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(maxId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + end; + FieldByName('YFID').Value:=Trim(maxId); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('YFType').Value:='ֹ¼'; + FieldByName('CRType').Value:='տǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=-1; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('SSel').Value:=False; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set WFPMoney=isnull(Money,0)-isnull(FPDJMoney,0)-isnull(FPYKMoney,0)'); + sql.Add('-isnull(FPQKMoney,0)-isnull(FPYJMoney,0)-isnull(FPKKMoney,0)'); + sql.Add('where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + end; + end; + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmSKCRCYZZ.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); +end; + +procedure TfrmSKCRCYZZ.VPayMentPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SKPayment'; + flagname:='֧ʽ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('PayMent').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCRCYZZ.v2Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='˾̧ͷ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCRCYZZ.v2Column9PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,RZMoney,BankFee,Money:string; +begin + FName:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with CDS_HZ do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + if Trim(CDS_HZ.fieldbyname('RZMoney').AsString)='' then RZMoney:='0' + else RZMoney:=CDS_HZ.fieldbyname('RZMoney').AsString; + if Trim(CDS_HZ.fieldbyname('BankFee').AsString)='' then BankFee:='0' + else BankFee:=CDS_HZ.fieldbyname('BankFee').AsString; + if Trim(CDS_HZ.fieldbyname('Money').AsString)='' then Money:='0' + else Money:=CDS_HZ.fieldbyname('Money').AsString; + if FName<>'Money' then + begin + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(RZMoney)+StrToFloat(BankFee); + Post; + end; + end else + begin + if RZMoney<>'0' then + begin + with CDS_HZ do + begin + Edit; + FieldByName('BankFee').Value:=StrToFloat(Money)-StrToFloat(RZMoney); + Post; + end; + Exit; + end; + if BankFee<>'0' then + begin + with CDS_HZ do + begin + Edit; + FieldByName('RZMoney').Value:=StrToFloat(Money)-StrToFloat(BankFee); + Post; + end; + end; + end; + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.dfm b/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.dfm new file mode 100644 index 0000000..f4c4c50 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.dfm @@ -0,0 +1,442 @@ +object frmSKCRFenPei: TfrmSKCRFenPei + Left = 219 + Top = 79 + Width = 1028 + Height = 618 + Align = alClient + Caption = #25910#27454#20998#37197 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1012 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1012 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + Visible = False + object Label1: TLabel + Left = 433 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + Visible = False + end + object Label3: TLabel + Left = 295 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 720 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + Visible = False + end + object Label8: TLabel + Left = 858 + Top = 13 + Width = 48 + Height = 12 + Caption = #32479#35745#21333#20301 + Visible = False + end + object YFName: TEdit + Tag = 2 + Left = 495 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 0 + Visible = False + end + object FactoryName: TEdit + Tag = 2 + Left = 343 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 1 + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 757 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 4 + Visible = False + end + object HZFactoryName: TEdit + Tag = 2 + Left = 906 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 5 + Visible = False + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1012 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column2 + end + item + Kind = skSum + Column = v2Column3 + end + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + Column = v2Column8 + end + item + Kind = skSum + Column = v2Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object VDate: TcxGridDBColumn + Tag = 3 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 107 + end + object VFTYName: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 116 + end + object v2Column5: TcxGridDBColumn + Tag = 3 + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 78 + end + object VYFName: TcxGridDBColumn + Tag = 3 + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 105 + end + object VPayMent: TcxGridDBColumn + Tag = 3 + Caption = #25903#20184#26041#24335 + DataBinding.FieldName = 'PayMent' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v2Column1: TcxGridDBColumn + Tag = 3 + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32654#37329 + #20154#27665#24065) + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column9: TcxGridDBColumn + Tag = 3 + Caption = #20837#36134#37329#39069 + DataBinding.FieldName = 'RZMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column8: TcxGridDBColumn + Tag = 3 + Caption = #38134#34892#36153#29992 + DataBinding.FieldName = 'BankFee' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object VYB: TcxGridDBColumn + Tag = 3 + Caption = #23458#25143#23454#20184#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v2Column2: TcxGridDBColumn + Caption = #23450#37329 + DataBinding.FieldName = 'FPDJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column3: TcxGridDBColumn + Caption = #20313#27454 + DataBinding.FieldName = 'FPYKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column10: TcxGridDBColumn + Caption = #20840#27454 + DataBinding.FieldName = 'FPQKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column11: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'FPYJMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column4: TcxGridDBColumn + Caption = #26410#20998#37197 + DataBinding.FieldName = 'WFPMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object VNote: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 127 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 349 + Top = 185 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 381 + Top = 185 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 408 + Top = 248 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 251 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 504 + Top = 248 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.pas b/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.pas new file mode 100644 index 0000000..6ce5fc3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SKCRFenPei.pas @@ -0,0 +1,151 @@ +unit U_SKCRFenPei; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmSKCRFenPei = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + Label3: TLabel; + FactoryName: TEdit; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + Label4: TLabel; + OrderNo: TEdit; + Label8: TLabel; + HZFactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + VFTYName: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + VYFName: TcxGridDBColumn; + VPayMent: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + VYB: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + VNote: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + + procedure InitGrid(); + + public + { Public declarations } + KHName:String; + + end; + +var + frmSKCRFenPei: TfrmSKCRFenPei; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + + + +procedure TfrmSKCRFenPei.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.* '); + sql.Add(' from YF_Money_CR A'); + sql.Add('where A.CRType=''տǼ'' and isnull(WFPMoney,0)<>0 and isnull(Money,0)>0'); + sql.add(' and FactoryNo='''+Trim(KHName)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmSKCRFenPei.FormDestroy(Sender: TObject); +begin + frmSKCRFenPei:=nil; +end; + +procedure TfrmSKCRFenPei.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSKCRFenPei.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('տ1',Tv2,''); + Close; +end; +procedure TfrmSKCRFenPei.FormShow(Sender: TObject); +begin + ReadCxGrid('տ1',Tv2,''); + InitGrid(); +end; + +procedure TfrmSKCRFenPei.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmSKCRFenPei.ToolButton2Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmSKCRFenPei.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm new file mode 100644 index 0000000..c87619e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm @@ -0,0 +1,371 @@ +object frmSXCKInPut: TfrmSXCKInPut + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Align = alClient + Caption = #22383#24067#20837#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1366 + Height = 683 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #37319#36141#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column17: TcxGridDBColumn + Tag = 2 + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column17PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column10PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object Panel1: TPanel + Left = 252 + Top = 0 + Width = 797 + Height = 30 + BevelOuter = bvNone + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 364 + Top = 8 + Width = 36 + Height = 12 + Caption = #21333#20215#65306 + end + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 512 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas new file mode 100644 index 0000000..1666430 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas @@ -0,0 +1,990 @@ +unit U_SXCKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, StdCtrls, ExtCtrls; + +type + TfrmSXCKInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + v1Column4: TcxGridDBColumn; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + function SaveCKData():Boolean; + function YFData():Boolean; + procedure DoKc(); + public + { Public declarations } + FBCId,canshu3:String; + + end; + +var + frmSXCKInPut: TfrmSXCKInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel, + U_ZdyAttachCP; + +{$R *.dfm} +procedure TfrmSXCKInPut.DoKc(); +begin + Label1.Caption:='ۣ0'; + IF CDS_Sub.IsEmpty then exit; + IF trim(CDS_Sub.fieldbyname('SPName').AsString)='' then exit; + IF trim(CDS_Sub.fieldbyname('FactoryName').AsString)='' then exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + SQL.Add(' SELECT Top 1 Price FROM YF_Money_CR A'); + sql.Add(' where P_CodeName='+quotedstr(trim(CDS_Sub.fieldbyname('SPName').AsString))); + sql.Add(' and factoryName='+quotedstr(trim(CDS_Sub.fieldbyname('FactoryName').AsString))); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and price>0 '); + sql.Add(' order by FillTime desc'); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + Label1.Caption:='ۣ'+trim(ADOQueryTemp.fieldbyname('price').AsString); + end; +end; +function TfrmSXCKInPut.YFData():Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,cust:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_Sub.fieldbyname('FactoryName').AsString)+''' '); + Open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end + else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CDS_Sub.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR where mainID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''' '); + // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName=''ɹ'' '); + execsql; + end; + + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName=''ɹ'' '); + Open; + end; + + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CF','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:=Trim(CDS_Sub.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CDS_Sub.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('ps').Value:=CDS_Sub.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value:=CDS_Sub.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value:=CDS_Sub.fieldbyname('price').AsFloat; + FieldByName('Money').Value:=CDS_Sub.fieldbyname('Money').AsFloat; + FieldByName('BBMoney').Value:=CDS_Sub.fieldbyname('Money').AsFloat; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:='RMB'; + FieldByName('QtyUnit').Value:=Trim(CDS_Sub.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(CDS_Sub.fieldbyname('FactoryName').AsString); + FieldByName('YFName').Value:='ɹ'; + FieldByName('MainId').Value:=Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('subID').Value:=''; + FieldByName('P_CodeName').Value:=Trim(CDS_Sub.fieldbyname('SPName').AsString); + // FieldByName('P_Spec').Value:=Trim(CDS_Sub.fieldbyname('SPSpec').AsString); + // FieldByName('P_Color').Value:=Trim(CDS_Sub.fieldbyname('PRTColor').AsString); + // FieldByName('SYRName').Value:='𻪷֯'; + FieldByName('status').Value:='0'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + Result:=True; +end; + +procedure TfrmSXCKInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKInPut.TBAddClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty=False then + begin + CopyAddRowCDS(CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('SPID').Value:=null; + post; + end; + end + else + begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + FieldByName('QtyUnit').Value:='M'; + Post; + end; + end; + +end; +function TfrmSXCKInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FFSPID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+''''); + SQL.Add(' and isnull(CKName,'''')=''ɴ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+FCRID); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=FCRID; + FieldByName('CKName').Value:='ɴ'; + FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value; + FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value; + FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value; + FieldByName('SPCF').Value:=CDS_Sub.fieldbyname('SPCF').Value; + FieldByName('ShaZhi').Value:=CDS_Sub.fieldbyname('ShaZhi').Value; + FieldByName('SeBie').Value:=CDS_Sub.fieldbyname('SeBie').Value; + FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value; + Post; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'PR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FFSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FFSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('FZSPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('CPID').Value:=Trim(CDS_Sub.fieldbyname('CPID').AsString); + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + //FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + if Trim(FFSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then + begin + FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString); + end; + FieldByName('price').Value:=CDS_Sub.fieldbyName('Price').AsFloat; + FieldByName('money').Value:=CDS_Sub.fieldbyName('money').AsFloat; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCKGQty=(select sum(isnull(kgQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(Maxno)+''''); + ExecSQL; + end; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ܱ!','ʾ',0); + Exit; + end; + } + { if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + Post; + + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ɹ' then + begin + if not YFData() then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + exit; + end; + end; + + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmSXCKInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴǼ',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXCKInPut.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('Ǽ',Tv1,'ֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); + if CDS_Sub.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + v1Column4.Options.Focusing:=False; + + v1Column14.Options.Focusing:=False; + v2Column1.Options.Focusing:=False; + v1Column8.Options.Focusing:=False; + v1Column7.Options.Focusing:=False; + v1Column1.Options.Focusing:=False; + v1Column10.Options.Focusing:=False; + v1Column11.Options.Focusing:=False; + Exit; + end else + begin + v1Column4.Options.Focusing:=True; + v1Column14.Options.Focusing:=True; + v2Column1.Options.Focusing:=True; + v1Column8.Options.Focusing:=True; + v1Column7.Options.Focusing:=True; + v1Column1.Options.Focusing:=True; + v1Column10.Options.Focusing:=True; + v1Column11.Options.Focusing:=True; + end; +end; + +procedure TfrmSXCKInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('delete from YF_Money_CR where mainID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmSXCKInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + + if CDS_Sub.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + {if CDS_Sub.Locate('SPCF',null,[])=True then + begin + Application.MessageBox('ɷֲΪ!','ʾ',0); + Exit; + end; } + if CDS_Sub.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ŹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; +{ if CDS_Sub.Locate('CRType;FromFactoryName',VarArrayOf(['˻',Null]),[loPartialKey])=True then + begin + Application.MessageBox('˻صݣԹΪ!','ʾ',0); + Exit; + end; } + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmSXCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXKuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; + DoKc(); +end; + +procedure TfrmSXCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + DEFstr5.ItemIndex:=DEFstr5.Items.IndexOf(''); + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('SPSpec').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr1').AsString); + FieldByName('SPCF').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr2').AsString); + FieldByName('SPMF').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr7').AsString); + FieldByName('SPKZ').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPKZ').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPCode').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('CPID').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ATID').AsString); + end; + end; + end; + finally + frmZdyAttachCP.Free; + end; + DoKc(); +end; + +procedure TfrmSXCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmSXCKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(canshu3)='' then exit; + v1Column17.Options.Editing:=False; + v1Column8.Options.Editing:=False; + v1Column7.Options.Editing:=False; + (v2Column1.Properties as TcxButtonEditProperties).ReadOnly:=True; +end; + +procedure TfrmSXCKInPut.v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBCode'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPcode').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBspec'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPspec').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBKF'; + flagname:='ƺ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPCF').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBMF'; + flagname:='ŷ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPMF').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBKZ'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPKZ').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column5PropertiesEditValueChanged( + Sender: TObject); +var + fieldname:string; +begin + fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with CDS_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('Money').Value:=strtofloat(format('%.2f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + Tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmSXCKInPut.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + DoKc(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm new file mode 100644 index 0000000..0f2de99 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm @@ -0,0 +1,580 @@ +object frmSXCKKCSelList: TfrmSXCKKCSelList + Left = 34 + Top = 125 + Width = 1181 + Height = 511 + Align = alClient + Caption = #22383#24067#24211#23384#36873#25321#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 31 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1165 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 492 + Top = 136 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 492 + Top = 160 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label1: TLabel + Left = 534 + Top = 12 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label14: TLabel + Left = 534 + Top = 36 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 400 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #37319#36141#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 400 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 541 + Top = 133 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 541 + Top = 156 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + #33258#24049 + #23458#25143 + '') + end + object ToFactoryName: TEdit + Tag = 2 + Left = 583 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPCode: TEdit + Tag = 2 + Left = 584 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 9 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1165 + Height = 380 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column17: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column18: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas new file mode 100644 index 0000000..b0c863d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas @@ -0,0 +1,223 @@ +unit U_SXCKKCSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmSXCKKCSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label9: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + SSType: TComboBox; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + Label14: TLabel; + SPCode: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXCKKCSelList: TfrmSXCKKCSelList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmSXCKKCSelList.FormDestroy(Sender: TObject); +begin + frmSXCKKCSelList:=nil; +end; + +procedure TfrmSXCKKCSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKKCSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')='''' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty<>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCKKCSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXCKKCSelList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXCKKCSelList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߿ѡб',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXCKKCSelList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߿ѡб',Tv1,'ɴֿ߲'); + //InitGrid(); +end; + +procedure TfrmSXCKKCSelList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXCKKCSelList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKKCSelList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXCKKCSelList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXCKKCSelList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKKCSelList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKKCSelList.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +procedure TfrmSXCKKCSelList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKList.dfm new file mode 100644 index 0000000..ead8a6a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKList.dfm @@ -0,0 +1,538 @@ +object frmSXCKList: TfrmSXCKList + Left = 37 + Top = 130 + Width = 1191 + Height = 511 + Caption = #32433#32447#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1175 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1175 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 357 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 498 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 357 + Top = 36 + Width = 24 + Height = 12 + Caption = #32534#21495 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 498 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 642 + Top = 12 + Width = 36 + Height = 12 + Caption = #21512#21516#21495 + end + object Label9: TLabel + Left = 642 + Top = 36 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label10: TLabel + Left = 790 + Top = 12 + Width = 48 + Height = 12 + Caption = #32433' '#32455 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 384 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 535 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SXID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SXIDChange + OnKeyPress = SXIDKeyPress + end + object BatchNO: TEdit + Tag = 2 + Left = 384 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = BatchNOChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 535 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 680 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object FromFactoryName: TEdit + Tag = 2 + Left = 680 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object ShaZhi: TEdit + Tag = 2 + Left = 839 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1175 + Height = 367 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column3: TcxGridDBColumn + Caption = #21407#26009#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21407#26009#32534#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #33394#21035 + DataBinding.FieldName = 'SeBie' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v2Column5: TcxGridDBColumn + Caption = #20928#37325'(Kg)' + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 69 + end + object v1Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKList.pas new file mode 100644 index 0000000..0ed0585 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKList.pas @@ -0,0 +1,359 @@ +unit U_SXCKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar; + +type + TfrmSXCKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SXID: TEdit; + BatchNO: TEdit; + CRType: TComboBox; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + ConNo: TEdit; + v1Column11: TcxGridDBColumn; + Label9: TLabel; + FromFactoryName: TEdit; + Label10: TLabel; + ShaZhi: TEdit; + v1Column9: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure SXIDKeyPress(Sender: TObject; var Key: Char); + procedure SXIDChange(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXCKList: TfrmSXCKList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmSXCKList.FormDestroy(Sender: TObject); +begin + frmSXCKList:=nil; +end; + +procedure TfrmSXCKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmSXCKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate '); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXCKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXCKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴб',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXCKList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴб',Tv1,'ɴֿ߲'); + //InitGrid(); +end; + +procedure TfrmSXCKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ɴб',cxGrid2); +end; + +procedure TfrmSXCKList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXCKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXCKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXCKList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmSXCKList.ToolButton1Click(Sender: TObject); +begin + try + frmSXCKInPut:=TfrmSXCKInPut.Create(Application); + with frmSXCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKInPut.Free; + end; +end; + +procedure TfrmSXCKList.ToolButton2Click(Sender: TObject); +begin + try + frmSXCKInPut:=TfrmSXCKInPut.Create(Application); + with frmSXCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKInPut.Free; + end; +end; + +procedure TfrmSXCKList.SXIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(SXID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmSXCKList.SXIDChange(Sender: TObject); +begin + if Length(Trim(SXID.Text))<4 then + begin + if Trim(SXID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmSXCKList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm new file mode 100644 index 0000000..4a1fa91 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm @@ -0,0 +1,682 @@ +object frmSXCKNewList: TfrmSXCKNewList + Left = 14 + Top = 141 + Width = 1335 + Height = 511 + Caption = #22383#24067#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1319 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1319 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 515 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 728 + Top = 8 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 250 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 515 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 251 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 728 + Top = 32 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 760 + Top = 152 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 380 + Top = 152 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label10: TLabel + Left = 592 + Top = 148 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object Label11: TLabel + Left = 592 + Top = 172 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 542 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 788 + Top = 5 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 300 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 542 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object CRType: TComboBox + Tag = 2 + Left = 300 + Top = 32 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #37319#36141#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + #35843#25320#20837#24211 + '' + '') + end + object SPCF: TEdit + Tag = 2 + Left = 788 + Top = 28 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 809 + Top = 148 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 429 + Top = 148 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #33258#24049 + #23458#25143 + '') + end + object SPCode: TEdit + Tag = 2 + Left = 641 + Top = 144 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 641 + Top = 168 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1319 + Height = 379 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column2 + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v1Column17: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #20837#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column13: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'ckpiQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'ckQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column3: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column4: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 1196 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1220 + Top = 52 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1116 + Top = 60 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 928 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 896 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas new file mode 100644 index 0000000..5cd2edf --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas @@ -0,0 +1,398 @@ +unit U_SXCKNewList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmSXCKNewList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + SSType: TComboBox; + v1Column17: TcxGridDBColumn; + Label10: TLabel; + SPCode: TEdit; + Label11: TLabel; + ToFactoryName: TEdit; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + canshu1,canshu2,canshu3:string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXCKNewList: TfrmSXCKNewList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmSXCKNewList.FormDestroy(Sender: TObject); +begin + frmSXCKNewList:=nil; +end; + +procedure TfrmSXCKNewList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKNewList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + canshu3:=Trim(DParameters3); +end; + +procedure TfrmSXCKNewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(',ckpiQty=(select sum(piQty) from CK_SXPB_CR X where X.FZSPID=A.SPID and X.CRFlag='''')'); + sql.Add(',ckQty=(select sum(Qty) from CK_SXPB_CR X where X.FZSPID=A.SPID and X.CRFlag='''')'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')='''''); + SQL.Add(' and CRFlag='''' '); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCKNewList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXCKNewList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXCKNewList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б',Tv1,'ֿ'); + Close; +end; + +procedure TfrmSXCKNewList.FormShow(Sender: TObject); +begin + ReadCxGrid('б',Tv1,'ֿ'); + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end; + //InitGrid(); +end; + +procedure TfrmSXCKNewList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmSXCKNewList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXCKNewList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXCKNewList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXCKNewList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('delete from YF_Money_CR where mainID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));} + ExecSQL; + end; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; } + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmSXCKNewList.TBAddClick(Sender: TObject); +begin + try + frmSXCKInPut:=TfrmSXCKInPut.Create(Application); + with frmSXCKInPut do + begin + FBCId:=''; + frmSXCKInPut.canshu3:=Trim(Self.canshu3); + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKInPut.Free; + end; +end; + +procedure TfrmSXCKNewList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣ޸!','ʾ',0); + Exit; + end; + try + frmSXCKInPut:=TfrmSXCKInPut.Create(Application); + with frmSXCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKInPut.Free; + end; +end; + +procedure TfrmSXCKNewList.SPIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmSXCKNewList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmSXCKNewList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKNewList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm new file mode 100644 index 0000000..a29e50b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm @@ -0,0 +1,668 @@ +object frmSXCKOutList: TfrmSXCKOutList + Left = 542 + Top = 160 + Width = 1314 + Height = 572 + Caption = #22383#24067#20986#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1298 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20986#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1298 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 333 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 457 + Top = 12 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label8: TLabel + Left = 333 + Top = 36 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label6: TLabel + Left = 457 + Top = 36 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 585 + Top = 104 + Width = 60 + Height = 12 + Caption = #26469#33258#35746#21333#21495 + end + object Label10: TLabel + Left = 585 + Top = 128 + Width = 60 + Height = 12 + Caption = #20986#21040#35746#21333#21495 + end + object Label11: TLabel + Left = 613 + Top = 12 + Width = 60 + Height = 12 + Caption = #26469#33258#21152#24037#21378 + end + object Label13: TLabel + Left = 613 + Top = 36 + Width = 90 + Height = 12 + Caption = #20986#21040#21152#24037#21378'/'#23458#25143 + end + object Label15: TLabel + Left = 787 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 360 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 517 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = SPColorChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPColor: TEdit + Tag = 2 + Left = 360 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPColorChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#20986#24211 + #36864#36135#20986#24211 + #38144#21806#20986#24211 + #35843#25320#20986#24211 + '' + '' + '') + end + object SPCF: TEdit + Tag = 2 + Left = 517 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = SPColorChange + end + object QCorderNo: TEdit + Tag = 2 + Left = 645 + Top = 101 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = SPColorChange + end + object CKorderNo: TEdit + Tag = 2 + Left = 645 + Top = 125 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = SPColorChange + end + object FromFactoryName: TEdit + Tag = 2 + Left = 677 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = SPColorChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 677 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = SPColorChange + end + object FZSPID: TEdit + Tag = 2 + Left = 836 + Top = 8 + Width = 77 + Height = 20 + TabOrder = 12 + OnChange = SPColorChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1298 + Height = 440 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #36864#36135) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column20: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378'/'#23458#25143 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 122 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column22: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'FZSPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 984 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1048 + Top = 168 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1016 + Top = 160 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas new file mode 100644 index 0000000..c1004fc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas @@ -0,0 +1,428 @@ +unit U_SXCKOutList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +type + TfrmSXCKOutList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPColor: TEdit; + CRType: TComboBox; + SPCF: TEdit; + QCorderNo: TEdit; + Label10: TLabel; + CKorderNo: TEdit; + Label11: TLabel; + FromFactoryName: TEdit; + Label13: TLabel; + ToFactoryName: TEdit; + v1Column20: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + FZSPID: TEdit; + Label15: TLabel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure SPNameChange(Sender: TObject); + procedure SPIDChange(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPColorChange(Sender: TObject); + private + canshu1, canshu2: string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXCKOutList: TfrmSXCKOutList; + +implementation + +uses + U_DataLink, U_RTFun, U_SXCKOutPut, U_SXCKTHPut; + +{$R *.dfm} + +procedure TfrmSXCKOutList.FormDestroy(Sender: TObject); +begin + frmSXCKOutList := nil; +end; + +procedure TfrmSXCKOutList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmSXCKOutList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1 := Trim(DParameters1); + canshu2 := Trim(DParameters2); + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 30; +end; + +procedure TfrmSXCKOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select A.* ,B.SOrddefstr1,B.PRTColor,B.PRTHX'); + // sql.Add(' rkNo=(select SPID from CK_SXPB_CR X where X.)); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubIdCK=B.SubId'); + sql.Add(' where A.CRTime>=:begdate and A.CRTime<:enddate'); + SQL.Add(' and CRFlag='''' '); + SQL.Add(' and isnull(CKName,'''')='''' '); + Parameters.ParamByName('begdate').Value := Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + Parameters.ParamByName('enddate').Value := Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCKOutList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXCKOutList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmSXCKOutList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('бPMD', Tv1, 'ֿ'); + Close; +end; + +procedure TfrmSXCKOutList.FormShow(Sender: TObject); +begin + if Trim(canshu2) = '鿴' then + begin + TBAdd.Visible := False; + TBDel.Visible := False; + TBEdit.Visible := False; + end + else + begin + TBAdd.Visible := True; + TBDel.Visible := True; + TBEdit.Visible := True; + end; + ReadCxGrid('бPMD', Tv1, 'ֿ'); + //InitGrid(); +end; + +procedure TfrmSXCKOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('ɴ߳б', cxGrid2); +end; + +procedure TfrmSXCKOutList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + end; +end; + +procedure TfrmSXCKOutList.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCKOutList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text)) < 4 then + begin + if Trim(SPID.Text) <> '' then + Exit; + end; + TBFind.Click; +end; + +procedure TfrmSXCKOutList.SPIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SPID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmSXCKOutList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmSXCKOutList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmSXCKOutList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString) <> '' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Application.MessageBox('г¼ɾ!', 'ʾ', 0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and status>=''1'' '); + Open; + if not IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտˣɾ!', 'ʾ', 0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + sql.Add(' Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCKGQty=(select sum(isnull(kgQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID=''' + Trim(CDS_Main.fieldbyname('FZSPID').AsString) + ''''); + if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ƽƳ' then + begin + sql.Add(' delete CK_SXPB_CR where isnull(PYID,'''')=''' + Trim(CDS_Main.fieldbyname('PYID').AsString) + ''''); + end; + if Trim(CDS_Main.fieldbyname('CRType').AsString) = '۳' then + begin + sql.Add('delete from YF_Money_CR where mainID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + end; + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!', 'ʾ', 0); + end; + end; + CDS_Main.Delete; +end; + +procedure TfrmSXCKOutList.TBAddClick(Sender: TObject); +begin + try + frmSXCKOutPut := TfrmSXCKOutPut.Create(Application); + with frmSXCKOutPut do + begin + FBCId := ''; + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKOutPut.Free; + end; +end; + +procedure TfrmSXCKOutList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Application.MessageBox('г¼޸!', 'ʾ', 0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and status>=''1'' '); + Open; + if not IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտˣ޸!', 'ʾ', 0); + Exit; + end; + end; + + try + frmSXCKOutPut := TfrmSXCKOutPut.Create(Application); + with frmSXCKOutPut do + begin + FBCId := Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible := False; + TBAdd.Visible := False; + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXCKOutPut.Free; + end; + +end; + +procedure TfrmSXCKOutList.SPColorChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.dfm new file mode 100644 index 0000000..e62ea18 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.dfm @@ -0,0 +1,959 @@ +object frmSXCKOutListDBCK: TfrmSXCKOutListDBCK + Left = 449 + Top = 336 + Width = 1222 + Height = 738 + Caption = #22383#24067#21040#36135#20449#24687 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1206 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object tchk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #30830#35748#23436#25104 + ImageIndex = 75 + OnClick = tchkClick + end + object Tnochk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + Enabled = False + ImageIndex = 84 + OnClick = TnochkClick + end + object Tth: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #36864#36135 + ImageIndex = 52 + Visible = False + OnClick = TthClick + end + object ToolButton1: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 741 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1206 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #30331#35760#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 271 + Top = 22 + Width = 52 + Height = 12 + Caption = #20219#21153#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 420 + Top = 22 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 572 + Top = 22 + Width = 26 + Height = 12 + Caption = #35268#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 704 + Top = 22 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 836 + Top = 22 + Width = 52 + Height = 12 + Caption = #21040#36135#22320#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 167 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 329 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 600 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 732 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 892 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 107 + Width = 1206 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1206 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Price + end + item + Kind = skSum + Column = v1Money + end + item + Kind = skSum + Column = v1Qty1 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1T_money + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + Column = v1Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 20 + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell + object v1OrderNo: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 65 + end + object v1Column8: TcxGridDBColumn + Caption = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'fromConNo' + Options.Editing = False + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 58 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 66 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 83 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'T_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 47 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 57 + end + object v1Money: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column11: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'T_Ps' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1T_money: TcxGridDBColumn + Caption = #36864#36135#37329#39069 + DataBinding.FieldName = 'T_money' + Visible = False + Options.Editing = False + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 101 + end + object v1Column12: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_Ps' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #23454#38469#32553#29575'(%)' + DataBinding.FieldName = 'Srate' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = ',0.##%;-,0.##' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 80 + end + object v1Column22: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'J_PS' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'J_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'editer' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column21: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'editTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column1: TcxGridDBColumn + Caption = #25104#21697#21697#21517 + DataBinding.FieldName = 'CP_CodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column2: TcxGridDBColumn + Caption = #20986#21040#20179#24211 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Width = 66 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 85 + Width = 1206 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 1 + Properties.Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1206 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 1096 + Top = 8 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1112 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 880 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 920 + Top = 224 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 416 + Top = 248 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 680 + Top = 32 + end + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svColor] + Color = clInactiveCaption + end + object cxStyle2: TcxStyle + AssignedValues = [svColor, svTextColor] + Color = 4707838 + TextColor = clBtnText + end + object cxStyle_gridRow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16311512 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridGroupBox: TcxStyle + AssignedValues = [svColor, svFont] + Color = clMoneyGreen + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_yellow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle_Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clFuchsia + end + object cxStyle_fontclPurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object cxStyle_fontclGreen: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clGreen + end + object cxStyle_fontclBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle_fontclTeal: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + TextColor = clTeal + end + object cxStyle_fontclOlive: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + TextColor = clOlive + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas new file mode 100644 index 0000000..c9aa585 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas @@ -0,0 +1,1046 @@ +unit U_SXCKOutListDBCK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, cxCheckBox, + cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxBarBuiltInMenu; + +type + TfrmSXCKOutListDBCK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1Money: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1T_money: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle_gridRow: TcxStyle; + cxStyle_gridFoot: TcxStyle; + cxStyle_gridHead: TcxStyle; + cxStyle_gridGroupBox: TcxStyle; + cxStyle_yellow: TcxStyle; + cxStyle_Red: TcxStyle; + cxStyle_fontBlack: TcxStyle; + cxStyle_fontclFuchsia: TcxStyle; + cxStyle_fontclPurple: TcxStyle; + cxStyle_fontclGreen: TcxStyle; + cxStyle_fontclBlue: TcxStyle; + cxStyle_fontclTeal: TcxStyle; + cxStyle_fontclOlive: TcxStyle; + ToolButton1: TToolButton; + Tth: TToolButton; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + Tnochk: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure TthClick(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure cxTabControl1Change(Sender: TObject); + private + FInt, PFInt: Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + fDParameters1: string; + { Public declarations } + end; + +var + frmSXCKOutListDBCK: TfrmSXCKOutListDBCK; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmSXCKOutListDBCK.FormDestroy(Sender: TObject); +begin + frmSXCKOutListDBCK := nil; +end; + +procedure TfrmSXCKOutListDBCK.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmSXCKOutListDBCK.FormCreate(Sender: TObject); +begin + ScrollBox1.Align := alClient; +end; + +procedure TfrmSXCKOutListDBCK.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption, Tv1, 'ָʾ'); +end; + +procedure TfrmSXCKOutListDBCK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_Get_Contract_copy1'); + sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' '); + sql.Add(',@conType='''' '); + sql.Add(',@status=''' + inttostr(cxTabControl1.TabIndex) + ''' '); +// ShowMessage(SQL.text); + { sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.FillTime>= '''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); + sql.Add('and A.FillTime< '''+Trim(FormatDateTime('yyyy-MM-dd',endDate.DateTime+1))+''' '); + sql.Add('and A.conType='''' '); + IF cxTabControl1.TabIndex<2 then + sql.Add('and isnull(B.C_status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''' '); } + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmSXCKOutListDBCK.InitForm(); +begin + if fDParameters1 = 'ѯ' then + begin + TBADD.Visible := false; + // TBEdit.Visible:=false; + TBDel.Visible := false; + // Tchk.Visible:=false; + // TNochk.Visible:=false; + Tth.Visible := false; + v1Price.Visible := false; + v1Price.Hidden := true; + v1money.Visible := false; + v1money.Hidden := true; + v1T_money.Visible := false; + v1T_money.Hidden := true; + ToolButton1.Visible := false; + end; + + TBEdit.Enabled := false; + TBDel.Enabled := false; + Tchk.Enabled := false; + TNochk.Enabled := false; + Tth.Enabled := false; + if cxTabControl1.TabIndex = 0 then + begin + TBEdit.Enabled := true; + TBDel.Enabled := true; + Tchk.Enabled := true; + Tth.Enabled := true; + end; + if cxTabControl1.TabIndex = 1 then + begin + TNochk.Enabled := true; + end; + InitGrid(); +end; + +procedure TfrmSXCKOutListDBCK.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +procedure TfrmSXCKOutListDBCK.TBEditClick(Sender: TObject); +var + i: integer; +begin + if Order_Main.IsEmpty then + Exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select YFID from YF_money_CR '); + sql.Add('where mainID=''' + trim(Order_Main.FieldByName('mainID').AsString) + ''' '); + sql.Add('and status>0 '); + open; + if not IsEmpty then + begin + application.MessageBox('ˣ޸ģ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; +// try +// frmClothContractInPut:=TfrmClothContractInPut.Create(Application); +// with frmClothContractInPut do +// begin +// if trim(fDParameters1)='ѯ' then +// begin +// frmClothContractInPut.Caption:='Ϣѯ'; +// v1Money.Visible:=false; +// v1Price.Visible:=false; +// v1Money.Hidden:=true; +// v1Price.Hidden:=true; +// v1T_money.Visible:=false; +// v1T_money.Hidden:=true; +// v1T_price.Visible:=false; +// v1T_price.Hidden:=true; +// ScrollBox1.Enabled:=false; +// for i:=0 to tv1.ColumnCount -1 do +// begin +// tv1.Columns[i].Options.Editing:=false; +// end; +// v1Mrate.Options.Editing:=true; +// ToolBar2.Enabled:=false; +// end; +// PState:=1; +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// if ShowModal=1 then +// begin +// // TBRafresh.Click; +// end; +// end; +// finally +// frmClothContractInPut.Free; +// TBRafresh.Click; +// end; +end; + +procedure TfrmSXCKOutListDBCK.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select YFID from YF_money_CR '); + sql.Add('where mainID=''' + trim(Order_Main.FieldByName('mainID').AsString) + ''' '); + sql.Add('and status>0 '); + open; + if not IsEmpty then + begin + application.MessageBox('ˣɾ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if trim(Order_Main.FieldByName('mainID').AsString) = 'CM001' then + exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmSXCKOutListDBCK.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID=''' + Trim(Order_Main.fieldbyname('MainID').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + // sql.Add(' where CRID='+CRID); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmSXCKOutListDBCK.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('ͬб', cxGrid1); +end; + +procedure TfrmSXCKOutListDBCK.TBPrintClick(Sender: TObject); +var + fPrintFile, FConNoM: string; +begin + if Order_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\.rmf'; + with ADOQueryTemp do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.FillTime>= ''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add('and A.FillTime< ''' + Trim(FormatDateTime('yyyy-MM-dd', endDate.DateTime + 1)) + ''' '); + sql.Add('and A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + if FileExists(fPrintFile) then + begin + RMVariables['dtxz'] := formatdateTime('yyyy-MM-dd', Now); + RMVariables['zdr'] := Trim(dName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\.rmf'), 'ʾ', 0); + end; + +end; + +procedure TfrmSXCKOutListDBCK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXCKOutListDBCK.TBAddClick(Sender: TObject); +var + i: integer; +begin +// try +// frmClothContractInPut:=TfrmClothContractInPut.Create(Application); +// with frmClothContractInPut do +// begin +// if trim(fDParameters1)='ѯ' then +// begin +// frmClothContractInPut.Caption:='Ϣѯ'; +// v1Money.Visible:=false; +// v1Price.Visible:=false; +// v1Money.Hidden:=true; +// v1Price.Hidden:=true; +// v1T_money.Visible:=false; +// v1T_money.Hidden:=true; +// ScrollBox1.Enabled:=false; +// for i:=0 to tv1.ColumnCount -2 do +// begin +// tv1.Columns[i].Options.Editing:=false; +// end; +// v1Mrate.Options.Editing:=true; +// ToolBar2.Enabled:=false; +// end; +// PState:=0; +// FMainId:=''; +// if ShowModal=1 then +// begin +// +// end; +// end; +// finally +// frmClothContractInPut.Free; +// TBRafresh.Click; +// end; +end; + +procedure TfrmSXCKOutListDBCK.ConNoChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +procedure TfrmSXCKOutListDBCK.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption, Tv1, 'ָʾ'); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + initForm(); + +end; + +procedure TfrmSXCKOutListDBCK.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 2; +end; + +procedure TfrmSXCKOutListDBCK.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 1; +end; + +procedure TfrmSXCKOutListDBCK.ToolButton5Click(Sender: TObject); +var + maxno: string; +begin + if ClientDataSet3.IsEmpty then + Exit; + if ClientDataSet2.IsEmpty then + Exit; + if Trim(ClientDataSet2.fieldbyname('MXId').AsString) = '' then + begin + Application.MessageBox('δȷ', 'ʾ', 0); + Exit; + end; + if ClientDataSet3.Locate('OrderNo', null, []) then + begin + Application.MessageBox('ָŲΪգ', 'ʾ', 0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString) = '' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'To', 'Contract_Sub_MxTo', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(ClientDataSet3.fieldbyname('ToId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MxTo where ToId=''' + Trim(ClientDataSet3.fieldbyname('ToId').AsString) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString) = '' then + Append + else + Edit; + FieldByName('MxId').Value := Trim(ClientDataSet2.fieldbyname('MxId').AsString); + FieldByName('ToId').Value := Trim(maxno); + FieldByName('OrdSubId').Value := Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + FieldByName('TPDate').Value := ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPPerson').Value := ClientDataSet3.fieldbyname('TPPerson').Value; + FieldByName('TPNote').Value := ClientDataSet3.fieldbyname('TPNote').Value; + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString) <> '' then + FieldByName('TPQty').Value := ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value := 0; + if Trim(ClientDataSet3.fieldbyname('Qty1').AsString) <> '' then + FieldByName('Qty1').Value := ClientDataSet3.fieldbyname('Qty1').Value + else + FieldByName('Qty1').Value := 0; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString) <> '' then + FieldByName('Qty2').Value := ClientDataSet3.fieldbyname('Qty2').Value + else + FieldByName('Qty2').Value := 0; + if Trim(ClientDataSet3.fieldbyname('Qty3').AsString) <> '' then + FieldByName('Qty3').Value := ClientDataSet3.fieldbyname('Qty3').Value + else + FieldByName('Qty3').Value := 0; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('ToId').Value := Trim(maxno); + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ', 'ʾ', 0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣', 'ʾ', 0); + end; +end; + +procedure TfrmSXCKOutListDBCK.ToolButton3Click(Sender: TObject); +begin + if FInt = 2 then + begin + if ClientDataSet2.IsEmpty then + Exit; + if ClientDataSet3.IsEmpty = false then + begin + Application.MessageBox('Ѳݣɾ¼', 'ʾ', 0); + Exit; + end; + if Trim(ClientDataSet2.fieldbyname('MxId').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_Mx where MxId=''' + Trim(ClientDataSet2.fieldbyname('MxId').AsString) + ''''); + ExecSQL; + end; + ClientDataSet2.Delete; + end + else if FInt = 3 then + begin + if ClientDataSet3.IsEmpty then + Exit; + if Trim(ClientDataSet3.fieldbyname('ToId').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_MxTo where ToId=''' + Trim(ClientDataSet3.fieldbyname('ToId').AsString) + ''''); + ExecSQL; + end; + ClientDataSet3.Delete; + with ClientDataSet2 do + begin + Edit; + if ClientDataSet3.IsEmpty = False then + // FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value-tv3.DataController.Summary.FooterSummaryValues[0] + + else + FieldByName('KCSL').Value := ClientDataSet2.fieldbyname('MxQty').Value; + Post; + end; + end; +end; + +procedure TfrmSXCKOutListDBCK.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'RKPlace'; + flagname := 'ص'; + if ShowModal = 1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKOutListDBCK.conPress(Sender: TObject; var Key: Char); +begin + { if Key=#13 then + begin + if Length(Trim(ConNoM.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmSXCKOutListDBCK.ToolButton1Click(Sender: TObject); +begin +// if Order_Main.IsEmpty then Exit; +// try +// frmClothContractInPut:=TfrmClothContractInPut.Create(Application); +// with frmClothContractInPut do +// begin +// PState:=3; +// TBSave.Enabled:=false; +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// if ShowModal=1 then +// begin +// +// end; +// end; +// finally +// frmClothContractInPut.Free; +// end; +end; + +procedure TfrmSXCKOutListDBCK.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton1.Click; +end; + +procedure TfrmSXCKOutListDBCK.TthClick(Sender: TObject); +begin +// if Order_Main.IsEmpty then Exit; +// try +// frmClothContractInPut:=TfrmClothContractInPut.Create(Application); +// with frmClothContractInPut do +// begin +// Caption:='˻'; +// PState:=1; +// v1T_money.Visible:=true; +// v1T_ps.Visible:=true; +// v1T_Qty.Visible:=true; +// v1T_Price.Visible:=true; +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// if ShowModal=1 then +// begin +// TBRafresh.Click; +// end; +// end; +// finally +// frmClothContractInPut.Free; +// TBRafresh.Click; +// end; +end; + +procedure TfrmSXCKOutListDBCK.tchkClick(Sender: TObject); +var + maxno: string; +begin +// IF Order_Main.IsEmpty then exit; + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + + if GetLSNo(ADOQueryCmd, maxno, 'DB', 'CK_SXPB_CR', 4, 1) = False then + begin + Application.MessageBox('ȡⵥʧ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; +// FieldByName('SPID').Value := CRID; + FieldByName('SPID').Value := Trim(maxno); + FieldByName('FZSPID').Value := Trim(maxno); + FieldByName('CRTime').Value := FormatDateTime('yyyy-MM-dd', SGetServerDateTime(ADOQueryTemp)); + FieldByName('CRType').Value := ''; + FieldByName('FactoryName').Value := Trim(Order_Main.fieldbyname('JHPlace').AsString); + FieldByName('ToFactoryName').Value := Trim(Order_Main.fieldbyname('ToFactoryName').AsString); +// FieldByName('C_Code').Value := Trim(Order_Main.fieldbyname('C_Code').AsString); + + FieldByName('mainid').Value := Order_Main.fieldbyname('mainid').AsString; + FieldByName('subid').Value := Trim(Order_Main.fieldbyname('subid').AsString); + FieldByName('SPCode').Value := Trim(Order_Main.fieldbyname('C_Code').AsString); + FieldByName('SPName').Value := Trim(Order_Main.fieldbyname('C_CodeName').AsString); + FieldByName('SPSpec').Value := Trim(Order_Main.fieldbyname('C_Spec').AsString); +// FieldByName('SPCF').Value := Trim(Order_Main.fieldbyname(' ').AsString); + FieldByName('SPMF').Value := Trim(Order_Main.fieldbyname('MF').AsString); + FieldByName('SPKZ').Value := Trim(Order_Main.fieldbyname('KZ').AsString); + + FieldByName('PiQty').Value := Order_Main.fieldbyname('Qty1').Value; + FieldByName('Qty').Value := Order_Main.fieldbyname('T_Qty').Value; + FieldByName('QtyUnit').Value := Order_Main.fieldbyname('C_Unit').Value; + + FieldByName('MXKCQty').Value := Order_Main.fieldbyname('T_Qty').Value; + FieldByName('MXKCPiQty').Value := Order_Main.fieldbyname('Qty1').Value; + FieldByName('MXKCKGQty').Value := Order_Main.fieldbyname('T_Qty').Value; + + FieldByName('Price').Value := Order_Main.fieldbyname('Price').Value; + FieldByName('Money').Value := Order_Main.fieldbyname('Money').Value; + FieldByName('CKName').Value := ''; + FieldByName('CRFlag').Value := ''; + FieldByName('CRQtyFlag').Value := 1; + FieldByName('Note').Value := Order_Main.fieldbyname('C_Note').Value; +// fieldbyname('kcKw').Value := GetKw(ADOQueryTemp, Order_Main.fieldbyname('C_CodeName').AsString, Order_Main.fieldbyname('PRTColor').AsString); + Post; + end; +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); +// sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); +// sql.Add(',MXKCKGQty=(select sum(isnull(kgQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); +// sql.Add(' where SPID=''' + Trim(maxno) + ''''); +// ShowMessage(SQL.text); +// ExecSQL; +// end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Main SET status=''1'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); +// sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; + + + +// try +// frmClothContractInPut:=TfrmClothContractInPut.Create(Application); +// with frmClothContractInPut do +// begin +// PState:=1; +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// if ShowModal=1 then +// begin +// with self.ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update Contract_sub SET C_status=''1'' '); +// sql.Add('where mainID ='+quotedstr(trim(self.Order_Main.fieldbyname('mainID').AsString))); +// sql.Add('and subID ='+quotedstr(trim(self.Order_Main.fieldbyname('subID').AsString))); +// execsql; +// end; +// self.InitGrid(); +// end +// else +// begin +// end; +// end; +// finally +// frmClothContractInPut.Free; +// // TBRafresh.Click; +// end; + { if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + + + +{ with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_sub SET C_status=''1'' '); + sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; } +end; + +procedure TfrmSXCKOutListDBCK.TnochkClick(Sender: TObject); +begin +// if Order_Main.IsEmpty then +// exit; + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; +// try +// ADOQueryCmd.Connection.BeginTrans; +// with ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update Contract_main SET status=''0'' '); +// sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); +//// sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); +// execsql; +// end; + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Main SET status=''0'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); +// sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_SXPB_CR'); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + ExecSQL; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); +// ADOQueryCmd.Connection.CommitTrans; +// except +// ADOQueryCmd.Connection.RollbackTrans; +// application.MessageBox('ʧܣ', 'ʾϢ', 0); +// end; +end; + +procedure TfrmSXCKOutListDBCK.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); +var + FValue: string; + FBounds: TRect; +begin + FBounds := AViewInfo.Bounds; + if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then + begin + ACanvas.FillRect(FBounds); + ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1); + FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); + InflateRect(FBounds, -1, -1); + ACanvas.Font.Color := clBlack; + ACanvas.Brush.Style := bsClear; + ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop); + ADone := True; + end; +end; + +procedure TfrmSXCKOutListDBCK.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('H_PS').Index] >= AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Qty1').Index] then + begin + ACanvas.Brush.Color := clSkyBlue; + end; +end; + +procedure TfrmSXCKOutListDBCK.cxTabControl1Change(Sender: TObject); +begin + initForm(); +end; + +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm new file mode 100644 index 0000000..515ce24 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm @@ -0,0 +1,338 @@ +object frmSXCKOutPut: TfrmSXCKOutPut + Left = 110 + Top = 129 + Width = 1215 + Height = 502 + Align = alClient + Caption = #22383#24067#20986#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1199 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1199 + Height = 430 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1CRType: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #36864#36135#20986#24211 + #38144#21806#20986#24211 + #35843#25320#20986#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378'/'#23458#25143 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPcolor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 496 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 432 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas new file mode 100644 index 0000000..d017c8e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas @@ -0,0 +1,899 @@ +unit U_SXCKOutPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +type + TfrmSXCKOutPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CRType: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v1Column17: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure v1Column21PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + { Private declarations } + function SaveCKData(): Boolean; + function YSData(): Boolean; + function FYFData(): Boolean; + public + { Public declarations } + FBCId: string; + end; + +var + frmSXCKOutPut: TfrmSXCKOutPut; + +implementation + +uses + U_DataLink, U_RTFun, U_ClothContractListHZCX, U_ZDYHelp, U_SXCKKCSelList, + U_GYSSelList, U_ZdyAttachGYS, U_ProductOrderListSel, U_ZdyAttachment, + U_ZdyAttachCP; + +{$R *.dfm} +function TfrmSXCKOutPut.FYFData(): Boolean; +var + CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou, cust: string; +begin + Result := False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString) + ''' '); + Open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + CRID := ADOQueryTemp.fieldbyname('CRID').AsString; + end + else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID := ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('FactoryName').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where mainID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName=''˻'' '); + Open; + end; + + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd, YFID, 'CS', 'YF_Money_CR', 3, 1) = False then + begin + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRType').Value := 'ӦǼ'; + FieldByName('CRFlag').Value := 'Ӧ'; + FieldByName('QtyFlag').Value := 1; + FieldByName('FactoryName').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', CDS_Sub.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value := 'Զ'; + FieldByName('ps').Value :=-1 * CDS_Sub.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value :=-1 * CDS_Sub.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value := 0; + FieldByName('Money').Value := 0; + FieldByName('BBMoney').Value := 0; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := 'RMB'; + FieldByName('QtyUnit').Value := Trim(CDS_Sub.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('YFName').Value := '˻'; + FieldByName('MainId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('subID').Value := ''; + FieldByName('P_CodeName').Value := Trim(CDS_Sub.fieldbyname('SPName').AsString); + // FieldByName('P_Spec').Value:=Trim(CDS_Sub.fieldbyname('SPSpec').AsString); + FieldByName('P_Color').Value := Trim(CDS_Sub.fieldbyname('PRTColor').AsString); + FieldByName('SYRName').Value := '𻪷֯'; + FieldByName('status').Value := '0'; + Post; + end; + end + else + begin + YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + Result := True; +end; + +function TfrmSXCKOutPut.YSData(): Boolean; +var + CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou, cust: string; +begin + Result := False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString) + ''' '); + Open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + CRID := ADOQueryTemp.fieldbyname('CRID').AsString; + end + else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID := ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('FactoryName').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where mainID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName='''' '); + Open; + end; + + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd, YFID, 'CS', 'YF_Money_CR', 3, 1) = False then + begin + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRType').Value := 'ӦտǼ'; + FieldByName('CRFlag').Value := 'Ӧ'; + FieldByName('QtyFlag').Value := 1; + FieldByName('FactoryName').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', CDS_Sub.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value := 'Զ'; + FieldByName('ps').Value := CDS_Sub.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value := CDS_Sub.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value := 0; + FieldByName('Money').Value := 0; + FieldByName('BBMoney').Value := 0; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := 'RMB'; + FieldByName('QtyUnit').Value := Trim(CDS_Sub.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('YFName').Value := ''; + FieldByName('MainId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('subID').Value := ''; + FieldByName('P_CodeName').Value := Trim(CDS_Sub.fieldbyname('SPName').AsString); + // FieldByName('P_Spec').Value:=Trim(CDS_Sub.fieldbyname('SPSpec').AsString); + FieldByName('P_Color').Value := Trim(CDS_Sub.fieldbyname('PRTColor').AsString); + FieldByName('SYRName').Value := '𻪷֯'; + FieldByName('status').Value := '0'; + Post; + end; + end + else + begin + YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + Result := True; +end; + +procedure TfrmSXCKOutPut.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmSXCKOutPut.TBAddClick(Sender: TObject); +begin + try + frmSXCKKCSelList := TfrmSXCKKCSelList.Create(Application); + with frmSXCKKCSelList do + begin + ToolButton1.Visible := True; + if ShowModal = 1 then + begin + frmSXCKKCSelList.CDS_Main.DisableControls; + with frmSXCKKCSelList.CDS_Main do + begin + First; + while frmSXCKKCSelList.CDS_Main.Locate('SSel', True, []) do + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('ORDMainIdRK').Value := Trim(frmSXCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value := Trim(frmSXCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString); + FieldByName('QCOrderNo').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('FactoryName').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value; + FieldByName('SSType').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SSType').Value; + FieldByName('SPName').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPName').Value; + FieldByName('SPCode').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPCode').Value; + FieldByName('CPID').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('CPID').Value; + FieldByName('SPSpec').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value; + FieldByName('SPCF').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPKZ').Value; + FieldByName('ToFactoryName').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('ToFactoryNo').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value; + FieldByName('QtyUnit').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('PiQty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value; + FieldByName('Qty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value; + FieldByName('FZSPID').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPID').Value; + end; + frmSXCKKCSelList.CDS_Main.Delete; + end; + end; + frmSXCKKCSelList.CDS_Main.EnableControls; + + end; + end; + finally + frmSXCKKCSelList.Free; + end; +end; + +function TfrmSXCKOutPut.SaveCKData(): Boolean; +var + FCRID, Maxno, FSPID, MaxPYNo, FPYID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + Open; + end; + FSPID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FSPID) = '' then + begin + if GetLSNo(ADOQueryCmd, Maxno, 'PC', 'CK_SXPB_CR', 3, 1) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + Maxno := Trim(FSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add(' where mainID=''' + Trim(Maxno) + ''''); + sql.Add(' and YFName='''' '); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(Maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FSPID) = '' then + begin + Append; + end + else + begin + Edit; + end; + FieldByName('SPID').Value := Trim(Maxno); + FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('ORDMainIdCK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + FieldByName('FZSPID').Value := Trim(CDS_Sub.fieldbyname('FZSPID').AsString); + FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('CPID').Value := Trim(CDS_Sub.fieldbyname('CPID').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value := ''; + FieldByName('CRQtyFlag').Value := -1; + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2); + FieldByName('CKName').Value := ''; + FieldByName('xs').Value := CDS_Sub.fieldbyname('xs').AsFloat; + if Trim(CDS_Sub.fieldbyname('CRType').AsString) = 'ƽƳ' then + begin + FieldByName('PYID').Value := Trim(Maxno); + end; + if Trim(FSPID) = '' then + FieldByName('Filler').Value := Trim(DName) + else + begin + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCKGQty=(select sum(isnull(kgQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID=''' + Trim(CDS_Sub.fieldbyname('FZSPID').AsString) + ''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('FZSPID').AsString) + ''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value < 0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!', 'ʾ', 0); + Exit; + end; + + if Trim(CDS_Sub.fieldbyname('CRType').AsString) = 'ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where PYID=''' + Trim(Maxno) + ''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'' '); + Open; + end; + FPYID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FPYID) = '' then + begin + if GetLSNo(ADOQueryCmd, MaxPYNo, 'YR', 'CK_SXPB_CR', 3, 1) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƽʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + MaxPYNo := Trim(FPYID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(MaxPYNo) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FPYID) = '' then + begin + Append; + end + else + begin + Edit; + end; + FieldByName('SPID').Value := Trim(MaxPYNo); + FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + {FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);} + FieldByName('FZSPID').Value := Trim(MaxPYNo); + FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value := ''; + FieldByName('CRQtyFlag').Value := 1; + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2); + FieldByName('xs').Value := 0; + FieldByName('CKName').Value := ''; + FieldByName('CRType').Value := 'ƽ'; + FieldByName('PYID').Value := Trim(Maxno); + if Trim(FPYID) = '' then + FieldByName('Filler').Value := Trim(DName) + else + begin + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCKGQty=(select sum(isnull(kgQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID=''' + Trim(MaxPYNo) + ''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(MaxPYNo) + ''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value < 0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!', 'ʾ', 0); + Exit; + end; + end; + Edit; + FieldByName('SPID').Value := Trim(Maxno); + Post; + + if Trim(CDS_Sub.fieldbyname('CRType').AsString) = '۳' then + begin + if not YSData() then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + exit; + end; + end; + + if Trim(CDS_Sub.fieldbyname('CRType').AsString) = '˻' then + begin + if not FYFData() then //ɸӦ + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + exit; + end; + end; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; + +end; + +procedure TfrmSXCKOutPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ǼPMD', Tv1, 'ֿ'); + Close; +end; + +procedure TfrmSXCKOutPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ǼPMD', Tv1, 'ֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,OrderNoCK=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdCK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID=''' + Trim(FBCId) + ''''); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_Sub); + SInitCDSData20(ADOQueryTemp, CDS_Sub); +end; + +procedure TfrmSXCKOutPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then + Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Application.MessageBox('г¼ɾ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + sql.Add(' Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCKGQty=(select sum(isnull(kgQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID=''' + Trim(CDS_Sub.fieldbyname('FZSPID').AsString) + ''''); + sql.Add('delete from YF_Money_CR '); + sql.Add(' where mainID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!', 'ʾ', 0); + end; + + end; + CDS_Sub.Delete; +end; + +procedure TfrmSXCKOutPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then + Exit; + if CDS_Sub.Locate('CRTime', null, []) = True then + begin + Application.MessageBox('ʱ䲻Ϊ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('CRType', null, []) = True then + begin + Application.MessageBox('ͲΪ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('ToFactoryName', null, []) = True then + begin + Application.MessageBox('ӹΪ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('Qty', null, []) = True then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('PiQty', null, []) = True then + begin + Application.MessageBox('ƥΪ!', 'ʾ', 0); + Exit; + end; + + if SaveCKData() then + begin + Application.MessageBox('ɹ!', 'ʾ', 0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmSXCKOutPut.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmClothContractListHZCX := TfrmClothContractListHZCX.Create(Application); + with frmClothContractListHZCX do + begin + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CGConNo').Value := Trim(frmClothContractListHZCX.Order_Main.fieldbyname('ConNo').AsString); + FieldByName('CGConMainId').Value := Trim(frmClothContractListHZCX.Order_Main.fieldbyname('MainId').AsString); + FieldByName('CGConSubId').Value := Trim(frmClothContractListHZCX.Order_Main.fieldbyname('SubId').AsString); + FieldByName('FactoryName').Value := Trim(frmClothContractListHZCX.Order_Main.fieldbyname('FactoryNoName').AsString); + FieldByName('SXName').Value := Trim(frmClothContractListHZCX.Order_Main.fieldbyname('C_CodeName').AsString); + //Post; + end; + end; + end; + finally + frmClothContractListHZCX.Free; + end; +end; + +procedure TfrmSXCKOutPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + if CDS_Sub.FieldByName('CRType').AsString = '۳' then + begin + try + frmZdyAttachment := TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType := '𻪷֯'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('ToFactoryName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachment.Free; + end; + end + else + begin + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('ToFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; + end; +end; + +procedure TfrmSXCKOutPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmProductOrderListSel := TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdCK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdCK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('CKorderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmSXCKOutPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + FFSPID: string; +begin + if CDS_Sub.IsEmpty then + Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + Open; + end; + FFSPID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID) <> '' then + begin + v1CRType.Options.Editing := False; + end; + end; +end; + +procedure TfrmSXCKOutPut.v1Column21PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'SYRName'; + flagname := '˾̧ͷ'; + if Trim(flag) = 'SYRName' then + begin + flag := 'OrdDefStr2'; + V1Name.Caption := ''; + V1Note.Caption := 'Ӣ'; + fnote := True; + end; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SYRName').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKOutPut.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('SPSpec').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr1').AsString); + FieldByName('SPColor').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr3').AsString); + FieldByName('SPCF').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr2').AsString); + FieldByName('SPMF').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr7').AsString); + FieldByName('SPKZ').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPKZ').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr8').AsString); + FieldByName('SPCode').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('CPID').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ATID').AsString); + end; + end; + end; + finally + frmZdyAttachCP.Free; + end; +end; + +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm new file mode 100644 index 0000000..eda73dd --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm @@ -0,0 +1,272 @@ +object frmSXCKTHPut: TfrmSXCKTHPut + Left = 123 + Top = 130 + Width = 1200 + Height = 502 + Align = alClient + Caption = #32433#32447#36864#36135 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1184 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1184 + Height = 430 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column3: TcxGridDBColumn + Tag = 2 + Caption = #21407#26009#32534#30721 + DataBinding.FieldName = 'BatchNo' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownRows = 50 + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 135 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #33394#21035 + DataBinding.FieldName = 'SeBie' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21407#26009#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #20928#37325'(Kg)' + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 113 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 512 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas new file mode 100644 index 0000000..ac7473e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas @@ -0,0 +1,354 @@ +unit U_SXCKTHPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, cxSpinEdit; + +type + TfrmSXCKTHPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmSXCKTHPut: TfrmSXCKTHPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp,U_SXCKKCSelList; + +{$R *.dfm} + +procedure TfrmSXCKTHPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCKTHPut.TBAddClick(Sender: TObject); +begin + try + frmSXCKKCSelList:=TfrmSXCKKCSelList.Create(Application); + with frmSXCKKCSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + FieldByName('CGMainId').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('CGMainId').Value; + FieldByName('CGSubId').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('CGSubId').Value; + FieldByName('FactoryName').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPName').Value; + FieldByName('BatchNo').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('BatchNo').Value; + FieldByName('KuWei').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('KuWei').Value; + FieldByName('SPCF').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPCF').Value; + FieldByName('ShaZhi').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('ShaZhi').Value; + FieldByName('SeBie').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SeBie').Value; + FieldByName('PiQty').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value; + FieldByName('KgQty').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCKgQty').Value; + FieldByName('CRID').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('CRID').Value; + FieldByName('FZSPID').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('SPID').Value; + FieldByName('Price').Value:=frmSXCKKCSelList.CDS_Main.fieldbyname('Price').Value; + end; + end; + end; + finally + frmSXCKKCSelList.Free; + end; +end; +function TfrmSXCKTHPut.SaveCKData():Boolean; +var + FCRID,Maxno:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'ST','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ˻ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('SPID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + begin + Append; + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then Edit else Append; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('CGMainId').Value:=Trim(CDS_Sub.fieldbyname('CGMainId').AsString); + FieldByName('CGSubId').Value:=Trim(CDS_Sub.fieldbyname('CGSubId').AsString); + FieldByName('FZSPID').Value:=Trim(CDS_Sub.fieldbyname('FZSPID').AsString); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('Price').Value:=CDS_Sub.fieldbyname('Price').Value; + FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=-1; + FieldByName('CRType').Value:='˻'; + FieldByName('CKName').Value:='ɴ'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + if Trim(CDS_Sub.fieldbyname('SPID').AsString)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end else + begin + FieldByName('Filler').Value:=Trim(DName); + end; + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(KGQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+CDS_Sub.fieldbyname('CRID').AsString); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˻ڿ湫ܱ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCKgQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˻ڿܱ!','ʾ',0); + Exit; + end; + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmSXCKTHPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ˻Ǽ',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXCKTHPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ˻Ǽ',Tv1,'ɴֿ߲'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmSXCKTHPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('Update CK_SXPB_CR Set MXKCKgQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(KGQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(PiQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end; + CDS_Sub.Delete; +end; + +procedure TfrmSXCKTHPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('KGQty',null,[])=True then + begin + Application.MessageBox('زΪ!','ʾ',0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmSXCKTHPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmClothContractListHZCX:=TfrmClothContractListHZCX.Create(Application); + with frmClothContractListHZCX do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CGConNo').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('ConNo').AsString); + FieldByName('CGConMainId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('MainId').AsString); + FieldByName('CGConSubId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('SubId').AsString); + FieldByName('FactoryName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('FactoryNoName').AsString); + FieldByName('SXName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('C_CodeName').AsString); + //Post; + end; + end; + end; + finally + frmClothContractListHZCX.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCRKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCRKList.dfm new file mode 100644 index 0000000..be84270 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCRKList.dfm @@ -0,0 +1,604 @@ +object frmSXCRKList: TfrmSXCRKList + Left = 14 + Top = 141 + Width = 1335 + Height = 511 + Caption = #22383#24067#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1319 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1319 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 515 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 728 + Top = 12 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 234 + Top = 12 + Width = 60 + Height = 12 + Caption = #20986#20837#24211#21333#21495 + end + object Label8: TLabel + Left = 515 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 235 + Top = 36 + Width = 60 + Height = 12 + Caption = #20986#20837#24211#31867#22411 + end + object Label6: TLabel + Left = 728 + Top = 36 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 760 + Top = 152 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 380 + Top = 152 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label10: TLabel + Left = 592 + Top = 148 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object Label11: TLabel + Left = 592 + Top = 172 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 542 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 788 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 300 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + end + object SPSpec: TEdit + Tag = 2 + Left = 542 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 788 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 809 + Top = 148 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 429 + Top = 148 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #33258#24049 + #23458#25143 + '') + end + object SPCode: TEdit + Tag = 2 + Left = 641 + Top = 144 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 641 + Top = 168 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object CRType: TEdit + Tag = 2 + Left = 300 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = SPIDChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1319 + Height = 380 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20986#20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v1Column17: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty10' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty10' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column4: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column1: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 120 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 1184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1228 + Top = 65520 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1112 + Top = 65520 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 928 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 896 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 864 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCRKList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCRKList.pas new file mode 100644 index 0000000..7ac5a8c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCRKList.pas @@ -0,0 +1,240 @@ +unit U_SXCRKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmSXCRKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + SSType: TComboBox; + v1Column17: TcxGridDBColumn; + Label10: TLabel; + SPCode: TEdit; + Label11: TLabel; + ToFactoryName: TEdit; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + CRType: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + canshu1,canshu2,canshu3:string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXCRKList: TfrmSXCRKList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmSXCRKList.FormDestroy(Sender: TObject); +begin + frmSXCRKList:=nil; +end; + +procedure TfrmSXCRKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCRKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + canshu3:=Trim(DParameters3); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_SXPB_CR SET MXKCQty=(select SUM(CRQtyFlag*Qty) from CK_SXPB_CR X where X.FZSPID=CK_SXPB_CR.FZSPID and X.Filltime<=CK_SXPB_CR.Filltime ), '); + sql.Add('MXKCPiQty=(select SUM(CRQtyFlag*PiQty) from CK_SXPB_CR X where X.FZSPID=CK_SXPB_CR.FZSPID and X.Filltime<=CK_SXPB_CR.Filltime ) '); + sql.Add('where CKName='''' and CRFlag='''' '); + execsql; + //ShowMessage(SQL.Text); + end; +end; + +procedure TfrmSXCRKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add(' select A.*,piQty10=CRQtyFlag*PiQty,Qty10=CRQtyFlag*Qty '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')='''''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCRKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXCRKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXCRKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'ֿ'); + Close; +end; + +procedure TfrmSXCRKList.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv1,'ֿ'); + + //InitGrid(); +end; + +procedure TfrmSXCRKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmSXCRKList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXCRKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXCRKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXCRKList.SPIDChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCRKList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCRKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.dfm new file mode 100644 index 0000000..802956f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.dfm @@ -0,0 +1,240 @@ +object frmSXDZInPut: TfrmSXDZInPut + Left = 224 + Top = 101 + Width = 1293 + Height = 502 + Align = alClient + Caption = #32433#32447#23545#36134#24405#20837 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1277 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327'(Kg)' + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 132 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1277 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + Caption = #30721#21333#20449#24687 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.pas new file mode 100644 index 0000000..36d5db4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZInPut.pas @@ -0,0 +1,347 @@ +unit U_SXDZInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmSXDZInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmSXDZInPut: TfrmSXDZInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList,U_SXDZViewSCList; + +{$R *.dfm} + +procedure TfrmSXDZInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXDZInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmSXDZInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FDZID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'SX','JYOrder_Main_MD_DuiZhang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ߶˱ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang'); + sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + Open; + end; + FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString); + if Trim(FDZID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('DZID').Value:=Trim(Maxno); + FieldByName('DZType').Value:='ɴ'; + FieldByName('Status').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2); + Post; + end; + Edit; + FieldByName('DZID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmSXDZInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߶¼',Tv1,''); + Close; +end; + +procedure TfrmSXDZInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߶¼',Tv1,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where DZID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmSXDZInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + sql.Add(' and isnull(Status,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmSXDZInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('DZDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('MPRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Price',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmSXDZInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmSXDZInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXPBName'; + flagname:='ɴ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXDZInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName(FName).Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + FPrice:=CDS_Sub.fieldbyname('Price').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with CDS_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + //Post; + end; +end; + +procedure TfrmSXDZInPut.ToolButton1Click(Sender: TObject); +begin + try + frmSXDZViewSCList:=TfrmSXDZViewSCList.Create(Application); + with frmSXDZViewSCList do + begin + if ShowModal=1 then + begin + + end; + end; + finally + frmSXDZViewSCList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXDZList.dfm new file mode 100644 index 0000000..143685e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZList.dfm @@ -0,0 +1,430 @@ +object frmSXDZList: TfrmSXDZList + Left = 115 + Top = 160 + Width = 1130 + Height = 511 + Caption = #32433#32447#23545#36134#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1114 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 77 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton5: TToolButton + Left = 528 + Top = 0 + Caption = #30721#21333#20449#24687 + ImageIndex = 55 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 611 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1114 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 286 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 427 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 313 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 464 + Top = 9 + Width = 129 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 92 + Width = 1114 + Height = 380 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column9 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327'(Kg)' + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1114 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1114 + ClientRectTop = 23 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 920 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 888 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 184 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 888 + Top = 224 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXDZList.pas new file mode 100644 index 0000000..bf02ffb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZList.pas @@ -0,0 +1,612 @@ +unit U_SXDZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC; + +type + TfrmSXDZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + FactoryName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + ToolButton5: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + procedure InitGrid(); + function YFHZData(FDZID:string):Boolean; + function DelYFHZData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmSXDZList: TfrmSXDZList; + +implementation +uses + U_DataLink,U_RTFun,U_SXDZInPut,U_SXDZViewSCList; + +{$R *.dfm} + +procedure TfrmSXDZList.FormDestroy(Sender: TObject); +begin + frmSXDZList:=nil; +end; + +procedure TfrmSXDZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXDZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-15; +end; + +procedure TfrmSXDZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where isnull(DZType,'''')=''ɴ'''); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + begin + sql.Add(' and isnull(Status,'''')=''Ѷ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + end; + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(MPRTCodeName.Text)<>'' then + begin + SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXDZList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXDZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXDZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߶б',Tv1,''); + Close; +end; + +procedure TfrmSXDZList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߶б',Tv1,''); + //InitGrid(); +end; + +procedure TfrmSXDZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ɴ߶б',cxGrid1); +end; + +procedure TfrmSXDZList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXDZList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXDZList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXDZList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmSXDZList.ToolButton1Click(Sender: TObject); +begin + try + frmSXDZInPut:=TfrmSXDZInPut.Create(Application); + with frmSXDZInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXDZInPut.Free; + end; +end; + +procedure TfrmSXDZList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmSXDZInPut:=TfrmSXDZInPut.Create(Application); + with frmSXDZInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXDZInPut.Free; + end; +end; + +procedure TfrmSXDZList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXDZList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXDZList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִж˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Trim(DName); + FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Status').Value:='Ѷ'; + Post; + end; + YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString)); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmSXDZList.YFHZData(FDZID:string):Boolean; +var + CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''''); + Open; + end; + CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString); + CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'SX','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡɴӦʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(MaxNo); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + + {if Trim(CDS_Main.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=CDS_Main.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end;} + //FieldByName('CRTime').Value:=CDS_Main.fieldbyname('DZDate').Value; + //FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + //FieldByName('Price').Value:=CDS_Main.fieldbyname('Price').Value; + //FieldByName('Money').Value:=CDS_Main.fieldbyname('Money').Value; + //FieldByName('BBMoney').Value:=CDS_Main.fieldbyname('Money').Value; + //FieldByName('CPName').Value:=Trim(CDS_Main.fieldbyname('MPRTCodeName').AsString); + FieldByName('QtyUnit').Value:='Kg'; + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:='ɴ'; + //FieldByName('PSName').Value:='ɴ'; + FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(' where YFID='''+Trim(MaxNo)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+''''); + sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmSXDZList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where '); + sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where CRID='+CRID); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + + Result:=True; +end; +procedure TfrmSXDZList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Null; + FieldByName('DuiZhangTime').Value:=Null; + FieldByName('Status').Value:=''; + Post; + end; + DelYFHZData(); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmSXDZList.ToolButton5Click(Sender: TObject); +begin + try + frmSXDZViewSCList:=TfrmSXDZViewSCList.Create(Application); + with frmSXDZViewSCList do + begin + if ShowModal=1 then + begin + + end; + end; + finally + frmSXDZViewSCList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.dfm new file mode 100644 index 0000000..efbf1ae --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.dfm @@ -0,0 +1,399 @@ +object frmSXDZViewSCList: TfrmSXDZViewSCList + Left = 153 + Top = 59 + Width = 956 + Height = 650 + Caption = #32433#32447#23545#36134#20449#24687#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 940 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 940 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 352 + Top = 36 + Width = 36 + Height = 12 + Caption = #21697' '#21517 + end + object Label4: TLabel + Left = 352 + Top = 12 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #30721#21333#32534#21495 + end + object Label7: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #21512' '#21516' '#21495 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 390 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 389 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SXID: TEdit + Tag = 2 + Left = 228 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SXIDChange + OnKeyPress = SXIDKeyPress + end + object ConNo: TEdit + Tag = 2 + Left = 228 + Top = 32 + Width = 108 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 92 + Width = 940 + Height = 519 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 103 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column3: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v2Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 94 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 104 + end + object v1Column5: TcxGridDBColumn + Caption = #20214'/'#31665#25968 + DataBinding.FieldName = 'PiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20928#37325'(Kg)' + DataBinding.FieldName = 'KGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v1Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column1: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 115 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 992 + Top = 64 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 72 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1032 + Top = 56 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.pas new file mode 100644 index 0000000..95d037f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXDZViewSCList.pas @@ -0,0 +1,246 @@ +unit U_SXDZViewSCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar; + +type + TfrmSXDZViewSCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SXID: TEdit; + v1Column6: TcxGridDBColumn; + Label7: TLabel; + ConNo: TEdit; + v1Column9: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXIDKeyPress(Sender: TObject; var Key: Char); + procedure SXIDChange(Sender: TObject); + procedure BatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXDZViewSCList: TfrmSXDZViewSCList; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmSXDZViewSCList.FormDestroy(Sender: TObject); +begin + frmSXDZViewSCList:=nil; +end; + +procedure TfrmSXDZViewSCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXDZViewSCList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=SGetServerDateMBeg(ADOQueryTemp); +end; + +procedure TfrmSXDZViewSCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.CRTime,A.SPID,A.FactoryName,A.FactoryNo,A.SPName,A.PiQty,A.KGQty,A.Price,A.Note '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId),Money=Cast(Price*KGQty as decimal(18,2))'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')=''ɴ'''); + SQL.Add(' and CRFlag='''' '); + sql.Add(' union all'); + sql.Add(' select CRTime=A.MDDate,SPID=A.MDNO,A.FactoryName,A.FactoryNo,SPName=B.C_CodeName'); + sql.Add(',PiQty=A.PS,KGQty=A.Qty,Price=B.Price,Note='''',C.ConNo,Money=Cast(B.Price*A.Qty as decimal(18,2)) '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join Contract_Sub B on A.ConSubId=B.SubId'); + sql.Add(' inner join Contract_Main C on B.MainId=C.MainId'); + sql.Add(' where isnull(A.PSName,'''') in (''ɴ'',''Ⱦɴ'')'); + sql.Add(' and isnull(A.CKName,'''')='''' '); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXDZViewSCList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXDZViewSCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXDZViewSCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߶Ϣб',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXDZViewSCList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߶Ϣб',Tv1,'ɴֿ߲'); + //InitGrid(); +end; + +procedure TfrmSXDZViewSCList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ɴ߶Ϣб',cxGrid2); +end; + +procedure TfrmSXDZViewSCList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXDZViewSCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXDZViewSCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXDZViewSCList.SXIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(SXID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmSXDZViewSCList.SXIDChange(Sender: TObject); +begin + if Length(Trim(SXID.Text))<4 then + begin + if Trim(SXID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmSXDZViewSCList.BatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXDZViewSCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.dfm new file mode 100644 index 0000000..ce8b5d2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.dfm @@ -0,0 +1,233 @@ +object frmSXJGDZInPut: TfrmSXJGDZInPut + Left = 87 + Top = 104 + Width = 1293 + Height = 502 + Align = alClient + Caption = #32433#32447#21152#24037#23545#36134#24405#20837 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1277 + Height = 430 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327'(Kg)' + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 132 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1277 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.pas new file mode 100644 index 0000000..34feeeb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZInPut.pas @@ -0,0 +1,329 @@ +unit U_SXJGDZInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmSXJGDZInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmSXJGDZInPut: TfrmSXJGDZInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList; + +{$R *.dfm} + +procedure TfrmSXJGDZInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXJGDZInPut.TBAddClick(Sender: TObject); +begin + with CDS_Sub do + begin + Append; + FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; +end; +function TfrmSXJGDZInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FDZID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'SJ','JYOrder_Main_MD_DuiZhang',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡɴ߼ӹ˱ʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang'); + sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + Open; + end; + FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString); + if Trim(FDZID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('DZID').Value:=Trim(Maxno); + FieldByName('DZType').Value:='ɴ߼ӹ'; + FieldByName('Status').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2); + Post; + end; + Edit; + FieldByName('DZID').Value:=Trim(Maxno); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmSXJGDZInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߶¼',Tv1,''); + Close; +end; + +procedure TfrmSXJGDZInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߶¼',Tv1,''); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where DZID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmSXJGDZInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + sql.Add(' and isnull(Status,'''')='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ˣɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmSXJGDZInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('DZDate',null,[])=True then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('MPRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Price',null,[])=True then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmSXJGDZInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmSXJGDZInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBName'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXJGDZInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with CDS_Sub do + begin + edit; + FieldByName(FName).Value:=mvalue; + //Post; + end; + FQty:=CDS_Sub.fieldbyname('Qty').AsString; + FPrice:=CDS_Sub.fieldbyname('Price').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with CDS_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + //Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.dfm new file mode 100644 index 0000000..4fc7952 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.dfm @@ -0,0 +1,710 @@ +object frmSXJGDZList: TfrmSXJGDZList + Left = -4 + Top = 89 + Width = 1382 + Height = 580 + Caption = #32433#32447#21152#24037#23545#36134#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBRKCXClick + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 77 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 465 + Top = 0 + Caption = #23548#20986#21457#20986#32433 + ImageIndex = 68 + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 560 + Top = 0 + AutoSize = True + Caption = #23548#20986#21152#24037#24067 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 659 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1366 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + end + object Panel2: TPanel + Left = 0 + Top = 71 + Width = 501 + Height = 470 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid0: TcxGrid + Left = 2 + Top = 52 + Width = 497 + Height = 416 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv0: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource0 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn6 + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'SXFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object cxGridDBColumn6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327'(Kg)' + DataBinding.FieldName = 'KgQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.FoneRed + Width = 98 + end + object cxGridDBColumn10: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 90 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv0 + end + end + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 497 + Height = 29 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + object Label6: TLabel + Left = 88 + Top = 7 + Width = 26 + Height = 12 + Caption = #21697#21517 + end + object Label7: TLabel + Left = 229 + Top = 7 + Width = 39 + Height = 12 + Caption = #21152#24037#21378 + end + object Label8: TLabel + Left = 10 + Top = 7 + Width = 39 + Height = 12 + Caption = #21457#20986#32433 + end + object SPName: TEdit + Tag = 2 + Left = 116 + Top = 4 + Width = 105 + Height = 20 + TabOrder = 0 + OnChange = SPNameChange + end + object SXFactoryName: TEdit + Tag = 2 + Left = 270 + Top = 4 + Width = 220 + Height = 20 + TabOrder = 1 + OnChange = SXFactoryNameChange + end + end + object cxTabControl2: TcxTabControl + Left = 2 + Top = 31 + Width = 497 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabOrder = 2 + OnChange = cxTabControl1Change + ClientRectBottom = 21 + ClientRectRight = 497 + ClientRectTop = 0 + object cxSplitter3: TcxSplitter + Left = 0 + Top = 0 + Width = 100 + Height = 21 + end + end + end + object Panel4: TPanel + Left = 509 + Top = 71 + Width = 857 + Height = 470 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 853 + Height = 29 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Label3: TLabel + Left = 88 + Top = 7 + Width = 26 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 229 + Top = 7 + Width = 39 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 10 + Top = 7 + Width = 39 + Height = 12 + Caption = #21152#24037#24067 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 116 + Top = 4 + Width = 105 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 268 + Top = 4 + Width = 220 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 52 + Width = 853 + Height = 416 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column9 + end + item + Kind = skSum + Position = spFooter + Column = v2Column6 + end + item + Kind = skSum + Position = spFooter + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'DZDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 149 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.FontBlue + Width = 98 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327'(Kg)' + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.FontBlue + Width = 89 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.FontBlue + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'Status' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 132 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 2 + Top = 31 + Width = 853 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 853 + ClientRectTop = 23 + object cxSplitter1: TcxSplitter + Left = 0 + Top = 23 + Width = 100 + Height = 0 + end + end + end + object cxSplitter2: TcxSplitter + Left = 501 + Top = 71 + Width = 8 + Height = 470 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 920 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 888 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 952 + Top = 184 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object PopupMenu1: TPopupMenu + Left = 888 + Top = 224 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object cxGridPopupMenu0: TcxGridPopupMenu + Grid = cxGrid0 + PopupMenus = <> + Left = 264 + Top = 216 + end + object DataSource0: TDataSource + DataSet = ClientDataSet0 + Left = 296 + Top = 216 + end + object ClientDataSet0: TClientDataSet + Aggregates = <> + Params = <> + Left = 328 + Top = 216 + end + object ADOQueryMain10: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 792 + Top = 192 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.pas new file mode 100644 index 0000000..b5af08a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXJGDZList.pas @@ -0,0 +1,731 @@ +unit U_SXJGDZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxSplitter; + +type + TfrmSXJGDZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + TBRKCX: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + Panel2: TPanel; + cxGrid0: TcxGrid; + Tv0: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Panel4: TPanel; + Panel5: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter2: TcxSplitter; + cxGridPopupMenu0: TcxGridPopupMenu; + DataSource0: TDataSource; + ClientDataSet0: TClientDataSet; + cxTabControl1: TcxTabControl; + cxSplitter1: TcxSplitter; + cxTabControl2: TcxTabControl; + cxSplitter3: TcxSplitter; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName: TEdit; + FactoryName: TEdit; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + SXFactoryName: TEdit; + Label8: TLabel; + ADOQueryMain10: TADOQuery; + ToolButton5: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure SPNameChange(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure SXFactoryNameChange(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitGrid10(); + function YFHZData(FDZID:String):Boolean; + function DelYFHZData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmSXJGDZList: TfrmSXJGDZList; + +implementation +uses + U_DataLink,U_RTFun,U_SXJGDZInPut; + +{$R *.dfm} + +procedure TfrmSXJGDZList.FormDestroy(Sender: TObject); +begin + frmSXJGDZList:=nil; +end; + +procedure TfrmSXJGDZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXJGDZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select BegDate=Cast(convert(varchar(7),dateadd(month,-3,getdate()),120)+''-01'' as datetime) '); + Open; + end; + BegDate.DateTime:=ADOQueryTemp.fieldbyname('BegDate').Value; +end; + +procedure TfrmSXJGDZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from JYOrder_Main_MD_DuiZhang A'); + sql.Add(' where isnull(DZType,'''')=''ɴ߼ӹ'''); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + begin + sql.Add(' and isnull(Status,'''')=''Ѷ'' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + end; + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(MPRTCodeName.Text)<>'' then + begin + SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmSXJGDZList.InitGrid10(); +begin + try + ADOQueryMain10.DisableControls; + with ADOQueryMain10 do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add(' select AA.* from('); + sql.Add(' select A.*,SXFactoryName=(select KHName from ZH_KH_Info where ZKID=A.FromFactoryNo) '); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where isnull(CKName,'''')=''ɴ'' and isnull(CRType,'''')=''ӹ'' '); + sql.add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''')AA where 1=1'); + if Trim(SPName.Text)<>'' then + begin + SQL.Add(' and isnull(SPName,'''') like '''+'%'+Trim(SPName.Text)+'%'+''''); + end; + if Trim(SXFactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(SXFactoryName,'''') like '''+'%'+Trim(SXFactoryName.Text)+'%'+''''); + end; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain10,ClientDataSet0); + SInitCDSData20(ADOQueryMain10,ClientDataSet0); + finally + ADOQueryMain10.EnableControls; + end; +end; + +procedure TfrmSXJGDZList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); + InitGrid10(); + TBFind.Click; +end; + +procedure TfrmSXJGDZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXJGDZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߼ӹб',Tv1,''); + WriteCxGrid('ɴ߷б',Tv0,''); + Close; +end; + +procedure TfrmSXJGDZList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߼ӹб',Tv1,''); + ReadCxGrid('ɴ߷б',Tv0,''); + //InitGrid(); +end; + +procedure TfrmSXJGDZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ӹб',cxGrid1); +end; + +procedure TfrmSXJGDZList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel5,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; + if ADOQueryMain10.Active then + begin + SDofilter(ADOQueryMain10,SGetFilters(Panel3,1,2)); + SCreateCDS20(ADOQueryMain10,ClientDataSet0); + SInitCDSData20(ADOQueryMain10,ClientDataSet0); + end; +end; + +procedure TfrmSXJGDZList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXJGDZList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXJGDZList.TBRKCXClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmSXJGDZList.ToolButton1Click(Sender: TObject); +begin + try + frmSXJGDZInPut:=TfrmSXJGDZInPut.Create(Application); + with frmSXJGDZInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXJGDZInPut.Free; + end; +end; + +procedure TfrmSXJGDZList.ToolButton2Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + try + frmSXJGDZInPut:=TfrmSXJGDZInPut.Create(Application); + with frmSXJGDZInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmSXJGDZInPut.Free; + end; +end; + +procedure TfrmSXJGDZList.FactoryNameChange(Sender: TObject); +begin + SXFactoryName.Text:=Trim(FactoryName.Text); + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel5,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; + if ADOQueryMain10.Active then + begin + SDofilter(ADOQueryMain10,SGetFilters(Panel3,1,2)); + SCreateCDS20(ADOQueryMain10,ClientDataSet0); + SInitCDSData20(ADOQueryMain10,ClientDataSet0); + end; + +end; + +procedure TfrmSXJGDZList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXJGDZList.ToolButton3Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>0 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִж˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Trim(DName); + FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('Status').Value:='Ѷ'; + Post; + end; + YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString)); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmSXJGDZList.YFHZData(FDZID:string):Boolean; +var + CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''''); + Open; + end; + CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString); + CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+''''); + sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxNo,'SJ','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡɴӦʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxNo:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(MaxNo); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + + {if Trim(CDS_Main.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=CDS_Main.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end;} + //FieldByName('CRTime').Value:=CDS_Main.fieldbyname('DZDate').Value; + //FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value; + //FieldByName('Price').Value:=CDS_Main.fieldbyname('Price').Value; + //FieldByName('Money').Value:=CDS_Main.fieldbyname('Money').Value; + //FieldByName('BBMoney').Value:=CDS_Main.fieldbyname('Money').Value; + //FieldByName('CPName').Value:=Trim(CDS_Main.fieldbyname('MPRTCodeName').AsString); + FieldByName('QtyUnit').Value:='Kg'; + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:='ɴ߼ӹ'; + //FieldByName('PSName').Value:='ɴ'; + FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')'); + sql.Add(' where YFID='''+Trim(MaxNo)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+''''); + sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +function TfrmSXJGDZList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where '); + sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + ExecSQL; + end; + if Trim(CRID)<>'' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where CRID='+CRID); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + + Result:=True; +end; +procedure TfrmSXJGDZList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if cxTabControl1.TabIndex<>1 then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('DuiZhangPerson').Value:=Null; + FieldByName('DuiZhangTime').Value:=Null; + FieldByName('Status').Value:=''; + Post; + end; + DelYFHZData(); + CDS_Main.Delete; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Main.EnableControls; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmSXJGDZList.SPNameChange(Sender: TObject); +begin + if ADOQueryMain10.Active then + begin + SDofilter(ADOQueryMain10,SGetFilters(Panel3,1,2)); + SCreateCDS20(ADOQueryMain10,ClientDataSet0); + SInitCDSData20(ADOQueryMain10,ClientDataSet0); + end; +end; + +procedure TfrmSXJGDZList.MPRTCodeNameChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel5,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXJGDZList.SXFactoryNameChange(Sender: TObject); +begin + FactoryName.Text:=Trim(SXFactoryName.Text); + if ADOQueryMain10.Active then + begin + SDofilter(ADOQueryMain10,SGetFilters(Panel3,1,2)); + SCreateCDS20(ADOQueryMain10,ClientDataSet0); + SInitCDSData20(ADOQueryMain10,ClientDataSet0); + end; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel5,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXJGDZList.ToolButton5Click(Sender: TObject); +begin + if ADOQueryMain10.IsEmpty then exit; + TcxGridToExcel('ɴ߷б',cxGrid0); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXKCList.dfm new file mode 100644 index 0000000..59d201e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXKCList.dfm @@ -0,0 +1,398 @@ +object frmSXKCList: TfrmSXKCList + Left = 171 + Top = 133 + Width = 1181 + Height = 511 + Caption = #32433#32447#24211#23384#36873#25321#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1165 + Height = 36 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 21 + Top = 12 + Width = 48 + Height = 12 + Caption = #21697' '#21517 + end + object Label4: TLabel + Left = 190 + Top = 12 + Width = 60 + Height = 12 + Caption = #21407#26009#20379#24212#21830 + end + object Label8: TLabel + Left = 356 + Top = 12 + Width = 48 + Height = 12 + Caption = #21407#26009#32534#21495 + end + object Label1: TLabel + Left = 524 + Top = 12 + Width = 48 + Height = 12 + Caption = #21407#26009#25104#20998 + end + object Label2: TLabel + Left = 692 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object SXName: TEdit + Tag = 2 + Left = 70 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 250 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SXBatchNO: TEdit + Tag = 2 + Left = 405 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = SXBatchNOChange + end + object Edit1: TEdit + Tag = 2 + Left = 573 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = SXBatchNOChange + end + object Edit2: TEdit + Tag = 2 + Left = 730 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = SXBatchNOChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 69 + Width = 1165 + Height = 403 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 83 + end + object v1Column9: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column3: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column4: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v2Column3: TcxGridDBColumn + Caption = #21407#26009#20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object v1Column7: TcxGridDBColumn + Caption = #21407#26009#32534#21495 + DataBinding.FieldName = 'BatchNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 92 + end + object v1Column15: TcxGridDBColumn + Caption = #21407#26009#25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column11: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #33394#21035 + DataBinding.FieldName = 'SeBie' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v1Column8: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #24211#23384#20214'/'#31665#25968 + DataBinding.FieldName = 'MXKCPiQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v2Column5: TcxGridDBColumn + Caption = #24211#23384#20928#37325'(Kg)' + DataBinding.FieldName = 'MXKCKGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 95 + end + object v1Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXKCList.pas new file mode 100644 index 0000000..3c289c0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXKCList.pas @@ -0,0 +1,188 @@ +unit U_SXKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar; + +type + TfrmSXKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label4: TLabel; + Label8: TLabel; + SXName: TEdit; + FactoryName: TEdit; + SXBatchNO: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label1: TLabel; + Edit1: TEdit; + Label2: TLabel; + Edit2: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmSXKCList: TfrmSXKCList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmSXKCList.FormDestroy(Sender: TObject); +begin + frmSXKCList:=nil; +end; + +procedure TfrmSXKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')=''ɴ'' '); + SQL.Add(' and A.CRFlag='''' and MXKCKgQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXKCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXKCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ɴ߿ѡб',Tv1,'ɴֿ߲'); + Close; +end; + +procedure TfrmSXKCList.FormShow(Sender: TObject); +begin + ReadCxGrid('ɴ߿ѡб',Tv1,'ɴֿ߲'); + //InitGrid(); +end; + +procedure TfrmSXKCList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmSXKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXKCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXKCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXKCList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXKCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXMDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXMDList.dfm new file mode 100644 index 0000000..0145db7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXMDList.dfm @@ -0,0 +1,1650 @@ +object frmSXMDList: TfrmSXMDList + Left = 38 + Top = 85 + Width = 1225 + Height = 608 + Caption = #32433#32447#23545#36134#30721#21333#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1209 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton8Click + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + Caption = #20379#24212#21830#22686#21152 + ImageIndex = 22 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 410 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 473 + Top = 0 + AutoSize = True + Caption = #23545#36134 + ImageIndex = 33 + OnClick = ToolButton4Click + end + object ToolButton7: TToolButton + Left = 536 + Top = 0 + AutoSize = True + Caption = #23545#36134#25764#38144 + ImageIndex = 52 + OnClick = ToolButton7Click + end + object ToolButton9: TToolButton + Left = 623 + Top = 0 + AutoSize = True + Caption = #26377#20105#35758#36865#23457 + ImageIndex = 35 + Visible = False + OnClick = ToolButton9Click + end + object ToolButton10: TToolButton + Left = 722 + Top = 0 + AutoSize = True + Caption = #20105#35758#25764#38144 + ImageIndex = 34 + Visible = False + OnClick = ToolButton10Click + end + object TBExport: TToolButton + Left = 809 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 872 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 959 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1209 + Height = 59 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 106 + Top = 39 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 217 + Top = 15 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label7: TLabel + Left = 344 + Top = 15 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label1: TLabel + Left = 217 + Top = 39 + Width = 36 + Height = 12 + Caption = #21327#21830#20070 + end + object Label14: TLabel + Left = 736 + Top = 16 + Width = 76 + Height = 29 + Caption = #20313#39069':' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 824 + Top = 16 + Width = 16 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 121 + Top = 11 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 121 + Top = 35 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object orderNo: TEdit + Tag = 2 + Left = 253 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 380 + Top = 11 + Width = 67 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + OnKeyPress = FactoryNameKeyPress + end + object Panel3: TPanel + Left = 455 + Top = 1 + Width = 274 + Height = 57 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + object Label11: TLabel + Left = 9 + Top = 14 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label12: TLabel + Left = 80 + Top = 14 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 168 + Top = 14 + Width = 24 + Height = 12 + Caption = #37329#39069 + end + object PS: TEdit + Left = 34 + Top = 10 + Width = 43 + Height = 20 + TabOrder = 0 + end + object Qty: TEdit + Left = 105 + Top = 10 + Width = 60 + Height = 20 + TabOrder = 1 + end + object Money: TEdit + Left = 193 + Top = 10 + Width = 73 + Height = 20 + TabOrder = 2 + end + object Button2: TButton + Left = 57 + Top = 35 + Width = 75 + Height = 18 + Caption = #37325#26032#35745#31639 + TabOrder = 3 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 163 + Top = 36 + Width = 49 + Height = 17 + Caption = #19978#38754 + TabOrder = 4 + OnClick = CheckBox1Click + end + end + object ComboBox4: TComboBox + Left = 7 + Top = 11 + Width = 114 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 5 + Text = #25353#24037#21378#30721#21333#26085#26399 + Items.Strings = ( + #25353#24037#21378#30721#21333#26085#26399 + #25353#30331#35760#26085#26399 + #25353#24212#20184#27454#26085#26399 + #25353#23545#36134#26085#26399) + end + object XSSNO: TEdit + Tag = 2 + Left = 253 + Top = 35 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = orderNoChange + end + object Button1: TButton + Left = 380 + Top = 35 + Width = 67 + Height = 20 + Caption = #20184#27454#35760#24405 + TabOrder = 7 + OnClick = Button1Click + end + end + object Panel2: TPanel + Left = 0 + Top = 113 + Width = 1209 + Height = 157 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 823 + Top = 2 + Width = 384 + Height = 153 + Align = alRight + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 66 + end + object v5Column6: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ContypeOther' + Options.Editing = False + Width = 62 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 62 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 64 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 51 + end + object v2Column1: TcxGridDBColumn + Caption = #21512#21516#20132#26399 + DataBinding.FieldName = 'DLYDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column10: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 45 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v77Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 813 + Height = 153 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v72Column2 + end + item + Kind = skSum + Position = spFooter + Column = v72Column4 + end + item + Kind = skSum + Position = spFooter + Column = v72Column5 + end + item + Kind = skSum + Position = spFooter + Column = v72Column7 + end + item + Kind = skSum + Position = spFooter + Column = v72Column8 + end + item + Kind = skSum + Position = spFooter + Column = v72Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v72Column2 + end + item + Kind = skSum + Column = v72Column4 + end + item + Kind = skSum + Column = v72Column5 + end + item + Kind = skSum + Column = v72Column7 + end + item + Kind = skSum + Column = v72Column8 + end + item + Kind = skSum + Column = v72Column1 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #20184#27454#26041#24335'('#22825')' + DataBinding.FieldName = 'FKDays' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#30721#21333#26085#26399 + DataBinding.FieldName = 'MHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + Width = 85 + end + object V1OrderNo: TcxGridDBColumn + Tag = 2 + Caption = #35746#21333#32534#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v1Column19: TcxGridDBColumn + Tag = 66 + Caption = #21327#21830#20070#32534#21495 + DataBinding.FieldName = 'XSSNO' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 99 + end + object v1GenDan: TcxGridDBColumn + Tag = 2 + Caption = #36319#21333#21592 + DataBinding.FieldName = 'GenDan' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 70 + end + object v1FactoryName: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v1FactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 56 + end + object v1SOrddefstr1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'TaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object cxGridDBColumn28: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v1PSName: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1PSNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #24037#33402 + DataBinding.FieldName = 'MPRTGY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Tag = 2 + Caption = #24212#20184#27454#26085#26399 + DataBinding.FieldName = 'YFDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.Default + Width = 75 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #39033#30446 + DataBinding.FieldName = 'ItemName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1ToFactoryName: TcxGridDBColumn + Tag = 2 + Caption = #21435#21521 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.OnEditValueChanged = v1ToFactoryNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column1: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v72Column2: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column3: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column4: TcxGridDBColumn + Tag = 2 + Caption = #25105#21496#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Tag = 77 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 48 + end + object v72Column5: TcxGridDBColumn + Caption = #24037#21378#25968#37327 + DataBinding.FieldName = 'FtyQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v72Column6: TcxGridDBColumn + Caption = #24037#21378#21333#20215 + DataBinding.FieldName = 'FtyPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v72Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v72Column7: TcxGridDBColumn + Caption = #24037#21378#37329#39069 + DataBinding.FieldName = 'FtyMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v72Column8: TcxGridDBColumn + Caption = #20986#20837 + DataBinding.FieldName = 'ChaEMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1Column22: TcxGridDBColumn + Caption = #19981#24320#31080 + DataBinding.FieldName = 'BuKPFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v72Column9: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24050#20184#37329#39069 + DataBinding.FieldName = 'YiFuMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 81 + end + object v1Column20: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'YSFKDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneClMaroon + Styles.Header = DataLink_DDMD.FoneClMaroon + Width = 66 + end + object v1Column21: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'YSFKMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FonePurple + Styles.Header = DataLink_DDMD.FonePurple + Width = 65 + end + object v1Column17: TcxGridDBColumn + Caption = #24212#20184#20313#39069 + DataBinding.FieldName = 'YingFuYMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column18: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'DuiZhangTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column6: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ChkStatus' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column8: TcxGridDBColumn + Caption = #36865#23457#26102#38388 + DataBinding.FieldName = 'SSTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21453#39304#20154 + DataBinding.FieldName = 'CLPerson' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 71 + end + object v1Column15: TcxGridDBColumn + Caption = #21453#39304#26102#38388 + DataBinding.FieldName = 'CLTime' + Visible = False + Hidden = True + Options.Editing = False + Width = 78 + end + object v1Column9: TcxGridDBColumn + Caption = #21453#39304#25968#37327 + DataBinding.FieldName = 'CLQty' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 59 + end + object v1Column10: TcxGridDBColumn + Caption = #21453#39304#21333#20215 + DataBinding.FieldName = 'CLPrice' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 61 + end + object v1Column11: TcxGridDBColumn + Caption = #21453#39304#37329#39069 + DataBinding.FieldName = 'CLMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 72 + end + object v1Column14: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTIme' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter + Left = 815 + Top = 2 + Width = 8 + Height = 153 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = cxGrid2 + end + end + object cxSplitter2: TcxSplitter + Left = 0 + Top = 270 + Width = 1209 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel5 + end + object Panel5: TPanel + Left = 0 + Top = 278 + Width = 1209 + Height = 291 + Align = alBottom + TabOrder = 4 + object cxGrid3: TcxGrid + Left = 51 + Top = 21 + Width = 1157 + Height = 269 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = v3Column17 + end + item + Kind = skSum + Column = v3Column21 + end + item + Kind = skSum + Column = v3Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSeCu + Styles.IncSearch = DataLink_DDMD.SHuangSeCu + Styles.Selection = DataLink_DDMD.SHuangSeCu + Styles.Header = DataLink_DDMD.Default + object v3Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v3Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 49 + end + object v3Column20: TcxGridDBColumn + Caption = #35843#29992 + DataBinding.FieldName = 'DYFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 108 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 99 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 63 + end + object v3Column12: TcxGridDBColumn + Tag = 99 + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'MDType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22806#22260 + #23454#20307) + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 69 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 99 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 44 + end + object v3Column17: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#25968#37327 + DataBinding.FieldName = 'FZQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v3Column18: TcxGridDBColumn + Tag = 99 + Caption = #36741#21161#21333#20301 + DataBinding.FieldName = 'FZQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + 'M') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 67 + end + object v3Column16: TcxGridDBColumn + Caption = #21512#21516#20215#26684 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 73 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 99 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 46 + end + object v3Column19: TcxGridDBColumn + Caption = #22238#20462#36827#20179 + DataBinding.FieldName = 'HXFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.handBlack + Width = 58 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'MDFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object Tv3Column1: TcxGridDBColumn + Tag = 99 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.handBlack + Width = 71 + end + object v3Column24: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 60 + end + object v3Column21: TcxGridDBColumn + Caption = #25187#27454 + DataBinding.FieldName = 'TJXSMoney' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 88 + end + object v3Column13: TcxGridDBColumn + Caption = #21327#21830#20013#25187#27454#20449#24687 + DataBinding.FieldName = 'TJXSInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 114 + end + object v3Column22: TcxGridDBColumn + Caption = #26368#32456#25187#27454#20449#24687 + DataBinding.FieldName = 'TJJGInfo' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 109 + end + object v3Column23: TcxGridDBColumn + Caption = #26368#32456#25187#27454 + DataBinding.FieldName = 'TJJGMoney' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 66 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object Tv3Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'MDFiller' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object Tv3Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'MDFillTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'MPRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'MPRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'MPRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #36741#21161#24037#33402#35828#26126 + DataBinding.FieldName = 'FZGYNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object cxTabControl1: TcxTabControl + Left = 1 + Top = 1 + Width = 1207 + Height = 20 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#26680#26597 + #24050#26680#26597) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1207 + ClientRectTop = 22 + end + object Panel6: TPanel + Left = 1 + Top = 21 + Width = 50 + Height = 269 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Button3: TButton + Left = 3 + Top = 66 + Width = 41 + Height = 20 + Caption = #26680#26597 + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 3 + Top = 162 + Width = 41 + Height = 20 + Caption = #25764#38144 + TabOrder = 1 + OnClick = Button4Click + end + end + end + object cxTabControl2: TcxTabControl + Left = 0 + Top = 92 + Width = 1209 + Height = 21 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Style = 8 + TabIndex = 0 + TabOrder = 5 + Tabs.Strings = ( + #24453#26680#23545 + #24453#23545#36134 + #24050#23545#36134 + #20840#37096) + OnChange = cxTabControl2Change + ClientRectBottom = 23 + ClientRectRight = 1209 + ClientRectTop = 23 + end + object Panel4: TPanel + Left = 380 + Top = 88 + Width = 525 + Height = 212 + TabOrder = 6 + Visible = False + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 523 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = ' '#20184#27454#35760#24405#26597#35810 + Color = clGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnMouseMove = Panel10MouseMove + object Image2: TImage + Left = 499 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object cxGrid4: TcxGrid + Left = 1 + Top = 24 + Width = 523 + Height = 187 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column8: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 73 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v5Column13: TcxGridDBColumn + Caption = #25903#20184#25260#22836 + DataBinding.FieldName = 'ComTaiTou' + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v5Column12: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'Payment' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv5 + end + end + end + object PopupMenu1: TPopupMenu + Left = 423 + Top = 404 + object N1: TMenuItem + Caption = #26597#35810#31383#20307 + Visible = False + OnClick = N1Click + end + object N3: TMenuItem + Caption = #26680#26597#25764#38144 + OnClick = N3Click + end + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 735 + Top = 429 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 764 + Top = 430 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 797 + Top = 431 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 349 + Top = 174 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 378 + Top = 175 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 411 + Top = 176 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 896 + Top = 167 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 925 + Top = 168 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 959 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 258 + Top = 158 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 286 + Top = 155 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 199 + Top = 156 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 230 + Top = 157 + end + object ClientDataSet33: TClientDataSet + Aggregates = <> + Params = <> + Left = 196 + Top = 414 + end + object ClientDataSet66: TClientDataSet + Aggregates = <> + Params = <> + Left = 284 + Top = 422 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 744 + Top = 279 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 773 + Top = 280 + end + object cxGridPopupMenu5: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 807 + Top = 281 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXMDList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXMDList.pas new file mode 100644 index 0000000..5481f7f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXMDList.pas @@ -0,0 +1,2587 @@ +unit U_SXMDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxButtonEdit, + cxDropDownEdit, cxSplitter, cxCheckBox, cxCalendar, Menus, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxPC, cxTextEdit; + +type + TfrmSXMDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + TBExport: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label2: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + orderNo: TEdit; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn29: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v77Column1: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column7: TcxGridDBColumn; + v1GenDan: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1FactoryName: TcxGridDBColumn; + v1ToFactoryName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxSplitter2: TcxSplitter; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + v72Column1: TcxGridDBColumn; + v72Column2: TcxGridDBColumn; + v72Column3: TcxGridDBColumn; + v72Column4: TcxGridDBColumn; + v72Column5: TcxGridDBColumn; + v72Column6: TcxGridDBColumn; + v72Column7: TcxGridDBColumn; + v72Column8: TcxGridDBColumn; + v72Column9: TcxGridDBColumn; + Label7: TLabel; + FactoryName: TEdit; + Panel3: TPanel; + Label11: TLabel; + PS: TEdit; + Label12: TLabel; + Qty: TEdit; + Label13: TLabel; + Money: TEdit; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQuery1: TADOQuery; + Panel5: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + v3Column14: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column19: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabControl1: TcxTabControl; + N3: TMenuItem; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v3Column13: TcxGridDBColumn; + v3Column21: TcxGridDBColumn; + v3Column22: TcxGridDBColumn; + v3Column23: TcxGridDBColumn; + v1PSName: TcxGridDBColumn; + v3Column24: TcxGridDBColumn; + ToolButton3: TToolButton; + cxTabControl2: TcxTabControl; + ToolButton4: TToolButton; + ToolButton7: TToolButton; + ComboBox4: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel6: TPanel; + Button3: TButton; + Button4: TButton; + ToolButton9: TToolButton; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton10: TToolButton; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label1: TLabel; + XSSNO: TEdit; + ClientDataSet33: TClientDataSet; + ClientDataSet66: TClientDataSet; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + Button2: TButton; + CheckBox1: TCheckBox; + Label14: TLabel; + Label15: TLabel; + Button1: TButton; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + v2Column1: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + Panel4: TPanel; + Panel10: TPanel; + Image2: TImage; + cxGrid4: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v5Column13: TcxGridDBColumn; + v5Column12: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure N1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v1Column7PropertiesEditValueChanged(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1FactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v1PSNamePropertiesEditValueChanged(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure v3Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure cxTabControl2Change(Sender: TObject); + procedure v1ToFactoryNamePropertiesEditValueChanged(Sender: TObject); + procedure v72Column2PropertiesEditValueChanged(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TBFindClick(Sender: TObject); + procedure orderNoChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure v1Column4PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button1Click(Sender: TObject); + procedure FactoryNameKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + FMHId:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure InitGridMD(); + function YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; + function DelYFHZData():Boolean; + function HXYFK(FFactoryName:String):Boolean; + public + { Public declarations } + end; + +var + frmSXMDList: TfrmSXMDList; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + +procedure TfrmSXMDList.FormDestroy(Sender: TObject); +begin + frmSXMDList:=nil; +end; + +procedure TfrmSXMDList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXMDList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'뵥˲'); + WriteCxGrid('Tv2',Tv2,'뵥˲'); + WriteCxGrid('Tv3',Tv3,'뵥˲'); + close; +end; + +procedure TfrmSXMDList.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmSXMDList.Panel10MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmSXMDList.N1Click(Sender: TObject); +begin + Panel4.Left:=cxSplitter1.Left+20; + Panel4.Top:=Panel1.Top+150; + Panel4.Visible:=True; +end; + +procedure TfrmSXMDList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where'); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + if Trim(FactoryName.Text)<>'' then + begin + sql.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +function TfrmSXMDList.SaveData():Boolean; +var + maxno:String; +begin + Result:=False; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'MH','JYOrder_Main_MD_HZ',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡ뵥ܺʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + with ClientDataSet1 do + begin + Append; + FieldByName('MHID').Value:=Trim(maxno); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('MHDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))); + Post; + end; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmSXMDList.ToolButton5Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>0 then Exit; + if ClientDataSet1.Locate('FactoryName',Null,[]) then + begin + Application.MessageBox('δ!','',0); + Exit; + end; + SaveData(); +end; + +procedure TfrmSXMDList.FormShow(Sender: TObject); +begin + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MDID in('); + sql.Add('select MDID from JYOrder_Main_MD A where isnull(MHID,'''')<>'''' '); + sql.Add('and not exists(select * from JYOrder_Main_MD_HZ B where '); + sql.Add('B.MHID=A.MHID and B.ORDMainId=A.ORDMainId and isnull(B.OrderNo,'''')<>''''))'); + ExecSQL; + end; } + cxTabControl2.TabIndex:=0; + cxTabControl1.TabIndex:=0; + EndDate.DateTime:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + ReadCxGrid('Tv1',Tv1,'뵥˲'); + ReadCxGrid('Tv2',Tv2,'뵥˲'); + ReadCxGrid('Tv3',Tv3,'뵥˲'); + InitGrid(); +end; + +procedure TfrmSXMDList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXMDList.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue,FOrderNo,fsj:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + mvalue:=TcxTextEdit(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(mvalue); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' and isnull(MHID,'''')<>'''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar('Ѵں˲뵥ܸĶ!'),'ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(mvalue)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNO').Value:=Trim(FOrderNo); + Post; + end; + Application.MessageBox(PChar(':'+Trim(mvalue)+'!'),'ʾ',0); + Exit; + end else + begin + with ClientDataSet1 do + begin + Edit; + FieldByName('TaiTou').Value:=Trim(ADOQueryTemp.fieldbyname('ComTaiTou').AsString); + FieldByName('MPRTCode').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTCode').AsString)+ + Trim(ADOQueryTemp.fieldbyname('MPRTGY').AsString); + FieldByName('MPRTGY').Value:=Trim(ADOQueryTemp.fieldbyname('MPRTGYHZ').AsString); + FieldByName('ORDMainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + + Post; + end; + end; + {fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + fsj:='select distinct(FactoryName) Name,Code='''' from JYOrder_Main_MD where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,0,False,''); } + + InitGridMD(); + + +end; +procedure TfrmSXMDList.InitGridMD(); +var + fsj:String; +begin + fsj:=''; + if ClientDataSet1.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + if ((Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='') + and + (Trim(ClientDataSet1.fieldbyname('PSName').AsString)='')) then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + Parameters.ParamByName('WSql').Value:=' and 1<>1'; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + if cxTabControl1.TabIndex=0 then + begin + fsj:=' and isnull(MHID,'''')='''' '; + end else + if cxTabControl1.TabIndex=1 then + begin + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and (isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''+ + ' Or isnull(JMM.DutyFactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''')'; + end; + {if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end;} + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; +procedure TfrmSXMDList.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagName:='Ŀ'; + fnote:=True; + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('ItemName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXMDList.ToolButton1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('MHDate').AsString)='' then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + //while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + if cxTabControl1.TabIndex=0 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmSXMDList.cxTabControl1Change(Sender: TObject); +begin + if cxTabControl1.TabIndex=0 then + begin + + N3.Visible:=False; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + + N3.Visible:=True; + end; + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); +end; + +procedure TfrmSXMDList.MenuItem1Click(Sender: TObject); +var + fsj:string; +begin + +end; + + +procedure TfrmSXMDList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + fsj,FName:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select sum(Money*QtyFlag) KCMoney from YF_Money_CR '); + sql.Add(' where Factoryname='''+Trim(ClientDataSet1.FieldByName('FactoryName').AsString)+''''); + Open; + end; + Label15.Caption:=Trim(ADOQueryTemp.FieldByName('KCMoney').AsString)+'('+ + Trim(ClientDataSet1.FieldByName('FactoryName').AsString)+')'; + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if cxTabControl2.TabIndex=2 then + begin + if (Trim(FName)='Ssel') or (Trim(FName)='BuKPFlag') then + begin + Tv1.OptionsData.Editing:=True; + end else + begin + Tv1.OptionsData.Editing:=False; + end; + end; + if cxTabControl2.TabIndex>1 then exit; + + if Trim(FName)='GenDan' then + begin + fsj:='select distinct(PFGenDanPerson) Name,Code='''' from JYOrder_PCS_Sub where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1GenDan,fsj,0,False,''); + end else + if Trim(FName)='FactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1FactoryName,fsj,1,False,''); + end else + if Trim(FName)='ToFactoryName' then + begin + fsj:='select distinct(FactoryName) Name,Code=FactoryNo from JYOrder_Main_MD '+ + ' where ORDMainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+''''+ + ' Group by FactoryName,FactoryNo'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1ToFactoryName,fsj,1,False,''); + end else + if Trim(FName)='PSName' then + begin + fsj:='select PSName Name,Code='''' from JYOrder_Process where Mainid='''+Trim(ClientDataSet1.fieldbyname('ORDMainId').AsString)+'''' + +' order by PSXH '; + SInitCxGridComboBoxBySql(ADOQueryTemp,v1PSName,fsj,0,False,''); + end; + + +end; + +procedure TfrmSXMDList.v1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('FKDays').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + Post; + end; +end; + +procedure TfrmSXMDList.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:=Null; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('MHDate').Value:=mvalue; + Post; + end; + with ClientDataSet1 do + begin + Edit; + if mvalue=Null then + begin + FieldByName('YFDate').Value:=Null; + end else + begin + FieldByName('YFDate').Value:=FieldByName('MHDate').Value+FieldByName('FKDays').Value; + end; + Post; + end; +end; + +procedure TfrmSXMDList.v1FactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=mvalue; + FieldByName('FactoryNo').Value:=TA((v1FactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1FactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; + InitGridMD(); +end; + +procedure TfrmSXMDList.v1PSNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('PSName').Value:=mvalue; + Post; + end; + InitGridMD(); +end; + +procedure TfrmSXMDList.N3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + ClientDataSet3.EnableControls; + end; + + end; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmSXMDList.v3Column14PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=True then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end else + begin + FPS:=FPS-ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet3.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + {if cxTabControl1.TabIndex=0 then + begin + with ClientDataSet1 do + begin + Edit; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)='' then + begin + FieldByName('PS').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)='' then + begin + FieldByName('Qty').Value:=0; + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)='' then + begin + FieldByName('Money').Value:=0; + end; + Post; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('').Value:= + Post; + end; + end; } +end; + +procedure TfrmSXMDList.ToolButton6Click(Sender: TObject); +var + FOrderNo,fsj:String; +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('MDType').AsString)='ۿ' then + begin + Application.MessageBox('ɾۿ뵥!','ʾ',0); + Exit; + end; + FOrderNo:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString); + if Trim(ForderNo)<>'' then + begin + fsj:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_View_MDTJ_JS :begdate,:enddate,:orderno,:MDType,:WSql'); + Parameters.ParamByName('orderno').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + Parameters.ParamByName('MDType').Value:=''; + fsj:=' and isnull(MHID,'''')='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''; + if Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.FactoryName,'''')='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''; + end; + if Trim(ClientDataSet1.fieldbyname('PSName').AsString)<>'' then + begin + fsj:=fsj+' and isnull(JMM.PSName,'''')='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''; + end; + Parameters.ParamByName('WSql').Value:=fsj; + Open; + end; + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('к˲Ϣɾ!','ʾ',0); + Exit; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + end; + + if Application.MessageBox('ȷҪɾϢ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('insert into JYOrder_Main_MD_HZ_DelLog '); + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ_DelLog Set Note=Isnull(Note,'''')+''ɾ:''+'''+Trim(DName)+''''); + sql.Add('+'' ''+Convert(Varchar(20),getdate(),120)'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmSXMDList.TBExportClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + TcxGridToExcel('˲ܵ',cxGrid1); +end; + +procedure TfrmSXMDList.ToolButton2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='뵥˲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmSXMDList.ToolButton3Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>1 then Exit; + if ClientDataSet1.IsEmpty then exit; + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet1 do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString) ; + FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmSXMDList.ToolButton4Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>1 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FtyMoney',VarArrayOf([True,Null]),[loPartialKey])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + //ToolButton8.Click; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + if ClientDataSet1.FieldByName('Money').Value<>ClientDataSet1.FieldByName('FtyMoney').Value then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('벻Ϊ㣬ܶ!','ʾ',0); + Exit; + end; + if ClientDataSet1.FieldByName('ChaEMoney').Value<>0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('벻Ϊ㣬ܶ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + if ClientDataSet1.FieldByName('BuKPFlag').AsBoolean=True then + begin + FieldByName('BuKPFlag').Value:=1; + end else + begin + FieldByName('BuKPFlag').Value:=0; + end; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Getdate(),'); + SQL.Add('DuiZhangPerson='''+Trim(DName)+''',DuiZhangStatus=''Ѷ'' ' ); + if Trim(ClientDataSet1.fieldbyname('Qty').AsString)<>'' then + begin + SQL.Add(',Qty='+Trim(ClientDataSet1.fieldbyname('Qty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('Price').AsString)<>'' then + begin + SQL.Add(',Price='+Trim(ClientDataSet1.fieldbyname('Price').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('Money').AsString)<>'' then + begin + SQL.Add(',Money='+Trim(ClientDataSet1.fieldbyname('Money').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set ChaEMoney=isnull(Money,0)-isnull(FtyMoney,0)'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + YFHZData(Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString), + Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + HXYFK(Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)); + ClientDataSet1.Delete; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmSXMDList.DelYFHZData():Boolean; +var + CRID:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + if ADOQueryTemp.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+Trim(CRID)); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(' Update JYOrder_Main_MD_HZ Set YFID=Null where '); + sql.Add(' MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + Result:=True; +end; +procedure TfrmSXMDList.ToolButton7Click(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if cxTabControl2.TabIndex<>2 then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('鲻ִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX A inner join YF_Money_CR B on A.YFID=B.YFID'); + sql.Add(' inner join JYOrder_Main_MD_HZ C on B.MHID=C.MHID'); + sql.Add(' where C.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('и¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_PaiKuan '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ſ¼ܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set DuiZhangTime=Null,'); + SQL.Add('DuiZhangPerson=Null,DuiZhangStatus=Null,FtyQty=Null,FtyPrice=Null,FtyMoney=Null,ChaEMoney=Null ' ); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + DelYFHZData(); + ClientDataSet1.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmSXMDList.cxTabControl2Change(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then + begin + //Tv1.OptionsSelection.CellSelect:=True; + Tv1.OptionsData.Editing:=True; + end else + begin + //Tv3.OptionsSelection.CellSelect:=False; + Tv1.OptionsData.Editing:=False; + end; + InitGrid(); +end; +function TfrmSXMDList.HXYFK(FFactoryName:String):Boolean; +var + factoryname,FFKMoney,maxno:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select AA.* from('); + sql.Add(' select CRTIme,YFID, '); + sql.Add(' DHXMoney=isnull(Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX B where B.FKID=A.YFID),0)'); + sql.Add(' from YF_Money_CR A'); + SQL.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + sql.Add(' and A.CRTYpe=''Ǽ'' and isnull(FXType,'''')<>'''')AA'); + sql.Add(' where isnull(DHXMoney,0)>0'); + sql.Add(' order by CRTime'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet66); + SInitCDSData20(ADOQueryTemp,ClientDataSet66); + with ClientDataSet66 do + begin + First; + while not eof do + begin + FFKMoney:=ClientDataSet66.fieldbyname('DHXMoney').AsString; + if StrToFloat(FFKMoney)>0 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,YingFuMoney=Money-YiFuMoney '); + sql.Add(' ,DZMoney=(select isnull(Money,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' ,DZChaEMoney=(select isnull(ChaEMoney,0) from JYOrder_Main_MD_HZ HZ where HZ.MHID=A.MHID)'); + sql.Add(' from YF_Money_CR A '); + sql.Add(' where FactoryName='''+Trim(FFactoryName)+''''); + //SQL.Add(' and CRID='+Trim(ClientDataSet2.fieldbyname('CRID').AsString)); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and (Money-YiFuMoney)<>0'); + sql.Add(' and not exists(select * from JYOrder_Main_MD_HZ C where C.YFID=A.YFID and isnull(C.ItemName,'''')='''')'); + sql.Add(' order by CRTime,Money'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet33); + SInitCDSData20(ADOQueryTemp,ClientDataSet33); + with ClientDataSet33 do + begin + First; + while not Eof do + begin + if ClientDataSet33.FieldByName('DZMoney').Value<0 then + begin + if ClientDataSet33.FieldByName('DZChaEMoney').Value<>0 then + begin + Next; + end; + end; + if ClientDataSet33.FieldByName('YingFuMoney').Value<=StrToFloat(FFKMoney) then //ӦСڵڸ + begin + if StrToFloat(FFKMoney)>0 then + begin + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=ClientDataSet33.FieldByName('YingFuMoney').Value; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=ClientDataSet2.FieldByName('Money').Value; + FieldByName('YFYMoney').Value:=0; + post; + end; } + FFKMoney:=FloatToStr(StrToFloat(FFKMoney)-ClientDataSet33.FieldByName('YingFuMoney').Value); + ClientDataSet33.Delete; + end else + begin + ClientDataSet33.Last; + end; + end else + //Ӧڸ + begin + if StrToFloat(FFKMoney)=0 then + begin + ClientDataSet33.Last; + end; + if GetLSNo(ADOQueryCmd,maxno,'YH','YF_Money_CR_HX',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR_HX where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YHID').Value:=Trim(maxno); + FieldByName('YFID').Value:=Trim(ClientDataSet33.fieldbyname('YFID').AsString); + FieldByName('FKID').Value:=Trim(ClientDataSet66.fieldbyname('YFID').AsString); + FieldByName('HXMoney').Value:=FFKMoney; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set YiFuMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX A where A.YFID=YF_Money_CR.YFID)'); + sql.Add(' where YFID='''+Trim(ClientDataSet33.fieldbyname('YFID').AsString)+''''); + ExecSQL; + end; + {ClientDataSet2.Locate('YFID',Trim(ClientDataSet3.fieldbyname('YFID').AsString),[]); + with ClientDataSet2 do + begin + Edit; + FieldByName('YiFuMoney').Value:=FieldByName('YiFuMoney').Value+strtofloat(FFKMoney); + FieldByName('YFYMoney').Value:=FieldByName('Money').Value-FieldByName('YiFuMoney').Value; + post; + end; } + FFKMoney:='0'; + ClientDataSet33.Delete; + ClientDataSet33.Last; + end; + end; + end; + Result:=True; + end; + Next; + end; + end; + + + +end; + +function TfrmSXMDList.YFHZData(CWFactoryNo,CWFactoryName:String):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CWFactoryName)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(CWFactoryName)+''''); + sql.Add(' and MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'ZC','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(YFID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('MainId').Value:=Trim(ClientDataSet1.fieldbyname('OrdMainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('FactoryName').Value:=Trim(CWFactoryName); + FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo); + FieldByName('HZFactoryName').Value:=Trim(CWFactoryName); + FieldByName('CRTime').Value:=ClientDataSet1.fieldbyname('YFDate').Value; + FieldByName('Qty').Value:=ClientDataSet1.fieldbyname('Qty').Value; + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FieldByName('PS').Value:=0; + end; + + FieldByName('Price').Value:=ClientDataSet1.fieldbyname('Price').Value; + FieldByName('Money').Value:=ClientDataSet1.fieldbyname('Money').Value; + FieldByName('BBMoney').Value:=ClientDataSet1.fieldbyname('Money').Value; + //FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('QtyUnit').AsString); + FieldByName('YFType').Value:='Զ'; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ItemName').AsString); + FieldByName('PSName').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + FieldByName('MHID').Value:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + // FieldByName('KFType').Value:=''; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set YFID='''+Trim(YFID)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + + Result:=True; +end; +procedure TfrmSXMDList.v1ToFactoryNamePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet1 do + begin + Edit; + FieldByName('ToFactoryName').Value:=mvalue; + FieldByName('ToFactoryNo').Value:=TA((v1ToFactoryName.Properties as TcxComboBoxProperties).Items. + Objects[(v1ToFactoryName.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + Post; + end; +end; + +procedure TfrmSXMDList.v72Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,Qty,Price,FtyQty,FtyPrice:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FName:=Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with ClientDataSet1 do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + Qty:=Trim(ClientDataSet1.fieldbyname('Qty').AsString); + if Trim(Qty)='' then + begin + Qty:='0'; + end; + Price:=Trim(ClientDataSet1.fieldbyname('Price').AsString); + if Trim(Price)='' then + begin + Price:='0'; + end; + FtyQty:=Trim(ClientDataSet1.fieldbyname('FtyQty').AsString); + if Trim(FtyQty)='' then + begin + FtyQty:='0'; + end; + FtyPrice:=Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString); + if Trim(FtyPrice)='' then + begin + FtyPrice:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(Qty)*StrToFloat(Price); + FieldByName('FtyMoney').Value:=StrToFloat(FtyQty)*StrToFloat(FtyPrice); + FieldByName('ChaEMoney').Value:=StrToFloat(Qty)*StrToFloat(Price)-StrToFloat(FtyQty)*StrToFloat(FtyPrice); + Post; + end; +end; + +procedure TfrmSXMDList.Button2Click(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; + FMDID:String; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + + PS.Text:='0'; + FPS:=StrToFloat(PS.Text); + Qty.Text:='0'; + FQty:=StrToFloat(Qty.Text); + Money.Text:='0'; + FMoney:=StrToFloat(Money.Text); + if CheckBox1.Checked=False then + begin + if ClientDataSet3.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet3.fieldbyname('MDID').AsString); + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if ClientDataSet3.FieldByName('SSel').AsBoolean=True then + begin + FPS:=FPS+ClientDataSet3.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet3.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet3.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet3.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet3.Locate('MDID',FMDID,[]); + end else + begin + if ClientDataSet1.IsEmpty then Exit; + FMDID:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if ClientDataSet1.FieldByName('SSel').AsBoolean=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + //FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end; + Next; + end; + end; + ClientDataSet1.EnableControls; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); + ClientDataSet1.Locate('MHID',FMDID,[]); + end; + +end; + +procedure TfrmSXMDList.ToolButton8Click(Sender: TObject); +begin + if cxTabControl2.TabIndex>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + BegDate.SetFocus; + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;OrderNo',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;MHDate',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('뵥ڲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;PSName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;FactoryName',VarArrayOf([True,Null]),[loPartialKey]) then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:='Ѻ˶'; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + if ClientDataSet1.FieldByName('BuKPFlag').AsBoolean=True then + begin + FieldByName('BuKPFlag').Value:=1; + end else + begin + FieldByName('BuKPFlag').Value:=0; + end; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_HZ Set Status=''Ѻ˶'' '); + if Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)<>'' then + begin + SQL.Add(',FtyQty='+Trim(ClientDataSet1.fieldbyname('FtyQty').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)<>'' then + begin + SQL.Add(',FtyPrice='+Trim(ClientDataSet1.fieldbyname('FtyPrice').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)<>'' then + begin + SQL.Add(',FtyMoney='+Trim(ClientDataSet1.fieldbyname('FtyMoney').AsString)); + end; + if Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)<>'' then + begin + SQL.Add(',ChaEMoney='+Trim(ClientDataSet1.fieldbyname('ChaEMoney').AsString)); + end; + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + + if cxTabControl2.TabIndex=0 then + begin + ClientDataSet1.Delete; + end else + begin + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('SSel').Value:=False; + ClientDataSet1.Post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.EnableControls; + except + ClientDataSet1.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmSXMDList.Button4Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl1.TabIndex=1 then + begin + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID=Null'); + sql.Add(',HCFlag=0,HCDate=Null,HCPerson=Null'); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet3.EnableControls; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmSXMDList.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + {if Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString)='' then + begin + Application.MessageBox('δ治ܺ˲!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪ˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + if cxTabControl2.TabIndex=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('ORDMainid').Value:=Trim(ClientDataSet1.fieldbyname('ORDMainid').AsString); + FieldByName('FactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(ClientDataSet1.fieldbyname('ToFactoryNo').AsString); + FieldByName('Status').Value:=''; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_Main_MD_HZ',2); + Post; + end; + end; + if ClientDataSet3.IsEmpty=False then + begin + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add(',HCFlag=1,HCDate=getdate(),HCPerson='''+Trim(DName)+''''); + sql.Add(' where MDID='''+Trim(ClientDataSet3.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + end; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + except + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + ClientDataSet3.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˲쳣!','ʾ',0); + end; +end; + +procedure TfrmSXMDList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if Trim(ClientDataSet1.fieldbyname('MHId').AsString)<>FMHId then + begin + ps.Text:=''; + Qty.Text:=''; + Money.Text:=''; + InitGridMD(); + FMHId:=Trim(ClientDataSet1.fieldbyname('MHID').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.Mainid=B.Mainid'); + sql.Add(' where A.ConNo='''+Trim(ClientDataSet1.fieldbyname('OrderNo').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmSXMDList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmSXMDList.orderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXMDList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXMDList.ToolButton9Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus='''',SSTime=Getdate(),SSPerson='''+Trim(DName)+''''); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''N'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Now; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmSXMDList.ToolButton10Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<>2 then Exit; + if ClientDataSet1.IsEmpty then Exit; + {with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Main_MD_HZ where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + Open; + end;} + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('SSel;ChkStatus',VarArrayOf([True,'']),[loPartialKey]) then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end; + {if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('ڴвִв!','ʾ',0); + Exit; + end; + if Trim(ADOQueryTemp.FieldByName('ChkStatus').AsString)='' then + begin + Application.MessageBox('Ѵɲִв!','ʾ',0); + Exit; + end;} + if ClientDataSet1.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while ClientDataSet1.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPdate JYOrder_Main_MD_HZ Set ChkStatus=Null,SSTime=Null,SSPerson=Null'); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + sql.Add('Update YF_Money_CR Set Valid=''Y'' '); + sql.Add(' where MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set '); + sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )'); + sql.Add(' where CRID=(select CRID from YF_Money_CR AA where AA.MHID='''+Trim(ClientDataSet1.fieldbyname('MHID').AsString)+''')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('ChkStatus').Value:=''; + FieldByName('SSTime').Value:=Null; + Post; + end; + end; + ClientDataSet1.EnableControls; +end; + +procedure TfrmSXMDList.v1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue,mvalueCS:Boolean; + FPS,FQty,FMoney:Double; +begin + //mvalueCS:=ClientDataSet3.FieldByName('SSel').AsBoolean; + if CheckBox1.Checked=False then exit; + if Trim(PS.Text)='' then + begin + PS.Text:='0'; + end; + FPS:=StrToFloat(PS.Text); + if Trim(Qty.Text)='' then + begin + Qty.Text:='0'; + end; + FQty:=StrToFloat(Qty.Text); + if Trim(Money.Text)='' then + begin + Money.Text:='0'; + end; + FMoney:=StrToFloat(Money.Text); + mvalue:=TcxCheckBox(Sender).EditingValue; + if mvalue=True then + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS+ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS+0; + end; + + FQty:=FQty+ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney+ClientDataSet1.fieldbyname('Money').Value; + end else + begin + if Trim(ClientDataSet1.fieldbyname('PS').AsString)<>'' then + begin + FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + end else + begin + FPS:=FPS-0; + end; + //FPS:=FPS-ClientDataSet1.fieldbyname('PS').Value; + FQty:=FQty-ClientDataSet1.fieldbyname('Qty').Value; + FMoney:=FMoney-ClientDataSet1.fieldbyname('Money').Value; + end; + PS.Text:=FloatToStr(FPS); + Qty.Text:=FloatToStr(FQty); + Money.Text:=FloatToStr(FMoney); +end; + +procedure TfrmSXMDList.CheckBox1Click(Sender: TObject); +begin + PS.Text:=''; + Qty.Text:=''; + Money.Text:=''; + Button2.Click; +end; + +procedure TfrmSXMDList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(orderNo.Text)='' then Exit; + if Length(Trim(orderNo.Text))<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.OrderNo like '''+'%'+Trim(orderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmSXMDList.Button1Click(Sender: TObject); +begin + if cxTabControl2.TabIndex<2 then Exit; + Panel4.Visible:=True; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.YFID,A.CRTime,A.FactoryName,A.Money,A.CRID '); + sql.Add(' ,PSName=isnull(A.PSName,D.PSName),C.OrderNo'); + sql.Add(' ,YFName=isnull(A.YFName,D.PKYongTu)'); + sql.Add(' ,ComTaiTou=isnull(A.ComTaiTou,D.ComTaiTou)'); + sql.Add(' ,PayMent=isnull(A.PayMent,D.PayMent)'); + sql.Add(' ,Note=isnull(A.Note,D.FKNote)'); + sql.Add(' from YF_Money_CR A'); + sql.Add(' inner join YF_Money_KC B on A.CRID=B.CRID'); + SQL.Add(' left join JYOrder_Main C on A.MainId=C.MainId'); + sql.Add(' left join YF_Money_PaiKuan D on A.YFID=D.FKID'); + sql.Add('where A.CRTime>=:begdate and A.CRTime<:Enddate and A.CRType=''Ǽ'' '); + sql.Add(' and A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + SQL.Add(' order by A.CRTime'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select YMR.* '); + SQL.Add(',BQHXMoney=(select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where exists( select * from'); + sql.Add('(select C.FKID,B.YFID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VVV where VVV.FKID=BB.FKID and VVV.YFID=BB.YFID and VVV.FKID=YMR.YFID)'); + sql.Add(')'); + sql.Add(' ,HXMoney=isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' ,DHXMoney=isnull(YMR.Money,0)-isnull((select isnull(Sum(HXMoney),0) from YF_Money_CR_HX BB where BB.FKID=YMR.YFID),0)'); + sql.Add(' from YF_Money_CR YMR where exists(select * from '); + sql.Add('(select C.FKID '); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' inner join YF_Money_CR B on A.MHID=B.MHID '); + sql.Add(' inner join YF_Money_CR_HX C on B.YFID=C.YFID'); + sql.Add(' where A.FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + if ComboBox4.ItemIndex=0 then + begin + sql.Add(' and A.MHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.MHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=1 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=2 then + begin + sql.Add(' and A.YFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.YFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end else + if ComboBox4.ItemIndex=3 then + begin + sql.Add(' and A.DuiZhangTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.DuiZhangTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1))+''''); + end; + + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + SQL.Add(' )VV where VV.FKID=YMR.YFID)'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5);} +end; + +procedure TfrmSXMDList.FactoryNameKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(FactoryName.Text)='' then Exit; + if Length(Trim(FactoryName.Text))<2 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,isnull(B.YiFuMoney,0) YiFuMoney,YingFuYMoney=isnull(B.Money,0)-isnull(B.YiFuMoney,0) '); + sql.Add(',YSFKDate=(select Top 1 YC.CRTime from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',YSFKMoney=(select Top 1 YC.Money from YF_Money_CR YC inner join YF_Money_CR_HX HX '); + sql.Add(' on YC.YFID=HX.FKID where HX.YFID=B.YFID)'); + sql.Add(',KCMoney=(select KCMoney from YF_Money_KC KC where KC.CRID=B.CRID)'); + sql.Add('from JYOrder_Main_MD_HZ A '); + sql.Add(' left join YF_Money_CR B on A.MHID=B.MHID where 1=1'); + if cxTabControl2.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + sql.Add(' and isnull(A.MDType,'''')<>''ۿ'''); + end else + if cxTabControl2.TabIndex<3 then + begin + sql.Add(' and isnull(A.Status,'''')<>'''' '); + end; + if cxTabControl2.TabIndex=1 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')='''' '); + end else + if cxTabControl2.TabIndex=2 then + begin + sql.Add(' and isnull(A.DuiZhangStatus,'''')=''Ѷ'' '); + end; + sql.Add(' and A.FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDept.dfm b/坯布码单待检(PBMDDJ.dll)/U_SYDept.dfm new file mode 100644 index 0000000..bf4359f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDept.dfm @@ -0,0 +1,311 @@ +object frmSYDept: TfrmSYDept + Left = 73 + Top = 128 + Width = 1004 + Height = 509 + Caption = #32452#32455#32467#26500 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 988 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686#23376#31867 + ImageIndex = 12 + OnClick = TBAddClick + end + object ToolButton1: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #32452#32455#20998#37197 + ImageIndex = 22 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 33 + Width = 249 + Height = 437 + Align = alLeft + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'DPParent' + DataController.KeyField = 'DPID' + OptionsSelection.CellSelect = False + OptionsView.CellAutoHeight = True + OptionsView.Headers = False + RootValue = -1 + Styles.Inactive = DataLink_DDMD.Red + Styles.Selection = DataLink_DDMD.Red + Styles.IncSearch = DataLink_DDMD.Red + TabOrder = 1 + OnClick = cxDBTreeList1Click + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'DPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object Panel1: TPanel + Left = 249 + Top = 33 + Width = 315 + Height = 437 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 41 + Top = 40 + Width = 48 + Height = 12 + Caption = #19978#32423#32452#32455 + end + object Label2: TLabel + Left = 41 + Top = 81 + Width = 48 + Height = 12 + Caption = #32452#32455#21517#31216 + end + object Label3: TLabel + Left = 41 + Top = 121 + Width = 48 + Height = 12 + Caption = #32452#32455#32534#30721 + end + object Label4: TLabel + Left = 24 + Top = 16 + Width = 60 + Height = 14 + Caption = #32452#32455#32467#26500 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 41 + Top = 159 + Width = 48 + Height = 12 + Caption = #39034' '#24207' '#21495 + end + object DPTopName: TEdit + Left = 104 + Top = 37 + Width = 169 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object DPName: TEdit + Left = 104 + Top = 77 + Width = 169 + Height = 20 + TabOrder = 1 + OnKeyPress = DPNameKeyPress + end + object DPNo: TEdit + Left = 104 + Top = 117 + Width = 169 + Height = 20 + TabOrder = 2 + end + object DPOrder: TEdit + Left = 104 + Top = 155 + Width = 169 + Height = 20 + TabOrder = 3 + end + end + object cxGrid4: TcxGrid + Left = 564 + Top = 33 + Width = 424 + Height = 437 + Align = alClient + TabOrder = 3 + object Tv4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DSUser + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21592#24037#32534#21495 + DataBinding.FieldName = 'UserId' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 84 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #30331#24405#21517#31216 + DataBinding.FieldName = 'UserName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 87 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #21592#24037#32452#32455 + DataBinding.FieldName = 'dept' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 74 + end + object v4Column1: TcxGridDBColumn + Caption = #31995#32479#21517#31216 + DataBinding.FieldName = 'MoneyUserName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v4Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 91 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv4 + end + end + object DataSource1: TDataSource + DataSet = CDS_Tree + Left = 147 + Top = 219 + end + object ADOQueryTree: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 528 + Top = 215 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 520 + Top = 258 + end + object CDS_Tree: TClientDataSet + Aggregates = <> + Params = <> + Left = 96 + Top = 256 + end + object CDS_User: TClientDataSet + Aggregates = <> + Params = <> + Left = 680 + Top = 272 + end + object DSUser: TDataSource + DataSet = CDS_User + Left = 675 + Top = 211 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDept.pas b/坯布码单待检(PBMDDJ.dll)/U_SYDept.pas new file mode 100644 index 0000000..e5b4806 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDept.pas @@ -0,0 +1,353 @@ +unit U_SYDept; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, ExtCtrls, DBClient, cxFilter, cxData, cxDataStorage, cxEdit, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, cxTextEdit; + +type + TfrmSYDept = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + DataSource1: TDataSource; + ADOQueryTree: TADOQuery; + ToolButton1: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + DPTopName: TEdit; + DPName: TEdit; + DPNo: TEdit; + CDS_Tree: TClientDataSet; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Label4: TLabel; + ToolButton2: TToolButton; + CDS_User: TClientDataSet; + DSUser: TDataSource; + Label5: TLabel; + DPOrder: TEdit; + v4Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure cxDBTreeList1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure DPNameKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure v4Column1PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + + public + { Public declarations } + end; + +var + frmSYDept: TfrmSYDept; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmSYDept.InitTree(); +var + i:Integer; +begin + try + ADOQueryTree.DisableControls; + with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from SY_Dept order by DPlevel,DPOrder,DPName'); + Open; + end; + SCreateCDS20(ADOQueryTree,CDS_Tree); + SInitCDSData20(ADOQueryTree,CDS_Tree); + //cxDBTreeList1.Items[0].Expand(false); + cxDBTreeList1.Items[0].Expand(True); + finally + ADOQueryTree.EnableControls; + end; + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmSYDept.FormDestroy(Sender: TObject); +begin + frmSYDept:=nil; +end; + +procedure TfrmSYDept.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSYDept.TBRafreshClick(Sender: TObject); +begin + InitTree(); +end; + +procedure TfrmSYDept.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmSYDept.TBAddClick(Sender: TObject); +begin + PState:=11; + DPTopName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString); + //FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + FCPID:=''; + DPName.Text:=''; + DPNo.Text:=''; + DPName.SetFocus; +end; + +procedure TfrmSYDept.cxDBTreeList1Click(Sender: TObject); +begin + PState:=22; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPParent').AsString)+''''); + Open; + end; + FCPID:=Trim(CDS_Tree.fieldbyname('DPID').AsString); + DPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('DPName').AsString); + DPName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString); + DPNo.Text:=Trim(CDS_Tree.fieldbyname('DPNo').AsString); + DPOrder.Text:=Trim(CDS_Tree.fieldbyname('DPOrder').AsString); +end; + +procedure TfrmSYDept.ToolButton1Click(Sender: TObject); +var + maxId:String; + FInt:Integer; +begin + if Trim(DPName.Text)='' then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + {if Trim(DPNo.Text)='' then + begin + Application.MessageBox('벻Ϊգ','ʾ',0); + Exit; + end;} + if Trim(DPOrder.Text)='' then + begin + DPOrder.Text:='99'; + end; + if TryStrToInt(Trim(DPOrder.Text),FInt)=False then + begin + Application.MessageBox('˳ŷǷ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if PState=11 then + begin + if GetLSNo(ADOQueryCmd,maxId,'DP','SY_Dept',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FCPID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from SY_Dept where DPID='''+Trim(FCPID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if PState=11 then + begin + Append; + FieldByName('DPID').Value:=Trim(maxId); + FieldByName('DPName').Value:=Trim(DPName.Text); + FieldByName('DPNo').Value:=Trim(DPNo.Text); + FieldByName('DPParent').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString); + FieldByName('DPLevel').Value:=CDS_Tree.fieldbyname('DPLevel').AsInteger+1; + FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text)); + Post; + end else + if PState=22 then + begin + Edit; + FieldByName('DPID').Value:=Trim(maxId); + FieldByName('DPName').Value:=Trim(DPName.Text); + FieldByName('DPNo').Value:=Trim(DPNo.Text); + FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text)); + //FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + //FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmSYDept.TBDelClick(Sender: TObject); +begin + if ADOQueryTree.FieldByName('DPLevel').AsInteger=0 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('Ѿ¼֯ɾ','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('֯Աɾ','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + sql.Add('delete SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + ExecSQL; + end; + InitTree(); +end; + +procedure TfrmSYDept.DPNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + DPNo.SetFocus; +end; + +procedure TfrmSYDept.FormShow(Sender: TObject); +begin + InitTree(); +end; + +procedure TfrmSYDept.ToolButton2Click(Sender: TObject); +begin + if CDS_Tree.IsEmpty=False then + begin + if CDS_User.IsEmpty then Exit; + if Application.MessageBox('ȷҪ֯','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update SY_User Set DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+''''); + ExecSQL; + end; + with CDS_User do + begin + Edit; + FieldByName('Dept').Value:=Trim(CDS_Tree.fieldbyname('DPName').AsString); + Post; + end; + end; +end; + +procedure TfrmSYDept.cxDBTreeList1DblClick(Sender: TObject); +begin + if CDS_Tree.FieldByName('DPLevel').Value=0 then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select A.*,Dept=(select DPName from SY_Dept where DPID=A.DPID) '); + SQL.Add(' from SY_User A where UserId not in(''Admin'',''Test'') '); + SQL.Add(' and Valid=''Y'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_User); + SInitCDSData20(ADOQueryTemp,CDS_User); + end else + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Dept_User :CYType'); + Parameters.ParamByName('CYType').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_User); + SInitCDSData20(ADOQueryTemp,CDS_User); + end; +end; + +procedure TfrmSYDept.v4Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with CDS_User do + begin + Edit; + FieldByName('MoneyUserName').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update SY_User Set MoneyUserName='''+Trim(mvalue)+''''); + sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+''''); + ExecSQL; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.dfm b/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.dfm new file mode 100644 index 0000000..935c76e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.dfm @@ -0,0 +1,296 @@ +object frmSYDeptUserView: TfrmSYDeptUserView + Left = 233 + Top = 146 + Width = 927 + Height = 536 + Caption = #32452#32455#32467#26500#20154#21592#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 911 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_CYZZ.ThreeImgList + Flat = True + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686#23376#31867 + ImageIndex = 12 + Visible = False + OnClick = TBAddClick + end + object ToolButton1: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + Visible = False + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + Visible = False + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 276 + Top = 0 + Caption = #32452#32455#20998#37197 + ImageIndex = 22 + Visible = False + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 33 + Width = 249 + Height = 464 + Align = alLeft + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'DPParent' + DataController.KeyField = 'DPID' + OptionsSelection.CellSelect = False + OptionsView.CellAutoHeight = True + OptionsView.Headers = False + RootValue = -1 + Styles.Inactive = DataLink_CYZZ.Red + Styles.Selection = DataLink_CYZZ.Red + Styles.IncSearch = DataLink_CYZZ.Red + TabOrder = 1 + OnClick = cxDBTreeList1Click + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'DPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object Panel1: TPanel + Left = 249 + Top = 33 + Width = 315 + Height = 464 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + Visible = False + object Label1: TLabel + Left = 66 + Top = 40 + Width = 48 + Height = 12 + Caption = #19978#32423#32452#32455 + end + object Label2: TLabel + Left = 66 + Top = 81 + Width = 48 + Height = 12 + Caption = #32452#32455#21517#31216 + end + object Label3: TLabel + Left = 66 + Top = 121 + Width = 48 + Height = 12 + Caption = #32452#32455#32534#30721 + end + object Label4: TLabel + Left = 24 + Top = 16 + Width = 60 + Height = 14 + Caption = #32452#32455#32467#26500 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 66 + Top = 159 + Width = 48 + Height = 12 + Caption = #39034' '#24207' '#21495 + end + object DPTopName: TEdit + Left = 129 + Top = 37 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object DPName: TEdit + Left = 129 + Top = 77 + Width = 121 + Height = 20 + TabOrder = 1 + OnKeyPress = DPNameKeyPress + end + object DPNo: TEdit + Left = 129 + Top = 117 + Width = 121 + Height = 20 + TabOrder = 2 + end + object DPOrder: TEdit + Left = 129 + Top = 155 + Width = 121 + Height = 20 + TabOrder = 3 + end + end + object cxGrid4: TcxGrid + Left = 564 + Top = 33 + Width = 347 + Height = 464 + Align = alClient + TabOrder = 3 + object Tv4: TcxGridDBTableView + OnDblClick = Tv4DblClick + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DSUser + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21592#24037#32534#21495 + DataBinding.FieldName = 'UserId' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 84 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #21592#24037#21517#31216 + DataBinding.FieldName = 'UserName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 87 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #21592#24037#32452#32455 + DataBinding.FieldName = 'dept' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 74 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv4 + end + end + object DataSource1: TDataSource + DataSet = CDS_Tree + Left = 147 + Top = 219 + end + object ADOQueryTree: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 111 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 520 + Top = 146 + end + object CDS_Tree: TClientDataSet + Aggregates = <> + Params = <> + Left = 96 + Top = 256 + end + object CDS_User: TClientDataSet + Aggregates = <> + Params = <> + Left = 680 + Top = 272 + end + object DSUser: TDataSource + DataSet = CDS_User + Left = 675 + Top = 211 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.pas b/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.pas new file mode 100644 index 0000000..f5c28a1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDeptUserView.pas @@ -0,0 +1,336 @@ +unit U_SYDeptUserView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, ExtCtrls, DBClient, cxFilter, cxData, cxDataStorage, cxEdit, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid; + +type + TfrmSYDeptUserView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + DataSource1: TDataSource; + ADOQueryTree: TADOQuery; + ToolButton1: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + DPTopName: TEdit; + DPName: TEdit; + DPNo: TEdit; + CDS_Tree: TClientDataSet; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Label4: TLabel; + ToolButton2: TToolButton; + CDS_User: TClientDataSet; + DSUser: TDataSource; + Label5: TLabel; + DPOrder: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure cxDBTreeList1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure DPNameKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure Tv4DblClick(Sender: TObject); + private + { Private declarations } + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + + public + { Public declarations } + end; + +var + frmSYDeptUserView: TfrmSYDeptUserView; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmSYDeptUserView.InitTree(); +var + i:Integer; +begin + try + ADOQueryTree.DisableControls; + with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from SY_Dept order by DPlevel,DPOrder,DPName'); + Open; + end; + SCreateCDS20(ADOQueryTree,CDS_Tree); + SInitCDSData20(ADOQueryTree,CDS_Tree); + //cxDBTreeList1.Items[0].Expand(false); + cxDBTreeList1.Items[0].Expand(True); + finally + ADOQueryTree.EnableControls; + end; + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmSYDeptUserView.FormDestroy(Sender: TObject); +begin + frmSYDeptUserView:=nil; +end; + +procedure TfrmSYDeptUserView.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSYDeptUserView.TBRafreshClick(Sender: TObject); +begin + InitTree(); +end; + +procedure TfrmSYDeptUserView.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmSYDeptUserView.TBAddClick(Sender: TObject); +begin + PState:=11; + DPTopName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString); + //FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + FCPID:=''; + DPName.Text:=''; + DPNo.Text:=''; + DPName.SetFocus; +end; + +procedure TfrmSYDeptUserView.cxDBTreeList1Click(Sender: TObject); +begin + PState:=22; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPParent').AsString)+''''); + Open; + end; + FCPID:=Trim(CDS_Tree.fieldbyname('DPID').AsString); + DPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('DPName').AsString); + DPName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString); + DPNo.Text:=Trim(CDS_Tree.fieldbyname('DPNo').AsString); + DPOrder.Text:=Trim(CDS_Tree.fieldbyname('DPOrder').AsString); +end; + +procedure TfrmSYDeptUserView.ToolButton1Click(Sender: TObject); +var + maxId:String; + FInt:Integer; +begin + if Trim(DPName.Text)='' then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + {if Trim(DPNo.Text)='' then + begin + Application.MessageBox('벻Ϊգ','ʾ',0); + Exit; + end;} + if Trim(DPOrder.Text)='' then + begin + DPOrder.Text:='99'; + end; + if TryStrToInt(Trim(DPOrder.Text),FInt)=False then + begin + Application.MessageBox('˳ŷǷ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if PState=11 then + begin + if GetLSNo(ADOQueryCmd,maxId,'DP','SY_Dept',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FCPID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from SY_Dept where DPID='''+Trim(FCPID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if PState=11 then + begin + Append; + FieldByName('DPID').Value:=Trim(maxId); + FieldByName('DPName').Value:=Trim(DPName.Text); + FieldByName('DPNo').Value:=Trim(DPNo.Text); + FieldByName('DPParent').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString); + FieldByName('DPLevel').Value:=CDS_Tree.fieldbyname('DPLevel').AsInteger+1; + FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text)); + Post; + end else + if PState=22 then + begin + Edit; + FieldByName('DPID').Value:=Trim(maxId); + FieldByName('DPName').Value:=Trim(DPName.Text); + FieldByName('DPNo').Value:=Trim(DPNo.Text); + FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text)); + //FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + //FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmSYDeptUserView.TBDelClick(Sender: TObject); +begin + if ADOQueryTree.FieldByName('DPLevel').AsInteger=0 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('Ѿ¼֯ɾ','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('֯Աɾ','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + sql.Add('delete SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + ExecSQL; + end; + InitTree(); +end; + +procedure TfrmSYDeptUserView.DPNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + DPNo.SetFocus; +end; + +procedure TfrmSYDeptUserView.FormShow(Sender: TObject); +begin + InitTree(); +end; + +procedure TfrmSYDeptUserView.ToolButton2Click(Sender: TObject); +begin + if CDS_Tree.IsEmpty=False then + begin + if CDS_User.IsEmpty then Exit; + if Application.MessageBox('ȷҪ֯','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update SY_User Set DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+''''); + ExecSQL; + end; + with CDS_User do + begin + Edit; + FieldByName('Dept').Value:=Trim(CDS_Tree.fieldbyname('DPName').AsString); + Post; + end; + end; +end; + +procedure TfrmSYDeptUserView.cxDBTreeList1DblClick(Sender: TObject); +begin + if CDS_Tree.FieldByName('DPLevel').Value=0 then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select A.*,Dept=(select DPName from SY_Dept where DPID=A.DPID) '); + SQL.Add(' from SY_User A where UserId not in(''Admin'',''Test'') '); + SQL.Add(' and Valid=''Y'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_User); + SInitCDSData20(ADOQueryTemp,CDS_User); + end else + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Dept_User :CYType'); + Parameters.ParamByName('CYType').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_User); + SInitCDSData20(ADOQueryTemp,CDS_User); + end; +end; + +procedure TfrmSYDeptUserView.Tv4DblClick(Sender: TObject); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.dfm b/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.dfm new file mode 100644 index 0000000..530efab --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.dfm @@ -0,0 +1,304 @@ +object frmSYDeptView: TfrmSYDeptView + Left = 233 + Top = 146 + Width = 927 + Height = 536 + Caption = #32452#32455#32467#26500#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 911 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_KangChi.ThreeImgList + Flat = True + Images = DataLink_KangChi.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 10 + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686#23376#31867 + ImageIndex = 12 + Visible = False + OnClick = TBAddClick + end + object ToolButton1: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + Visible = False + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + Visible = False + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 339 + Top = 0 + Caption = #32452#32455#20998#37197 + ImageIndex = 22 + Visible = False + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 422 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 315 + Top = 33 + Width = 596 + Height = 464 + Align = alClient + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'DPParent' + DataController.KeyField = 'DPID' + OptionsSelection.CellSelect = False + OptionsView.CellAutoHeight = True + OptionsView.Headers = False + RootValue = -1 + Styles.Inactive = DataLink_KangChi.Red + Styles.Selection = DataLink_KangChi.Red + Styles.IncSearch = DataLink_KangChi.Red + TabOrder = 1 + OnClick = cxDBTreeList1Click + OnDblClick = cxDBTreeList1DblClick + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'DPName' + Width = 210 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 315 + Height = 464 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + Visible = False + object Label1: TLabel + Left = 66 + Top = 40 + Width = 48 + Height = 12 + Caption = #19978#32423#32452#32455 + end + object Label2: TLabel + Left = 66 + Top = 81 + Width = 48 + Height = 12 + Caption = #32452#32455#21517#31216 + end + object Label3: TLabel + Left = 66 + Top = 121 + Width = 48 + Height = 12 + Caption = #32452#32455#32534#30721 + end + object Label4: TLabel + Left = 24 + Top = 16 + Width = 60 + Height = 14 + Caption = #32452#32455#32467#26500 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 66 + Top = 159 + Width = 48 + Height = 12 + Caption = #39034' '#24207' '#21495 + end + object DPTopName: TEdit + Left = 129 + Top = 37 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 0 + end + object DPName: TEdit + Left = 129 + Top = 77 + Width = 121 + Height = 20 + TabOrder = 1 + OnKeyPress = DPNameKeyPress + end + object DPNo: TEdit + Left = 129 + Top = 117 + Width = 121 + Height = 20 + TabOrder = 2 + end + object DPOrder: TEdit + Left = 129 + Top = 155 + Width = 121 + Height = 20 + TabOrder = 3 + end + end + object cxGrid4: TcxGrid + Left = 352 + Top = 64 + Width = 359 + Height = 273 + TabOrder = 3 + Visible = False + object Tv4: TcxGridDBTableView + OnDblClick = Tv4DblClick + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DSUser + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_KangChi.SHuangSe + Styles.IncSearch = DataLink_KangChi.SHuangSe + Styles.Selection = DataLink_KangChi.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21592#24037#32534#21495 + DataBinding.FieldName = 'UserId' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_KangChi.Default + Width = 84 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #21592#24037#21517#31216 + DataBinding.FieldName = 'UserName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_KangChi.Default + Width = 87 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #21592#24037#32452#32455 + DataBinding.FieldName = 'dept' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_KangChi.Default + Width = 74 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv4 + end + end + object DataSource1: TDataSource + DataSet = CDS_Tree + Left = 147 + Top = 219 + end + object ADOQueryTree: TADOQuery + Connection = DataLink_KangChi.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_KangChi.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 111 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_KangChi.ADOLink + Parameters = <> + Left = 520 + Top = 146 + end + object CDS_Tree: TClientDataSet + Aggregates = <> + Params = <> + Left = 96 + Top = 256 + end + object CDS_User: TClientDataSet + Aggregates = <> + Params = <> + Left = 680 + Top = 272 + end + object DSUser: TDataSource + DataSet = CDS_User + Left = 675 + Top = 211 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.pas b/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.pas new file mode 100644 index 0000000..46469f9 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SYDeptView.pas @@ -0,0 +1,344 @@ +unit U_SYDeptView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, ExtCtrls, DBClient, cxFilter, cxData, cxDataStorage, cxEdit, + cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid; + +type + TfrmSYDeptView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + DataSource1: TDataSource; + ADOQueryTree: TADOQuery; + ToolButton1: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + DPTopName: TEdit; + DPName: TEdit; + DPNo: TEdit; + CDS_Tree: TClientDataSet; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Label4: TLabel; + ToolButton2: TToolButton; + CDS_User: TClientDataSet; + DSUser: TDataSource; + Label5: TLabel; + DPOrder: TEdit; + ToolButton3: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure cxDBTreeList1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure DPNameKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxDBTreeList1DblClick(Sender: TObject); + procedure Tv4DblClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + + public + { Public declarations } + end; + +var + frmSYDeptView: TfrmSYDeptView; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmSYDeptView.InitTree(); +var + i:Integer; +begin + try + ADOQueryTree.DisableControls; + with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from SY_Dept order by DPlevel,DPOrder,DPName'); + Open; + end; + SCreateCDS20(ADOQueryTree,CDS_Tree); + SInitCDSData20(ADOQueryTree,CDS_Tree); + //cxDBTreeList1.Items[0].Expand(false); + cxDBTreeList1.Items[0].Expand(True); + finally + ADOQueryTree.EnableControls; + end; + //cxDBTreeList1.Items[1].Expand(False); +end; + +procedure TfrmSYDeptView.FormDestroy(Sender: TObject); +begin + frmSYDeptView:=nil; +end; + +procedure TfrmSYDeptView.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSYDeptView.TBRafreshClick(Sender: TObject); +begin + InitTree(); +end; + +procedure TfrmSYDeptView.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmSYDeptView.TBAddClick(Sender: TObject); +begin + PState:=11; + DPTopName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString); + //FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + FCPID:=''; + DPName.Text:=''; + DPNo.Text:=''; + DPName.SetFocus; +end; + +procedure TfrmSYDeptView.cxDBTreeList1Click(Sender: TObject); +begin + PState:=22; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPParent').AsString)+''''); + Open; + end; + FCPID:=Trim(CDS_Tree.fieldbyname('DPID').AsString); + DPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('DPName').AsString); + DPName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString); + DPNo.Text:=Trim(CDS_Tree.fieldbyname('DPNo').AsString); + DPOrder.Text:=Trim(CDS_Tree.fieldbyname('DPOrder').AsString); +end; + +procedure TfrmSYDeptView.ToolButton1Click(Sender: TObject); +var + maxId:String; + FInt:Integer; +begin + if Trim(DPName.Text)='' then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + {if Trim(DPNo.Text)='' then + begin + Application.MessageBox('벻Ϊգ','ʾ',0); + Exit; + end;} + if Trim(DPOrder.Text)='' then + begin + DPOrder.Text:='99'; + end; + if TryStrToInt(Trim(DPOrder.Text),FInt)=False then + begin + Application.MessageBox('˳ŷǷ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if PState=11 then + begin + if GetLSNo(ADOQueryCmd,maxId,'DP','SY_Dept',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FCPID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from SY_Dept where DPID='''+Trim(FCPID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if PState=11 then + begin + Append; + FieldByName('DPID').Value:=Trim(maxId); + FieldByName('DPName').Value:=Trim(DPName.Text); + FieldByName('DPNo').Value:=Trim(DPNo.Text); + FieldByName('DPParent').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString); + FieldByName('DPLevel').Value:=CDS_Tree.fieldbyname('DPLevel').AsInteger+1; + FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text)); + Post; + end else + if PState=22 then + begin + Edit; + FieldByName('DPID').Value:=Trim(maxId); + FieldByName('DPName').Value:=Trim(DPName.Text); + FieldByName('DPNo').Value:=Trim(DPNo.Text); + FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text)); + //FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString); + //FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmSYDeptView.TBDelClick(Sender: TObject); +begin + if ADOQueryTree.FieldByName('DPLevel').AsInteger=0 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('Ѿ¼֯ɾ','ʾ',0); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + Open; + if not IsEmpty then + begin + Application.MessageBox('֯Աɾ','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + sql.Add('delete SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + ExecSQL; + end; + InitTree(); +end; + +procedure TfrmSYDeptView.DPNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + DPNo.SetFocus; +end; + +procedure TfrmSYDeptView.FormShow(Sender: TObject); +begin + InitTree(); +end; + +procedure TfrmSYDeptView.ToolButton2Click(Sender: TObject); +begin + if CDS_Tree.IsEmpty=False then + begin + if CDS_User.IsEmpty then Exit; + if Application.MessageBox('ȷҪ֯','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update SY_User Set DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+''''); + sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+''''); + ExecSQL; + end; + with CDS_User do + begin + Edit; + FieldByName('Dept').Value:=Trim(CDS_Tree.fieldbyname('DPName').AsString); + Post; + end; + end; +end; + +procedure TfrmSYDeptView.cxDBTreeList1DblClick(Sender: TObject); +begin + if CDS_Tree.FieldByName('DPLevel').Value=0 then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select A.*,Dept=(select DPName from SY_Dept where DPID=A.DPID) '); + SQL.Add(' from SY_User A where UserId not in(''Admin'',''Test'') '); + SQL.Add(' and Valid=''Y'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_User); + SInitCDSData20(ADOQueryTemp,CDS_User); + end else + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Select_Dept_User :CYType'); + Parameters.ParamByName('CYType').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_User); + SInitCDSData20(ADOQueryTemp,CDS_User); + end; + ModalResult:=1; +end; + +procedure TfrmSYDeptView.Tv4DblClick(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmSYDeptView.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.dfm new file mode 100644 index 0000000..74f0339 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.dfm @@ -0,0 +1,1391 @@ +object frmTJCKCKOK: TfrmTJCKCKOK + Left = 32 + Top = 0 + Width = 1308 + Height = 700 + Align = alClient + Caption = #35843#33410#20179#24211#20986#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1292 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1292 + Height = 36 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 24 + Top = 13 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 65 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 204 + Width = 1292 + Height = 264 + Align = alTop + TabOrder = 2 + object ScrollBox4: TScrollBox + Left = 0 + Top = 0 + Width = 585 + Height = 260 + Align = alLeft + TabOrder = 0 + object Panel3: TPanel + Left = 0 + Top = 120 + Width = 581 + Height = 19 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 7 + Top = 3 + Width = 60 + Height = 14 + Caption = #29983#20135#27969#31243 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 581 + Height = 25 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label9: TLabel + Left = 7 + Top = 4 + Width = 60 + Height = 14 + Caption = #22522#26412#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 88 + Top = 6 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit2: TEdit + Tag = 2 + Left = 129 + Top = 2 + Width = 240 + Height = 20 + TabOrder = 0 + OnChange = Edit2Change + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 139 + Width = 581 + Height = 117 + Align = alBottom + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + Width = 41 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'PSXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 89 + end + object v2Column1: TcxGridDBColumn + Caption = #39044#35745#25439#32791'%' + DataBinding.FieldName = 'PSSH' + Options.Editing = False + Options.Sorting = False + Width = 85 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27880#24847#20107#39033'/'#21697#36136#35828#26126 + DataBinding.FieldName = 'PSNote' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.Default + Width = 290 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel4: TPanel + Left = 0 + Top = 25 + Width = 581 + Height = 95 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label12: TLabel + Left = 200 + Top = 30 + Width = 67 + Height = 12 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 391 + Top = 30 + Width = 67 + Height = 12 + Caption = #20811' '#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 200 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 8 + Top = 32 + Width = 67 + Height = 12 + Caption = #35268' '#26684#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 200 + Top = 53 + Width = 67 + Height = 12 + Caption = #33337' '#26679#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 391 + Top = 53 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #20135#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 391 + Top = 9 + Width = 67 + Height = 12 + Caption = #25104' '#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 8 + Top = 53 + Width = 65 + Height = 12 + Caption = #20811#37325#35828#26126#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 8 + Top = 76 + Width = 66 + Height = 12 + Caption = #29702' '#21333' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ChuanY: TBtnEditC + Tag = 2 + Left = 260 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 0 + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 456 + Top = 49 + Width = 120 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 1 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 2 + end + object MPRTSpec: TEdit + Tag = 2 + Left = 70 + Top = 27 + Width = 120 + Height = 20 + TabOrder = 3 + end + object MPRTCF: TEdit + Tag = 2 + Left = 456 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 4 + end + object MPRTMF: TEdit + Tag = 2 + Left = 260 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 5 + end + object MPRTKZ: TEdit + Tag = 2 + Left = 456 + Top = 26 + Width = 120 + Height = 20 + TabOrder = 6 + end + object MPRTKZNote: TEdit + Tag = 2 + Left = 71 + Top = 49 + Width = 120 + Height = 20 + TabOrder = 7 + end + object MPRTCode: TBtnEditA + Tag = 2 + Left = 70 + Top = 5 + Width = 120 + Height = 20 + TabOrder = 8 + end + object LiDanPerson: TEdit + Tag = 2 + Left = 70 + Top = 72 + Width = 120 + Height = 20 + TabOrder = 9 + end + end + end + object ScrollBox6: TScrollBox + Left = 585 + Top = 0 + Width = 703 + Height = 260 + Align = alClient + TabOrder = 1 + object Panel7: TPanel + Left = 0 + Top = 119 + Width = 699 + Height = 20 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 12 + Top = 3 + Width = 90 + Height = 14 + Caption = #35746#21333#23433#25490#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 24 + Width = 699 + Height = 95 + Align = alTop + TabOrder = 1 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v5Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v5Column8PropertiesEditValueChanged + Options.Sorting = False + Width = 35 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 73 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 75 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 76 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 68 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 699 + Height = 24 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label4: TLabel + Left = 14 + Top = 4 + Width = 90 + Height = 14 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Tag = 2 + Left = 149 + Top = 2 + Width = 168 + Height = 20 + TabOrder = 0 + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 139 + Width = 699 + Height = 117 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 36 + end + object v1Column7: TcxGridDBColumn + Caption = #24037#24207 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 72 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 47 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_CYZZ.handBlack + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394#35828#26126 + DataBinding.FieldName = 'ColorNote' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v1Column3: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23433#25490#25968#37327 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #23433#25490#21305#25968 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + 'P' + 'Kg') + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 43 + end + object v1Column6: TcxGridDBColumn + Caption = #23436#25104#29575'%' + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 68 + Width = 1292 + Height = 136 + Align = alTop + TabOrder = 3 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn14 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v3Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column7: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v3Column8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column9: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNO' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v3Column10: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v3Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v3Column12: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v3Column13: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object Tv6Column1: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv6Column2: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object Tv6Column3: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v3Column2: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v3Column3: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v3Column4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column5: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv6 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 500 + Width = 1292 + Height = 161 + Align = alClient + TabOrder = 4 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn22 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn23 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNO' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 85 + end + object cxGridDBColumn19: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 88 + end + object cxGridDBColumn20: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn21: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object cxGridDBColumn22: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn23: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object cxGridDBColumn26: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object cxGridDBColumn27: TcxGridDBColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column1: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + HeaderAlignmentHorz = taCenter + Width = 73 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn33: TcxGridDBColumn + Tag = 2 + Caption = #32568#21495 + DataBinding.FieldName = 'GangNo' + HeaderAlignmentHorz = taCenter + Width = 39 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 468 + Width = 1292 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 5 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + Caption = #20445#23384 + ImageIndex = 5 + end + end + object cxGrid4: TcxGrid + Left = 133 + Top = 233 + Width = 345 + Height = 177 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 6 + Visible = False + object TvOrdeNo: TcxGridDBTableView + OnDblClick = TvOrdeNoDblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_OrderNo + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn34: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 166 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 155 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TvOrdeNo + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 640 + Top = 168 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 672 + Top = 168 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object CDS_OrderNo: TClientDataSet + Aggregates = <> + Params = <> + Left = 197 + Top = 304 + end + object DS_OrderNo: TDataSource + DataSet = CDS_OrderNo + Left = 269 + Top = 304 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 152 + Top = 432 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 224 + Top = 432 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 872 + Top = 280 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 920 + Top = 280 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 984 + Top = 424 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 1024 + Top = 424 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 656 + Top = 592 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 688 + Top = 592 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.pas new file mode 100644 index 0000000..abffbd2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKCKOK.pas @@ -0,0 +1,562 @@ +unit U_TJCKCKOK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView; + +type + TfrmTJCKCKOK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ScrollBox3: TScrollBox; + ScrollBox4: TScrollBox; + Panel3: TPanel; + Label2: TLabel; + Panel5: TPanel; + Label9: TLabel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel4: TPanel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label21: TLabel; + Label25: TLabel; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + ChuanY: TBtnEditC; + DLYDate: TDateTimePicker; + MPRTCodeName: TEdit; + MPRTSpec: TEdit; + MPRTCF: TEdit; + MPRTMF: TEdit; + MPRTKZ: TEdit; + MPRTKZNote: TEdit; + MPRTCode: TBtnEditA; + LiDanPerson: TEdit; + ScrollBox6: TScrollBox; + Panel7: TPanel; + Label13: TLabel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + v5Column8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + Panel2: TPanel; + Label4: TLabel; + Edit1: TEdit; + Label5: TLabel; + Edit2: TEdit; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv6Column1: TcxGridDBColumn; + Tv6Column2: TcxGridDBColumn; + Tv6Column3: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + Tv3Column1: TcxGridDBColumn; + CDS_OrderNo: TClientDataSet; + DS_OrderNo: TDataSource; + cxGrid4: TcxGrid; + TvOrdeNo: TcxGridDBTableView; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet5: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet3: TClientDataSet; + DataSource3: TDataSource; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Edit2Change(Sender: TObject); + procedure TvOrdeNoDblClick(Sender: TObject); + procedure v5Column8PropertiesEditValueChanged(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + FMainId,SParameters1:String; + procedure InitGrid(); + procedure InitGridCK(); + public + { Public declarations } + end; + +var + frmTJCKCKOK: TfrmTJCKCKOK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList; +{$R *.dfm} + +procedure TfrmTJCKCKOK.FormDestroy(Sender: TObject); +begin + frmTJCKCKOK:=nil; +end; + +procedure TfrmTJCKCKOK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKCKOK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKCKOK.InitGrid(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,'); + sql.Add(' JSKCPS=(select sum(PS*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID ),'); + sql.Add(' JSKCQty=(select sum(Qty*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID )'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + sql.Add(' and isnull(A.CRFlag,'''')='''' '); + sql.Add(' and A.KCQty>0'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); +end; + +procedure TfrmTJCKCKOK.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTJCKCKOK.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + +end; + +procedure TfrmTJCKCKOK.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKCKOK.v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKCKOK.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,'); + sql.Add(' JSKCPS=(select sum(PS*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID ),'); + sql.Add(' JSKCQty=(select sum(Qty*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID )'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + sql.Add(' and isnull(A.CRFlag,'''')='''' '); + sql.Add(' and A.KCQty>0'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmTJCKCKOK.Edit2Change(Sender: TObject); +var + mvalue:String; +begin + mvalue:=Trim(Edit2.Text); + if Length(Trim(mvalue))<2 then + begin + cxGrid4.Visible:=False; + Exit; + end; + mvalue:='%'+Trim(mvalue)+'%'; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A'); + sql.Add(' where A.orderno like :orderno '); + //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))'); + Parameters.ParamByName('orderno').Value:=mvalue; + Open; + end; + SCreateCDS20(ADOQuery1,CDS_OrderNo); + SInitCDSData20(ADOQuery1,CDS_OrderNo); + if CDS_OrderNo.IsEmpty then cxGrid4.Visible:=False else cxGrid4.Visible:=True; +end; + +procedure TfrmTJCKCKOK.TvOrdeNoDblClick(Sender: TObject); +begin + Edit2.Text:=CDS_OrderNo.fieldbyname('OrderNo').AsString; + cxGrid4.Visible:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main where Orderno='''+Trim(Edit2.Text)+''''); + Open; + end; + SCSHData(ADOQueryTemp,Panel4,2); + FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet1); + SInitCDSData20(ADOQueryTemp,ClientDataSet1); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + sql.Add(' where A.ConNo like '''+'%'+Trim(Edit2.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet5); + SInitCDSData20(ADOQueryTemp,ClientDataSet5); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where MainId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); + //InitGrid(); +end; + +procedure TfrmTJCKCKOK.v5Column8PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet5.fieldbyname('SubID').AsString); + with ClientDataSet5 do + begin + while ClientDataSet5.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet5.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGridCK(); +end; + +procedure TfrmTJCKCKOK.v2Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + with ClientDataSet2 do + begin + while ClientDataSet2.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet2.Locate('PSID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGridCK(); +end; + +procedure TfrmTJCKCKOK.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + PSID:String; + Mvalue:Boolean; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + PSID:=Trim(ClientDataSet1.fieldbyname('SubID').AsString); + with ClientDataSet1 do + begin + while ClientDataSet1.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + ClientDataSet1.Locate('SubID',PSID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + InitGridCK(); +end; +procedure TfrmTJCKCKOK.InitGridCK(); +var + FPSID,FOrdSubId,FConSubId:String; +begin + if ClientDataSet2.Locate('SSel',True,[])=True then + begin + FPSID:=Trim(ClientDataSet2.fieldbyname('PSID').AsString); + end else + begin + FPSID:=''; + end; + if ClientDataSet5.Locate('SSel',True,[])=True then + begin + FConSubId:=Trim(ClientDataSet5.fieldbyname('SubId').AsString); + end else + begin + FConSubId:=''; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price '); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where A.ORDMainId='''+Trim(FMainId)+''''); + if Trim(FPSID)<>'' then + begin + sql.Add(' and A.PSID='''+Trim(FPSID)+''''); + end; + if Trim(FConSubId)<>'' then + begin + sql.Add(' and A.ConSubID='''+Trim(FConSubId)+''''); + end; + if ClientDataSet1.Locate('SSel',True,[])=True then + begin + FOrdSubId:=Trim(ClientDataSet1.fieldbyname('SubId').AsString); + end else + begin + FOrdSubId:=''; + end; + if Trim(SParameters1)<>'Ȩ' then + begin + SQL.Add(' and A.Filler='''+Trim(DName)+''''); + end; + // sql.Add(' and A.MDType=''Χ'' '); + SQL.Add(' and isnull(CKName,'''')=''ڲֿ'' '); + sql.Add(' and isnull(CRFlag,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmTJCKCKOK.ToolButton3Click(Sender: TObject); +begin + if Trim(FMainId)='' then + begin + Application.MessageBox('ûѡ񶩵!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡӹͬ!','ʾ',0); + Exit; + end; + if ClientDataSet2.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + with ClientDataSet6 do + begin + Append; + ClientDataSet5.Locate('SSel',True,[]); + ClientDataSet2.Locate('SSel',True,[]); + FieldByName('ConNo').Value:=ClientDataSet5.fieldbyname('ConNo').Value; + FieldByName('FactoryNo').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('FactoryNoName').Value:=ClientDataSet5.fieldbyname('FactoryNoName').Value; + FieldByName('Price').Value:=ClientDataSet5.fieldbyname('Price').Value; + FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value; + FieldByName('QtyUnit').Value:=ClientDataSet5.fieldbyname('C_Unit').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.dfm new file mode 100644 index 0000000..5f1fdfe --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.dfm @@ -0,0 +1,724 @@ +object frmTJCKDCView: TfrmTJCKDCView + Left = 273 + Top = 24 + Width = 1036 + Height = 709 + Caption = #24453#22788#29702#20179#24211#35843#20986#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1020 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1020 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 277 + Top = 9 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 23 + Top = 9 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 407 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 560 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 712 + Top = 9 + Width = 26 + Height = 12 + Caption = #31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 318 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 180 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object ConCode: TEdit + Tag = 2 + Left = 460 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 3 + OnChange = ConCodeChange + OnKeyPress = OrderNoKeyPress + end + object ConName: TEdit + Tag = 2 + Left = 614 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 4 + OnChange = ConCodeChange + OnKeyPress = OrderNoKeyPress + end + object ClotheType10: TComboBox + Tag = 1 + Left = 741 + Top = 5 + Width = 64 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = OrderNoChange + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + '') + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 62 + Width = 1020 + Height = 371 + Align = alClient + TabOrder = 2 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.handBlack + Styles.BandHeader = DataLink_DDMD.FontBlue + Bands = < + item + Caption = #24453#22788#29702#20179#24211 + Width = 1588 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 39 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Options.Editing = False + Options.Focusing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FoneRed + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FoneRed + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Styles.Header = DataLink_DDMD.FonePurple + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Styles.Header = DataLink_DDMD.FonePurple + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'CKPS' + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.Default + Styles.Header = DataLink_DDMD.FoneClMaroon + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'CKQty' + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_DDMD.Default + Styles.Header = DataLink_DDMD.FoneClMaroon + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 433 + Width = 1020 + Height = 237 + Align = alBottom + TabOrder = 3 + object cxGrid5: TcxGrid + Left = 0 + Top = 17 + Width = 1016 + Height = 216 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v5Column4 + end + item + Kind = skSum + Column = v5Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35843#20986#26085#26399 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v5Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v5Column7: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35843#20986#21305#25968 + DataBinding.FieldName = 'SJCKPS' + Width = 68 + end + object v5Column1: TcxGridDBColumn + Caption = #35843#20986#25968#37327 + DataBinding.FieldName = 'SJCKQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 52 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv5 + end + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1016 + Height = 17 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label16: TLabel + Left = 14 + Top = 2 + Width = 52 + Height = 12 + Caption = #35843#20986#35760#24405 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 224 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 816 + Top = 552 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 792 + Top = 552 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 616 + Top = 224 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 768 + Top = 552 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.pas new file mode 100644 index 0000000..9c7b12d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKDCView.pas @@ -0,0 +1,298 @@ +unit U_TJCKDCView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmTJCKDCView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + ScrollBox3: TScrollBox; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label16: TLabel; + Label18: TLabel; + ConCode: TEdit; + Label19: TLabel; + ConName: TEdit; + v5Column8: TcxGridDBColumn; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + Label21: TLabel; + ClotheType10: TComboBox; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + v6Column12: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v5Column4: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ConCodeChange(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + procedure InitGridKK(); + public + { Public declarations } + end; + +var + frmTJCKDCView: TfrmTJCKDCView; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp; +{$R *.dfm} + +procedure TfrmTJCKDCView.FormDestroy(Sender: TObject); +begin + frmTJCKDCView:=nil; +end; + +procedure TfrmTJCKDCView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKDCView.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKDCView.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' PRTColor=isnull(JS.PRTColorNo,'''')+'' ''+isnull(JS.PRTColorEng,'''')+'' ''+isnull(JS.PRTColor,''''), '); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' and isnull(A.Status,'''')=''ȷ'' '); + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmTJCKDCView.InitGridKK(); +var + fsj:string; +begin + + +end; +procedure TfrmTJCKDCView.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('Tv61',Tv6,'ڲֿ'); + {ReadCxBandedGrid('Tv2',Tv2,'ڲֿ'); + ReadCxBandedGrid('Tv3',Tv3,'ڲֿ'); + ReadCxGrid('Tv5',Tv5,'ڲֿ'); } + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-60; +end; + +procedure TfrmTJCKDCView.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('Tv61',Tv6,'ڲֿ'); + close; +end; + +procedure TfrmTJCKDCView.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKDCView.v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKDCView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' PRTColor=isnull(JS.PRTColorNo,'''')+'' ''+isnull(JS.PRTColorEng,'''')+'' ''+isnull(JS.PRTColor,''''), '); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' and isnull(A.Status,'''')=''ȷ'' '); + sql.Add(' and JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); + end; + +end; + +procedure TfrmTJCKDCView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKDCView.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKDCView.ConCodeChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKDCView.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.*,E.PSName,C.OrderNO,MPRTCode=C.MPRTCode+C.MPRTGY,D.PRTHX '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''') '); + sql.Add(' from JYOrder_Main_MD_Out A '); + sql.Add(' left join JYOrder_PCS_Sub B on A.PFID=B.PFID'); + sql.Add(' left join JYOrder_Process E on B.PSID=E.PSID'); + sql.Add(' left join JYOrder_Main C on B.Mainid=C.Mainid'); + sql.Add(' left join JYOrder_Sub D on B.Subid=D.SubId'); + sql.Add(' where A.MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.dfm new file mode 100644 index 0000000..b6b456e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.dfm @@ -0,0 +1,564 @@ +object frmTJCKKC: TfrmTJCKKC + Left = 37 + Top = 17 + Width = 1183 + Height = 650 + Caption = #24453#22788#29702#20179#24211#24211#23384 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1167 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object Panel2: TPanel + Left = 63 + Top = 0 + Width = 476 + Height = 30 + TabOrder = 0 + object Label6: TLabel + Left = 8 + Top = 9 + Width = 65 + Height = 12 + Caption = #25968#25454#26469#28304#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 185 + Top = 9 + Width = 65 + Height = 12 + Caption = #35843#20837#21305#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 308 + Top = 9 + Width = 65 + Height = 12 + Caption = #35843#20837#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ComboBox1: TComboBox + Left = 71 + Top = 5 + Width = 111 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + #22806#22260 + #23454#20307) + end + object DRPS: TEdit + Left = 245 + Top = 5 + Width = 55 + Height = 20 + TabOrder = 1 + end + object DRQty: TEdit + Left = 369 + Top = 5 + Width = 99 + Height = 20 + TabOrder = 2 + end + end + object ToolButton4: TToolButton + Left = 539 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = ToolButton4Click + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1167 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label3: TLabel + Left = 27 + Top = 9 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 157 + Top = 9 + Width = 72 + Height = 12 + Caption = #21305#21495'/'#32769#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 329 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 463 + Top = 9 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 574 + Top = 9 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 681 + Top = 9 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 801 + Top = 9 + Width = 52 + Height = 12 + Caption = #23384#25918#22320#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 68 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + end + object BatchNo: TEdit + Tag = 2 + Left = 231 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 1 + OnChange = OrderNoChange + end + object ConName: TEdit + Tag = 2 + Left = 383 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 493 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 3 + end + object PRTHX: TEdit + Tag = 2 + Left = 604 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 4 + end + object FactoryName: TEdit + Tag = 2 + Left = 723 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 5 + end + object ToFactoryName: TEdit + Tag = 2 + Left = 854 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 6 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 71 + Width = 1167 + Height = 23 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1167 + ClientRectTop = 23 + end + object cxGrid6: TcxGrid + Left = 0 + Top = 94 + Width = 1167 + Height = 517 + Align = alClient + TabOrder = 3 + object Tv6: TcxGridDBTableView + OnMouseDown = Tv6MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v3Column16: TcxGridDBColumn + Caption = #21305#21495'/'#32769#21333#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Width = 144 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column17: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 70 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 72 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object LiYongXS: TcxGridDBColumn + Caption = #20877#21033#29992#31995#25968 + DataBinding.FieldName = 'LiYongXS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 87 + end + object v3Column13: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v3Column18: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column20: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v3Column2: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v3Column14: TcxGridDBColumn + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v3Column15: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 55 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv6 + end + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 256 + Top = 229 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 288 + Top = 232 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 320 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 344 + Top = 236 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.pas new file mode 100644 index 0000000..bedec87 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKKC.pas @@ -0,0 +1,252 @@ +unit U_TJCKKC; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, BtnEdit, + ExtCtrls, ToolWin, cxCalendar, cxButtonEdit, cxGridBandedTableView, + cxGridDBBandedTableView, cxPC; + +type + TfrmTJCKKC = class(TForm) + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Panel1: TPanel; + ADOQuery1: TADOQuery; + Order_Sub: TClientDataSet; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + cxTabControl1: TcxTabControl; + Panel2: TPanel; + ComboBox1: TComboBox; + Label6: TLabel; + Label8: TLabel; + DRPS: TEdit; + Label9: TLabel; + DRQty: TEdit; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v3Column3: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + LiYongXS: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label3: TLabel; + Label18: TLabel; + Label19: TLabel; + Label2: TLabel; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + OrderNo: TEdit; + BatchNo: TEdit; + ConName: TEdit; + PRTColor: TEdit; + PRTHX: TEdit; + FactoryName: TEdit; + ToFactoryName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure v6Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv6MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + FFMainId:String; + FDataType:string; + end; + +var + frmTJCKKC: TfrmTJCKKC; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmTJCKKC.FormDestroy(Sender: TObject); +begin + frmTJCKKC:=nil; +end; + +procedure TfrmTJCKKC.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKKC.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ',Tv6,'ڲֿ'); + InitGrid(); +end; +procedure TfrmTJCKKC.InitGrid(); +begin + with ADOQuery1 do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_DCLKC :ClotheType'); + Parameters.ParamByName('ClotheType').Value:=Trim(cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); +end; + +procedure TfrmTJCKKC.OrderNoChange(Sender: TObject); +begin + if ADOQuery1.Active=False then Exit; + SDofilter(ADOQuery1,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); +end; + +procedure TfrmTJCKKC.ToolButton1Click(Sender: TObject); +var + FReal:Double; +begin + if Order_Sub.IsEmpty then Exit; + { if Order_Sub.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + if Trim(Order_Sub.fieldbyname('ToFactoryName').AsString)='' then + begin + ComboBox1.ItemIndex:=1; + end; + if Trim(ComboBox1.Text)='' then + begin + Application.MessageBox('ԴΪ!','ʾ',0); + Exit; + end; + if Trim(DRPS.Text)='' then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if Trim(DRQty.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if TryStrToFloat(Trim(DRPS.Text),FReal)=False then + begin + Application.MessageBox('ƥǷ!','ʾ',0); + Exit; + end; + if TryStrToFloat(Trim(DRQty.Text),FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + if StrToFloat(DRQty.Text)>Order_Sub.FieldByName('JSKCQty').Value then + begin + Application.MessageBox('ܴڿ!','ʾ',0); + Exit; + end; + { if Order_Sub.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + if Trim(FFMainId)=Trim(Order_Sub.fieldbyname('ORDMainId').AsString) then + begin + Application.MessageBox('DZݣܵ!','ʾ',0); + Exit; + end; + end; } + if Application.MessageBox(PChar('ȷҪ<'+ComboBox1.Text+'ֿ>'),'ʾ',32+4)<>IDYES then Exit; + ModalResult:=1; + +end; + +procedure TfrmTJCKKC.ToolButton4Click(Sender: TObject); +begin + Close; + WriteCxGrid('ѡ',Tv6,'ڲֿ'); + ModalResult:=-1; +end; + +procedure TfrmTJCKKC.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKKC.v6Column2PropertiesEditValueChanged(Sender: TObject); +var + Mvalue:Boolean; + MDID:string; +begin + Mvalue:=TcxCheckBox(Sender).EditingValue; + MDID:=Trim(Order_Sub.fieldbyname('MDID').AsString); + with Order_Sub do + begin + while Order_Sub.Locate('SSel',True,[])=True do + begin + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + Order_Sub.Locate('MDID',MDID,[]); + Edit; + FieldByName('SSel').Value:=Mvalue; + Post; + end; + +end; + +procedure TfrmTJCKKC.Tv6MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Trim(FDataType)='ֿ' then + begin + ComboBox1.ItemIndex:=1; + ComboBox1.Enabled:=false; + Exit; + end; + if Trim(Order_Sub.fieldbyname('ToFactoryName').AsString)='' then + begin + ComboBox1.ItemIndex:=1; + ComboBox1.Enabled:=false; + end else + begin + ComboBox1.ItemIndex:=-1; + ComboBox1.Enabled:=True; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.dfm new file mode 100644 index 0000000..288b5c2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.dfm @@ -0,0 +1,1120 @@ +object frmTJCKOutOK: TfrmTJCKOutOK + Left = 54 + Top = 22 + Width = 1252 + Height = 709 + Caption = #35843#33410#20179#24211#35843#29992#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1236 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 277 + Top = 9 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 23 + Top = 9 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 407 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 560 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 318 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 180 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object Button8: TButton + Left = 718 + Top = 5 + Width = 46 + Height = 20 + Caption = #21047#26032 + TabOrder = 3 + OnClick = Button8Click + end + object Button9: TButton + Left = 776 + Top = 5 + Width = 46 + Height = 20 + Caption = #36807#28388 + TabOrder = 4 + OnClick = Button9Click + end + object Button10: TButton + Left = 916 + Top = 5 + Width = 46 + Height = 20 + Caption = #20851#38381 + TabOrder = 5 + OnClick = Button10Click + end + object C_Code: TEdit + Tag = 2 + Left = 460 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 614 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object Button2: TButton + Left = 834 + Top = 5 + Width = 70 + Height = 20 + Caption = #25805#20316#35828#26126 + TabOrder = 8 + OnClick = Button2Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 382 + Width = 1236 + Height = 141 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v6Column2 + end + item + Kind = skSum + Column = Tv2Column1 + end + item + Kind = skSum + Column = v6Column21 + end + item + Kind = skSum + Column = v6Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1225 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'CKPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object Tv2Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'CKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 37 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'SJCKPS' + PropertiesClassName = 'TcxTextEditProperties' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'SJCKQty' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'RKQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 30 + Width = 1236 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#35843#20986 + #24050#35843#20986 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1236 + ClientRectTop = 23 + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 523 + Width = 1236 + Height = 147 + Align = alBottom + TabOrder = 3 + object cxGrid3: TcxGrid + Left = 0 + Top = 17 + Width = 1232 + Height = 126 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column1: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v5Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1232 + Height = 17 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label16: TLabel + Left = 14 + Top = 2 + Width = 78 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object Panel5: TPanel + Left = 0 + Top = 51 + Width = 1236 + Height = 331 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Label5: TLabel + Left = 872 + Top = 65 + Width = 48 + Height = 12 + Caption = #21333' '#20215 + end + object Label4: TLabel + Left = 943 + Top = 23 + Width = 54 + Height = 12 + Caption = #26412' '#36947 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 872 + Top = 88 + Width = 48 + Height = 12 + Caption = #21512#21516#31867#22411 + end + object Label7: TLabel + Left = 872 + Top = 155 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label8: TLabel + Left = 872 + Top = 175 + Width = 48 + Height = 12 + Caption = #21333' '#20215 + end + object Label9: TLabel + Left = 943 + Top = 132 + Width = 54 + Height = 12 + Caption = #19979' '#36947 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 872 + Top = 197 + Width = 48 + Height = 12 + Caption = #21512#21516#31867#22411 + end + object Label2: TLabel + Left = 872 + Top = 45 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label11: TLabel + Left = 1057 + Top = 136 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + Visible = False + end + object Label12: TLabel + Left = 1081 + Top = 210 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + Visible = False + end + object Label13: TLabel + Left = 872 + Top = 108 + Width = 48 + Height = 12 + Caption = #30721#21333#31867#22411 + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 847 + Height = 327 + Align = alLeft + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn3 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + Column = cxGridDBColumn3 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object Tv1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + Width = 66 + end + object v1Column1: TcxGridDBColumn + Caption = #33457#21495 + DataBinding.FieldName = 'PRTHX' + Width = 32 + end + object v1Column2: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + Width = 35 + end + object v1Column3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + Width = 60 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + Width = 65 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Width = 64 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + Width = 45 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 37 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 117 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv1 + end + end + object FromPrice: TEdit + Tag = 99 + Left = 922 + Top = 61 + Width = 120 + Height = 20 + TabOrder = 1 + end + object FromConTypeOther: TBtnEditA + Tag = 99 + Left = 922 + Top = 83 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = FromConTypeOtherBtnClick + end + object ToFactoryName: TBtnEditA + Tag = 99 + Left = 922 + Top = 150 + Width = 121 + Height = 20 + Hint = 'ToFactoryNo' + ReadOnly = True + TabOrder = 3 + OnBtnClick = ToFactoryNameBtnClick + end + object ToPrice: TEdit + Tag = 99 + Left = 922 + Top = 171 + Width = 120 + Height = 20 + TabOrder = 4 + end + object ToConTypeOther: TBtnEditA + Tag = 99 + Left = 922 + Top = 192 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 5 + OnBtnClick = ToConTypeOtherBtnClick + end + object Button1: TButton + Left = 946 + Top = 233 + Width = 65 + Height = 21 + Caption = #20445#23384 + TabOrder = 6 + OnClick = Button1Click + end + object FromFactoryName: TBtnEditA + Tag = 99 + Left = 922 + Top = 40 + Width = 121 + Height = 20 + Hint = 'FromFactoryNo' + ReadOnly = True + TabOrder = 7 + OnBtnClick = FromFactoryNameBtnClick + end + object FromPSName: TComboBox + Left = 1106 + Top = 132 + Width = 122 + Height = 20 + ItemHeight = 12 + TabOrder = 8 + Visible = False + end + object ToPSName: TComboBox + Left = 1130 + Top = 206 + Width = 122 + Height = 20 + ItemHeight = 12 + TabOrder = 9 + Visible = False + end + object MDType: TComboBox + Tag = 99 + Left = 922 + Top = 104 + Width = 121 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 10 + Items.Strings = ( + #22806#22260 + #23454#20307) + end + object Button3: TButton + Left = 946 + Top = 265 + Width = 65 + Height = 21 + Caption = #35843#29992#25764#38144 + TabOrder = 11 + OnClick = Button3Click + end + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 224 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 608 + Top = 26 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 640 + Top = 26 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 664 + Top = 26 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 352 + Top = 432 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 376 + Top = 432 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 864 + Top = 584 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1008 + Top = 584 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 26 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 232 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 928 + Top = 592 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 824 + Top = 448 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.pas new file mode 100644 index 0000000..ffaf88a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOK.pas @@ -0,0 +1,1120 @@ +unit U_TJCKOutOK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit; + +type + TfrmTJCKOutOK = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv2Column1: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + cxTabControl1: TcxTabControl; + ScrollBox3: TScrollBox; + Button8: TButton; + Button9: TButton; + Button10: TButton; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label16: TLabel; + v5Column6: TcxGridDBColumn; + Label18: TLabel; + C_Code: TEdit; + Label19: TLabel; + C_CodeName: TEdit; + v5Column8: TcxGridDBColumn; + v6Column3: TcxGridDBBandedColumn; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel5: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label5: TLabel; + FromPrice: TEdit; + Label4: TLabel; + FromConTypeOther: TBtnEditA; + Label6: TLabel; + ToFactoryName: TBtnEditA; + Label7: TLabel; + Label8: TLabel; + ToPrice: TEdit; + Label9: TLabel; + ToConTypeOther: TBtnEditA; + Label10: TLabel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + FromFactoryName: TBtnEditA; + Label2: TLabel; + Label11: TLabel; + FromPSName: TComboBox; + Label12: TLabel; + ToPSName: TComboBox; + MDType: TComboBox; + Label13: TLabel; + v3Column1: TcxGridDBColumn; + Button2: TButton; + Button3: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button10Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure FromFactoryNameBtnClick(Sender: TObject); + procedure ToFactoryNameBtnClick(Sender: TObject); + procedure FromConTypeOtherBtnClick(Sender: TObject); + procedure ToConTypeOtherBtnClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function SaveData():Boolean; + function SaveConData(FONID:string):Boolean; + function SaveMDData(FONID,FOrdMainId,FOrdSubId,FPSID,FPFID,FConMainid,FConSubId:string):Boolean; + public + { Public declarations } + end; + +var + frmTJCKOutOK: TfrmTJCKOutOK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; +{$R *.dfm} + +procedure TfrmTJCKOutOK.FormDestroy(Sender: TObject); +begin + frmTJCKOutOK:=nil; +end; + +procedure TfrmTJCKOutOK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKOutOK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKOutOK.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCode,B.MPRTCodeName,C.PRTHX,C.PRTColorNo,D.PSName,A.* '); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Main B on A.Mainid=B.MainId'); + sql.Add(' left join JYOrder_Sub C on A.SubId=C.SubId'); + SQL.Add(' inner join JYOrder_Process D on A.PSID=D.PSID'); + sql.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and A.TJOutFlag=0'); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and A.TJOutFlag=1'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOK.FormShow(Sender: TObject); +begin + {ReadCxBandedGrid('Tv6',Tv6,'ڲֿ'); + ReadCxBandedGrid('Tv2',Tv2,'ڲֿ'); + ReadCxBandedGrid('Tv3',Tv3,'ڲֿ'); + ReadCxGrid('Tv5',Tv5,'ڲֿ'); } + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-30; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmTJCKOutOK.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTJCKOutOK.ToolButton1Click(Sender: TObject); +begin + {if ClientDataSet6.IsEmpty then Exit; + if cxTabControl1.TabIndex=2 then Exit; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetSaveDataCDSBand(ADOQueryCmd,tv6,ClientDataSet6,'JYOrder_Main_MD',3); + if ClientDataSet6.FieldByName('CostFlag').AsBoolean=True then + begin + FieldByName('CostFlag').Value:=1 + end else + begin + FieldByName('CostFlag').Value:=0; + end; + FieldByName('CRDate').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRPerson').Value:=Trim(DName); + FieldByName('QtyFlag').Value:=1; + FieldByName('RKMDID').Value:=ClientDataSet6.fieldbyname('MDID').Value; + FieldByName('DutyFactoryNo').Value:=ClientDataSet6.fieldbyname('DutyFactoryNo').Value; + FieldByName('ToFactoryNo').Value:=ClientDataSet6.fieldbyname('ToFactoryNo').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set KCPS=(select Sum(PS*QtyFlag) from JYOrder_Main_MD A where A.RKMDID=JYOrder_Main_MD.MDID)'); + sql.Add(',KCQty=(select Sum(Qty*QtyFlag) from JYOrder_Main_MD A where A.RKMDID=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + if cxTabControl1.TabIndex=0 then + ClientDataSet6.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; } +end; + +procedure TfrmTJCKOutOK.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKOutOK.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + + end; + +end; + +procedure TfrmTJCKOutOK.Button10Click(Sender: TObject); +begin + {WriteCxBandedGrid('Tv6',Tv6,'ڲֿ'); + WriteCxBandedGrid('Tv2',Tv2,'ڲֿ'); + WriteCxBandedGrid('Tv3',Tv3,'ڲֿ'); + WriteCxGrid('Tv5',Tv5,'ڲֿ'); } + close; + +end; + +procedure TfrmTJCKOutOK.Button8Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKOutOK.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOK.Button9Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOK.FromFactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + FromFactoryName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString); + FromFactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKOutOK.ToFactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + ToFactoryName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString); + ToFactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKOutOK.FromConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + FromConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKOutOK.ToConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + ToConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKOutOK.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AM.CKID,AM.CKPS,AM.CKQty,AM.SJCKPS,AM.SJCKQty,JM.OrderNo, A.*,B.PSName OrdPSName, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty'); + sql.Add(' from JYOrder_Main_MD_Out AM'); + sql.Add(' inner join JYOrder_Main_MD A on AM.MDID=A.MDID'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + if ClientDataSet1.IsEmpty=False then + SQL.Add(' where AM.PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + if cxTabControl1.TabIndex=0 then + begin + FromFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('FactoryName').AsString); + FromFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + end else + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel5,99); + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + if ClientDataSet2.IsEmpty=False then + sql.Add(' where A.ConNo like '''+'%'+Trim(ClientDataSet2.fieldbyname('OrderNo').AsString)+'%'+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); +end; + +procedure TfrmTJCKOutOK.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + if ClientDataSet2.IsEmpty=False then + sql.Add(' where A.ConNo like '''+'%'+Trim(ClientDataSet2.fieldbyname('OrderNo').AsString)+'%'+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); +end; + +procedure TfrmTJCKOutOK.Button1Click(Sender: TObject); +Var + FReal:Double; + FInt:Integer; +begin + if Trim(FromFactoryName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + {if Trim(ToFactoryName.Text)='' then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; } + if Trim(FromPrice.Text)='' then + begin + Application.MessageBox('۸Ϊ!','ʾ',0); + Exit; + end; + if Trim(MDType.Text)='' then + begin + Application.MessageBox('뵥ͲΪ!','ʾ',0); + Exit; + end; + if TryStrToFloat(FromPrice.Text,FReal)=False then + begin + Application.MessageBox('۸Ƿ!','ʾ',0); + Exit; + end; + if Trim(FromConTypeOther.Text)='' then + begin + Application.MessageBox('ͬͲΪ!','ʾ',0); + Exit; + end; + if (Trim(ToFactoryName.Text)+Trim(ToConTypeOther.Text))<>'' then + begin + if Trim(ToFactoryName.Text)='' then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(ToConTypeOther.Text)='' then + begin + Application.MessageBox('µͬͲΪ!','ʾ',0); + Exit; + end; + end; + if Trim(ToPrice.Text)<>'' then + begin + if TryStrToFloat(ToPrice.Text,FReal)=False then + begin + Application.MessageBox('µ۸Ƿ!','ʾ',0); + Exit; + end; + end; + if Tv2.DataController.Summary.FooterSummaryValues[0]>Tv2.DataController.Summary.FooterSummaryValues[2] then + begin + Application.MessageBox('ڿ!','ʾ',0); + Exit; + end; + if Tv2.DataController.Summary.FooterSummaryValues[0]<>Tv2.DataController.Summary.FooterSummaryValues[1] then + begin + if Application.MessageBox('ȣȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + FInt:=99; + end; + if FInt<>99 then + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + +end; +function TfrmTJCKOutOK.SaveData():Boolean; +var + maxno,ONID:string; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ONID:=Trim(ADOQueryTemp.fieldbyname('ONID').AsString); + end else + begin + ONID:=''; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(ONID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'ON','JYOrder_Main_MD_OutNote',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡڲֿˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ONID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where ONID='''+Trim(ONID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ONID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('PFID').Value:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + FieldByName('ONID').Value:=Trim(maxno); + FieldByName('FromFactoryName').Value:=Trim(FromFactoryName.Text); + FieldByName('FromFactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('ToFactoryName').Value:=Trim(ToFactoryName.Text); + FieldByName('ToFactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('FromConTypeOther').Value:=Trim(FromConTypeOther.Text); + FieldByName('ToConTypeOther').Value:=Trim(ToConTypeOther.Text); + if Trim(FromPrice.Text)<>'' then + begin + FieldByName('FromPrice').Value:=Trim(FromPrice.Text); + end else + begin + FieldByName('FromPrice').Value:='0'; + end; + if Trim(ToPrice.Text)<>'' then + begin + FieldByName('ToPrice').Value:=Trim(ToPrice.Text); + end else + begin + FieldByName('ToPrice').Value:='0'; + end; + FieldByName('MDTYpe').Value:=Trim(MDType.Text); + Post; + end; + SaveConData(maxno); + with ClientDataSet2 do + begin + First; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set '); + if Trim(ClientDataSet2.fieldbyname('SJCKPS').AsString)<>'' then + begin + sql.Add(' SJCKPS='+ClientDataSet2.fieldbyname('SJCKPS').AsString); + end else + begin + sql.Add(' SJCKPS=0'); + end; + if Trim(ClientDataSet2.fieldbyname('SJCKQty').AsString)<>'' then + begin + sql.Add(' ,SJCKQty='+ClientDataSet2.fieldbyname('SJCKQty').AsString); + end else + begin + sql.Add(' ,SJCKQty=0'); + end; + SQL.Add(' where CKID='''+Trim(ClientDataSet2.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(ClientDataSet2.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJOutFlag=1'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + if Trim(ClientDataSet1.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; + if cxTabControl1.TabIndex=0 then + ClientDataSet1.Delete; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ!','ʾ',0); + Result:=True; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmTJCKOutOK.SaveConData(FONID:string):Boolean; +var + maxno,maxsubno,MainID,SubId,PSName:string; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ONID='''+Trim(FONID)+''''); + sql.Add(' and ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MainID:=Trim(ADOQueryTemp.fieldbyname('MainID').AsString); + end else + begin + MainID:=''; + end; + if Trim(MainID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'NM','Contract_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MainID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(MainID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MainID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('ONID').Value:=Trim(FONID); + FieldByName('MainID').Value:=Trim(maxno); + FieldByName('ConNo').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + FieldByName('FactoryNoName').Value:=Trim(FromFactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('ConTypeOther').Value:=Trim(FromConTypeOther.Text); + FieldByName('ConType').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + SubId:=''; + end else + begin + SubId:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + end; + if Trim(SubId)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'NS','Contract_Sub',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(SubId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(SubId)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + FieldByName('C_Code').Value:=ClientDataSet1.fieldbyname('MPRTCode').Value; + FieldByName('C_CodeName').Value:=ClientDataSet1.fieldbyname('MPRTCodeName').Value; + FieldByName('C_Qty').Value:=Tv2.DataController.Summary.FooterSummaryValues[0]; + FieldByName('C_Unit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + if Trim(FromPrice.Text)='' then + FieldByName('Price').Value:=0 + else + FieldByName('Price').Value:=Trim(FromPrice.Text); + Post; + end; + SaveMDData(FONID,Trim(ClientDataSet1.fieldbyname('MainId').AsString), + Trim(ClientDataSet1.fieldbyname('SubId').AsString), + Trim(ClientDataSet1.fieldbyname('PSID').AsString), + Trim(ClientDataSet1.fieldbyname('PFID').AsString), + Trim(maxno),Trim(maxsubno)); + if Trim(ToFactoryName.Text)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Process where '); + sql.Add(' Mainid='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + sql.Add(' and PSXH=(select PSXH+1 from JYOrder_Process where PSID='''+Trim(ClientDataSet1.fieldbyname('PSID').AsString)+''')'); + // sql.Add(' and PSName='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''')'); + + Open; + end; + PSName:=Trim(ADOQueryTemp.fieldbyname('PSName').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ONID='''+Trim(FONID)+''''); + sql.Add(' and ConType='''+Trim(PSName)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MainID:=Trim(ADOQueryTemp.fieldbyname('MainID').AsString); + end else + begin + MainID:=''; + end; + if Trim(MainID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JM','Contract_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MainID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(MainID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MainID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('ONID').Value:=Trim(FONID); + FieldByName('ConNo').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + FieldByName('MainID').Value:=Trim(maxno); + FieldByName('FactoryNoName').Value:=Trim(ToFactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(ToFactoryName.TxtCode); + FieldByName('ConTypeOther').Value:=Trim(ToConTypeOther.Text); + FieldByName('ConType').Value:=Trim(PSName); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + SubId:=''; + end else + begin + SubId:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + end; + if Trim(SubId)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'JS','Contract_Sub',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(SubId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(SubId)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + FieldByName('C_Code').Value:=ClientDataSet1.fieldbyname('MPRTCode').Value; + FieldByName('C_CodeName').Value:=ClientDataSet1.fieldbyname('MPRTCodeName').Value; + FieldByName('C_Qty').Value:=Tv2.DataController.Summary.FooterSummaryValues[0]; + FieldByName('C_Unit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + if Trim(ToPrice.Text)='' then + FieldByName('Price').Value:=0 + else + FieldByName('Price').Value:=Trim(ToPrice.Text); + Post; + end; + end; + Result:=True; + +end; +function TfrmTJCKOutOK.SaveMDData(FONID,FOrdMainId,FOrdSubId,FPSID,FPFID,FConMainid,FConSubId:string):Boolean; +var + maxno,MDID:string; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where ONID='''+Trim(FONID)+''''); + sql.Add(' and FactoryName='''+Trim(ClientDataSet1.fieldbyname('FactoryName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MDID:=Trim(ADOQueryTemp.fieldbyname('MDID').AsString); + end else + begin + MDID:=''; + end; + if Trim(MDID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'NM','JYOrder_Main_MD',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡ뵥ˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MDID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(MDID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MDID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('ONID').Value:=Trim(FONID); + FieldByName('MDID').Value:=Trim(maxno); + FieldByName('OrdMainID').Value:=Trim(FOrdMainId); + FieldByName('ConMainID').Value:=Trim(FConMainId); + FieldByName('ConSubID').Value:=Trim(FConSubId); + FieldByName('OrdSubId').Value:=Trim(FOrdSubId); + FieldByName('PSID').Value:=Trim(FPSID); + FieldByName('PFID').Value:=Trim(FPFID); + FieldByName('MDType').Value:=Trim(MDType.Text); + FieldByName('MDNO').Value:=Trim(maxno); + FieldByName('FactoryName').Value:=Trim(FromFactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('PS').Value:=Tv2.DataController.Summary.FooterSummaryValues[3]; + FieldByName('Qty').Value:=Tv2.DataController.Summary.FooterSummaryValues[0]; + FieldByName('QtyUnit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + FieldByName('PSName').Value:=ClientDataSet1.fieldbyname('PSName').Value; + FieldByName('FromFactoryName').Value:=Trim(ToFactoryName.Text); + FieldByName('FromFactoryNo').Value:=Trim(ToFactoryName.TxtCode); + FieldByName('MDDate').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + Result:=True; + +end; + +procedure TfrmTJCKOutOK.Button2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲֿ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKOutOK.Button3Click(Sender: TObject); +begin + if cxTabControl1.TabIndex<>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' inner join JYOrder_Main_MD_OutNote C on B.ONID=C.ONID'); + SQL.Add(' where C.PFID='''+Trim(ClientDataSet1.fieldbyName('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѳݣܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + //뵥ʵʳ + sql.Add('Update JYOrder_Main_MD_Out Set SJCKPS=0,SJCKQty=0 where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + //³ + sql.Add('Update JYOrder_Main_MD Set CKPS=(select Sum(SJCKPS) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID)'); + sql.Add(',CKQty=(select Sum(SJCKQty) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID in(select MDID from JYOrder_Main_MD_Out B where B.PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''')'); + //ɾԶɵĺͬ + sql.Add('delete Contract_Main where ONID in('); + sql.Add(' select ONID from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''')'); + sql.Add(' and isnull(ONID,'''')<>'''' '); + SQL.Add(' delete Contract_Sub where not exists(select * from Contract_Main A where A.Mainid=Contract_Sub.MainId)'); + //ɾԶɵ뵥 + sql.Add(' delete JYOrder_Main_MD where ONID in('); + sql.Add(' select ONID from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''')'); + sql.Add(' and isnull(ONID,'''')<>'''' '); + //° + sql.Add(' Update JYOrder_PCS_Sub Set WCMQty=0,TJOutFlag=0 where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + //ɾڲֿע + sql.Add(' Delete JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.Delete; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKOutOK.OrderNoChange(Sender: TObject); +begin + Button9.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.dfm new file mode 100644 index 0000000..614df89 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.dfm @@ -0,0 +1,1106 @@ +object frmTJCKOutOKChk: TfrmTJCKOutOKChk + Left = 54 + Top = 22 + Width = 1252 + Height = 709 + Caption = #35843#33410#20179#24211#35843#29992#23457#26680 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1236 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 277 + Top = 9 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 23 + Top = 9 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 407 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 560 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 318 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 180 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object Button8: TButton + Left = 718 + Top = 5 + Width = 46 + Height = 20 + Caption = #21047#26032 + TabOrder = 3 + OnClick = Button8Click + end + object Button9: TButton + Left = 776 + Top = 5 + Width = 46 + Height = 20 + Caption = #36807#28388 + TabOrder = 4 + OnClick = Button9Click + end + object Button10: TButton + Left = 916 + Top = 5 + Width = 46 + Height = 20 + Caption = #20851#38381 + TabOrder = 5 + OnClick = Button10Click + end + object C_Code: TEdit + Tag = 2 + Left = 460 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 614 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object Button2: TButton + Left = 834 + Top = 5 + Width = 70 + Height = 20 + Caption = #25805#20316#35828#26126 + TabOrder = 8 + OnClick = Button2Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 337 + Width = 1236 + Height = 140 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv2CellClick + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv2Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = Tv2Column1 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1225 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'CKPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object Tv2Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'CKQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 78 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'RKQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v2Column1: TcxGridDBBandedColumn + Caption = #20877#21033#29992#20215#26684 + DataBinding.FieldName = 'RKPrice' + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FonePurple + Styles.Header = DataLink_CYZZ.FonePurple + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 30 + Width = 1236 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 1 + TabOrder = 2 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1236 + ClientRectTop = 23 + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 477 + Width = 1236 + Height = 193 + Align = alBottom + TabOrder = 3 + object cxGrid3: TcxGrid + Left = 0 + Top = 17 + Width = 1232 + Height = 172 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 65 + end + object v5Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v3Column1: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_CYZZ.Default + Width = 69 + end + object v5Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.FontBlue + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1232 + Height = 17 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label16: TLabel + Left = 14 + Top = 2 + Width = 78 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object Panel5: TPanel + Left = 0 + Top = 51 + Width = 1236 + Height = 286 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object Label5: TLabel + Left = 784 + Top = 52 + Width = 48 + Height = 12 + Caption = #21333' '#20215 + end + object Label4: TLabel + Left = 863 + Top = 7 + Width = 54 + Height = 12 + Caption = #26412' '#36947 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 784 + Top = 97 + Width = 48 + Height = 12 + Caption = #21512#21516#31867#22411 + end + object Label7: TLabel + Left = 784 + Top = 171 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label8: TLabel + Left = 784 + Top = 193 + Width = 48 + Height = 12 + Caption = #21333' '#20215 + end + object Label9: TLabel + Left = 863 + Top = 148 + Width = 54 + Height = 12 + Caption = #19979' '#36947 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 785 + Top = 236 + Width = 48 + Height = 12 + Caption = #21512#21516#31867#22411 + end + object Label2: TLabel + Left = 784 + Top = 29 + Width = 48 + Height = 12 + Caption = #20379' '#24212' '#21830 + end + object Label11: TLabel + Left = 784 + Top = 120 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label12: TLabel + Left = 784 + Top = 258 + Width = 48 + Height = 12 + Caption = #24037#24207#21517#31216 + end + object Label13: TLabel + Left = 784 + Top = 74 + Width = 48 + Height = 12 + Caption = #35268#26684#22411#21495 + end + object Label14: TLabel + Left = 784 + Top = 215 + Width = 48 + Height = 12 + Caption = #35268#26684#22411#21495 + end + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 767 + Height = 282 + Align = alLeft + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn3 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBColumn4 + end + item + Format = 'FactoryNo' + Column = cxGridDBColumn1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn4 + end + item + Kind = skSum + Column = cxGridDBColumn3 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object Tv1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + Width = 55 + end + object v1Column1: TcxGridDBColumn + Caption = #33457#21495 + DataBinding.FieldName = 'PRTHX' + Width = 36 + end + object v1Column2: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + Width = 39 + end + object v1Column3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + Width = 60 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + Width = 65 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Width = 57 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 71 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'PFGenDanPerson' + HeaderAlignmentHorz = taCenter + Width = 48 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'PFDlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 67 + end + object v1Column4: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + Width = 44 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'PFTPPS' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #30003#35831#25968#37327 + DataBinding.FieldName = 'PFTPQty' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column5: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNoStr' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'PFTPUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y' + #26465 + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 37 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'PFNote' + HeaderAlignmentHorz = taCenter + Width = 59 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv1 + end + end + object FromPrice: TEdit + Tag = 99 + Left = 834 + Top = 48 + Width = 119 + Height = 20 + TabOrder = 1 + end + object FromConTypeOther: TBtnEditA + Tag = 99 + Left = 834 + Top = 93 + Width = 119 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnClick = FromConTypeOtherBtnClick + end + object ToFactoryName: TBtnEditA + Tag = 99 + Left = 834 + Top = 167 + Width = 119 + Height = 20 + Hint = 'ToFactoryNo' + ReadOnly = True + TabOrder = 3 + OnBtnClick = ToFactoryNameBtnClick + end + object ToPrice: TEdit + Tag = 99 + Left = 834 + Top = 189 + Width = 119 + Height = 20 + TabOrder = 4 + end + object ToConTypeOther: TBtnEditA + Tag = 99 + Left = 835 + Top = 232 + Width = 119 + Height = 20 + ReadOnly = True + TabOrder = 5 + OnBtnClick = ToConTypeOtherBtnClick + end + object Button1: TButton + Left = 970 + Top = 116 + Width = 65 + Height = 21 + Caption = #23457#26680#36890#36807 + TabOrder = 6 + OnClick = Button1Click + end + object FromFactoryName: TBtnEditA + Tag = 99 + Left = 834 + Top = 25 + Width = 119 + Height = 20 + Hint = 'FromFactoryNo' + Enabled = False + ReadOnly = True + TabOrder = 7 + OnBtnClick = FromFactoryNameBtnClick + end + object FromPSName: TComboBox + Tag = 99 + Left = 834 + Top = 116 + Width = 119 + Height = 20 + Enabled = False + ItemHeight = 12 + TabOrder = 8 + end + object ToPSName: TComboBox + Tag = 99 + Left = 834 + Top = 254 + Width = 119 + Height = 20 + ItemHeight = 12 + TabOrder = 9 + end + object Button3: TButton + Left = 970 + Top = 167 + Width = 65 + Height = 21 + Caption = #23457#26680#25764#38144 + TabOrder = 10 + OnClick = Button3Click + end + object FromSpec: TEdit + Tag = 99 + Left = 834 + Top = 70 + Width = 119 + Height = 20 + TabOrder = 11 + end + object ToSpec: TEdit + Tag = 99 + Left = 834 + Top = 211 + Width = 119 + Height = 20 + TabOrder = 12 + end + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 224 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 608 + Top = 26 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 640 + Top = 26 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 664 + Top = 26 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 352 + Top = 432 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 376 + Top = 432 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 864 + Top = 584 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1008 + Top = 584 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 26 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 624 + Top = 224 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 928 + Top = 592 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 824 + Top = 448 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.pas new file mode 100644 index 0000000..811471c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutOKChk.pas @@ -0,0 +1,1119 @@ +unit U_TJCKOutOKChk; //10 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit; + +type + TfrmTJCKOutOKChk = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv2Column1: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxTabControl1: TcxTabControl; + ScrollBox3: TScrollBox; + Button8: TButton; + Button9: TButton; + Button10: TButton; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label16: TLabel; + v5Column6: TcxGridDBColumn; + Label18: TLabel; + C_Code: TEdit; + Label19: TLabel; + C_CodeName: TEdit; + v5Column8: TcxGridDBColumn; + v6Column3: TcxGridDBBandedColumn; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel5: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label5: TLabel; + FromPrice: TEdit; + Label4: TLabel; + FromConTypeOther: TBtnEditA; + Label6: TLabel; + ToFactoryName: TBtnEditA; + Label7: TLabel; + Label8: TLabel; + ToPrice: TEdit; + Label9: TLabel; + ToConTypeOther: TBtnEditA; + Label10: TLabel; + Button1: TButton; + v1Column4: TcxGridDBColumn; + FromFactoryName: TBtnEditA; + Label2: TLabel; + Label11: TLabel; + FromPSName: TComboBox; + Label12: TLabel; + ToPSName: TComboBox; + v3Column1: TcxGridDBColumn; + Button2: TButton; + Button3: TButton; + Label13: TLabel; + FromSpec: TEdit; + Label14: TLabel; + ToSpec: TEdit; + v1Column5: TcxGridDBColumn; + v2Column1: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Button10Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure FromFactoryNameBtnClick(Sender: TObject); + procedure ToFactoryNameBtnClick(Sender: TObject); + procedure FromConTypeOtherBtnClick(Sender: TObject); + procedure ToConTypeOtherBtnClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + procedure InitGrid(); + function SaveData():Boolean; + function SaveConData(FONID:string):Boolean; + function SaveMDData(FONID,FOrdMainId,FOrdSubId,FPSID,FPFID,FConMainid,FConSubId:string):Boolean; + public + { Public declarations } + end; + +var + frmTJCKOutOKChk: TfrmTJCKOutOKChk; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; +{$R *.dfm} + +procedure TfrmTJCKOutOKChk.FormDestroy(Sender: TObject); +begin + frmTJCKOutOKChk:=nil; +end; + +procedure TfrmTJCKOutOKChk.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKOutOKChk.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKOutOKChk.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCode,B.MPRTCodeName,C.PRTHX,C.PRTColorNo,D.PSName,B.Mainid,C.SubId,A.*'); + sql.Add(',MDNOStr=dbo.F_Get_Order_SubStr(A.PFID,''MDNOStr'')'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Main B on A.Mainid=B.MainId'); + sql.Add(' left join JYOrder_Sub C on A.SubId=C.SubId'); + SQL.Add(' inner join JYOrder_Process D on A.PSID=D.PSID'); + sql.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and A.TJOutFlag=0'); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and A.TJOutFlag=1'); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOKChk.FormShow(Sender: TObject); +begin + {ReadCxBandedGrid('Tv6',Tv6,'ڲֿ'); + ReadCxBandedGrid('Tv2',Tv2,'ڲֿ'); + ReadCxBandedGrid('Tv3',Tv3,'ڲֿ'); + ReadCxGrid('Tv5',Tv5,'ڲֿ'); } + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-30; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmTJCKOutOKChk.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTJCKOutOKChk.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKOutOKChk.Button10Click(Sender: TObject); +begin + close; + +end; + +procedure TfrmTJCKOutOKChk.Button8Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKOutOKChk.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOKChk.Button9Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); +end; + +procedure TfrmTJCKOutOKChk.FromFactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + FromFactoryName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString); + FromFactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKOutOKChk.ToFactoryNameBtnClick(Sender: TObject); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + ToFactoryName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString); + ToFactoryName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKOutOKChk.FromConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + FromConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKOutOKChk.ToConTypeOtherBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ConTypeOther'; + flagname:='ɹӹͬ'; + if ShowModal=1 then + begin + ToConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKOutOKChk.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +var + fsj:string; +begin + fsj:=' select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+'''' + +' order by PSXH'; + //SInitComBoxBySql(ADOQueryTemp,FromPSName,False,fsj); + SInitComBoxBySql(ADOQueryTemp,ToPSName,False,fsj); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select AM.CKID,AM.CKPS,AM.CKQty,AM.SJCKPS,AM.SJCKQty,JM.OrderNo, A.*,B.PSName OrdPSName, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty'); + sql.Add(' from JYOrder_Main_MD_Out AM'); + sql.Add(' inner join JYOrder_Main_MD A on AM.MDID=A.MDID'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + if ClientDataSet1.IsEmpty=False then + SQL.Add(' where AM.PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + SClearData(Panel5,99); + if cxTabControl1.TabIndex=0 then + begin + FromFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('FactoryName').AsString); + FromFactoryName.TxtCode:=Trim(ClientDataSet1.fieldbyname('FactoryNo').AsString); + FromPSName.Text:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + end else + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel5,99); + FromPSName.Text:=Trim(ADOQuery1.fieldbyname('FromPSName').AsString); + ToPSName.Text:=Trim(ADOQuery1.fieldbyname('ToPSName').AsString); + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + if ClientDataSet2.IsEmpty=False then + sql.Add(' where A.ConNo like '''+'%'+Trim(ClientDataSet2.fieldbyname('OrderNo').AsString)+'%'+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); +end; + +procedure TfrmTJCKOutOKChk.Tv2CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + if ClientDataSet2.IsEmpty=False then + sql.Add(' where A.ConNo like '''+'%'+Trim(ClientDataSet2.fieldbyname('OrderNo').AsString)+'%'+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); +end; + +procedure TfrmTJCKOutOKChk.Button1Click(Sender: TObject); +Var + FReal:Double; + FInt:Integer; +begin + if Trim(FromFactoryName.Text)='' then + begin + Application.MessageBox('Ӧ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(FromPrice.Text)='' then + begin + Application.MessageBox('۸Ϊ!','ʾ',0); + Exit; + end; + if Trim(FromSpec.Text)='' then + begin + Application.MessageBox('ͺŲΪ!','ʾ',0); + Exit; + end; + if TryStrToFloat(FromPrice.Text,FReal)=False then + begin + Application.MessageBox('۸Ƿ!','ʾ',0); + Exit; + end; + if Trim(FromConTypeOther.Text)='' then + begin + Application.MessageBox('ͬͲΪ!','ʾ',0); + Exit; + end; + if (Trim(ToFactoryName.Text)+Trim(ToConTypeOther.Text))<>'' then + begin + if Trim(ToFactoryName.Text)='' then + begin + Application.MessageBox('µӦ̲Ϊ!','ʾ',0); + Exit; + end; + if Trim(ToConTypeOther.Text)='' then + begin + Application.MessageBox('µͬͲΪ!','ʾ',0); + Exit; + end; + if Trim(ToPSName.Text)='' then + begin + Application.MessageBox('µƲΪ!','ʾ',0); + Exit; + end; + if Trim(ToSpec.Text)='' then + begin + Application.MessageBox('µͺŲΪ!','ʾ',0); + Exit; + end; + end; + if Trim(ToPrice.Text)<>'' then + begin + if TryStrToFloat(ToPrice.Text,FReal)=False then + begin + Application.MessageBox('µ۸Ƿ!','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; + +end; +function TfrmTJCKOutOKChk.SaveData():Boolean; +var + maxno,ONID:string; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ONID:=Trim(ADOQueryTemp.fieldbyname('ONID').AsString); + end else + begin + ONID:=''; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(ONID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'ON','JYOrder_Main_MD_OutNote',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡڲֿˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ONID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_OutNote where ONID='''+Trim(ONID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ONID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('PFID').Value:=Trim(ClientDataSet1.fieldbyname('PFID').AsString); + FieldByName('ONID').Value:=Trim(maxno); + FieldByName('FromFactoryName').Value:=Trim(FromFactoryName.Text); + FieldByName('FromFactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('ToFactoryName').Value:=Trim(ToFactoryName.Text); + FieldByName('ToFactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('FromConTypeOther').Value:=Trim(FromConTypeOther.Text); + FieldByName('ToConTypeOther').Value:=Trim(ToConTypeOther.Text); + FieldByName('FromSpec').Value:=Trim(FromSpec.Text); + FieldByName('ToSpec').Value:=Trim(ToSpec.Text); + FieldByName('FromPSName').Value:=Trim(FromPSName.Text); + FieldByName('ToPSName').Value:=Trim(ToPSName.Text); + if Trim(FromPrice.Text)<>'' then + begin + FieldByName('FromPrice').Value:=Trim(FromPrice.Text); + end else + begin + FieldByName('FromPrice').Value:='0'; + end; + if Trim(ToPrice.Text)<>'' then + begin + FieldByName('ToPrice').Value:=Trim(ToPrice.Text); + end else + begin + FieldByName('ToPrice').Value:='0'; + end; + + Post; + end; + SaveConData(maxno); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJOutFlag=1'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + {with ClientDataSet2 do + begin + First; + while not Eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD_Out Set '); + if Trim(ClientDataSet2.fieldbyname('SJCKPS').AsString)<>'' then + begin + sql.Add(' SJCKPS='+ClientDataSet2.fieldbyname('SJCKPS').AsString); + end else + begin + sql.Add(' SJCKPS=0'); + end; + if Trim(ClientDataSet2.fieldbyname('SJCKQty').AsString)<>'' then + begin + sql.Add(' ,SJCKQty='+ClientDataSet2.fieldbyname('SJCKQty').AsString); + end else + begin + sql.Add(' ,SJCKQty=0'); + end; + SQL.Add(' where CKID='''+Trim(ClientDataSet2.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set CKPS='); + sql.Add('(select isnull(sum(SJCKPS),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(',CKQty=(select isnull(sum(SJCKQty),0) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID) '); + sql.Add(' where MDID='''+Trim(ClientDataSet2.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set TJOutFlag=1'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + if Trim(ClientDataSet1.fieldbyname('PFTPUnit').AsString)<>'M' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')*'); + sql.Add('(select KgZM from JYOrder_Process A where A.PSID=JYOrder_PCS_Sub.PSID)'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_PCS_Sub Set WCMQty='); + sql.Add('(select isnull(sum(Qty),0) from JYOrder_Main_MD A where A.PFID=JYOrder_PCS_Sub.PFID and isnull(CKName,'''')='''')'); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + end; } + if cxTabControl1.TabIndex=0 then + ClientDataSet1.Delete; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ!','ʾ',0); + Result:=True; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('쳣!','ʾ',0); + end; +end; +function TfrmTJCKOutOKChk.SaveConData(FONID:string):Boolean; +var + maxno,maxsubno,MainID,SubId,PSName:string; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ONID='''+Trim(FONID)+''''); + sql.Add(' and ConType='''+Trim(ClientDataSet1.fieldbyname('PSName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MainID:=Trim(ADOQueryTemp.fieldbyname('MainID').AsString); + end else + begin + MainID:=''; + end; + if Trim(MainID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'NM','Contract_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MainID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(MainID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MainID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('ONID').Value:=Trim(FONID); + FieldByName('MainID').Value:=Trim(maxno); + FieldByName('ConNo').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + FieldByName('FactoryNoName').Value:=Trim(FromFactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(FromFactoryName.TxtCode); + FieldByName('ConTypeOther').Value:=Trim(FromConTypeOther.Text); + FieldByName('ConType').Value:=Trim(ClientDataSet1.fieldbyname('PSName').AsString); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + SubId:=''; + end else + begin + SubId:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + end; + if Trim(SubId)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'NS','Contract_Sub',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(SubId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(SubId)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + FieldByName('C_Code').Value:=ClientDataSet1.fieldbyname('MPRTCode').Value; + FieldByName('C_CodeName').Value:=ClientDataSet1.fieldbyname('MPRTCodeName').Value; + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PFTPPS').Value; + FieldByName('C_Qty').Value:=ClientDataSet1.fieldbyname('PFTPQty').Value; + FieldByName('C_Unit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + FieldByName('ConQty').Value:=ClientDataSet1.fieldbyname('PFTPQty').Value; + FieldByName('ConUnit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + FieldByName('C_Spec').Value:=Trim(FromSpec.Text); + if Trim(FromPrice.Text)='' then + begin + FieldByName('Price').Value:=0; + FieldByName('ConPrice').Value:=0; + end + else + begin + FieldByName('Price').Value:=Trim(FromPrice.Text); + FieldByName('ConPrice').Value:=Trim(FromPrice.Text); + end; + Post; + end; + //뵥ͬ + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update JYOrder_Main_MD Set'); + sql.Add('ConMainId='''+Trim(maxno)+''''); + sql.Add(',ConSubId='''+Trim(maxsubno)+''''); + sql.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + ExecSQL; + end; + //SaveMDData(); + if Trim(ToFactoryName.Text)<>'' then + begin + PSName:=Trim(ToPSName.Text); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where ONID='''+Trim(FONID)+''''); + sql.Add(' and ConType='''+Trim(PSName)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + MainID:=Trim(ADOQueryTemp.fieldbyname('MainID').AsString); + end else + begin + MainID:=''; + end; + if Trim(MainID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'JM','Contract_Main',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(MainID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main where MainId='''+Trim(MainID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MainID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTIme').Value:=SGetServerDateTime(ADOQuery1); + end; + FieldByName('ONID').Value:=Trim(FONID); + FieldByName('ConNo').Value:=Trim(ClientDataSet1.fieldbyname('OrderNo').AsString); + FieldByName('MainID').Value:=Trim(maxno); + FieldByName('FactoryNoName').Value:=Trim(ToFactoryName.Text); + FieldByName('FactoryNo').Value:=Trim(ToFactoryName.TxtCode); + FieldByName('ConTypeOther').Value:=Trim(ToConTypeOther.Text); + FieldByName('ConType').Value:=Trim(PSName); + Post; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId='''+Trim(maxno)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + SubId:=''; + end else + begin + SubId:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + end; + if Trim(SubId)='' then + begin + if GetLSNo(ADOQueryCmd,maxsubno,'JS','Contract_Sub',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ȡӹɹͬˮʧ!!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(SubId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where SubId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(SubId)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('MainId').Value:=Trim(maxno); + FieldByName('SubId').Value:=Trim(maxsubno); + FieldByName('C_Code').Value:=ClientDataSet1.fieldbyname('MPRTCode').Value; + FieldByName('C_CodeName').Value:=ClientDataSet1.fieldbyname('MPRTCodeName').Value; + FieldByName('PS').Value:=ClientDataSet1.fieldbyname('PFTPPS').Value; + FieldByName('C_Qty').Value:=ClientDataSet1.fieldbyname('PFTPQty').Value; + FieldByName('C_Unit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + FieldByName('ConQty').Value:=ClientDataSet1.fieldbyname('PFTPQty').Value; + FieldByName('ConUnit').Value:=ClientDataSet2.fieldbyname('RKQtyUnit').Value; + FieldByName('C_Spec').Value:=Trim(FromSpec.Text); + if Trim(FromPrice.Text)='' then + begin + FieldByName('Price').Value:=0; + FieldByName('ConPrice').Value:=0; + end + else + begin + FieldByName('Price').Value:=Trim(FromPrice.Text); + FieldByName('ConPrice').Value:=Trim(FromPrice.Text); + end; + Post; + end; + end; + Result:=True; + +end; +function TfrmTJCKOutOKChk.SaveMDData(FONID,FOrdMainId,FOrdSubId,FPSID,FPFID,FConMainid,FConSubId:string):Boolean; +var + maxno,MDID:string; +begin + +end; + +procedure TfrmTJCKOutOKChk.Button2Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲֿ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKOutOKChk.Button3Click(Sender: TObject); +var + BDInt,CPInt,JYInt,Fint:Integer; +begin + if cxTabControl1.TabIndex<>1 then Exit; + if ClientDataSet1.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main_MD B on A.APID=B.MDID'); + sql.Add(' inner join JYOrder_Main_MD_OutNote C on B.ONID=C.ONID'); + SQL.Add(' where C.PFID='''+Trim(ClientDataSet1.fieldbyName('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('Ѳݣܳ!','ʾ',0); + Exit; + end; + //жϹǷԶ뵥 + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYorder_Process B on A.PSID=B.PSID'); + sql.Add(' where A.PFID='''+Trim(ClientDataSet1.fieldbyName('PFID').AsString)+''''); + Open; + end; + BDInt:=ADOQueryTemp.fieldbyname('PSXH').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''Ʒ'' '); + sql.Add(' and MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + CPInt:=ADOQueryTemp.fieldbyname('PSXH').AsInteger; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(PSXH,-1) PSXH from JYOrder_Process where PSName=''װ'' '); + sql.Add(' and MainId='''+Trim(ClientDataSet1.fieldbyname('MainId').AsString)+''''); + Open; + end; + JYInt:=ADOQueryTemp.fieldbyname('PSXH').AsInteger; + if BDInt-1 then + begin + if BDInt+1>=CPInt then + begin + Fint:=99; + end; + end else + begin + if BDInt+1=JYInt then + begin + Fint:=99; + end; + end; + end else + begin + Fint:=99; + end; + + //жϹǷԶ뵥 + //Ʒ뵥ɾ + if Fint=99 then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from JYOrder_Main_MD '); + SQL.Add(' where PFID='''+Trim(ClientDataSet1.fieldbyName('PFID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('¼뵥ܳ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪִг','ʾ',32+4)<>IDYES then exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + //ɾԶɵĺͬ + sql.Add('delete Contract_Main where ONID in('); + sql.Add(' select ONID from JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''')'); + sql.Add(' and isnull(ONID,'''')<>'''' '); + SQL.Add(' delete Contract_Sub where not exists(select * from Contract_Main A where A.Mainid=Contract_Sub.MainId)'); + //°״̬ + sql.Add(' Update JYOrder_PCS_Sub Set TJOutFlag=0 where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + //ɾڲֿע + sql.Add(' Delete JYOrder_Main_MD_OutNote where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + //ȡ뵥ͬ + sql.Add(' Update JYOrder_Main_MD Set ConMainId=Null,ConSubId=Null where PFID='''+Trim(ClientDataSet1.fieldbyname('PFID').AsString)+''''); + + ExecSQL; + end; + + + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet1.Delete; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKOutOKChk.OrderNoChange(Sender: TObject); +begin + Button9.Click; +end; + +procedure TfrmTJCKOutOKChk.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCode,B.MPRTCodeName,C.PRTHX,C.PRTColorNo,D.PSName,B.Mainid,C.SubId,A.*'); + sql.Add(',MDNOStr=dbo.F_Get_Order_SubStr(A.PFID,''MDNOStr'')'); + sql.Add(' from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Main B on A.Mainid=B.MainId'); + sql.Add(' left join JYOrder_Sub C on A.SubId=C.SubId'); + SQL.Add(' inner join JYOrder_Process D on A.PSID=D.PSID'); + sql.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and A.TJOutFlag=0'); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and A.TJOutFlag=1'); + end; + sql.Add(' and B.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.dfm new file mode 100644 index 0000000..d36e0d7 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.dfm @@ -0,0 +1,540 @@ +object frmTJCKOutView: TfrmTJCKOutView + Left = 201 + Top = 90 + Width = 1036 + Height = 709 + Caption = #35843#33410#20179#24211#20986#24211#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1020 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1020 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 175 + Top = 9 + Width = 65 + Height = 12 + Caption = #35843#21069#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 23 + Top = 9 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 329 + Top = 9 + Width = 52 + Height = 12 + Caption = #35843#21069#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 449 + Top = 9 + Width = 52 + Height = 12 + Caption = #35843#21069#39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 820 + Top = 9 + Width = 26 + Height = 12 + Caption = #31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 175 + Top = 33 + Width = 65 + Height = 12 + Caption = #35843#21518#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 329 + Top = 33 + Width = 52 + Height = 12 + Caption = #35843#21518#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 449 + Top = 33 + Width = 52 + Height = 12 + Caption = #35843#21518#39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 572 + Top = 9 + Width = 52 + Height = 12 + Caption = #35843#21069#33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 695 + Top = 9 + Width = 52 + Height = 12 + Caption = #35843#21069#24037#24207 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 572 + Top = 33 + Width = 52 + Height = 12 + Caption = #35843#21518#33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 695 + Top = 33 + Width = 52 + Height = 12 + Caption = #35843#21518#24037#24207 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object TQOrderNo: TEdit + Tag = 2 + Left = 240 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = TQOrderNoChange + OnKeyPress = TQOrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 29 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object TQMPRTCode: TEdit + Tag = 2 + Left = 381 + Top = 5 + Width = 53 + Height = 20 + TabOrder = 3 + OnChange = TQOrderNoChange + end + object TQPRTColor: TEdit + Tag = 2 + Left = 503 + Top = 5 + Width = 53 + Height = 20 + TabOrder = 4 + OnChange = TQOrderNoChange + end + object MDType: TComboBox + Tag = 1 + Left = 849 + Top = 5 + Width = 64 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = TQOrderNoChange + Items.Strings = ( + #22806#22260 + #23454#20307 + '') + end + object THOrderNo: TEdit + Tag = 2 + Left = 240 + Top = 29 + Width = 73 + Height = 20 + TabOrder = 6 + OnChange = TQOrderNoChange + OnKeyPress = THOrderNoKeyPress + end + object THMPRTCode: TEdit + Tag = 2 + Left = 381 + Top = 29 + Width = 53 + Height = 20 + TabOrder = 7 + OnChange = TQOrderNoChange + end + object THPRTColor: TEdit + Tag = 2 + Left = 503 + Top = 29 + Width = 53 + Height = 20 + TabOrder = 8 + OnChange = TQOrderNoChange + end + object TQPRTHX: TEdit + Tag = 2 + Left = 625 + Top = 5 + Width = 53 + Height = 20 + TabOrder = 9 + OnChange = TQOrderNoChange + end + object TQPSName: TEdit + Tag = 2 + Left = 749 + Top = 5 + Width = 53 + Height = 20 + TabOrder = 10 + OnChange = TQOrderNoChange + end + object THPRTHX: TEdit + Tag = 2 + Left = 625 + Top = 29 + Width = 53 + Height = 20 + TabOrder = 11 + OnChange = TQOrderNoChange + end + object THPSName: TEdit + Tag = 2 + Left = 749 + Top = 29 + Width = 53 + Height = 20 + TabOrder = 12 + OnChange = TQOrderNoChange + end + end + object cxGrid5: TcxGrid + Left = 0 + Top = 85 + Width = 1020 + Height = 585 + Align = alClient + TabOrder = 2 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v5Column4 + end + item + Kind = skSum + Position = spFooter + Column = v5Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v5Column4 + end + item + Kind = skSum + Column = v5Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v5Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MDType' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v5Column5: TcxGridDBColumn + Caption = #35843#21069#35746#21333#21495 + DataBinding.FieldName = 'TQOrderNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column6: TcxGridDBColumn + Caption = #35843#21069#24037#24207 + DataBinding.FieldName = 'TQPSName' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v5Column11: TcxGridDBColumn + Caption = #35843#21069#39068#33394 + DataBinding.FieldName = 'TQPRTColor' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v5Column12: TcxGridDBColumn + Caption = #35843#21069#33457#22411 + DataBinding.FieldName = 'TQPRTHX' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #35843#20986#26085#26399 + DataBinding.FieldName = 'FillTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #35843#21518#35746#21333#21495 + DataBinding.FieldName = 'THOrderNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 79 + end + object v5Column10: TcxGridDBColumn + Caption = #35843#21518#24037#24207 + DataBinding.FieldName = 'THPSName' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v5Column8: TcxGridDBColumn + Caption = #35843#21518#20135#21697#32534#21495 + DataBinding.FieldName = 'THMPRTCode' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v5Column7: TcxGridDBColumn + Caption = #35843#21518#33457#22411 + DataBinding.FieldName = 'THPRTHX' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object v5Column3: TcxGridDBColumn + Caption = #35843#21518#39068#33394 + DataBinding.FieldName = 'THPRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35843#20986#21305#25968 + DataBinding.FieldName = 'SJCKPS' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v5Column1: TcxGridDBColumn + Caption = #35843#20986#25968#37327 + DataBinding.FieldName = 'SJCKQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + HeaderAlignmentHorz = taCenter + Width = 52 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv5 + end + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 816 + Top = 360 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 776 + Top = 360 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu4: TcxGridPopupMenu + PopupMenus = <> + Left = 736 + Top = 360 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.pas new file mode 100644 index 0000000..781cc51 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKOutView.pas @@ -0,0 +1,214 @@ +unit U_TJCKOutView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmTJCKOutView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + TQOrderNo: TEdit; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label18: TLabel; + TQMPRTCode: TEdit; + Label19: TLabel; + TQPRTColor: TEdit; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + ADOQueryMain: TADOQuery; + Label21: TLabel; + MDType: TComboBox; + cxGridPopupMenu4: TcxGridPopupMenu; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v5Column8: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v5Column5: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + v5Column10: TcxGridDBColumn; + v5Column11: TcxGridDBColumn; + v5Column12: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + Label2: TLabel; + THOrderNo: TEdit; + Label4: TLabel; + THMPRTCode: TEdit; + Label5: TLabel; + THPRTColor: TEdit; + Label6: TLabel; + Label7: TLabel; + TQPRTHX: TEdit; + TQPSName: TEdit; + Label8: TLabel; + THPRTHX: TEdit; + Label9: TLabel; + THPSName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TQOrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TBFindClick(Sender: TObject); + procedure TQOrderNoChange(Sender: TObject); + procedure THOrderNoKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + procedure InitGrid(); + procedure InitGridStr(fsj:String); + public + { Public declarations } + end; + +var + frmTJCKOutView: TfrmTJCKOutView; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp; +{$R *.dfm} + +procedure TfrmTJCKOutView.FormDestroy(Sender: TObject); +begin + frmTJCKOutView:=nil; +end; + +procedure TfrmTJCKOutView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKOutView.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKOutView.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,THPSName=E.PSName,THOrderNo=C.OrderNO,THMPRTCode=C.MPRTCode,THPRTHX=D.PRTHX '); + sql.Add(',THPRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''') '); + sql.Add(',TQPSName=EE.PSName,TQOrderNo=CC.OrderNO,TQMPRTCode=CC.MPRTCode+CC.MPRTGY,TQPRTHX=DD.PRTHX '); + sql.Add(',TQPRTColor=isnull(DD.PRTColorNo,'''')+'' ''+isnull(DD.PRTColor,'''')+'' ''+isnull(DD.PRTColorEng,'''') '); + sql.Add(',AA.MDType'); + sql.Add(' from JYOrder_Main_MD_Out A '); + sql.Add(' left join JYOrder_PCS_Sub B on A.PFID=B.PFID'); + sql.Add(' left join JYOrder_Process E on B.PSID=E.PSID'); + sql.Add(' left join JYOrder_Main C on B.Mainid=C.Mainid'); + sql.Add(' left join JYOrder_Sub D on B.Subid=D.SubId'); + sql.Add(' inner join JYOrder_Main_MD AA on A.MDID=AA.MDID'); + sql.Add(' inner join JYOrder_PCS_Sub BB on AA.PFID=BB.PFID'); + sql.Add(' left join JYOrder_Process EE on BB.PSID=EE.PSID'); + sql.Add(' left join JYOrder_Main CC on BB.Mainid=CC.Mainid'); + sql.Add(' left join JYOrder_Sub DD on BB.Subid=DD.SubId'); + sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet5); + SInitCDSData20(ADOQueryMain,ClientDataSet5); +end; +procedure TfrmTJCKOutView.InitGridStr(fsj:String); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,THPSName=E.PSName,THOrderNo=C.OrderNO,THMPRTCode=C.MPRTCode+C.MPRTGY,THPRTHX=D.PRTHX '); + sql.Add(',THPRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''') '); + sql.Add(',TQPSName=EE.PSName,TQOrderNo=CC.OrderNO,TQMPRTCode=CC.MPRTCode+CC.MPRTGY,TQPRTHX=DD.PRTHX '); + sql.Add(',TQPRTColor=isnull(DD.PRTColorNo,'''')+'' ''+isnull(DD.PRTColor,'''')+'' ''+isnull(DD.PRTColorEng,'''') '); + sql.Add(',AA.MDType'); + sql.Add(' from JYOrder_Main_MD_Out A '); + sql.Add(' left join JYOrder_PCS_Sub B on A.PFID=B.PFID'); + sql.Add(' left join JYOrder_Process E on B.PSID=E.PSID'); + sql.Add(' left join JYOrder_Main C on B.Mainid=C.Mainid'); + sql.Add(' left join JYOrder_Sub D on B.Subid=D.SubId'); + sql.Add(' inner join JYOrder_Main_MD AA on A.MDID=AA.MDID'); + sql.Add(' inner join JYOrder_PCS_Sub BB on AA.PFID=BB.PFID'); + sql.Add(' left join JYOrder_Process EE on BB.PSID=EE.PSID'); + sql.Add(' left join JYOrder_Main CC on BB.Mainid=CC.Mainid'); + sql.Add(' left join JYOrder_Sub DD on BB.Subid=DD.SubId'); + sql.Add(' where 1=1'); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet5); + SInitCDSData20(ADOQueryMain,ClientDataSet5); +end; + +procedure TfrmTJCKOutView.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv5',Tv5,'ڲֿ¼'); + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-30; +end; + +procedure TfrmTJCKOutView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv5',Tv5,'ڲֿ¼'); + close; +end; + +procedure TfrmTJCKOutView.TQOrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(TQOrderNo.Text)='' then Exit; + InitGridStr(' and CC.OrderNo like '''+'%'+Trim(TQOrderNo.Text)+'%'+''''); + end; + +end; + +procedure TfrmTJCKOutView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet5); + SInitCDSData20(ADOQueryMain,ClientDataSet5); +end; + +procedure TfrmTJCKOutView.TQOrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKOutView.THOrderNoKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(THOrderNo.Text)='' then Exit; + InitGridStr(' and C.OrderNo like '''+'%'+Trim(THOrderNo.Text)+'%'+''''); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.dfm new file mode 100644 index 0000000..d60e5d6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.dfm @@ -0,0 +1,1194 @@ +object frmTJCKRKOK: TfrmTJCKRKOK + Left = 14 + Top = 33 + Width = 1382 + Height = 709 + Caption = #24453#22788#29702#20179#24211#30830#35748 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#35748 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #30830#35748#25764#38144 + ImageIndex = 52 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 259 + Top = 9 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 23 + Top = 9 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 385 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 511 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 636 + Top = 9 + Width = 26 + Height = 12 + Caption = #31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 300 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 161 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object ConCode: TEdit + Tag = 2 + Left = 438 + Top = 5 + Width = 60 + Height = 20 + TabOrder = 3 + OnChange = ConCodeChange + OnKeyPress = OrderNoKeyPress + end + object ConName: TEdit + Tag = 2 + Left = 565 + Top = 5 + Width = 56 + Height = 20 + TabOrder = 4 + OnChange = ConCodeChange + OnKeyPress = OrderNoKeyPress + end + object ClotheType10: TComboBox + Tag = 1 + Left = 665 + Top = 5 + Width = 64 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = OrderNoChange + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + '') + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 83 + Width = 1366 + Height = 202 + Align = alTop + TabOrder = 2 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.handBlack + Styles.BandHeader = DataLink_DDMD.FontBlue + Bands = < + item + Caption = #24453#22788#29702#20179#24211 + Width = 1588 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Moving = False + Styles.Header = DataLink_DDMD.FontBlue + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FontBlue + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 34 + Position.BandIndex = 0 + Position.ColIndex = 24 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 25 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 26 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #19979#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Options.Editing = False + Options.Focusing = False + Width = 65 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 34 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 48 + Position.BandIndex = 0 + Position.ColIndex = 28 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 29 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + Options.Editing = False + Options.Focusing = False + Width = 24 + Position.BandIndex = 0 + Position.ColIndex = 30 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 27 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FoneRed + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_DDMD.FoneRed + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Styles.Header = DataLink_DDMD.FonePurple + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Styles.Header = DataLink_DDMD.FonePurple + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #20837#24211#21333#20301 + DataBinding.FieldName = 'RKQtyUnit' + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ConCode' + HeaderAlignmentHorz = taCenter + Width = 59 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column22: TcxGridDBBandedColumn + Caption = #20877#21033#29992#31995#25968 + DataBinding.FieldName = 'LiYongXS' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.SHuangSeCu + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column23: TcxGridDBBandedColumn + Caption = #38750#26412#21333 + DataBinding.FieldName = 'OtherOrdFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 62 + Width = 1366 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#30830#35748 + #24050#30830#35748 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 23 + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 285 + Width = 1366 + Height = 59 + Align = alTop + TabOrder = 4 + object Label10: TLabel + Left = 199 + Top = 10 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label11: TLabel + Left = 35 + Top = 35 + Width = 48 + Height = 12 + Caption = #25171#20837#31867#22411 + end + object Label12: TLabel + Left = 351 + Top = 35 + Width = 24 + Height = 12 + Caption = #29992#36884 + end + object Label4: TLabel + Left = 280 + Top = 11 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 35 + Top = 10 + Width = 48 + Height = 12 + Caption = #30830#35748#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 562 + Top = 11 + Width = 26 + Height = 12 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 363 + Top = 11 + Width = 24 + Height = 12 + Caption = #21333#20301 + end + object Label22: TLabel + Left = 439 + Top = 10 + Width = 60 + Height = 12 + Caption = #20877#21033#29992#31995#25968 + end + object Label23: TLabel + Left = 439 + Top = 34 + Width = 60 + Height = 12 + Caption = #20877#21033#29992#20215#26684 + end + object Label24: TLabel + Left = 198 + Top = 34 + Width = 24 + Height = 12 + Caption = #29992#36884 + end + object RKPS: TEdit + Tag = 2 + Left = 224 + Top = 6 + Width = 54 + Height = 20 + Hint = '0' + TabOrder = 0 + end + object ClotheType: TComboBox + Tag = 2 + Left = 85 + Top = 31 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697) + end + object RKYongTu: TBtnEditA + Tag = 2 + Left = 225 + Top = 31 + Width = 200 + Height = 20 + TabOrder = 2 + OnBtnClick = RKYongTuBtnClick + end + object RKQty: TEdit + Tag = 2 + Left = 305 + Top = 7 + Width = 56 + Height = 20 + Hint = '0' + TabOrder = 3 + end + object RKDate: TDateTimePicker + Tag = 2 + Left = 85 + Top = 6 + Width = 99 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ShowCheckbox = True + TabOrder = 4 + end + object HZNote: TMemo + Tag = 2 + Left = 589 + Top = 6 + Width = 268 + Height = 45 + TabOrder = 5 + end + object RKPrice: TEdit + Tag = 2 + Left = 502 + Top = 31 + Width = 47 + Height = 20 + Hint = '0' + TabOrder = 6 + end + object RKQtyUnit: TComboBox + Tag = 2 + Left = 386 + Top = 7 + Width = 40 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + Items.Strings = ( + 'KG' + 'M' + 'Y') + end + object LiYongXS: TEdit + Tag = 2 + Left = 502 + Top = 6 + Width = 47 + Height = 20 + TabOrder = 8 + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 344 + Width = 1366 + Height = 179 + Align = alClient + TabOrder = 5 + object cxGrid2: TcxGrid + Left = 45 + Top = 0 + Width = 1317 + Height = 175 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn7 + end + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn8 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.handBlack + Styles.BandHeader = DataLink_DDMD.FontBlue + Bands = < + item + Caption = #25187#27454 + Width = 1105 + end> + object v2Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v2FtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 153 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn7: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#21378#25187#27454 + DataBinding.FieldName = 'ZZFtyMoney' + HeaderAlignmentHorz = taCenter + Options.Moving = False + Styles.Header = DataLink_DDMD.FontBlue + Width = 144 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154#25187#27454 + DataBinding.FieldName = 'ZZPonMoney' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 142 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v2Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 147 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 112 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 407 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 45 + Height = 175 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Button1: TButton + Left = 4 + Top = 34 + Width = 35 + Height = 20 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 107 + Width = 35 + Height = 20 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + end + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 523 + Width = 1366 + Height = 147 + Align = alBottom + TabOrder = 6 + object cxGrid5: TcxGrid + Left = 0 + Top = 17 + Width = 1362 + Height = 126 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 65 + end + object v5Column2: TcxGridDBColumn + Caption = #21512#21516#31867#22411 + DataBinding.FieldName = 'ConType' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 67 + end + object v5Column7: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DLYDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_DDMD.Default + Width = 69 + end + object v5Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v5Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v5Column4: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_CF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v5Column1: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object v5Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 45 + end + object v5Column6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.FontBlue + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv5 + end + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1362 + Height = 17 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label16: TLabel + Left = 14 + Top = 2 + Width = 78 + Height = 12 + Caption = #37319#36141#21152#24037#21512#21516 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 224 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 352 + Top = 432 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 432 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 832 + Top = 600 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 856 + Top = 600 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 608 + Top = 224 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 416 + Top = 432 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 712 + Top = 592 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.pas new file mode 100644 index 0000000..f4d6484 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOK.pas @@ -0,0 +1,742 @@ +unit U_TJCKRKOK; //8 + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmTJCKRKOK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ToolButton2: TToolButton; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + cxTabControl1: TcxTabControl; + ScrollBox1: TScrollBox; + Label10: TLabel; + RKPS: TEdit; + Label11: TLabel; + ClotheType: TComboBox; + RKYongTu: TBtnEditA; + Label12: TLabel; + Label4: TLabel; + RKQty: TEdit; + Label13: TLabel; + RKDate: TDateTimePicker; + ScrollBox2: TScrollBox; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Fty: TcxGridDBBandedColumn; + cxGridDBBandedColumn7: TcxGridDBBandedColumn; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + v2Pon: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel2: TcxGridLevel; + Panel2: TPanel; + Button1: TButton; + Button2: TButton; + ScrollBox3: TScrollBox; + Label15: TLabel; + HZNote: TMemo; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column3: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column5: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label16: TLabel; + v5Column6: TcxGridDBColumn; + RKPrice: TEdit; + Label18: TLabel; + ConCode: TEdit; + Label19: TLabel; + ConName: TEdit; + Label20: TLabel; + RKQtyUnit: TComboBox; + v5Column8: TcxGridDBColumn; + v6Column3: TcxGridDBBandedColumn; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + Label21: TLabel; + ClotheType10: TComboBox; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + ToolButton3: TToolButton; + Label22: TLabel; + LiYongXS: TEdit; + v6Column22: TcxGridDBBandedColumn; + v6Column23: TcxGridDBBandedColumn; + Label23: TLabel; + Label24: TLabel; + ToolButton1: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure RKYongTuBtnClick(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure v2FtyPropertiesEditValueChanged(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ConCodeChange(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + { Public declarations } + procedure InitGridKK(); + end; + +var + frmTJCKRKOK: TfrmTJCKRKOK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; +{$R *.dfm} + +procedure TfrmTJCKRKOK.FormDestroy(Sender: TObject); +begin + frmTJCKRKOK:=nil; +end; + +procedure TfrmTJCKRKOK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKRKOK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKRKOK.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' left join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' left join Contract_Sub D on A.ConSubid=D.SubID'); + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' where A.MDDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.MDDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + end else + begin + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.Status,'''')=''ȷ'' '); + end; + sql.Add(' and isnull(A.ClotheType,'''')=''Ʒ'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmTJCKRKOK.InitGridKK(); +var + fsj:string; +begin + if ClientDataSet6.IsEmpty=False then + begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2fty,fsj,1,True,''); + + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by PFGenDanPerson'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2Pon,fsj,0,True,''); + + end; + + try + ADOQuery1.DisableControls; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK '); + if ClientDataSet6.IsEmpty=False then + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId '); + if ClientDataSet6.IsEmpty=False then + sql.Add(' where A.ConNo like '''+'%'+Trim(ClientDataSet6.fieldbyname('OrderNo').AsString)+'%'+'''') + else + sql.Add(' where 1<>1'); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); + finally + ADOQuery1.EnableControls; + end; + +end; +procedure TfrmTJCKRKOK.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('Tv6',Tv6,'ڲֿ'); + ReadCxBandedGrid('Tv2',Tv2,'ڲֿ'); + + ReadCxGrid('Tv5',Tv5,'ڲֿ'); + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-60; + + + + + RKDate.Date:=EndDate.Date; + RKDate.Checked:=False; + //cxTabControl1.TabIndex:=0; +end; + +procedure TfrmTJCKRKOK.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('Tv6',Tv6,'ڲֿ'); + WriteCxBandedGrid('Tv2',Tv2,'ڲֿ'); + WriteCxGrid('Tv5',Tv5,'ڲֿ'); + close; +end; + +procedure TfrmTJCKRKOK.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + if ClientDataSet6.IsEmpty then + begin + SClearData(ScrollBox1,2); + end; + InitGridKK(); + if cxTabControl1.TabIndex=0 then + begin + RKPS.ReadOnly:=False; + RKQty.ReadOnly:=False; + end; +end; + +procedure TfrmTJCKRKOK.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKRKOK.v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKRKOK.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main_MD where RKMDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(CRFlag,'''')='''' '); + Open; + end; + if ADOQueryTemp.RecordCount>0 then + begin + Application.MessageBox('гݲܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִȷϳ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('CRDate').Value:=NUll; + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('QtyFlag').Value:=Null; + FieldByName('RKMDID').Value:=''; + FieldByName('CRPerson').Value:=''; + FieldByName('Status').Value:=Null; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.Delete; + InitGridKK(); + SClearData(ScrollBox1,2); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȷϳ쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKRKOK.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(Status,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(Status,'''')=''ȷ'' '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmTJCKRKOK.RKYongTuBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + RKYongTu.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKRKOK.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_Main_MD where ORDMainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2fty,fsj,1,True,''); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + InitGridKK(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + RKPS.ReadOnly:=True; + RKQty.ReadOnly:=True; + end; + if ClientDataSet6.FieldByName('OtherOrdFlag').AsBoolean=True then + begin + LiYongXS.ReadOnly:=False; + end else + begin + LiYongXS.ReadOnly:=True; + LiYongXS.Text:=''; + end; +end; + +procedure TfrmTJCKRKOK.Button1Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + with ClientDataSet2 do + begin + Append; + Post; + end; + +end; + +procedure TfrmTJCKRKOK.Button2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet2.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Delete; + if ClientDataSet2.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('Status').AsString)='Э' then + //if ClientDataSet3.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set Status='''' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + end; +end; + +procedure TfrmTJCKRKOK.v2FtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet2 do + begin + Edit; + FieldByName('ZZFactoryName').Value:=Trim(mvalue); + fsj:=TA((v2Fty.Properties as TcxComboBoxProperties).Items.Objects[(v2Fty.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('ZZFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmTJCKRKOK.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKRKOK.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOK.ConCodeChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOK.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ֿȷ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKRKOK.ToolButton1Click(Sender: TObject); +var + Freal:Double; + maxno:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if Trim(LiYongXS.Text)<>'' then + begin + if TryStrToFloat(Trim(LiYongXS.Text),Freal)=False then + begin + Application.MessageBox('ϵǷ!','ʾ',0); + Exit; + end; + end; + if Trim(RKPrice.Text)<>'' then + begin + if TryStrToFloat(Trim(RKPrice.Text),Freal)=False then + begin + Application.MessageBox('ü۸Ƿ!','ʾ',0); + Exit; + end; + end; + if ClientDataSet2.IsEmpty then + begin + if Application.MessageBox('ۿΪ,ȷҪ','ʾ',32+4)<>IDYES then Exit; + end else + begin + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + end; + + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrder_Main_MD',ScrollBox1,2); + FieldByName('Status').Value:='ȷ'; + Post; + end; + + ClientDataSet2.DisableControls; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('KKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'KK','JYOrder_Main_MD_KK',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet2.fieldbyname('KKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet2.fieldbyname('KKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('KKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('KKID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + FieldByName('ZZFactoryNo').Value:=Trim(ClientDataSet2.fieldbyname('ZZFactoryNo').AsString); + RTSetSaveDataCDSBand(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_Main_MD_KK',2); + Post; + end; + Edit; + FieldByName('KKID').Value:=Trim(maxno); + Post; + Next; + end; + end; + ClientDataSet2.EnableControls; + if ClientDataSet2.IsEmpty=False then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set ChuLiStatus=''пۿ'' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set ChuLiStatus=''޿ۿ'' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + if cxTabControl1.TabIndex=0 then + begin + ClientDataSet6.Delete; + SClearData(ScrollBox1,2); + end; + InitGridKK(); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⳷쳣!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.dfm new file mode 100644 index 0000000..1de42cc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.dfm @@ -0,0 +1,1206 @@ +object frmTJCKRKOKQty: TfrmTJCKRKOKQty + Left = 4 + Top = 32 + Width = 1311 + Height = 709 + Caption = #35843#33410#20179#24211#20837#24211#30830#35748'('#25968#37327')' + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1295 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211#30830#35748 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20837#24211#25764#38144 + ImageIndex = 7 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1295 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 259 + Top = 9 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 23 + Top = 9 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 385 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 511 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 636 + Top = 9 + Width = 26 + Height = 12 + Caption = #31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 300 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 161 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object Button8: TButton + Left = 745 + Top = 5 + Width = 46 + Height = 20 + Caption = #21047#26032 + TabOrder = 3 + OnClick = Button8Click + end + object Button9: TButton + Left = 799 + Top = 5 + Width = 46 + Height = 20 + Caption = #36807#28388 + TabOrder = 4 + OnClick = Button9Click + end + object Button10: TButton + Left = 1113 + Top = 5 + Width = 46 + Height = 20 + Caption = #20851#38381 + TabOrder = 5 + OnClick = Button10Click + end + object MPRTCode: TEdit + Tag = 2 + Left = 438 + Top = 5 + Width = 60 + Height = 20 + TabOrder = 6 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 565 + Top = 5 + Width = 56 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeChange + OnKeyPress = OrderNoKeyPress + end + object Button11: TButton + Left = 852 + Top = 5 + Width = 55 + Height = 20 + Caption = #21327#21830#23436#32467 + TabOrder = 8 + OnClick = Button11Click + end + object Button12: TButton + Left = 915 + Top = 5 + Width = 57 + Height = 20 + Caption = #23436#32467#25764#38144 + TabOrder = 9 + OnClick = Button12Click + end + object ClotheType10: TComboBox + Tag = 1 + Left = 665 + Top = 5 + Width = 64 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 10 + OnChange = OrderNoChange + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + '') + end + object Button13: TButton + Left = 1046 + Top = 5 + Width = 59 + Height = 20 + Caption = #25805#20316#35828#26126 + TabOrder = 11 + OnClick = Button13Click + end + object Button14: TButton + Left = 980 + Top = 5 + Width = 59 + Height = 20 + Caption = #20837#24211#25764#38144 + TabOrder = 12 + OnClick = Button14Click + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 83 + Width = 1295 + Height = 301 + Align = alTop + TabOrder = 2 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1588 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 24 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column8: TcxGridDBBandedColumn + Tag = 2 + Caption = #21069#36947#20379#24212#21830 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Options.Editing = False + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 42 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 55 + Position.BandIndex = 0 + Position.ColIndex = 26 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 27 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v6Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 49 + Position.BandIndex = 0 + Position.ColIndex = 25 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #20837#24211#21333#20301 + DataBinding.FieldName = 'RKQtyUnit' + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 70 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 62 + Width = 1295 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #24453#20837#24211 + #24050#20837#24211 + #21327#21830#20013 + #21327#21830#23436#32467 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1295 + ClientRectTop = 23 + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 384 + Width = 1295 + Height = 61 + Align = alTop + TabOrder = 4 + object Label9: TLabel + Left = 25 + Top = 11 + Width = 26 + Height = 36 + Caption = #20837#24211#13#10#13#10#24773#20917 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 184 + Top = 11 + Width = 24 + Height = 12 + Caption = #21305#25968 + end + object Label11: TLabel + Left = 53 + Top = 35 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label12: TLabel + Left = 272 + Top = 11 + Width = 24 + Height = 12 + Caption = #29992#36884 + end + object Label4: TLabel + Left = 183 + Top = 35 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label13: TLabel + Left = 53 + Top = 11 + Width = 24 + Height = 12 + Caption = #26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 485 + Top = 11 + Width = 47 + Height = 12 + Caption = #22791' '#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 272 + Top = 35 + Width = 24 + Height = 12 + Caption = #21333#20301 + end + object RKPS: TEdit + Tag = 2 + Left = 209 + Top = 7 + Width = 54 + Height = 20 + Hint = '0' + TabOrder = 0 + end + object ClotheType: TComboBox + Tag = 2 + Left = 80 + Top = 31 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697) + end + object RKYongTu: TBtnEditA + Tag = 2 + Left = 299 + Top = 7 + Width = 162 + Height = 20 + TabOrder = 2 + OnBtnClick = RKYongTuBtnClick + end + object RKQty: TEdit + Tag = 2 + Left = 208 + Top = 31 + Width = 56 + Height = 20 + Hint = '0' + TabOrder = 3 + end + object RKDate: TDateTimePicker + Tag = 2 + Left = 80 + Top = 7 + Width = 99 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + ShowCheckbox = True + TabOrder = 4 + end + object Button7: TButton + Left = 485 + Top = 31 + Width = 45 + Height = 20 + Caption = #20445#23384 + TabOrder = 5 + OnClick = Button7Click + end + object HZNote: TMemo + Tag = 2 + Left = 534 + Top = 7 + Width = 182 + Height = 49 + TabOrder = 6 + end + object RKQtyUnit: TComboBox + Tag = 2 + Left = 299 + Top = 31 + Width = 48 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 7 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M' + 'P' + #26465) + end + end + object ScrollBox2: TScrollBox + Left = 0 + Top = 445 + Width = 602 + Height = 225 + Align = alLeft + TabOrder = 5 + object cxGrid2: TcxGrid + Left = 45 + Top = 0 + Width = 553 + Height = 221 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #36131#20219#21327#21830 + Width = 549 + end> + object v2Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v2FtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v2Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v2Column3: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 220 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 45 + Height = 221 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Button1: TButton + Left = 4 + Top = 21 + Width = 35 + Height = 20 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 70 + Width = 35 + Height = 20 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 119 + Width = 35 + Height = 20 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button3Click + end + end + end + object ScrollBox4: TScrollBox + Left = 602 + Top = 445 + Width = 693 + Height = 225 + Align = alClient + TabOrder = 6 + object cxGrid3: TcxGrid + Left = 45 + Top = 0 + Width = 644 + Height = 221 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBBandedTableView + OnMouseDown = Tv3MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #36131#20219#30830#23450 + Width = 640 + end> + object v3Fty: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'ZZFactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.OnEditValueChanged = v3FtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v3Pon: TcxGridDBBandedColumn + Tag = 2 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'ZZPerson' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Width = 46 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn16: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'KKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 68 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn17: TcxGridDBBandedColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KKNote' + Width = 239 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v3Column1: TcxGridDBBandedColumn + Caption = #36130#21153#24050#26680#38144 + DataBinding.FieldName = 'CWHX' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Options.Focusing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 75 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv3 + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 45 + Height = 221 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Button4: TButton + Left = 4 + Top = 21 + Width = 35 + Height = 20 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 70 + Width = 35 + Height = 20 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button5Click + end + object Button6: TButton + Left = 4 + Top = 119 + Width = 35 + Height = 20 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button6Click + end + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 224 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 352 + Top = 432 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 376 + Top = 432 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 904 + Top = 448 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 928 + Top = 448 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 720 + Top = 176 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 520 + Top = 400 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 800 + Top = 408 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.pas new file mode 100644 index 0000000..23da9ab --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKQty.pas @@ -0,0 +1,1070 @@ +unit U_TJCKRKOKQty; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmTJCKRKOKQty = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid4: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column8: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + cxTabControl1: TcxTabControl; + ScrollBox1: TScrollBox; + Label9: TLabel; + Label10: TLabel; + RKPS: TEdit; + Label11: TLabel; + ClotheType: TComboBox; + RKYongTu: TBtnEditA; + Label12: TLabel; + Label4: TLabel; + RKQty: TEdit; + Label13: TLabel; + RKDate: TDateTimePicker; + ScrollBox2: TScrollBox; + cxGrid2: TcxGrid; + Tv2: TcxGridDBBandedTableView; + v2Fty: TcxGridDBBandedColumn; + v2Pon: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + v2Column3: TcxGridDBBandedColumn; + cxGridLevel2: TcxGridLevel; + Panel2: TPanel; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Button7: TButton; + Button8: TButton; + Button9: TButton; + Button10: TButton; + Label15: TLabel; + HZNote: TMemo; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + Label18: TLabel; + MPRTCode: TEdit; + Label19: TLabel; + MPRTCodeName: TEdit; + ScrollBox4: TScrollBox; + cxGrid3: TcxGrid; + Tv3: TcxGridDBBandedTableView; + v3Fty: TcxGridDBBandedColumn; + v3Pon: TcxGridDBBandedColumn; + cxGridDBBandedColumn16: TcxGridDBBandedColumn; + cxGridDBBandedColumn17: TcxGridDBBandedColumn; + cxGridLevel4: TcxGridLevel; + Label20: TLabel; + RKQtyUnit: TComboBox; + Panel4: TPanel; + Button4: TButton; + Button5: TButton; + Button6: TButton; + v3Column1: TcxGridDBBandedColumn; + v6Column3: TcxGridDBBandedColumn; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + Button11: TButton; + Button12: TButton; + Label21: TLabel; + ClotheType10: TComboBox; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + ToolButton3: TToolButton; + Button13: TButton; + Button14: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button10Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure RKYongTuBtnClick(Sender: TObject); + procedure Button7Click(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure v2FtyPropertiesEditValueChanged(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeChange(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v3FtyPropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Button13Click(Sender: TObject); + procedure Button14Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure InitGridKK(); + public + { Public declarations } + end; + +var + frmTJCKRKOKQty: TfrmTJCKRKOKQty; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; +{$R *.dfm} + +procedure TfrmTJCKRKOKQty.FormDestroy(Sender: TObject); +begin + frmTJCKRKOKQty:=nil; +end; + +procedure TfrmTJCKRKOKQty.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKRKOKQty.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKRKOKQty.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' where A.MDDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.MDDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + end else + begin + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + end; + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and RKQty=0 '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and RKQty>0 '); + end else + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.Status,'''')=''Э'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end; + // ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmTJCKRKOKQty.InitGridKK(); +var + fsj:string; +begin + if ClientDataSet6.IsEmpty=False then + begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2fty,fsj,1,True,''); + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v3fty,fsj,1,True,''); + fsj:='select Code=PFGenDanPerson,Name=PFGenDanPerson from JYOrder_PCS_Sub where MainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by PFGenDanPerson'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2Pon,fsj,0,True,''); + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v3Pon,fsj,0,True,''); + end; + + try + ADOQuery1.DisableControls; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')=''Э'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(KKTYpe,'''')='''' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet3); + SInitCDSData20(ADOQuery1,ClientDataSet3); + + finally + ADOQuery1.EnableControls; + end; + +end; +procedure TfrmTJCKRKOKQty.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('Tv61',Tv6,'ڲֿ'); + ReadCxBandedGrid('Tv21',Tv2,'ڲֿ'); + ReadCxBandedGrid('Tv31',Tv3,'ڲֿ'); + + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-60; + RKDate.Date:=EndDate.Date; + RKDate.Checked:=False; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmTJCKRKOKQty.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTJCKRKOKQty.ToolButton1Click(Sender: TObject); +begin + {if ClientDataSet6.IsEmpty then Exit; + if cxTabControl1.TabIndex=2 then Exit; + if Application.MessageBox('ȷҪִ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetSaveDataCDSBand(ADOQueryCmd,tv6,ClientDataSet6,'JYOrder_Main_MD',3); + if ClientDataSet6.FieldByName('CostFlag').AsBoolean=True then + begin + FieldByName('CostFlag').Value:=1 + end else + begin + FieldByName('CostFlag').Value:=0; + end; + FieldByName('CRDate').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRPerson').Value:=Trim(DName); + FieldByName('QtyFlag').Value:=1; + FieldByName('RKMDID').Value:=ClientDataSet6.fieldbyname('MDID').Value; + FieldByName('DutyFactoryNo').Value:=ClientDataSet6.fieldbyname('DutyFactoryNo').Value; + FieldByName('ToFactoryNo').Value:=ClientDataSet6.fieldbyname('ToFactoryNo').Value; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set KCPS=(select Sum(PS*QtyFlag) from JYOrder_Main_MD A where A.RKMDID=JYOrder_Main_MD.MDID)'); + sql.Add(',KCQty=(select Sum(Qty*QtyFlag) from JYOrder_Main_MD A where A.RKMDID=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + if cxTabControl1.TabIndex=0 then + ClientDataSet6.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; } +end; + +procedure TfrmTJCKRKOKQty.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + if ClientDataSet6.IsEmpty then + begin + SClearData(ScrollBox1,2); + end; + InitGridKK(); + if cxTabControl1.TabIndex=0 then + begin + RKPS.ReadOnly:=False; + RKQty.ReadOnly:=False; + end; +end; + +procedure TfrmTJCKRKOKQty.v6Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('DutyFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('DutyFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKRKOKQty.v6Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.ClientDataSet6 do + begin + Edit; + FieldByName('ToFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmTJCKRKOKQty.ToolButton2Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main_MD where RKMDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + sql.Add(' and isnull(CRFlag,'''')='''' '); + Open; + end; + if ADOQueryTemp.RecordCount>0 then + begin + Application.MessageBox('гݲܳ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ⳷','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + FieldByName('CostFlag').Value:=0; + FieldByName('CRDate').Value:=NUll; + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('QtyFlag').Value:=Null; + FieldByName('RKMDID').Value:=''; + FieldByName('CRPerson').Value:=''; + FieldByName('KCPS').Value:=0; + FieldByName('KCQty').Value:=0; + //FieldByName('DutyFactoryNo').Value:=ClientDataSet6.fieldbyname('DutyFactoryNo').Value; + //FieldByName('ToFactoryNo').Value:=ClientDataSet6.fieldbyname('ToFactoryNo').Value; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + ClientDataSet6.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⳷쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKRKOKQty.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,'); + sql.Add('JSKCPS=A.RKPS-A.CKPS,'); + sql.Add('JSKCQty=A.RKQty-A.CKQty'); + //sql.Add(' JSKCPS=(select sum(PS*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID ),'); + //sql.Add(' JSKCQty=(select sum(Qty*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID )'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + if cxTabControl1.TabIndex=0 then + begin + //sql.Add(' and isnull(CRFlag,'''')='''' '); + sql.Add(' and A.RKQty=0 '); + end else + if cxTabControl1.TabIndex=1 then + begin + // sql.Add(' and isnull(CRFlag,'''')='''' '); + sql.Add(' and A.RKQty>0 '); + end else + {if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(CRFlag,'''')<>'''' '); + end} + if cxTabControl1.TabIndex=2 then + begin + sql.Add(' and isnull(A.Status,'''')=''Э'' '); + end else + if cxTabControl1.TabIndex=3 then + begin + sql.Add(' and isnull(A.Status,'''')='''' '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmTJCKRKOKQty.Button10Click(Sender: TObject); +begin + WriteCxBandedGrid('Tv61',Tv6,'ڲֿ'); + WriteCxBandedGrid('Tv21',Tv2,'ڲֿ'); + WriteCxBandedGrid('Tv31',Tv3,'ڲֿ'); + close; + +end; + +procedure TfrmTJCKRKOKQty.Button8Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKRKOKQty.RKYongTuBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='RKYongTu'; + flagname:=';'; + if ShowModal=1 then + begin + RKYongTu.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTJCKRKOKQty.Button7Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + Edit; + RTSetsavedata(ADOQueryCmd,'JYOrder_Main_MD',ScrollBox1,2); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + if cxTabControl1.TabIndex=0 then + begin + if Trim(RKQty.Text)<>'' then + begin + if StrToFloat(RKQty.Text)>0 then + begin + ClientDataSet6.Delete; + InitGridKK(); + SClearData(ScrollBox1,2); + end; + end; + end; + if cxTabControl1.TabIndex=1 then + begin + if Trim(RKQty.Text)<>'' then + begin + if StrToFloat(RKQty.Text)=0 then + begin + ClientDataSet6.Delete; + InitGridKK(); + SClearData(ScrollBox1,2); + end; + end else + begin + ClientDataSet6.Delete; + InitGridKK(); + SClearData(ScrollBox1,2); + end; + + end; + + + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⳷쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKRKOKQty.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + fsj:string; +begin + fsj:='select Code=FactoryNo,Name=FactoryName from JYOrder_Main_MD where ORDMainId='''+Trim(ClientDataSet6.fieldbyname('ORDMainId').AsString)+''''+ + ' group by FactoryNo,FactoryName'; + SInitCxBandGridComboBoxBySql(ADOQueryTemp,v2fty,fsj,1,True,''); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + InitGridKK(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + RKPS.ReadOnly:=True; + RKQty.ReadOnly:=True; + end; +end; + +procedure TfrmTJCKRKOKQty.Button1Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + with ClientDataSet2 do + begin + Append; + Post; + end; + +end; + +procedure TfrmTJCKRKOKQty.Button4Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty=False then + begin + if ClientDataSet3.Locate('CWHX',True,[]) then + begin + Application.MessageBox('Ѻ!','ʾ',0); + Exit; + end; + end; + with ClientDataSet3 do + begin + Append; + Post; + end; +end; + +procedure TfrmTJCKRKOKQty.Button3Click(Sender: TObject); +var + maxno:string; +begin + Panel2.SetFocus; + if ClientDataSet6.IsEmpty then Exit; + if ClientDataSet2.IsEmpty then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet2.DisableControls; + with ClientDataSet2 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet2.fieldbyname('KKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'KK','JYOrder_Main_MD_KK',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet2.fieldbyname('KKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet2.fieldbyname('KKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet2.fieldbyname('KKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('KKID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + FieldByName('ZZFactoryNo').Value:=Trim(ClientDataSet2.fieldbyname('ZZFactoryNo').AsString); + FieldByName('KKType').Value:='Э'; + RTSetSaveDataCDSBand(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_Main_MD_KK',2); + Post; + end; + Edit; + FieldByName('KKID').Value:=Trim(maxno); + Post; + Next; + end; + end; + ClientDataSet2.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set Status=''Э'' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + end; +end; + +procedure TfrmTJCKRKOKQty.Button6Click(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet6.IsEmpty then Exit; + if ClientDataSet3.IsEmpty then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet3.DisableControls; + with ClientDataSet3 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet3.fieldbyname('KKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'KZ','JYOrder_Main_MD_KK',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet3.fieldbyname('KKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet3.fieldbyname('KKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('KKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('KKID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + FieldByName('KKType').Value:=''; + FieldByName('ZZFactoryNo').Value:=Trim(ClientDataSet3.fieldbyname('ZZFactoryNo').AsString); + RTSetSaveDataCDSBand(ADOQueryCmd,Tv3,ClientDataSet3,'JYOrder_Main_MD_KK',2); + Post; + end; + Edit; + FieldByName('KKID').Value:=Trim(maxno); + Post; + Next; + end; + end; + ClientDataSet3.EnableControls; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set Status='''' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; } + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + end; +end; + +procedure TfrmTJCKRKOKQty.Button2Click(Sender: TObject); +begin + if ClientDataSet2.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet2.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet2.Delete; + if ClientDataSet2.IsEmpty then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('Status').AsString)='Э' then + //if ClientDataSet3.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set Status='''' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + end; +end; + +procedure TfrmTJCKRKOKQty.Button5Click(Sender: TObject); +begin + if ClientDataSet3.IsEmpty then Exit; + if ClientDataSet3.IsEmpty=False then + begin + if ClientDataSet3.Locate('CWHX',True,[]) then + begin + Application.MessageBox('Ѻɾ!','ʾ',0); + Exit; + end; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete JYOrder_Main_MD_KK where KKID='''+Trim(ClientDataSet3.fieldbyname('KKID').AsString)+''''); + ExecSQL; + end; + ClientDataSet3.Delete; + {if ClientDataSet3.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + if ClientDataSet2.IsEmpty then + sql.Add('Update JYOrder_Main_MD Set Status='''' ') + else + sql.Add('Update JYOrder_Main_MD Set Status=''Э'' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end;} +end; + +procedure TfrmTJCKRKOKQty.v2FtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet2 do + begin + Edit; + FieldByName('ZZFactoryName').Value:=Trim(mvalue); + fsj:=TA((v2Fty.Properties as TcxComboBoxProperties).Items.Objects[(v2Fty.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('ZZFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmTJCKRKOKQty.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKRKOKQty.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOKQty.MPRTCodeChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOKQty.Button11Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set Status='''' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + if cxTabControl1.TabIndex<3 then + begin + ClientDataSet6.Delete; + end; +end; + +procedure TfrmTJCKRKOKQty.Button12Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + if cxTabControl1.TabIndex<>3 then Exit; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if ClientDataSet2.IsEmpty=False then + sql.Add('Update JYOrder_Main_MD Set Status=''Э'' ') + else + sql.Add('Update JYOrder_Main_MD Set Status='''' '); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + if cxTabControl1.TabIndex=3 then + begin + ClientDataSet6.Delete; + end; +end; + +procedure TfrmTJCKRKOKQty.Button9Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKRKOKQty.Tv3MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if ClientDataSet3.FieldByName('CWHX').AsBoolean=True then + begin + Tv3.OptionsSelection.CellSelect:=False; + end else + begin + Tv3.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmTJCKRKOKQty.v3FtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,fsj:string; +begin + mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('ZZFactoryName').Value:=Trim(mvalue); + fsj:=TA((v3Fty.Properties as TcxComboBoxProperties).Items.Objects[(v3Fty.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('ZZFactoryNo').Value:=Trim(fsj); + Post; + end; + +end; + +procedure TfrmTJCKRKOKQty.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲֿ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKRKOKQty.Button13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲֿ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKRKOKQty.Button14Click(Sender: TObject); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('ִе벻ִ⳷!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִ⳷','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set RKPS=0,RKQty=0,RKYongTu=Null,RKQtyUnit=Null,RKPrice=0,'); + sql.Add('RKDate=Null,ORDSSMoney=0,ORDSSDate=null,DSDate=null,DSMoney=0,HZNote=null'); + sql.Add('where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ClientDataSet6.Delete; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.dfm new file mode 100644 index 0000000..ec77ed2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.dfm @@ -0,0 +1,546 @@ +object frmTJCKRKOKView: TfrmTJCKRKOKView + Left = -180 + Top = 35 + Width = 1382 + Height = 638 + Caption = #24453#22788#29702#20179#24211#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + Caption = #23548#20986 + ImageIndex = 6 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 27 + Top = 9 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 157 + Top = 9 + Width = 59 + Height = 12 + Caption = #21305#21495'/'#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 315 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 449 + Top = 9 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 560 + Top = 9 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 667 + Top = 9 + Width = 39 + Height = 12 + Caption = #20379#24212#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 787 + Top = 9 + Width = 52 + Height = 12 + Caption = #23384#25918#22320#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 68 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object BatchNo: TEdit + Tag = 2 + Left = 217 + Top = 5 + Width = 85 + Height = 20 + TabOrder = 1 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + object ConName: TEdit + Tag = 2 + Left = 369 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 2 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + object PRTColor: TEdit + Tag = 2 + Left = 479 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 3 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + object PRTHX: TEdit + Tag = 2 + Left = 590 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 4 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 709 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 5 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + object ToFactoryName: TEdit + Tag = 2 + Left = 840 + Top = 5 + Width = 64 + Height = 20 + TabOrder = 6 + OnChange = BatchNoChange + OnKeyPress = OrderNoKeyPress + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 62 + Width = 1366 + Height = 23 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 23 + end + object cxGrid6: TcxGrid + Left = 0 + Top = 85 + Width = 1366 + Height = 514 + Align = alClient + TabOrder = 3 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource6 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Format = '0' + Kind = skSum + Position = spFooter + Column = cxGridDBColumn14 + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v3Column16: TcxGridDBColumn + Caption = #21305#21495'/'#32534#21495 + DataBinding.FieldName = 'BatchNo' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v3Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ConName' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + end + object v3Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v3Column8: TcxGridDBColumn + Caption = #38376#24133'cm' + DataBinding.FieldName = 'ConMF' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v3Column9: TcxGridDBColumn + Caption = #20811#37325'g/'#13217 + DataBinding.FieldName = 'ConKZ' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column10: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'ConSpec' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column11: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'ConCF' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column17: TcxGridDBColumn + Caption = #32433#32455 + DataBinding.FieldName = 'ShaZhi' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v3Column1: TcxGridDBColumn + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 72 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_DDMD.Default + Width = 58 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + Options.Focusing = False + Width = 61 + end + object v6Column1: TcxGridDBColumn + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'ClotheType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object cxGridDBColumn7: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 89 + end + object cxGridDBColumn11: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 70 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 72 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg' + #26465) + HeaderAlignmentHorz = taCenter + Width = 46 + end + object LiYongXS: TcxGridDBColumn + Caption = #20877#21033#29992#31995#25968 + DataBinding.FieldName = 'LiYongXS' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 87 + end + object v3Column13: TcxGridDBColumn + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v3Column18: TcxGridDBColumn + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v3Column20: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v3Column2: TcxGridDBColumn + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v3Column14: TcxGridDBColumn + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v3Column15: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv6 + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 256 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 528 + Top = 256 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 592 + Top = 256 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.pas new file mode 100644 index 0000000..f3c9a56 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKRKOKView.pas @@ -0,0 +1,260 @@ +unit U_TJCKRKOKView; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit; + +type + TfrmTJCKRKOKView = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label18: TLabel; + BatchNo: TEdit; + Label19: TLabel; + ConName: TEdit; + ADOQueryMain: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + Label2: TLabel; + PRTColor: TEdit; + Label1: TLabel; + PRTHX: TEdit; + cxTabControl1: TcxTabControl; + Label4: TLabel; + FactoryName: TEdit; + Label5: TLabel; + ToFactoryName: TEdit; + ToolButton1: TToolButton; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v3Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + LiYongXS: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3Column18: TcxGridDBColumn; + v3Column20: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v3Column2: TcxGridDBColumn; + v3Column14: TcxGridDBColumn; + v3Column15: TcxGridDBColumn; + v3Column16: TcxGridDBColumn; + v3Column17: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button6Click(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure BatchNoChange(Sender: TObject); + procedure LiYongXSPropertiesEditValueChanged(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + canshu1:string; + procedure InitGrid(); + procedure InitGridKK(); + public + { Public declarations } + end; + +var + frmTJCKRKOKView: TfrmTJCKRKOKView; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp; +{$R *.dfm} + +procedure TfrmTJCKRKOKView.FormDestroy(Sender: TObject); +begin + frmTJCKRKOKView:=nil; +end; + +procedure TfrmTJCKRKOKView.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKRKOKView.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKRKOKView.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_View_DCLKC :ClotheType'); + Parameters.ParamByName('ClotheType').Value:=Trim(cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; +procedure TfrmTJCKRKOKView.InitGridKK(); + +begin + + +end; +procedure TfrmTJCKRKOKView.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv6111',Tv6,'ڲֿ'); + if Trim(canshu1)<>'Ȩ' then + begin + LiYongXS.Options.Focusing:=False; + end else + begin + LiYongXS.Options.Focusing:=True; + end; +end; + +procedure TfrmTJCKRKOKView.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv6111',Tv6,'ڲֿ'); + close; +end; + +procedure TfrmTJCKRKOKView.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + { if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price,JM.MPRTMF,JM.MPRTKZ, '); + sql.Add(' JS.PRTHX,PRTColor=JS.PRTColorNo+'' ''+JS.PRTColor+'' ''+JS.PRTColorEng,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + sql.Add(' and (A.RKQty-A.CKQty)>0'); + + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + } +end; + +procedure TfrmTJCKRKOKView.Button6Click(Sender: TObject); +var + maxno:string; +begin + +end; + +procedure TfrmTJCKRKOKView.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKRKOKView.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOKView.BatchNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTJCKRKOKView.LiYongXSPropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with ADOQueryCmd do + begin + Close; + sql.Clear; + if Trim(mvalue)='' then + sql.Add('Update JYOrder_Main_MD Set LiYongXS=Null') + else + sql.Add('Update JYOrder_Main_MD Set LiYongXS='+Trim(mvalue)); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + with ClientDataSet6 do + begin + Edit; + if Trim(mvalue)<>'' then + FieldByName('LiYongXS').Value:=mvalue + else + FieldByName('LiYongXS').Value:=Null; + Post; + end; +end; + +procedure TfrmTJCKRKOKView.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); +end; + +procedure TfrmTJCKRKOKView.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKRKOKView.ToolButton1Click(Sender: TObject); +var + fsj:string; +begin + if ClientDataSet6.IsEmpty then Exit; + fsj:=cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption; + TcxGridToExcel('ֿ('+fsj+')',cxGrid6); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.dfm b/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.dfm new file mode 100644 index 0000000..4129977 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.dfm @@ -0,0 +1,820 @@ +object frmTJCKTHXSOK: TfrmTJCKTHXSOK + Left = 176 + Top = 47 + Width = 1024 + Height = 674 + Caption = #35843#33410#20179#24211#20986#24211#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1008 + Height = 30 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 259 + Top = 9 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 23 + Top = 9 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 385 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 511 + Top = 9 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 636 + Top = 9 + Width = 26 + Height = 12 + Caption = #31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 300 + Top = 5 + Width = 73 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + object BegDate: TDateTimePicker + Left = 76 + Top = 5 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 161 + Top = 5 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 2 + end + object Button8: TButton + Left = 745 + Top = 5 + Width = 46 + Height = 20 + Caption = #21047#26032 + TabOrder = 3 + OnClick = Button8Click + end + object Button9: TButton + Left = 799 + Top = 5 + Width = 46 + Height = 20 + Caption = #36807#28388 + TabOrder = 4 + OnClick = Button9Click + end + object Button10: TButton + Left = 921 + Top = 5 + Width = 46 + Height = 20 + Caption = #20851#38381 + TabOrder = 5 + OnClick = Button10Click + end + object MPRTCode: TEdit + Tag = 2 + Left = 438 + Top = 5 + Width = 60 + Height = 20 + TabOrder = 6 + OnKeyPress = OrderNoKeyPress + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 565 + Top = 5 + Width = 56 + Height = 20 + TabOrder = 7 + OnKeyPress = OrderNoKeyPress + end + object ClotheType10: TComboBox + Tag = 1 + Left = 665 + Top = 5 + Width = 64 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697 + '') + end + object Button13: TButton + Left = 854 + Top = 5 + Width = 59 + Height = 20 + Caption = #25805#20316#35828#26126 + TabOrder = 9 + OnClick = Button13Click + end + end + object cxGrid6: TcxGrid + Left = 0 + Top = 51 + Width = 1008 + Height = 270 + Align = alTop + TabOrder = 1 + object Tv6: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + DataController.DataSource = DataSource6 + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = cxGridDBBandedColumn2 + end + item + Format = '0' + Position = spFooter + Column = Tv6Column1 + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.handBlack + Styles.BandHeader = DataLink_CYZZ.FontBlue + Bands = < + item + Caption = #35843#33410#20179#24211 + Width = 1588 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Moving = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object Tv6Column1: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FontBlue + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object Tv6Column2: TcxGridDBBandedColumn + Tag = 2 + Caption = #25171#20837#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object v6DutyPerson: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#20154 + DataBinding.FieldName = 'DutyPerson' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 24 + Position.RowIndex = 0 + end + object v6DutyFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #36131#20219#24037#21378 + DataBinding.FieldName = 'DutyFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 25 + Position.RowIndex = 0 + end + object v6Column4: TcxGridDBBandedColumn + Tag = 2 + Caption = #30721#21333#32534#21495 + DataBinding.FieldName = 'MDNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object v6DutyReason: TcxGridDBBandedColumn + Tag = 3 + Caption = #21407#22240 + DataBinding.FieldName = 'DutyReason' + HeaderAlignmentHorz = taCenter + Width = 61 + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object v6Column6: TcxGridDBBandedColumn + Tag = 2 + Caption = #24037#24207#21517#31216 + DataBinding.FieldName = 'PSName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object v6Column5: TcxGridDBBandedColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object v6Column9: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 22 + Position.RowIndex = 0 + end + object v6Column10: TcxGridDBBandedColumn + Tag = 2 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + Position.BandIndex = 0 + Position.ColIndex = 23 + Position.RowIndex = 0 + end + object v6Column11: TcxGridDBBandedColumn + Caption = #21512#21516#32534#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 26 + Position.BandIndex = 0 + Position.ColIndex = 27 + Position.RowIndex = 0 + end + object v6Column12: TcxGridDBBandedColumn + Caption = #21512#21516#20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 27 + Position.BandIndex = 0 + Position.ColIndex = 28 + Position.RowIndex = 0 + end + object v6Column13: TcxGridDBBandedColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + Options.Editing = False + Options.Focusing = False + Width = 20 + Position.BandIndex = 0 + Position.ColIndex = 29 + Position.RowIndex = 0 + end + object v6ToFactoryName: TcxGridDBBandedColumn + Tag = 3 + Caption = #23384#25918#22320#28857 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 45 + Position.BandIndex = 0 + Position.ColIndex = 26 + Position.RowIndex = 0 + end + object v6Column7: TcxGridDBBandedColumn + Tag = 2 + Caption = #31867#22411 + DataBinding.FieldName = 'ClotheType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #32433#32447 + #22383#24067 + #21322#25104#21697 + #25104#21697 + #27425#21697) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 41 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object v6Column15: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v6Column16: TcxGridDBBandedColumn + Caption = #33394#21495 + DataBinding.FieldName = 'PRTColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v6Column17: TcxGridDBBandedColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v6Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 56 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object v6Column20: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'JSKCPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object v6Column21: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'JSKCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.FoneRed + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object v6Column1: TcxGridDBBandedColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RKPS' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 51 + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object v6Column2: TcxGridDBBandedColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RKQty' + Styles.Header = DataLink_CYZZ.FonePurple + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object v6Column3: TcxGridDBBandedColumn + Caption = #20837#24211#21333#20301 + DataBinding.FieldName = 'RKQtyUnit' + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + object v6Column14: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'MPRTCode' + HeaderAlignmentHorz = taCenter + Width = 58 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v6Column19: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Width = 64 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v6Column22: TcxGridDBBandedColumn + Caption = #20877#21033#29992#20215#26684 + DataBinding.FieldName = 'RKPrice' + HeaderAlignmentHorz = taCenter + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object v6Column23: TcxGridDBBandedColumn + Caption = #29992#36884 + DataBinding.FieldName = 'RKYongTu' + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv6 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 30 + Width = 1008 + Height = 21 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #24453#20986#24211 + #24050#20986#24211 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1008 + ClientRectTop = 23 + end + object ScrollBox3: TScrollBox + Left = 0 + Top = 321 + Width = 1008 + Height = 314 + Align = alClient + TabOrder = 3 + object cxGrid5: TcxGrid + Left = 73 + Top = 0 + Width = 931 + Height = 310 + Align = alClient + TabOrder = 0 + object Tv5: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource5 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26085#26399 + DataBinding.FieldName = 'CKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v5Column7: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CKType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #36864#36135 + #27425#21697#38144#21806) + HeaderAlignmentHorz = taCenter + Width = 78 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'CKFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = cxGridDBColumn9PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 91 + end + object v5Column4: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'SJCKPS' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 68 + end + object v5Column1: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'SJCKQty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 60 + end + object v5Column9: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'CKQtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v5Column6: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'CKPrice' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 63 + end + object v5Column3: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'CKMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 74 + end + object v5Column5: TcxGridDBColumn + Tag = 2 + Caption = #36864#36135#35828#26126 + DataBinding.FieldName = 'CKOutNote' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#21069#36864#36135 + #21152#24037#21518#36864#36135) + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v5Column2: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'CKNote' + Width = 105 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv5 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 73 + Height = 310 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Button11: TButton + Left = 10 + Top = 32 + Width = 47 + Height = 28 + Caption = #22686#34892 + TabOrder = 0 + OnClick = Button11Click + end + object Button2: TButton + Left = 10 + Top = 80 + Width = 47 + Height = 28 + Caption = #21024#34892 + TabOrder = 1 + OnClick = Button2Click + end + object Button1: TButton + Left = 10 + Top = 136 + Width = 47 + Height = 28 + Caption = #20445#23384 + TabOrder = 2 + OnClick = Button1Click + end + end + end + object ClientDataSet6: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 152 + end + object DataSource6: TDataSource + DataSet = ClientDataSet6 + Left = 560 + Top = 152 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 568 + Top = 2 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 600 + Top = 2 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 632 + Top = 2 + end + object DataSource5: TDataSource + DataSet = ClientDataSet5 + Left = 656 + Top = 424 + end + object ClientDataSet5: TClientDataSet + Aggregates = <> + Params = <> + Left = 688 + Top = 424 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 664 + Top = 2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 616 + Top = 152 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid5 + PopupMenus = <> + Left = 616 + Top = 424 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.pas b/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.pas new file mode 100644 index 0000000..f335fef --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_TJCKTHXSOK.pas @@ -0,0 +1,517 @@ +unit U_TJCKTHXSOK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit, cxCalendar, + cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBClient, + ADODB, cxCheckBox, cxPC, BtnEdit, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu; + +type + TfrmTJCKTHXSOK = class(TForm) + Panel1: TPanel; + Label3: TLabel; + OrderNo: TEdit; + cxGrid6: TcxGrid; + Tv6: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + Tv6Column1: TcxGridDBBandedColumn; + Tv6Column2: TcxGridDBBandedColumn; + v6DutyPerson: TcxGridDBBandedColumn; + v6DutyFactoryName: TcxGridDBBandedColumn; + v6DutyReason: TcxGridDBBandedColumn; + v6Column4: TcxGridDBBandedColumn; + v6Column5: TcxGridDBBandedColumn; + v6Column6: TcxGridDBBandedColumn; + v6Column9: TcxGridDBBandedColumn; + v6Column10: TcxGridDBBandedColumn; + v6Column11: TcxGridDBBandedColumn; + v6Column12: TcxGridDBBandedColumn; + v6Column13: TcxGridDBBandedColumn; + v6ToFactoryName: TcxGridDBBandedColumn; + v6Column7: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + v6Column15: TcxGridDBBandedColumn; + v6Column16: TcxGridDBBandedColumn; + v6Column17: TcxGridDBBandedColumn; + v6Column18: TcxGridDBBandedColumn; + ClientDataSet6: TClientDataSet; + DataSource6: TDataSource; + ADOQuery1: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v6Column20: TcxGridDBBandedColumn; + v6Column21: TcxGridDBBandedColumn; + cxTabControl1: TcxTabControl; + ScrollBox3: TScrollBox; + Button8: TButton; + Button9: TButton; + Button10: TButton; + v6Column1: TcxGridDBBandedColumn; + v6Column2: TcxGridDBBandedColumn; + Label18: TLabel; + MPRTCode: TEdit; + Label19: TLabel; + MPRTCodeName: TEdit; + v6Column3: TcxGridDBBandedColumn; + DataSource5: TDataSource; + ClientDataSet5: TClientDataSet; + v6Column14: TcxGridDBBandedColumn; + v6Column19: TcxGridDBBandedColumn; + ADOQueryMain: TADOQuery; + Label21: TLabel; + ClotheType10: TComboBox; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + Button13: TButton; + cxGrid5: TcxGrid; + Tv5: TcxGridDBTableView; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v5Column4: TcxGridDBColumn; + v5Column1: TcxGridDBColumn; + v5Column9: TcxGridDBColumn; + v5Column6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v5Column3: TcxGridDBColumn; + v6Column22: TcxGridDBBandedColumn; + v5Column5: TcxGridDBColumn; + v5Column7: TcxGridDBColumn; + v5Column2: TcxGridDBColumn; + v6Column23: TcxGridDBBandedColumn; + Panel2: TPanel; + Button11: TButton; + Button2: TButton; + Button1: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Button10Click(Sender: TObject); + procedure Button8Click(Sender: TObject); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button2Click(Sender: TObject); + procedure v2FtyPropertiesEditValueChanged(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure Button9Click(Sender: TObject); + procedure v3FtyPropertiesEditValueChanged(Sender: TObject); + procedure Button13Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button11Click(Sender: TObject); + procedure cxGridDBColumn9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + end; + +var + frmTJCKTHXSOK: TfrmTJCKTHXSOK; + +implementation +uses + U_DataLink,U_RTFun, U_GYSList,U_ZDYHelp, U_ModuleNote; +{$R *.dfm} + +procedure TfrmTJCKTHXSOK.FormDestroy(Sender: TObject); +begin + frmTJCKTHXSOK:=nil; +end; + +procedure TfrmTJCKTHXSOK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmTJCKTHXSOK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmTJCKTHXSOK.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,D.C_Code,D.C_CodeName,ClotheType10=A.ClotheType,'); + sql.Add(' JSKCPS=A.RKPS-A.CKPS,'); + sql.Add(' JSKCQty=A.RKQty-A.CKQty,'); + sql.Add(' JM.MPRTCodeName,MPRTCode=RTrim(JM.MPRTCode)+RTrim(JM.MPRTGY)'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' where A.MDDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.MDDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + end else + begin + SQL.Add(' where isnull(A.CKName,'''')=''ڲֿ'' '); + end; + SQL.Add(' and isnull(A.RKYongTu,'''') in(''˻'',''Ʒ'')'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and (A.RKQty-A.CKQty)>0 '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and (A.RKQty-A.CKQty)=0 '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKTHXSOK.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('Tv6',Tv6,'ڲֿ˻'); + ReadCxGrid('Tv5',Tv5,'ڲֿ˻'); + EndDate.Date:=SGetServerDate(ADOQuery1); + BegDate.Date:=EndDate.Date-60; + cxTabControl1.TabIndex:=0; +end; + +procedure TfrmTJCKTHXSOK.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTJCKTHXSOK.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKTHXSOK.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(OrderNo.Text)='' then Exit; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select JM.OrderNo, A.*,B.PSName OrdPSName,C.ConNo,C.FactoryNoName,D.Price, '); + sql.Add(' JS.PRTHX,JS.PRTColor,JS.PRTColorNo,'); + sql.Add(' JSKCPS=(select sum(PS*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID ),'); + sql.Add(' JSKCQty=(select sum(Qty*QtyFlag) from JYOrder_Main_MD JMM where JMM.RKMDID=A.MDID )'); + sql.Add(' from JYOrder_Main_MD A'); + sql.Add(' inner join JYOrder_Main JM on A.OrdMainId=JM.MainId'); + sql.Add(' left join JYOrder_Sub JS on A.OrdSubId=JS.SubId'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' inner join Contract_Main C on A.ConMainid=C.MainID'); + sql.Add(' inner join Contract_Sub D on A.ConSubid=D.SubID'); + sql.Add(' where JM.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + SQL.Add(' and isnull(A.CKName,'''')=''ڲֿ'' '); + SQL.Add(' and isnull(A.RKYongTu,'''') in(''˻'',''Ʒ'')'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and (A.RKQty-A.CKQty)=0 '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and (A.RKQty-A.CKQty)>0 '); + end; + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet6); + SInitCDSData20(ADOQuery1,ClientDataSet6); + end; + +end; + +procedure TfrmTJCKTHXSOK.Button10Click(Sender: TObject); +begin + WriteCxBandedGrid('Tv6',Tv6,'ڲֿ˻'); + WriteCxGrid('Tv5',Tv5,'ڲֿ˻'); + close; + +end; + +procedure TfrmTJCKTHXSOK.Button8Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTJCKTHXSOK.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet5); + SInitCDSData20(ADOQuery1,ClientDataSet5); +end; + +procedure TfrmTJCKTHXSOK.Button2Click(Sender: TObject); +begin + if ClientDataSet5.IsEmpty then Exit; + + if Trim(ClientDataSet5.fieldbyname('CKID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_Out where CKID='''+Trim(ClientDataSet5.fieldbyname('CKID').AsString)+''''); + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add(' CKPS=(select sum(SJCKPS) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID),'); + sql.Add(' CKQty=(select sum(SJCKQty) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + end; + ClientDataSet5.Delete; +end; + +procedure TfrmTJCKTHXSOK.v2FtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,fsj:string; +begin + {mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet2 do + begin + Edit; + FieldByName('ZZFactoryName').Value:=Trim(mvalue); + fsj:=TA((v2Fty.Properties as TcxComboBoxProperties).Items.Objects[(v2Fty.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('ZZFactoryNo').Value:=Trim(fsj); + Post; + end; } + +end; + +procedure TfrmTJCKTHXSOK.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKTHXSOK.Button9Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet6); + SInitCDSData20(ADOQueryMain,ClientDataSet6); +end; + +procedure TfrmTJCKTHXSOK.v3FtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue,fsj:string; +begin + {mvalue:=TcxComboBox(Sender).EditingText; + with ClientDataSet3 do + begin + Edit; + FieldByName('ZZFactoryName').Value:=Trim(mvalue); + fsj:=TA((v3Fty.Properties as TcxComboBoxProperties).Items.Objects[(v3Fty.Properties as TcxComboBoxProperties).Items.IndexOf(Trim(mvalue))]).S; + FieldByName('ZZFactoryNo').Value:=Trim(fsj); + Post; + end; } + +end; + +procedure TfrmTJCKTHXSOK.Button13Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ڲֿ˻'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmTJCKTHXSOK.Button1Click(Sender: TObject); +var + maxno:string; +begin + Panel1.SetFocus; + if ClientDataSet6.IsEmpty then Exit; + if ClientDataSet5.IsEmpty then Exit; + if ClientDataSet5.Locate('CKType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('CKOutNote',null,[])=True then + begin + Application.MessageBox('˻˵Ϊ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SJCKPS',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if ClientDataSet5.Locate('SJCKQty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + ClientDataSet5.DisableControls; + with ClientDataSet5 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet5.fieldbyname('CKType').AsString)='˻' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_PCS_Sub A'); + sql.Add(' inner join JYOrder_Process B on A.PSID=B.PSID'); + sql.Add(' where A.FactoryNo='''+Trim(ClientDataSet5.fieldbyname('CKFactoryNo').AsString)+''''); + sql.Add(' and B.PSXH=1'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˻Ӧ¼!','ʾ',0); + Exit; + end; + end; + if Trim(ClientDataSet5.fieldbyname('CKID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'CK','JYOrder_Main_MD_Out',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet5.fieldbyname('CKID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD_Out where CKID='''+Trim(ClientDataSet5.fieldbyname('CKID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet5.fieldbyname('CKID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('CKID').Value:=Trim(maxno); + FieldByName('MDID').Value:=Trim(ClientDataSet6.fieldbyname('MDID').AsString); + FieldByName('CKFactoryNo').Value:=Trim(ClientDataSet5.fieldbyname('CKFactoryNo').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv5,ClientDataSet5,'JYOrder_Main_MD_Out',2); + Post; + end; + Edit; + FieldByName('CKID').Value:=Trim(maxno); + Post; + Next; + end; + end; + ClientDataSet5.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main_MD Set '); + sql.Add(' CKPS=(select sum(SJCKPS) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID),'); + sql.Add(' CKQty=(select sum(SJCKQty) from JYOrder_Main_MD_Out A where A.MDID=JYOrder_Main_MD.MDID)'); + sql.Add(' where MDID='''+Trim(ClientDataSet6.fieldbyname('MDID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmTJCKTHXSOK.Button11Click(Sender: TObject); +begin + if ClientDataSet6.IsEmpty then Exit; + with ClientDataSet5 do + begin + Append; + FieldByName('CKDate').Value:=SGetServerDate(ADOQuery1); + FieldByName('CKQtyUnit').Value:=Trim(ClientDataSet6.fieldbyname('QtyUnit').AsString); + FieldByName('SJCKPS').Value:=ClientDataSet6.fieldbyname('JSKCPS').Value; + FieldByName('SJCKQty').Value:=ClientDataSet6.fieldbyname('JSKCQty').Value; + FieldByName('CKPrice').Value:=0; + FieldByName('CKMoney').Value:=0; + Post; + end; +end; + +procedure TfrmTJCKTHXSOK.cxGridDBColumn9PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with ClientDataSet5 do + begin + Edit; + FieldByName('CKFactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ; + FieldByName('CKFactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSList.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.dfm b/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.dfm new file mode 100644 index 0000000..d058db8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.dfm @@ -0,0 +1,557 @@ +object frmUserModuleNameList: TfrmUserModuleNameList + Left = 97 + Top = 61 + Width = 1201 + Height = 618 + Caption = #21592#24037#27169#22359#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1185 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_CYZZ.ThreeImgList + Flat = True + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 16 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1185 + Height = 37 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 70 + Width = 1185 + Height = 509 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 2 + OnChange = cxPageControl1Change + ClientRectBottom = 509 + ClientRectRight = 1185 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #27169#22359#34920 + ImageIndex = 0 + object cxGrid3: TcxGrid + Left = 0 + Top = 37 + Width = 1185 + Height = 449 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'YCLCode' + end + item + Kind = skCount + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn2: TcxGridDBColumn + Caption = #27169#22359#21517#31216 + DataBinding.FieldName = 'FormName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 256 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20351#29992#24773#20917 + DataBinding.FieldName = 'FormNameNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 917 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 1185 + Height = 37 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 20 + Top = 12 + Width = 48 + Height = 12 + Caption = #27169#22359#21517#31216 + end + object Label4: TLabel + Left = 284 + Top = 12 + Width = 48 + Height = 12 + Caption = #20351#29992#24773#20917 + end + object FormName: TEdit + Tag = 2 + Left = 70 + Top = 9 + Width = 179 + Height = 20 + TabOrder = 0 + OnChange = UserIdChange + end + object FormNameNote: TEdit + Tag = 2 + Left = 334 + Top = 9 + Width = 179 + Height = 20 + TabOrder = 1 + OnChange = UserIdChange + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = #37096#38376#27169#22359#34920 + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 37 + Width = 1185 + Height = 449 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'YCLCode' + end + item + Kind = skCount + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #37096#38376 + DataBinding.FieldName = 'DPName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 116 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #27169#22359#21517#31216 + DataBinding.FieldName = 'DFormName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 263 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1185 + Height = 37 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 242 + Top = 12 + Width = 48 + Height = 12 + Caption = #27169#22359#21517#31216 + end + object Label5: TLabel + Left = 20 + Top = 12 + Width = 24 + Height = 12 + Caption = #37096#38376 + end + object DFormName: TEdit + Tag = 2 + Left = 292 + Top = 9 + Width = 179 + Height = 20 + TabOrder = 0 + OnChange = UserIdChange + end + object DPName: TEdit + Tag = 2 + Left = 45 + Top = 9 + Width = 179 + Height = 20 + TabOrder = 1 + OnChange = UserIdChange + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #21592#24037#27169#22359#34920 + ImageIndex = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 37 + Width = 1185 + Height = 449 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'YCLCode' + end + item + Kind = skCount + Position = spFooter + Column = v1ShortName + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1ShortName + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v1ShortName: TcxGridDBColumn + Caption = #21592#24037#32534#21495 + DataBinding.FieldName = 'UserId' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 108 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #30331#24405#21517#31216 + DataBinding.FieldName = 'UserName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #37096#38376 + DataBinding.FieldName = 'UDPName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 106 + end + object v1Quantity: TcxGridDBColumn + Caption = #27169#22359#21517#31216 + DataBinding.FieldName = 'UFormName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 241 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1185 + Height = 37 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 20 + Top = 12 + Width = 48 + Height = 12 + Caption = #21592#24037#32534#21495 + end + object Label6: TLabel + Left = 212 + Top = 12 + Width = 48 + Height = 12 + Caption = #30331#24405#21517#31216 + end + object Label7: TLabel + Left = 412 + Top = 12 + Width = 24 + Height = 12 + Caption = #37096#38376 + end + object Label8: TLabel + Left = 585 + Top = 12 + Width = 48 + Height = 12 + Caption = #27169#22359#21517#31216 + end + object UserId: TEdit + Tag = 2 + Left = 70 + Top = 9 + Width = 127 + Height = 20 + TabOrder = 0 + OnChange = UserIdChange + end + object UserName: TEdit + Tag = 2 + Left = 262 + Top = 9 + Width = 127 + Height = 20 + TabOrder = 1 + OnChange = UserIdChange + end + object UDPName: TEdit + Tag = 2 + Left = 437 + Top = 9 + Width = 127 + Height = 20 + TabOrder = 2 + OnChange = UserIdChange + end + object UFormName: TEdit + Tag = 2 + Left = 635 + Top = 9 + Width = 127 + Height = 20 + TabOrder = 3 + OnChange = UserIdChange + end + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 680 + Top = 8 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 432 + Top = 200 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 464 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 496 + Top = 200 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 600 + Top = 8 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 636 + Top = 8 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 448 + Top = 8 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 476 + Top = 8 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 504 + Top = 8 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 296 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 332 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 368 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.pas b/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.pas new file mode 100644 index 0000000..68db1e4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_UserModuleNameList.pas @@ -0,0 +1,221 @@ +unit U_UserModuleNameList; // + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, cxCalendar, cxButtonEdit, cxDropDownEdit, + DBClient, Menus, cxSplitter, cxTextEdit, RM_Common, RM_Class, + RM_GridReport, RM_System, RM_Dataset, RM_e_Xls, dxPSGlbl, dxPSUtl, + dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, + dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, + cxPC; + +type + TfrmUserModuleNameList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Panel1: TPanel; + CDS_Main: TClientDataSet; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1ShortName: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DataSource3: TDataSource; + ClientDataSet3: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + Panel2: TPanel; + Label1: TLabel; + FormName: TEdit; + Panel3: TPanel; + Label2: TLabel; + DFormName: TEdit; + Panel4: TPanel; + Label3: TLabel; + UserId: TEdit; + Label4: TLabel; + FormNameNote: TEdit; + Label5: TLabel; + DPName: TEdit; + Label6: TLabel; + UserName: TEdit; + Label7: TLabel; + UDPName: TEdit; + Label8: TLabel; + UFormName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure UserIdChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + private + canshu1,canshu2:String; + procedure InitGrid(); + procedure InitForm(); + + { Private declarations } + public + { Public declarations } + end; + +var + frmUserModuleNameList: TfrmUserModuleNameList; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmUserModuleNameList.FormDestroy(Sender: TObject); +begin + frmUserModuleNameList:=nil; +end; + +procedure TfrmUserModuleNameList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmUserModuleNameList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmUserModuleNameList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Աģб',Tv1,'ϵͳ'); + WriteCxGrid('ģб',Tv2,'ϵͳ'); + WriteCxGrid('ģб',Tv3,'ϵͳ'); +end; + +procedure TfrmUserModuleNameList.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + if cxPageControl1.ActivePageIndex=0 then + begin + SQL.Add(' exec P_View_ModuleName '); + end else + if cxPageControl1.ActivePageIndex=1 then + begin + SQL.Add(' exec P_View_DeptModuleName '); + end else + if cxPageControl1.ActivePageIndex=2 then + begin + SQL.Add(' exec P_View_UserModuleName '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmUserModuleNameList.InitForm(); +begin + ReadCxGrid('Աģб',Tv1,'ϵͳ'); + ReadCxGrid('ģб',Tv2,'ϵͳ'); + ReadCxGrid('ģб',Tv3,'ϵͳ'); + cxPageControl1.ActivePageIndex:=0; + //InitGrid(); +end; + +procedure TfrmUserModuleNameList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + if cxPageControl1.ActivePageIndex=0 then + SDofilter(ADOQueryMain,SGetFilters(Panel2,1,2)) + else if cxPageControl1.ActivePageIndex=1 then + SDofilter(ADOQueryMain,SGetFilters(Panel3,1,2)) + else if cxPageControl1.ActivePageIndex=2 then + SDofilter(ADOQueryMain,SGetFilters(Panel4,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmUserModuleNameList.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if cxPageControl1.ActivePageIndex=0 then + TcxGridToExcel('ģб',cxGrid3) + else if cxPageControl1.ActivePageIndex=1 then + TcxGridToExcel('ģб',cxGrid2) + else if cxPageControl1.ActivePageIndex=2 then + TcxGridToExcel('Աģб',cxGrid1); +end; + +procedure TfrmUserModuleNameList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + + + +procedure TfrmUserModuleNameList.UserIdChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + if cxPageControl1.ActivePageIndex=0 then + SDofilter(ADOQueryMain,SGetFilters(Panel2,1,2)) + else if cxPageControl1.ActivePageIndex=1 then + SDofilter(ADOQueryMain,SGetFilters(Panel3,1,2)) + else if cxPageControl1.ActivePageIndex=2 then + SDofilter(ADOQueryMain,SGetFilters(Panel4,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmUserModuleNameList.FormShow(Sender: TObject); +begin + InitForm(); +end; + + +procedure TfrmUserModuleNameList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.dfm new file mode 100644 index 0000000..cd7ea4e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.dfm @@ -0,0 +1,349 @@ +object frmWJGCKInPut: TfrmWJGCKInPut + Left = 55 + Top = 111 + Width = 1283 + Height = 502 + Align = alClient + Caption = #22806#21152#24037#20837#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1267 + Height = 431 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #29983#20135#36864#22238 + #25104#21697#22238#20462) + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column16PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 79 + end + object v1Column18: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#21333#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1267 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 512 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.pas new file mode 100644 index 0000000..8adc767 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.pas @@ -0,0 +1,660 @@ +unit U_WJGCKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit; + +type + TfrmWJGCKInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + v1Column4: TcxGridDBColumn; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmWJGCKInPut: TfrmWJGCKInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel; + +{$R *.dfm} + +procedure TfrmWJGCKInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGCKInPut.TBAddClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty=False then + begin + CopyAddRowCDS(CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('SPID').Value:=null; + post; + end; + end else + begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + Post; + end; + end; +end; +function TfrmWJGCKInPut.SaveCKData():Boolean; +var + FCRID,Maxno,FFSPID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where BatchNo='''+Trim(CDS_Sub.fieldbyname('BatchNo').AsString)+''''); + SQL.Add(' and isnull(CKName,'''')=''ɴ'' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_SXPB_CRID select 0'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CRID Set CRID=CRID+1'); + sql.Add(' select * from CK_SXPB_CRID'); + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+FCRID); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=FCRID; + FieldByName('CKName').Value:='ɴ'; + FieldByName('BatchNo').Value:=CDS_Sub.fieldbyname('BatchNo').Value; + FieldByName('SPType').Value:=CDS_Sub.fieldbyname('SPType').Value; + FieldByName('FactoryName').Value:=CDS_Sub.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=CDS_Sub.fieldbyname('FactoryNo').Value; + FieldByName('SPName').Value:=CDS_Sub.fieldbyname('SPName').Value; + FieldByName('SPCF').Value:=CDS_Sub.fieldbyname('SPCF').Value; + FieldByName('ShaZhi').Value:=CDS_Sub.fieldbyname('ShaZhi').Value; + FieldByName('SeBie').Value:=CDS_Sub.fieldbyname('SeBie').Value; + FieldByName('KCNote').Value:=CDS_Sub.fieldbyname('Note').Value; + Post; + end; + end; } + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'WR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӹʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FFSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FFSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('FZSPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:='ӹ'; + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + //FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + if Trim(FFSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then + begin + FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(Maxno)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+FCRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_KC where CRID='+Trim(FCRID)); + Open; + end; + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ܱ!','ʾ',0); + Exit; + end; + } + { if ADOQueryTemp.FieldByName('KCKeQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!','ʾ',0); + Exit; + end; } + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + //FieldByName('CRID').Value:=Trim(FCRID); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmWJGCKInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹǼ',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGCKInPut.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('ӹǼ',Tv1,'ӹֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); + if CDS_Sub.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + v1Column4.Options.Focusing:=False; + // v1Column15.Options.Focusing:=False; + v1Column13.Options.Focusing:=False; + v1Column14.Options.Focusing:=False; + v2Column1.Options.Focusing:=False; + v1Column8.Options.Focusing:=False; + v1Column7.Options.Focusing:=False; + v1Column1.Options.Focusing:=False; + v1Column10.Options.Focusing:=False; + v1Column11.Options.Focusing:=False; + Exit; + end else + begin + v1Column4.Options.Focusing:=True; + //v1Column15.Options.Focusing:=True; + v1Column13.Options.Focusing:=True; + v1Column14.Options.Focusing:=True; + v2Column1.Options.Focusing:=True; + v1Column8.Options.Focusing:=True; + v1Column7.Options.Focusing:=True; + v1Column1.Options.Focusing:=True; + v1Column10.Options.Focusing:=True; + v1Column11.Options.Focusing:=True; + end; +end; + +procedure TfrmWJGCKInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmWJGCKInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('OrderNo',null,[])=True then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ŹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('FactoryName',null,[])=True then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType;FromFactoryName',VarArrayOf(['˻',Null]),[loPartialKey])=True then + begin + Application.MessageBox('˻صݣԹΪ!','ʾ',0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmWJGCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='SXKuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWJGCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; + +end; + +procedure TfrmWJGCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WJGName'; + flagname:='ӹ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWJGCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KuWei'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWJGCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmWJGCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmWJGCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.dfm new file mode 100644 index 0000000..ee691f6 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.dfm @@ -0,0 +1,547 @@ +object frmWJGCKKCList: TfrmWJGCKKCList + Left = 171 + Top = 133 + Width = 1181 + Height = 511 + Caption = #22806#21152#24037#24211#23384#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 31 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1165 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 470 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label1: TLabel + Left = 470 + Top = 36 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #24179#31227#20837#24211 + #29983#20135#36864#22238 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 519 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 519 + Top = 33 + Width = 108 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1165 + Height = 379 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#21495#33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 100 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.pas new file mode 100644 index 0000000..90279aa --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCList.pas @@ -0,0 +1,226 @@ +unit U_WJGCKKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmWJGCKKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column16: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ToolButton2: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmWJGCKKCList: TfrmWJGCKKCList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmWJGCKKCList.FormDestroy(Sender: TObject); +begin + frmWJGCKKCList:=nil; +end; + +procedure TfrmWJGCKKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGCKKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')=''ӹ'' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWJGCKKCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWJGCKKCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmWJGCKKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹб',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGCKKCList.FormShow(Sender: TObject); +begin + ReadCxGrid('ӹб',Tv1,'ӹֿ'); + //InitGrid(); +end; + +procedure TfrmWJGCKKCList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmWJGCKKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmWJGCKKCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmWJGCKKCList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCList.ToolButton1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmWJGCKKCList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmWJGCKKCList.ToolButton2Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + TcxGridToExcel('ӹб',cxGrid2); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.dfm new file mode 100644 index 0000000..abb4eb1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.dfm @@ -0,0 +1,564 @@ +object frmWJGCKKCSelList: TfrmWJGCKKCSelList + Left = 171 + Top = 133 + Width = 1181 + Height = 511 + Align = alClient + Caption = #22806#21152#24037#24211#23384#36873#25321#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1165 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 31 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1165 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 199 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 340 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 26 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 199 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 27 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 340 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 470 + Top = 12 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label1: TLabel + Left = 470 + Top = 36 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #24179#31227#20837#24211 + #29983#20135#36864#22238 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 519 + Top = 9 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 519 + Top = 33 + Width = 108 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1165 + Height = 379 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#21495#33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 100 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 792 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 824 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.pas new file mode 100644 index 0000000..276fc63 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKKCSelList.pas @@ -0,0 +1,225 @@ +unit U_WJGCKKCSelList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmWJGCKKCSelList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + OrderNo: TEdit; + Label1: TLabel; + ToFactoryName: TEdit; + v1Column16: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmWJGCKKCSelList: TfrmWJGCKKCSelList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmWJGCKKCSelList.FormDestroy(Sender: TObject); +begin + frmWJGCKKCSelList:=nil; +end; + +procedure TfrmWJGCKKCSelList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGCKKCSelList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')=''ӹ'' '); + SQL.Add(' and A.CRFlag='''' and MXKCQty>0'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWJGCKKCSelList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWJGCKKCSelList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmWJGCKKCSelList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹѡб',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGCKKCSelList.FormShow(Sender: TObject); +begin + ReadCxGrid('ӹѡб',Tv1,'ӹֿ'); + //InitGrid(); +end; + +procedure TfrmWJGCKKCSelList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmWJGCKKCSelList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCSelList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmWJGCKKCSelList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmWJGCKKCSelList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCSelList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKKCSelList.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + ModalResult:=1; +end; + +procedure TfrmWJGCKKCSelList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm new file mode 100644 index 0000000..2da8fb8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm @@ -0,0 +1,652 @@ +object frmWJGCKOutList: TfrmWJGCKOutList + Left = 87 + Top = 73 + Width = 1209 + Height = 583 + Caption = #22806#21152#24037#20986#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1193 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20986#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1193 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 321 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 437 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label8: TLabel + Left = 321 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label6: TLabel + Left = 437 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 565 + Top = 12 + Width = 60 + Height = 12 + Caption = #26469#33258#35746#21333#21495 + end + object Label10: TLabel + Left = 565 + Top = 36 + Width = 60 + Height = 12 + Caption = #20986#21040#35746#21333#21495 + end + object Label11: TLabel + Left = 725 + Top = 12 + Width = 60 + Height = 12 + Caption = #26469#33258#21152#24037#21378 + end + object Label13: TLabel + Left = 725 + Top = 36 + Width = 60 + Height = 12 + Caption = #20986#21040#21152#24037#21378 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 348 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = SPSpecChange + end + object FactoryName: TEdit + Tag = 2 + Left = 475 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = SPSpecChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 348 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #22238#20462#20986#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 475 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = SPSpecChange + end + object QCorderNo: TEdit + Tag = 2 + Left = 625 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = SPSpecChange + end + object CKorderNo: TEdit + Tag = 2 + Left = 625 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = SPSpecChange + end + object FromFactoryName: TEdit + Tag = 2 + Left = 785 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = SPSpecChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 785 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = SPSpecChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1193 + Height = 440 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #36864#36135) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column13: TcxGridDBColumn + Caption = #26469#33258#35746#21333#21495 + DataBinding.FieldName = 'QCOrderNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Caption = #20986#21040#35746#21333#21495 + DataBinding.FieldName = 'CKorderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 984 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1048 + Top = 168 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1016 + Top = 160 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas new file mode 100644 index 0000000..c5797ef --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas @@ -0,0 +1,385 @@ +unit U_WJGCKOutList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmWJGCKOutList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: TLabel; + Label6: TLabel; + Label7: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + CRType: TComboBox; + SPCF: TEdit; + QCorderNo: TEdit; + Label10: TLabel; + CKorderNo: TEdit; + Label11: TLabel; + FromFactoryName: TEdit; + Label13: TLabel; + ToFactoryName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure SPNameChange(Sender: TObject); + procedure SPIDChange(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmWJGCKOutList: TfrmWJGCKOutList; + +implementation +uses + U_DataLink,U_RTFun,U_WJGCKOutPut; + +{$R *.dfm} + +procedure TfrmWJGCKOutList.FormDestroy(Sender: TObject); +begin + frmWJGCKOutList:=nil; +end; + +procedure TfrmWJGCKOutList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGCKOutList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; +end; + +procedure TfrmWJGCKOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* ,B.SOrddefstr1,B.PRTColor,B.PRTHX'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' left join JYOrder_Sub B on A.ORDSubIdCK=B.SubId'); + sql.add(' where A.CRTime>=:begdate and A.CRTime<:enddate'); + SQL.Add(' and CRFlag='''' '); + SQL.Add(' and isnull(CKName,'''')=''ӹ'' '); + + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); + Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWJGCKOutList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmWJGCKOutList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmWJGCKOutList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹбPMD',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGCKOutList.FormShow(Sender: TObject); +begin + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end; + ReadCxGrid('ӹбPMD',Tv1,'ӹֿ'); + //InitGrid(); +end; + +procedure TfrmWJGCKOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ӹб',cxGrid2); +end; + +procedure TfrmWJGCKOutList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmWJGCKOutList.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGCKOutList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmWJGCKOutList.SPIDKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmWJGCKOutList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmWJGCKOutList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmWJGCKOutList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('FZSPID').AsString)+''''); + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + begin + sql.Add(' delete CK_SXPB_CR where isnull(PYID,'''')='''+Trim(CDS_Main.fieldbyname('PYID').AsString)+''''); + end; + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + end; + CDS_Main.Delete; +end; + +procedure TfrmWJGCKOutList.TBAddClick(Sender: TObject); +begin + try + frmWJGCKOutPut:=TfrmWJGCKOutPut.Create(Application); + with frmWJGCKOutPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmWJGCKOutPut.Free; + end; +end; + +procedure TfrmWJGCKOutList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼޸!','ʾ',0); + Exit; + end; + try + frmWJGCKOutPut:=TfrmWJGCKOutPut.Create(Application); + with frmWJGCKOutPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmWJGCKOutPut.Free; + end; + +end; + +procedure TfrmWJGCKOutList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm new file mode 100644 index 0000000..302c67e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm @@ -0,0 +1,352 @@ +object frmWJGCKOutPut: TfrmWJGCKOutPut + Left = 78 + Top = 122 + Width = 1215 + Height = 502 + Align = alClient + Caption = #22806#21152#24037#20986#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1199 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1199 + Height = 431 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1CRType: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #22238#20462#20986#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#35746#21333#21495 + DataBinding.FieldName = 'QCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#35746#21333#21495 + DataBinding.FieldName = 'CKOrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 496 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 464 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 336 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 400 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 432 + Top = 136 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas new file mode 100644 index 0000000..ce2eda5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas @@ -0,0 +1,583 @@ +unit U_WJGCKOutPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, + ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, cxSpinEdit; + +type + TfrmWJGCKOutPut = class(TForm) + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1CRType: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v1Column5: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + end; + +var + frmWJGCKOutPut: TfrmWJGCKOutPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp,U_WJGCKKCSelList, + U_GYSSelList, U_ZdyAttachGYS, U_ProductOrderListSel; + +{$R *.dfm} + +procedure TfrmWJGCKOutPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGCKOutPut.TBAddClick(Sender: TObject); +begin + try + frmWJGCKKCSelList:=TfrmWJGCKKCSelList.Create(Application); + with frmWJGCKKCSelList do + begin + ToolButton1.Visible:=True; + if ShowModal=1 then + begin + frmWJGCKKCSelList.CDS_Main.DisableControls; + with frmWJGCKKCSelList.CDS_Main do + begin + First; + while frmWJGCKKCSelList.CDS_Main.Locate('SSel',True,[]) do + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); + FieldByName('ORDMainIdRK').Value:=Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString); + FieldByName('ORDMainIdCK').Value:=Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(frmWJGCKKCSelList.CDS_Main.fieldbyname('ORDSubIdRK').AsString); + FieldByName('QCOrderNo').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('CKOrderNo').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('OrderNo').Value; + FieldByName('SOrddefstr1').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SOrddefstr1').AsString; + FieldByName('PRTColor').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('PRTColor').AsString; + FieldByName('PRTHX').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('PRTHX').AsString; + FieldByName('FactoryName').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('FactoryName').Value; + FieldByName('FactoryNo').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('FactoryNo').Value; + FieldByName('SSType').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SSType').Value; + FieldByName('SPName').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPName').Value; + FieldByName('SPSpec').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value; + FieldByName('SPCF').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPCF').Value; + FieldByName('SPMF').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPMF').Value; + FieldByName('SPKZ').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPKZ').Value; + FieldByName('FromFactoryName').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('FromFactoryNo').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value; + FieldByName('ToFactoryName').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('ToFactoryNo').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('ToFactoryNo').Value; + FieldByName('QtyUnit').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('PiQty').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value; + FieldByName('Qty').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value; + FieldByName('FZSPID').Value:=frmWJGCKKCSelList.CDS_Main.fieldbyname('SPID').Value; + end; + frmWJGCKKCSelList.CDS_Main.Delete; + end; + end; + frmWJGCKKCSelList.CDS_Main.EnableControls; + + end; + end; + finally + frmWJGCKKCSelList.Free; + end; +end; +function TfrmWJGCKOutPut.SaveCKData():Boolean; +var + FCRID,Maxno,FSPID,MaxPYNo,FPYID:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + FSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FSPID)='' then + begin + if GetLSNo(ADOQueryCmd,Maxno,'WC','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӹʧ!','ʾ',0); + Exit; + end; + end else + begin + Maxno:=Trim(FSPID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FSPID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + FieldByName('FZSPID').Value:=Trim(CDS_Sub.fieldbyname('FZSPID').AsString); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=-1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + FieldByName('CKName').Value:='ӹ'; + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + FieldByName('PYID').Value:=Trim(Maxno); + end; + if Trim(FSPID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!','ʾ',0); + Exit; + end; + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where PYID='''+Trim(Maxno)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'' '); + Open; + end; + FPYID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FPYID)='' then + begin + if GetLSNo(ADOQueryCmd,MaxPYNo,'YR','CK_SXPB_CR',3,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӹƽʧ!','ʾ',0); + Exit; + end; + end else + begin + MaxPYNo:=Trim(FPYID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(MaxPYNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FPYID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('SPID').Value:=Trim(MaxPYNo); + FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString); + {FieldByName('ORDMainIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdCK').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString);} + FieldByName('FZSPID').Value:=Trim(MaxPYNo); + FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); + FieldByName('CKName').Value:='ӹ'; + FieldByName('CRType').Value:='ƽ'; + FieldByName('PYID').Value:=Trim(Maxno); + if Trim(FPYID)='' then + FieldByName('Filler').Value:=Trim(DName) + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(MaxPYNo)+''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(MaxPYNo)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ڿܱ!','ʾ',0); + Exit; + end; + end; + Edit; + FieldByName('SPID').Value:=Trim(Maxno); + Post; + + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmWJGCKOutPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹǼPMD',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGCKOutPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ӹǼPMD',Tv1,'ӹֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' ,OrderNo=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdRK )'); + sql.Add(' ,OrderNoCK=(select OrderNo from JYOrder_Main JM where JM.MainId=A.OrdMainIdCK )'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdCK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where SPID='''+Trim(FBCId)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Sub); + SInitCDSData20(ADOQueryTemp,CDS_Sub); +end; + +procedure TfrmWJGCKOutPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='); + sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and isnull(CRType,'''')=''ƽ'')'); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); + sql.Add(' where SPID='''+Trim(CDS_Sub.fieldbyname('FZSPID').AsString)+''''); + {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(KGQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(PiQty*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); } + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end; + CDS_Sub.Delete; +end; + +procedure TfrmWJGCKOutPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',null,[])=True then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CRType',null,[])=True then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('ToFactoryName',null,[])=True then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CKOrderNo',null,[])=True then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('Qty',null,[])=True then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('PiQty',null,[])=True then + begin + Application.MessageBox('ƥΪ!','ʾ',0); + Exit; + end; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ƽƳ' then + begin + if (Trim(CDS_Sub.fieldbyname('FromFactoryName').AsString)=Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString)) + and (Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString)=Trim(CDS_Sub.fieldbyname('ORDSubIdCK').AsString)) + then + begin + CDS_Sub.EnableControls; + Application.MessageBox('ͬһţͬһƽ!','ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDS_Sub.EnableControls; + if SaveCKData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmWJGCKOutPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmClothContractListHZCX:=TfrmClothContractListHZCX.Create(Application); + with frmClothContractListHZCX do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CGConNo').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('ConNo').AsString); + FieldByName('CGConMainId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('MainId').AsString); + FieldByName('CGConSubId').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('SubId').AsString); + FieldByName('FactoryName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('FactoryNoName').AsString); + FieldByName('SXName').Value:=Trim(frmClothContractListHZCX.Order_Main.fieldbyname('C_CodeName').AsString); + //Post; + end; + end; + end; + finally + frmClothContractListHZCX.Free; + end; +end; + +procedure TfrmWJGCKOutPut.v1Column11PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmWJGCKOutPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + with frmProductOrderListSel do + begin + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('ORDMainIdCK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdCK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('CKorderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + end; + end; + end; + finally + frmProductOrderListSel.Free; + end; +end; + +procedure TfrmWJGCKOutPut.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + FFSPID:String; +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + Open; + end; + FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID)<>'' then + begin + v1CRType.Options.Editing:=False; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.dfm new file mode 100644 index 0000000..1328079 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.dfm @@ -0,0 +1,617 @@ +object frmWJGMDList: TfrmWJGMDList + Left = 68 + Top = 109 + Width = 1238 + Height = 511 + Caption = #22806#21152#24037#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1222 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1222 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 351 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 492 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 351 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 492 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 624 + Top = 36 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 624 + Top = 12 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label12: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = SPNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 529 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = SPNameChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = SPNameChange + end + object SPCF: TEdit + Tag = 2 + Left = 529 + Top = 32 + Width = 78 + Height = 20 + TabOrder = 6 + OnChange = SPNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 675 + Top = 33 + Width = 78 + Height = 20 + TabOrder = 7 + OnChange = SPNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 675 + Top = 9 + Width = 78 + Height = 20 + TabOrder = 8 + OnChange = SPNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 109 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #24179#31227#20837#24211 + #29983#20135#36864#22238 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1222 + Height = 368 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #29983#20135#36864#22238) + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 79 + end + object v1Column18: TcxGridDBColumn + Caption = #24037#21378#21333#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 952 + Top = 48 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 920 + Top = 48 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 48 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 616 + Top = 232 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 584 + Top = 232 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 552 + Top = 232 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 520 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.pas new file mode 100644 index 0000000..39aab27 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.pas @@ -0,0 +1,395 @@ +unit U_WJGMDList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, + cxCalendar, cxButtonEdit, cxTextEdit; + +type + TfrmWJGMDList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label12: TLabel; + CRType: TComboBox; + v1Column18: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure SPNameChange(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmWJGMDList: TfrmWJGMDList; + +implementation +uses + U_DataLink,U_RTFun,U_WJGCKInPut; + +{$R *.dfm} + +procedure TfrmWJGMDList.FormDestroy(Sender: TObject); +begin + frmWJGMDList:=nil; +end; + +procedure TfrmWJGMDList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWJGMDList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; +end; + +procedure TfrmWJGMDList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' ,SOrddefstr1=(select SOrddefstr1 from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTColor=(select PRTColor from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.Add(' and isnull(CKName,'''')=''ӹ'''); + SQL.Add(' and CRFlag='''' '); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWJGMDList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmWJGMDList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmWJGMDList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹб',Tv1,'ӹֿ'); + Close; +end; + +procedure TfrmWJGMDList.FormShow(Sender: TObject); +begin + if Trim(canshu2)='鿴' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + end; + ReadCxGrid('ӹб',Tv1,'ӹֿ'); + //InitGrid(); +end; + +procedure TfrmWJGMDList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('ӹб',cxGrid2); +end; + +procedure TfrmWJGMDList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmWJGMDList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmWJGMDList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmWJGMDList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣɾ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Application.MessageBox('г¼ɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));} + ExecSQL; + end; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select KCKGQty=isnull(KCKGQty,0) from CK_SXPB_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.FieldByName('KCKGQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('⹫Сڳ⹫ɾ!','ʾ',0); + Exit; + end; + end; } + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + + end else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmWJGMDList.TBAddClick(Sender: TObject); +begin + try + frmWJGCKInPut:=TfrmWJGCKInPut.Create(Application); + with frmWJGCKInPut do + begin + FBCId:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmWJGCKInPut.Free; + end; +end; + +procedure TfrmWJGMDList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + begin + Application.MessageBox('ƽΪԶɣ޸!','ʾ',0); + Exit; + end; + try + frmWJGCKInPut:=TfrmWJGCKInPut.Create(Application); + with frmWJGCKInPut do + begin + FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmWJGCKInPut.Free; + end; +end; + +procedure TfrmWJGMDList.SPIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(Trim(SPID.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId)'); + //sql.Add(' ,ConNo=(select ConNo from Contract_Main CM where CM.MainId=A.CGMainId )'); + sql.Add(' from CK_SXPB_CR A'); + sql.add(' where SPID like :SXID'); + Parameters.ParamByName('SXID').Value:='%'+Trim(SXID.Text)+'%'; + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmWJGMDList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmWJGMDList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGMDList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWJGMDList.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.dfm new file mode 100644 index 0000000..37a26e2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.dfm @@ -0,0 +1,417 @@ +object frmWXFPInPut: TfrmWXFPInPut + Left = 137 + Top = 79 + Width = 1030 + Height = 573 + Align = alClient + Caption = #22806#38144#21457#31080#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1014 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 126 + Width = 1014 + Height = 171 + Align = alTop + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 105 + end + object v1Column4: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'SGHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'SXHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 1014 + Height = 97 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 22 + Width = 48 + Height = 12 + Caption = #21457' '#31080' '#21495 + end + object Label2: TLabel + Left = 262 + Top = 22 + Width = 48 + Height = 12 + Caption = #21457#31080#26085#26399 + end + object Label3: TLabel + Left = 496 + Top = 22 + Width = 48 + Height = 12 + Caption = #25104#20132#26041#24335 + end + object Label4: TLabel + Left = 31 + Top = 47 + Width = 48 + Height = 12 + Caption = #35013#33337#21475#23736 + end + object Label5: TLabel + Left = 262 + Top = 47 + Width = 48 + Height = 12 + Caption = #30446' '#30340' '#22320 + end + object Label6: TLabel + Left = 496 + Top = 47 + Width = 48 + Height = 12 + Caption = #38134#34892#21517#31216 + end + object Label7: TLabel + Left = 31 + Top = 72 + Width = 48 + Height = 12 + Caption = #36141#36135#21333#20301 + end + object Label8: TLabel + Left = 262 + Top = 72 + Width = 48 + Height = 12 + Caption = #36827#36135#21333#20301 + end + object Label9: TLabel + Left = 496 + Top = 72 + Width = 48 + Height = 12 + Caption = #20449#29992#35777#21495 + end + object FPNO: TEdit + Left = 81 + Top = 18 + Width = 150 + Height = 20 + TabOrder = 0 + end + object FPDate: TDateTimePicker + Left = 312 + Top = 18 + Width = 150 + Height = 20 + Date = 41970.419724305550000000 + Time = 41970.419724305550000000 + TabOrder = 1 + end + object ChengJiaoType: TBtnEditA + Left = 552 + Top = 18 + Width = 150 + Height = 20 + TabOrder = 2 + OnBtnClick = ChengJiaoTypeBtnClick + end + object FromPlace: TBtnEditA + Left = 81 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 3 + OnBtnClick = FromPlaceBtnClick + end + object ToPlace: TBtnEditA + Left = 312 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 4 + OnBtnClick = ToPlaceBtnClick + end + object BankName: TBtnEditA + Left = 552 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 5 + OnBtnClick = BankNameBtnClick + end + object GHDanWei: TEdit + Left = 81 + Top = 68 + Width = 150 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object XHDanWei: TEdit + Left = 312 + Top = 68 + Width = 150 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + object XYZNO: TEdit + Left = 552 + Top = 68 + Width = 150 + Height = 20 + TabOrder = 8 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 480 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 357 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 407 + Top = 400 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 437 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 322 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 285 + Top = 65532 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 397 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 402 + Top = 366 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 435 + Top = 330 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.pas new file mode 100644 index 0000000..55bacb0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPut.pas @@ -0,0 +1,537 @@ +unit U_WXFPInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmWXFPInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label1: TLabel; + FPNO: TEdit; + Label2: TLabel; + FPDate: TDateTimePicker; + ChengJiaoType: TBtnEditA; + Label3: TLabel; + FromPlace: TBtnEditA; + Label4: TLabel; + ToPlace: TBtnEditA; + Label5: TLabel; + BankName: TBtnEditA; + Label6: TLabel; + Label7: TLabel; + GHDanWei: TEdit; + Label8: TLabel; + XHDanWei: TEdit; + Label9: TLabel; + XYZNO: TEdit; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ChengJiaoTypeBtnClick(Sender: TObject); + procedure FromPlaceBtnClick(Sender: TObject); + procedure ToPlaceBtnClick(Sender: TObject); + procedure BankNameBtnClick(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmWXFPInPut: TfrmWXFPInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGHZSelList; + +{$R *.dfm} + +procedure TfrmWXFPInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ʊ¼',Tv1,'Ʊ'); +end; + +procedure TfrmWXFPInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,B.* '); + SQL.Add(' from FP_XiaoShou A'); + sql.Add(' inner join FP_XiaoShou_Sub B on A.FXID=B.FXID'); + sql.Add(' where A.FXID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHDataNew(ADOQuery1,Panel1,0); + +end; + +procedure TfrmWXFPInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmWXFPInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʊ¼',Tv1,'Ʊ'); + FPDate.DateTime:=SGetServerDate(ADOTemp); + InitData(); +end; +procedure TfrmWXFPInPut.GetMaxConNO(); +begin + +end; +function TfrmWXFPInPut.SaveData():Boolean; +var + maxno,maxsubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'FX','FP_XiaoShou',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_XiaoShou where FXID='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FXID').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'FP_XiaoShou',Panel1,0); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + // FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_XiaoShou where FPNo='''+Trim(FPNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ʊظ!','ʾ',0); + Exit; + end; + + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FSID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubNo,'FS','FP_XiaoShou_Sub',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubNo:=Trim(Order_Sub.fieldbyname('FSID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_XiaoShou_Sub where FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FSID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FXID').Value:=Trim(maxno); + FieldByName('FSID').Value:=Trim(maxsubNo); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('NQID').Value:=Order_Sub.fieldbyname('NQID').Value; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_XiaoShou_Sub',0) ; + Post; + end; + Edit; + FieldByName('FSID').Value:=Trim(maxsubNo); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmWXFPInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Trim(FPNO.Text)='' then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Trim(GHDanWei.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Trim(XHDanWei.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmWXFPInPut.ToolButton3Click(Sender: TObject); +var + FSQDate,FGHDanWei,FXHDanWei:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmBGHZSelList:=TfrmBGHZSelList.Create(Application); + with frmBGHZSelList do + begin + if ShowModal=1 then + begin + with frmBGHZSelList.CDS_HZ do + begin + First; + while not Eof do + begin + if frmBGHZSelList.CDS_HZ.FieldByName('SSel').AsBoolean=True then + begin + if frmBGHZSelList.CDS_HZ.FieldByName('WXFPMoney').Value=0 then + begin + FGHDanWei:=Trim(frmBGHZSelList.CDS_HZ.fieldbyname('KHName').AsString); + FXHDanWei:=Trim(frmBGHZSelList.CDS_HZ.fieldbyname('FPDanWei').AsString); + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=frmBGHZSelList.CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGName').Value; + FieldByName('QtyUnit').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').Value; + FieldByName('SGHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('KHName').Value; + FieldByName('SXHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('FPDanWei').Value; + if Trim(frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQMQty').Value; + end else + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQkgQty').Value; + end; + FieldByName('Price').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGPrice').Value; + FieldByName('Money').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGMoney').Value; + FieldByName('FPDate').Value:=FSQDate; + //Post; + end; + end; + + end; + Next; + end; + end; + end; + end; + finally + frmBGHZSelList.Free; + end; + if Trim(GHDanWei.Text)='' then + GHDanWei.Text:=Trim(FGHDanWei); + if Trim(XHDanWei.Text)='' then + XHDanWei.Text:=Trim(FXHDanWei); +end; + +procedure TfrmWXFPInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_XiaoShou_Sub where FSId='''+Trim(Order_Sub.fieldbyname('FSId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmWXFPInPut.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmWXFPInPut.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPut.ChengJiaoTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChengJiaoType'; + flagname:='ɽʽ'; + if ShowModal=1 then + begin + ChengJiaoType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPut.FromPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChuKouKA'; + flagname:='ڿڰ'; + if ShowModal=1 then + begin + FromPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPut.ToPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YunDiG'; + flagname:='˵ֹ'; + if ShowModal=1 then + begin + ToPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPut.BankNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WXBankName'; + flagname:=''; + if ShowModal=1 then + begin + BankName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.dfm b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.dfm new file mode 100644 index 0000000..12f1871 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.dfm @@ -0,0 +1,887 @@ +object frmWXFPInPutWGL: TfrmWXFPInPutWGL + Left = 40 + Top = 0 + Width = 1250 + Height = 680 + Align = alClient + Caption = #22806#38144#21457#31080#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1217 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 126 + Width = 1217 + Height = 123 + Align = alTop + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = v1Column12 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 105 + end + object v1Column4: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'SGHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'SXHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 1217 + Height = 97 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 31 + Top = 22 + Width = 48 + Height = 12 + Caption = #21457' '#31080' '#21495 + end + object Label2: TLabel + Left = 262 + Top = 22 + Width = 48 + Height = 12 + Caption = #21457#31080#26085#26399 + end + object Label3: TLabel + Left = 496 + Top = 22 + Width = 48 + Height = 12 + Caption = #25104#20132#26041#24335 + end + object Label4: TLabel + Left = 31 + Top = 47 + Width = 48 + Height = 12 + Caption = #35013#33337#21475#23736 + end + object Label5: TLabel + Left = 262 + Top = 47 + Width = 48 + Height = 12 + Caption = #30446' '#30340' '#22320 + end + object Label6: TLabel + Left = 496 + Top = 47 + Width = 48 + Height = 12 + Caption = #38134#34892#21517#31216 + end + object Label7: TLabel + Left = 31 + Top = 72 + Width = 48 + Height = 12 + Caption = #36141#36135#21333#20301 + end + object Label8: TLabel + Left = 262 + Top = 72 + Width = 48 + Height = 12 + Caption = #36827#36135#21333#20301 + end + object Label9: TLabel + Left = 496 + Top = 72 + Width = 48 + Height = 12 + Caption = #20449#29992#35777#21495 + end + object FPNO: TEdit + Left = 81 + Top = 18 + Width = 150 + Height = 20 + TabOrder = 0 + end + object FPDate: TDateTimePicker + Left = 312 + Top = 18 + Width = 150 + Height = 20 + Date = 41970.419724305550000000 + Time = 41970.419724305550000000 + TabOrder = 1 + end + object ChengJiaoType: TBtnEditA + Left = 552 + Top = 18 + Width = 150 + Height = 20 + TabOrder = 2 + OnBtnClick = ChengJiaoTypeBtnClick + end + object FromPlace: TBtnEditA + Left = 81 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 3 + OnBtnClick = FromPlaceBtnClick + end + object ToPlace: TBtnEditA + Left = 312 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 4 + OnBtnClick = ToPlaceBtnClick + end + object BankName: TBtnEditA + Left = 552 + Top = 43 + Width = 150 + Height = 20 + TabOrder = 5 + OnBtnClick = BankNameBtnClick + end + object GHDanWei: TEdit + Left = 81 + Top = 68 + Width = 150 + Height = 20 + ReadOnly = True + TabOrder = 6 + end + object XHDanWei: TEdit + Left = 312 + Top = 68 + Width = 150 + Height = 20 + ReadOnly = True + TabOrder = 7 + end + object XYZNO: TEdit + Left = 552 + Top = 68 + Width = 150 + Height = 20 + TabOrder = 8 + end + end + object Panel2: TPanel + Left = 0 + Top = 257 + Width = 1217 + Height = 417 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Panel3: TPanel + Left = 2 + Top = 2 + Width = 1213 + Height = 31 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label10: TLabel + Left = 23 + Top = 10 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object OrderNo: TEdit + Tag = 2 + Left = 64 + Top = 6 + Width = 183 + Height = 20 + TabOrder = 0 + OnKeyPress = OrderNoKeyPress + end + object Button1: TButton + Left = 276 + Top = 4 + Width = 75 + Height = 25 + Caption = #26680#38144 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button1Click + end + end + object cxGrid6: TcxGrid + Left = 2 + Top = 33 + Width = 1213 + Height = 127 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Tv6: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv6CellClick + OnCellDblClick = Tv6CellDblClick + DataController.DataSource = DataSource3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v6Column3 + end + item + Kind = skSum + Column = v6Column8 + end + item + Kind = skSum + Column = v6Column9 + end + item + Kind = skSum + Column = v6Column4 + end + item + Kind = skSum + Column = v6Column7 + end + item + Kind = skSum + Column = v6Column13 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSe + Styles.IncSearch = DataLink_CYZZ.SHuangSe + Styles.Selection = DataLink_CYZZ.SHuangSe + Styles.Header = DataLink_CYZZ.Default + object v6Column6: TcxGridDBColumn + Caption = #20869#37096#21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v6Column10: TcxGridDBColumn + Caption = #24320#31080#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v6Column5: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v6BCOrderNo: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#35782#21035#21495 + DataBinding.FieldName = 'BCOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'BGName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v6Column11: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v6Column8: TcxGridDBColumn + Caption = #20869#37096#21457#31080#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v6Column9: TcxGridDBColumn + Caption = #20869#37096#21457#31080#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v6Column4: TcxGridDBColumn + Caption = #24050#26680#38144#37329#39069 + DataBinding.FieldName = 'HXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v6Column7: TcxGridDBColumn + Caption = #24453#26680#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v6Column13: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'BCHXMoney' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object Tv6Column2: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'NQUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'KG') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v6Column1: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'NQkgQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v6Column12: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'NQMQty' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v6Column2: TcxGridDBColumn + Caption = #21333#20215'$' + DataBinding.FieldName = 'BGPrice' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 39 + end + object v6Column3: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'BGMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + end + object cxGridLevel6: TcxGridLevel + GridView = Tv6 + end + end + object cxSplitter2: TcxSplitter + Left = 2 + Top = 160 + Width = 1213 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 2 + Top = 168 + Width = 1213 + Height = 247 + Align = alBottom + TabOrder = 3 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn11 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20379#24212#21830#21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #36827#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #36135#29289#21697#21517 + DataBinding.FieldName = 'BFName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v2Column1: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'BCHXMoney' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 249 + Width = 1217 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel1 + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 480 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 357 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 511 + Top = 216 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 542 + Top = 220 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 461 + Top = 525 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 322 + Top = 3 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 397 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 402 + Top = 366 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 515 + Top = 522 + end + object DataSource3: TDataSource + DataSet = CDS_HZ + Left = 600 + Top = 342 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 632 + Top = 342 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid6 + PopupMenus = <> + Left = 664 + Top = 342 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.pas b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.pas new file mode 100644 index 0000000..8c0bc76 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPInPutWGL.pas @@ -0,0 +1,805 @@ +unit U_WXFPInPutWGL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu, cxSplitter; + +type + TfrmWXFPInPutWGL = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet2: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label1: TLabel; + FPNO: TEdit; + Label2: TLabel; + FPDate: TDateTimePicker; + ChengJiaoType: TBtnEditA; + Label3: TLabel; + FromPlace: TBtnEditA; + Label4: TLabel; + ToPlace: TBtnEditA; + Label5: TLabel; + BankName: TBtnEditA; + Label6: TLabel; + Label7: TLabel; + GHDanWei: TEdit; + Label8: TLabel; + XHDanWei: TEdit; + Label9: TLabel; + XYZNO: TEdit; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Panel2: TPanel; + Panel3: TPanel; + Label10: TLabel; + OrderNo: TEdit; + Button1: TButton; + cxGrid6: TcxGrid; + Tv6: TcxGridDBTableView; + v6Column5: TcxGridDBColumn; + v6BCOrderNo: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + v6Column10: TcxGridDBColumn; + v6Column11: TcxGridDBColumn; + v6Column8: TcxGridDBColumn; + v6Column9: TcxGridDBColumn; + Tv6Column2: TcxGridDBColumn; + v6Column2: TcxGridDBColumn; + v6Column3: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + cxSplitter2: TcxSplitter; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + v6Column6: TcxGridDBColumn; + v6Column1: TcxGridDBColumn; + v6Column12: TcxGridDBColumn; + DataSource3: TDataSource; + CDS_HZ: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + v6Column4: TcxGridDBColumn; + v6Column7: TcxGridDBColumn; + v6Column13: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ChengJiaoTypeBtnClick(Sender: TObject); + procedure FromPlaceBtnClick(Sender: TObject); + procedure ToPlaceBtnClick(Sender: TObject); + procedure BankNameBtnClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv6CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmWXFPInPutWGL: TfrmWXFPInPutWGL; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_BGHZSelList; + +{$R *.dfm} + +procedure TfrmWXFPInPutWGL.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ʊ¼',Tv1,'Ʊ'); +end; + +procedure TfrmWXFPInPutWGL.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,B.* '); + SQL.Add(' from FP_XiaoShou A'); + sql.Add(' inner join FP_XiaoShou_Sub B on A.FXID=B.FXID'); + sql.Add(' where A.FXID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + SCSHDataNew(ADOQuery1,Panel1,0); + +end; + +procedure TfrmWXFPInPutWGL.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmWXFPInPutWGL.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʊ¼',Tv1,'Ʊ'); + FPDate.DateTime:=SGetServerDate(ADOTemp); + InitData(); +end; +procedure TfrmWXFPInPutWGL.GetMaxConNO(); +begin + +end; +function TfrmWXFPInPutWGL.SaveData():Boolean; +var + maxno,maxsubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'FX','FP_XiaoShou',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_XiaoShou where FXID='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FXID').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'FP_XiaoShou',Panel1,0); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + // FieldByName('Note').Value:=Trim(Note.Text); + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_XiaoShou where FPNo='''+Trim(FPNo.Text)+''''); + Open; + end; + if ADOCmd.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('Ʊظ!','ʾ',0); + Exit; + end; + + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('FSID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubNo,'FS','FP_XiaoShou_Sub',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubNo:=Trim(Order_Sub.fieldbyname('FSID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from FP_XiaoShou_Sub where FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('FSID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('FXID').Value:=Trim(maxno); + FieldByName('FSID').Value:=Trim(maxsubNo); + FieldByName('BGID').Value:=Order_Sub.fieldbyname('BGID').Value; + FieldByName('BCID').Value:=Order_Sub.fieldbyname('BCID').Value; + FieldByName('NQID').Value:=Order_Sub.fieldbyname('NQID').Value; + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'FP_XiaoShou_Sub',0) ; + Post; + end; + Edit; + FieldByName('FSID').Value:=Trim(maxsubNo); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmWXFPInPutWGL.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Trim(FPNO.Text)='' then + begin + Application.MessageBox('ƱŲΪ!','ʾ',0); + Exit; + end; + if Trim(GHDanWei.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Trim(XHDanWei.Text)='' then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('Qty',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Price',null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('Money',null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + // ModalResult:=1; + end; + +end; + +procedure TfrmWXFPInPutWGL.ToolButton3Click(Sender: TObject); +var + FSQDate,FGHDanWei,FXHDanWei:string; +begin + FSQDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOTemp))); + try + frmBGHZSelList:=TfrmBGHZSelList.Create(Application); + with frmBGHZSelList do + begin + if ShowModal=1 then + begin + with frmBGHZSelList.CDS_HZ do + begin + First; + while not Eof do + begin + if frmBGHZSelList.CDS_HZ.FieldByName('SSel').AsBoolean=True then + begin + if frmBGHZSelList.CDS_HZ.FieldByName('WXFPMoney').Value=0 then + begin + FGHDanWei:=Trim(frmBGHZSelList.CDS_HZ.fieldbyname('KHName').AsString); + FXHDanWei:=Trim(frmBGHZSelList.CDS_HZ.fieldbyname('FPDanWei').AsString); + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=frmBGHZSelList.CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGName').Value; + FieldByName('QtyUnit').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').Value; + FieldByName('SGHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('KHName').Value; + FieldByName('SXHDanWei').Value:=frmBGHZSelList.CDS_HZ.FieldByName('FPDanWei').Value; + if Trim(frmBGHZSelList.CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQMQty').Value; + end else + begin + FieldByName('Qty').Value:=frmBGHZSelList.CDS_HZ.FieldByName('NQkgQty').Value; + end; + FieldByName('Price').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGPrice').Value; + FieldByName('Money').Value:=frmBGHZSelList.CDS_HZ.FieldByName('BGMoney').Value; + FieldByName('FPDate').Value:=FSQDate; + //Post; + end; + end; + + end; + Next; + end; + end; + end; + end; + finally + frmBGHZSelList.Free; + end; + if Trim(GHDanWei.Text)='' then + GHDanWei.Text:=Trim(FGHDanWei); + if Trim(XHDanWei.Text)='' then + XHDanWei.Text:=Trim(FXHDanWei); +end; + +procedure TfrmWXFPInPutWGL.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('FSId').AsString)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(HXMoney),0) HXMoney from FP_Money_HX where FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''''); + sql.Add(' and isnull(Type,'''')=''ڲƱ'' '); + Open; + end; + if ADOTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('кݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_XiaoShou_Sub where FSId='''+Trim(Order_Sub.fieldbyname('FSId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmWXFPInPutWGL.v1Column3PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FName:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then mvalue:='0'; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Order_Sub.fieldbyname('Qty').AsString; + FPrice:=Order_Sub.fieldbyname('Price').AsString; + FMoney:=Order_Sub.fieldbyname('Money').AsString; + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + if Trim(FMoney)='' then FMoney:='0'; + if Trim(FName)<>'Money' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + Post; + end; + end else + begin + if Trim(FQty)<>'0' then + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=StrToFloat(FMoney)*1.000000/StrToFloat(FQty); + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('Price').Value:=Null; + Post; + end; + end; + end; +end; + +procedure TfrmWXFPInPutWGL.v1Column20PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='GSTT'; + flagname:='صλ'; + V1ZdyStr1.Visible:=True; + V1ZdyStr2.Visible:=True; + V1ZdyStr3.Visible:=True; + V1ZdyStr4.Visible:=True; + V1ZdyStr1.Caption:=''; + V1ZdyStr2.Caption:='绰'; + V1ZdyStr3.Caption:=''; + V1ZdyStr4.Caption:='ַ'; + frmZDYHelp.Align:=alClient; + if ShowModal=1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('GHDanWei').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPutWGL.ChengJiaoTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChengJiaoType'; + flagname:='ɽʽ'; + if ShowModal=1 then + begin + ChengJiaoType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPutWGL.FromPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ChuKouKA'; + flagname:='ڿڰ'; + if ShowModal=1 then + begin + FromPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPutWGL.ToPlaceBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YunDiG'; + flagname:='˵ֹ'; + if ShowModal=1 then + begin + ToPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPutWGL.BankNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WXBankName'; + flagname:=''; + if ShowModal=1 then + begin + BankName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWXFPInPutWGL.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(OrderNo.Text))<3 then Exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.NQMQty,B.NQKgQty,B.NQYQty,B.BGPrice,B.BGMoney,B.NQUnit,C.BCOrderNo '); + sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=A.OrderNo)'); + SQL.Add(',DHXMoney=A.Money-isnull(A.HXMoney,0)'); + SQL.Add(' ,BCHXMoney=(select HXMoney from FP_Money_HX HX where HX.NBFMID=A.FMID '); + SQL.Add(' and HX.FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''')'); + sql.Add('from FP_GYSNB A'); + sql.Add('inner join JYOrder_BG_CKName_Qty B on A.NQID=B.NQID'); + sql.Add(' inner join JYOrder_BG_CK C on B.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG D on B.BGId=D.BGId'); + SQL.Add(' where A.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOTemp,CDS_HZ); + SInitCDSData20(ADOTemp,CDS_HZ); + end; +end; + +procedure TfrmWXFPInPutWGL.Tv6CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_HZ.IsEmpty then Exit; + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',BCHXMoney=(select HXMoney from FP_Money_HX B where B.GYSFMID=A.FMID '); + sql.Add(' and B.NBFMID='''+Trim(CDS_HZ.fieldbyname('FMID').AsString)+''')'); + sql.Add(' from FP_GYSNB A'); + sql.Add(' where exists(select * from FP_Money_HX HX where HX.GYSFMID=A.FMID'); + sql.Add(' and HX.NBFMID='''+Trim(CDS_HZ.fieldbyname('FMID').AsString)+''')'); + Open; + end; + SCreateCDS20(ADOTemp,ClientDataSet2); + SInitCDSData20(ADOTemp,ClientDataSet2); +end; + +procedure TfrmWXFPInPutWGL.Tv6CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with Self.Order_Sub do + begin + Append; + FieldByName('BGId').Value:=CDS_HZ.FieldByName('BGId').Value; + FieldByName('BCID').Value:=CDS_HZ.FieldByName('BCID').Value; + FieldByName('NQID').Value:=CDS_HZ.FieldByName('NQID').Value; + FieldByName('OrderNo').Value:=CDS_HZ.FieldByName('OrderNo').Value; + FieldByName('BGName').Value:=CDS_HZ.FieldByName('BGName').Value; + FieldByName('QtyUnit').Value:=CDS_HZ.FieldByName('NQUnit').Value; + FieldByName('SGHDanWei').Value:=CDS_HZ.FieldByName('KHName').Value; + FieldByName('SXHDanWei').Value:=CDS_HZ.FieldByName('GHDanWei').Value; + if Trim(CDS_HZ.FieldByName('NQUnit').AsString)='M' then + begin + FieldByName('Qty').Value:=CDS_HZ.FieldByName('NQMQty').Value; + end else + begin + FieldByName('Qty').Value:=CDS_HZ.FieldByName('NQkgQty').Value; + end; + FieldByName('Price').Value:=CDS_HZ.FieldByName('BGPrice').Value; + FieldByName('Money').Value:=CDS_HZ.FieldByName('BGMoney').Value; + FieldByName('FPDate').Value:=SGetServerDate(ADOTemp); + //Post; + end; + GHDanWei.Text:=CDS_HZ.FieldByName('KHName').Value; + XHDanWei.Text:=CDS_HZ.FieldByName('GHDanWei').Value +end; + +procedure TfrmWXFPInPutWGL.Button1Click(Sender: TObject); +var + maxno,FFHID:string; +begin + if Order_Sub.IsEmpty then Exit; + if CDS_HZ.IsEmpty then Exit; + if Trim(Order_Sub.FieldByName('FSID').AsString)='' then + begin + Application.MessageBox('δ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then exit; + try + ADOCmd.Connection.BeginTrans; + with CDS_HZ do + begin + First; + while not Eof do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from FP_Money_HX where NBFMID='''+Trim(CDS_HZ.fieldbyname('FMID').AsString)+''''); + sql.Add(' and FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''''); + open; + end; + FFHID:=Trim(ADOTemp.fieldbyname('FHID').AsString); + if Trim(FFHID)='' then + begin + if GetLSNo(ADOCmd,maxno,'FH','FP_Money_HX',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƱʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FFHID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from FP_Money_HX where FHID='''+Trim(FFHID)+''''); + open; + end; + with ADOCmd do + begin + if Trim(FFHID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('FHID').Value:=Trim(maxno); + FieldByName('NBFMID').Value:=Trim(CDS_HZ.fieldbyname('FMID').AsString); + FieldByName('FSID').Value:=Trim(Order_Sub.fieldbyname('FSID').AsString); + FieldByName('FXID').Value:=Trim(FMainId); + if Trim(CDS_HZ.fieldbyname('BCHXMoney').AsString)='' then + begin + FieldByName('HXMoney').Value:=0; + end else + begin + FieldByName('HXMoney').Value:=CDS_HZ.fieldbyname('BCHXMoney').Value; + end; + FieldByName('Type').Value:='ڲƱ'; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' Update FP_GYSNB Set HXMoney=(select Sum(HXMoney) from FP_Money_HX A'); + sql.Add(' where A.NBFMID=FP_GYSNB.FMID and Isnull(A.Type,'''')=''ڲƱ'')'); + sql.Add(' where FMID='''+Trim(CDS_HZ.fieldbyname('FMID').AsString)+''''); + ExecSQL; + end; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmWXFPInPutWGL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.NQMQty,B.NQKgQty,B.NQYQty,B.BGPrice,B.BGMoney,B.NQUnit,C.BCOrderNo '); + sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=A.OrderNo)'); + SQL.Add(',DHXMoney=A.Money-isnull(A.HXMoney,0)'); + SQL.Add(' ,BCHXMoney=(select HXMoney from FP_Money_HX HX where HX.NBFMID=A.FMID '); + SQL.Add(' and HX.FSID='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''')'); + sql.Add('from FP_GYSNB A'); + sql.Add('inner join JYOrder_BG_CKName_Qty B on A.NQID=B.NQID'); + sql.Add(' inner join JYOrder_BG_CK C on B.BCId=C.BCId'); + sql.Add(' inner join JYOrder_BG D on B.BGId=D.BGId'); + SQL.Add(' where exists(select * from FP_Money_HX FMH where FMH.NBFMID=A.FMID '); + SQL.Add(' and isnull(FMH.FSID,'''')='''+Trim(Order_Sub.fieldbyname('FSID').AsString)+''' '); + sql.Add(' and isnull(FMH.Type,'''')=''ڲƱ'' and isnull(FMH.HXMoney,0)<>0)'); + Open; + end; + SCreateCDS20(ADOTemp,CDS_HZ); + SInitCDSData20(ADOTemp,CDS_HZ); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WXFPList.dfm new file mode 100644 index 0000000..2cf43de --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPList.dfm @@ -0,0 +1,516 @@ +object frmWXFPList: TfrmWXFPList + Left = 119 + Top = 123 + Width = 1072 + Height = 547 + Caption = #22806#38144#21457#31080#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1056 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1056 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 380 + Top = 18 + Width = 65 + Height = 12 + Caption = #22806#38144#21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 536 + Top = 18 + Width = 52 + Height = 12 + Caption = #36141#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 680 + Top = 18 + Width = 52 + Height = 12 + Caption = #38144#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + end + object FPNO: TEdit + Tag = 2 + Left = 446 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + OnKeyPress = FPNOKeyPress + end + object GHDanWei: TEdit + Tag = 2 + Left = 589 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object XHDanWei: TEdit + Tag = 2 + Left = 733 + Top = 14 + Width = 75 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 79 + Width = 1056 + Height = 429 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column12 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column9: TcxGridDBColumn + Caption = #22806#38144#21457#31080#21495 + DataBinding.FieldName = 'FPNO' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column20: TcxGridDBColumn + Caption = #36141#36135#21333#20301 + DataBinding.FieldName = 'GHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column5: TcxGridDBColumn + Caption = #38144#36135#21333#20301 + DataBinding.FieldName = 'XHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 78 + end + object v1Column18: TcxGridDBColumn + Caption = #35013#33337#21475#23736 + DataBinding.FieldName = 'FromPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column1: TcxGridDBColumn + Caption = #30446#30340#22320 + DataBinding.FieldName = 'ToPlace' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column4: TcxGridDBColumn + Caption = #25104#20132#26041#24335 + DataBinding.FieldName = 'ChengJiaoType' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column6: TcxGridDBColumn + Caption = #24320#25143#34892 + DataBinding.FieldName = 'BankName' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column7: TcxGridDBColumn + Caption = #20449#29992#35777#21495#25968 + DataBinding.FieldName = 'XYZNO' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column12: TcxGridDBColumn + Caption = #37329#39069'$' + DataBinding.FieldName = 'HZMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column13: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 52 + end + object v1Column8: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 517 + Top = 195 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WXFPList.pas b/坯布码单待检(PBMDDJ.dll)/U_WXFPList.pas new file mode 100644 index 0000000..0f06080 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WXFPList.pas @@ -0,0 +1,457 @@ +unit U_WXFPList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox; + + +type + TfrmWXFPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label5: TLabel; + FPNO: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column18: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label4: TLabel; + GHDanWei: TEdit; + Label6: TLabel; + XHDanWei: TEdit; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + ToolButton2: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure FPNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + { Private declarations } + public + { Public declarations } + end; + +var + frmWXFPList: TfrmWXFPList; + +implementation +uses + U_DataLink,U_RTFun,U_WXFPInPut,U_ModuleNote, U_ZDYHelp,U_WXFPInPutWGL; + +{$R *.dfm} + +procedure TfrmWXFPList.FormDestroy(Sender: TObject); +begin + frmWXFPList:=nil; +end; + +procedure TfrmWXFPList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWXFPList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ʊб',Tv1,'Ʊ'); +end; + +procedure TfrmWXFPList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*'); + sql.Add(',HZMoney=(select Sum(Money) from FP_XiaoShou_Sub B where B.FXID=A.FXID )'); + SQL.Add(' from FP_XiaoShou A'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + //if cxTabControl1.TabIndex<>0 then + begin + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmWXFPList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('Ʊб',Tv1,'Ʊ'); + //InitGrid(); +end; + +procedure TfrmWXFPList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + + try + frmWXFPInPutWGL:=TfrmWXFPInPutWGL.Create(Application); + with frmWXFPInPutWGL do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FXID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmWXFPInPutWGL.Free; + end; +end; + +procedure TfrmWXFPList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(sum(HXMoney),0) HXMoney from FP_Money_HX where FXID='''+Trim(Order_Main.fieldbyname('FXID').AsString)+''''); + sql.Add(' and isnull(Type,'''')=''ڲƱ'' '); + Open; + end; + if ADOQueryTemp.FieldByName('HXMoney').Value<>0 then + begin + Application.MessageBox('кݲɾ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmWXFPList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FP_XiaoShou where FXId='''+Trim(Order_Main.fieldbyname('FXId').AsString)+''''); + sql.Add('delete FP_XiaoShou_Sub where FXId='''+Trim(Order_Main.fieldbyname('FXId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmWXFPList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('Ʊ',cxGrid1); +end; + +procedure TfrmWXFPList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWXFPList.TBAddClick(Sender: TObject); +begin + try + frmWXFPInPutWGL:=TfrmWXFPInPutWGL.Create(Application); + with frmWXFPInPutWGL do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmWXFPInPutWGL.Free; + end; +end; + +procedure TfrmWXFPList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmWXFPList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWXFPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ʊ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmWXFPList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmWXFPList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*'); + sql.Add(',HZMoney=(select Sum(Money) from FP_XiaoShou_Sub B where B.FXID=A.FXID )'); + SQL.Add(' from FP_XiaoShou A'); + sql.Add(' ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWXFPList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWXFPList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmWXFPList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmWXFPList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmWXFPList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmWXFPList.FPNOKeyPress(Sender: TObject; var Key: Char); + + var + fsj:String; +begin + if Key<>#13 then Exit; + if Length(Trim(FPNO.Text))<3 then Exit; + fsj:=' and AA.FPNO like '''+'%'+Trim(FPNO.Text)+'%'+''''; + InitGridWsql(fsj); +end; + + +procedure TfrmWXFPList.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end;} + + try + frmWXFPInPutWGL:=TfrmWXFPInPutWGL.Create(Application); + with frmWXFPInPutWGL do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FXID').AsString); + TBSave.Visible:=False; + ToolButton3.Visible:=False; + ToolButton4.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmWXFPInPutWGL.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.dfm new file mode 100644 index 0000000..320b630 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.dfm @@ -0,0 +1,646 @@ +object frmWorkDeptFeeBXFKList: TfrmWorkDeptFeeBXFKList + Left = 79 + Top = 109 + Width = 1263 + Height = 547 + Caption = #36153#29992#25253#38144#20184#27454 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1247 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1247 + Height = 226 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v1Column7: TcxGridDBColumn + Caption = #20184#27454#26085#26399 + DataBinding.FieldName = 'FKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column17: TcxGridDBColumn + Caption = #25253#38144#20154 + DataBinding.FieldName = 'Worker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column1: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'FKType' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column2: TcxGridDBColumn + Caption = #20184#27454#37329#39069 + DataBinding.FieldName = 'FKMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 131 + end + object v1Column5: TcxGridDBColumn + Caption = #38134#34892#21517#31216 + DataBinding.FieldName = 'BankName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 143 + end + object v1Column3: TcxGridDBColumn + Caption = #38134#34892#36134#21495 + DataBinding.FieldName = 'BankNo' + HeaderAlignmentHorz = taCenter + Width = 121 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 181 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1247 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 279 + Top = 22 + Width = 39 + Height = 12 + Caption = #25253#38144#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 407 + Top = 22 + Width = 52 + Height = 12 + Caption = #20184#27454#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 551 + Top = 22 + Width = 52 + Height = 12 + Caption = #38134#34892#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 699 + Top = 22 + Width = 52 + Height = 12 + Caption = #38134#34892#36134#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object Worker: TEdit + Tag = 2 + Left = 320 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object FKType: TEdit + Tag = 2 + Left = 461 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + object BankName: TEdit + Tag = 2 + Left = 603 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + end + object BankNo: TEdit + Tag = 2 + Left = 751 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 312 + Width = 1247 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 320 + Width = 1247 + Height = 188 + Align = alBottom + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MSMoney + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v2Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object v2Column2: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'WFDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v2Column8: TcxGridDBColumn + Caption = #25253#38144#21333#21495 + DataBinding.FieldName = 'BXNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v2Column3: TcxGridDBColumn + Caption = #25253#38144#20154 + DataBinding.FieldName = 'Worker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v2Column9: TcxGridDBColumn + Caption = #37096#38376#20998#31867 + DataBinding.FieldName = 'Dept' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v2Column4: TcxGridDBColumn + Caption = #22823#31867 + DataBinding.FieldName = 'WFType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column10: TcxGridDBColumn + Caption = #23567#31867 + DataBinding.FieldName = 'WFTypeSub' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v2Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #36135#29289#21517#31216 + DataBinding.FieldName = 'KeMu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1MSMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'MoneyKP' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25910#27454#20154 + DataBinding.FieldName = 'FactoryNameKP' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v2Column5: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoney' + Options.Editing = False + Width = 73 + end + object v2Column6: TcxGridDBColumn + Caption = #24453#25253#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Options.Editing = False + Width = 74 + end + object v2Column7: TcxGridDBColumn + Caption = #25253#38144#37329#39069 + DataBinding.FieldName = 'BCHXMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 592 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 688 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 720 + Top = 8 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 760 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 848 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 581 + Top = 384 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 616 + Top = 384 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 645 + Top = 385 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.pas b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.pas new file mode 100644 index 0000000..40bcdc1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeBXFKList.pas @@ -0,0 +1,435 @@ +unit U_WorkDeptFeeBXFKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + +type + TfrmWorkDeptFeeBXFKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Worker: TEdit; + Label6: TLabel; + v1Column17: TcxGridDBColumn; + Label3: TLabel; + FKType: TEdit; + Label4: TLabel; + BankName: TEdit; + ToolButton2: TToolButton; + v1Column1: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + cxSplitter1: TcxSplitter; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + ToolButton1: TToolButton; + v1Column3: TcxGridDBColumn; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + v1MSMoney: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label5: TLabel; + BankNo: TEdit; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton1Click(Sender: TObject); + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmWorkDeptFeeBXFKList: TfrmWorkDeptFeeBXFKList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote,U_WorkDeptFeeFKHXList; + +{$R *.dfm} + +procedure TfrmWorkDeptFeeBXFKList.FormDestroy(Sender: TObject); +begin + frmWorkDeptFeeBXFKList:=nil; +end; + +procedure TfrmWorkDeptFeeBXFKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWorkDeptFeeBXFKList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ñб',Tv1,'ù'); + WriteCxGrid('ñбMX',Tv2,'ù'); +end; + +procedure TfrmWorkDeptFeeBXFKList.InitGrid(); + +begin + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(' from Woker_Fee_FK A where'); + sql.Add(' A.FKDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.FKDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmWorkDeptFeeBXFKList.InitForm(); +begin + endDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + InitGrid(); +end; + +function TfrmWorkDeptFeeBXFKList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Worker_Fee_FenTan where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + sql.Add('delete Worker_Fee_Main where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + sql.Add('delete Worker_Fee_Sub where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeBXFKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeBXFKList.FormShow(Sender: TObject); +begin + ReadCxGrid('ñб',Tv1,'ù'); + ReadCxGrid('ñбMX',Tv2,'ù'); + InitForm(); +end; + +procedure TfrmWorkDeptFeeBXFKList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeBXFKList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ñ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmWorkDeptFeeBXFKList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmWorkDeptFeeBXFKList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,FS.*,HJMoney=FS.YunFee+FS.MaTouFee+FS.YangBanFee+FS.OtherFee '); + SQL.Add(' from JYOrderKP_Fee A inner join JYOrderKP_Fee_Sub FS on A.FMID=FS.FMID'); + sql.Add(' where 1=1'); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(fsj); + sql.Add(' order by A.FPNo'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmWorkDeptFeeBXFKList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmWorkDeptFeeBXFKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeBXFKList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmWorkDeptFeeBXFKList.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmWorkDeptFeeBXFKList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmWorkDeptFeeBXFKList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmWorkDeptFeeBXFKList.ToolButton4Click(Sender: TObject); +begin + try + frmWorkDeptFeeFKHXList:=TfrmWorkDeptFeeFKHXList.Create(Application); + with frmWorkDeptFeeFKHXList do + begin + PState:=0; + if ShowModal=1 then + begin + + end; + end; + finally + frmWorkDeptFeeFKHXList.Free; + end; +end; + +procedure TfrmWorkDeptFeeBXFKList.ToolButton5Click(Sender: TObject); +begin + try + frmWorkDeptFeeFKHXList:=TfrmWorkDeptFeeFKHXList.Create(Application); + with frmWorkDeptFeeFKHXList do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('FKID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmWorkDeptFeeFKHXList.Free; + end; +end; + +procedure TfrmWorkDeptFeeBXFKList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.*,B.* ,DHXMoney=isnull(B.Money,0)-isnull(B.BXMoney,0)'); + sql.Add(' ,BCHXMoney=(select isnull(HX.HXMoney,0) from Worker_Fee_HX HX where HX.WSID=B.WSID and HX.FKID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''')'); + SQL.Add(' from Worker_Fee_Main A '); + sql.Add(' inner join Worker_Fee_Sub B on A.WFID=B.WFID'); + sql.Add(' where exists(select * from Worker_Fee_HX C where C.WSID=B.WSID and C.FKID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''')'); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmWorkDeptFeeBXFKList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Worker_Fee_Sub Set BXMoney='); + sql.Add('(select Sum(HXMoney) from Worker_Fee_HX A where A.WSID=Worker_Fee_Sub.WSID'); + sql.Add(' and A.FKID<>'''+Trim(Order_Main.fieldbyname('FKID').AsString)+''')'); + sql.Add(' where WSID in'); + sql.Add('(select WSID from Worker_Fee_HX where FKID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''')'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Worker_Fee_HX where FKID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''''); + sql.Add('delete Woker_Fee_FK where FKID='''+Trim(Order_Main.fieldbyname('FKID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + Exit; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.dfm new file mode 100644 index 0000000..8439bc3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.dfm @@ -0,0 +1,757 @@ +object frmWorkDeptFeeChkList: TfrmWorkDeptFeeChkList + Left = 109 + Top = 128 + Width = 1232 + Height = 547 + Caption = #36153#29992#25253#38144#21333#23457#26680 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1216 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #23457#26680#36890#36807 + ImageIndex = 22 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 52 + OnClick = ToolButton5Click + end + object ToolButton3: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 422 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1216 + Height = 23 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1216 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 109 + Width = 1216 + Height = 196 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column10 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v1Column8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 48 + end + object v1Column5: TcxGridDBColumn + Caption = #25253#38144#21333#21495 + DataBinding.FieldName = 'BXNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column7: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'WFDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column17: TcxGridDBColumn + Caption = #25253#38144#20154 + DataBinding.FieldName = 'Worker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #37096#38376#20998#31867 + DataBinding.FieldName = 'Dept' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column1: TcxGridDBColumn + Caption = #22823#31867 + DataBinding.FieldName = 'WFType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column13: TcxGridDBColumn + Caption = #23567#31867 + DataBinding.FieldName = 'WFTypeSub' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'HZMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 129 + end + object v1Column10: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoneyHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column12: TcxGridDBColumn + Caption = #23457#26680#22791#27880 + DataBinding.FieldName = 'ChkNote' + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1216 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 430 + Top = 22 + Width = 39 + Height = 12 + Caption = #25253#38144#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 701 + Top = 22 + Width = 26 + Height = 12 + Caption = #22823#31867 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 287 + Top = 22 + Width = 52 + Height = 12 + Caption = #25253#38144#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 821 + Top = 22 + Width = 26 + Height = 12 + Caption = #23567#31867 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 558 + Top = 22 + Width = 52 + Height = 12 + Caption = #37096#38376#20998#31867 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object Worker: TEdit + Tag = 2 + Left = 471 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object WFType: TEdit + Tag = 2 + Left = 729 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + object BXNO: TEdit + Tag = 2 + Left = 341 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + OnKeyPress = BXNOKeyPress + end + object WFTypeSub: TEdit + Tag = 2 + Left = 849 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object Dept: TEdit + Tag = 2 + Left = 611 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 313 + Width = 1216 + Height = 195 + Align = alBottom + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MSMoney + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object v2Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 89 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 138 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36135#29289#21517#31216 + DataBinding.FieldName = 'KeMu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 94 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Width = 86 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1MSMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 111 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'MoneyKP' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25910#27454#20154 + DataBinding.FieldName = 'FactoryNameKP' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v2Column2: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoney' + Width = 75 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 134 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 305 + Width = 1216 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 456 + Top = 182 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 397 + Top = 181 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 427 + Top = 181 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 184 + end + object PopupMenu1: TPopupMenu + Left = 145 + Top = 220 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 576 + Top = 384 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 616 + Top = 384 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 645 + Top = 385 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.pas b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.pas new file mode 100644 index 0000000..14ebeaa --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeChkList.pas @@ -0,0 +1,604 @@ +unit U_WorkDeptFeeChkList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus; + +type + TfrmWorkDeptFeeChkList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + cxTabControl1: TcxTabControl; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton2: TToolButton; + v1Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1MSMoney: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxGridPopupMenu3: TcxGridPopupMenu; + DataSource2: TDataSource; + ClientDataSet2: TClientDataSet; + v2Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Label6: TLabel; + Label3: TLabel; + Label4: TLabel; + Worker: TEdit; + WFType: TEdit; + BXNO: TEdit; + Label5: TLabel; + WFTypeSub: TEdit; + Label7: TLabel; + Dept: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column14: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure BXNOKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmWorkDeptFeeChkList: TfrmWorkDeptFeeChkList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote,U_WorkerDeptFeeInPut,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmWorkDeptFeeChkList.FormDestroy(Sender: TObject); +begin + frmWorkDeptFeeChkList:=nil; +end; + +procedure TfrmWorkDeptFeeChkList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWorkDeptFeeChkList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ñб',Tv1,'ù'); + WriteCxGrid('ñбMX',Tv2,'ù'); +end; + +procedure TfrmWorkDeptFeeChkList.InitGrid(); + +begin + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(',BXMoneyHZ=(select Sum(BXMoney) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(' from Worker_Fee_Main A where 1=1'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>'''' '); + end; + if cxTabControl1.TabIndex<>0 then + begin + sql.Add(' and A.WFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.WFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmWorkDeptFeeChkList.InitForm(); +begin + endDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxTabControl1.TabIndex:=0; + InitGrid(); +end; + +function TfrmWorkDeptFeeChkList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Worker_Fee_FenTan where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + sql.Add('delete Worker_Fee_Main where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + sql.Add('delete Worker_Fee_Sub where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeChkList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeChkList.FormShow(Sender: TObject); +begin + ReadCxGrid('ñб',Tv1,'ù'); + ReadCxGrid('ñбMX',Tv2,'ù'); + InitForm(); +end; + +procedure TfrmWorkDeptFeeChkList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeChkList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ñ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmWorkDeptFeeChkList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmWorkDeptFeeChkList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,FS.*,HJMoney=FS.YunFee+FS.MaTouFee+FS.YangBanFee+FS.OtherFee '); + SQL.Add(' from JYOrderKP_Fee A inner join JYOrderKP_Fee_Sub FS on A.FMID=FS.FMID'); + sql.Add(' where 1=1'); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(fsj); + sql.Add(' order by A.FPNo'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmWorkDeptFeeChkList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmWorkDeptFeeChkList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeChkList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmWorkDeptFeeChkList.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmWorkDeptFeeChkList.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmWorkDeptFeeChkList.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmWorkDeptFeeChkList.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Worker_Fee_Main Set ChkStatus=''ͨ'',ChkTIme=getdate(),Chker='''+Trim(DName)+''''); + sql.Add(',ChkNote='''+Trim(Order_Main.fieldbyname('ChkNote').AsString)+''''); + sql.Add(',WFType='''+Trim(Order_Main.fieldbyname('WFType').AsString)+''''); + sql.Add(',WFTypeSub='''+Trim(Order_Main.fieldbyname('WFTypeSub').AsString)+''''); + sql.Add(' where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeChkList.ToolButton5Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>1 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Worker_Fee_Sub A'); + sql.Add(' where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + sql.Add(' and isnull(BXMoney,0)<>0'); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + Application.MessageBox('бݲܳ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Worker_Fee_Main Set ChkStatus=Null,ChkTIme=Null,Chker=Null,ChkNote=Null '); + sql.Add(' where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeChkList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Worker_Fee_Sub where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmWorkDeptFeeChkList.BXNOKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Trim(BXNO.Text)<>'' then + begin + if Length(BXNO.Text)<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(',BXMoneyHZ=(select Sum(BXMoney) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(',DBXMoneyHZ=(select Sum(isnull(Money,0)-isnull(BXMoney,0)) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(' from Worker_Fee_Main A where 1=1'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>'''' '); + end; + sql.Add(' and BXNO like '''+'%'+Trim(BXNO.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + end; + end; +end; + +procedure TfrmWorkDeptFeeChkList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + while Locate('SSel',True,[])=True do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate Worker_Fee_Main Set EditTime=getdate(),Editer='''+Trim(DName)+''''); + sql.Add(',WFType='''+Trim(Order_Main.fieldbyname('WFType').AsString)+''''); + sql.Add(',WFTypeSub='''+Trim(Order_Main.fieldbyname('WFTypeSub').AsString)+''''); + sql.Add(' where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeChkList.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFType'; + flagname:=''; + MainType:=Trim(Self.Order_Main.fieldbyname('Dept').AsString); + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Edit; + FieldByName('WFType').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkDeptFeeChkList.v1Column13PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFTypeSub'; + flagname:='С'; + MainType:=Trim(Self.Order_Main.fieldbyname('WFType').AsString); + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Edit; + FieldByName('WFTypeSub').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.dfm new file mode 100644 index 0000000..b9a392c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.dfm @@ -0,0 +1,512 @@ +object frmWorkDeptFeeFKHXList: TfrmWorkDeptFeeFKHXList + Left = 77 + Top = 102 + Width = 1239 + Height = 567 + Caption = #36153#29992#25253#38144#20184#27454 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1223 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel2: TPanel + Left = 0 + Top = 112 + Width = 1223 + Height = 416 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 2 + Top = 2 + Width = 1219 + Height = 412 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MSMoney + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v2Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object v1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v2Column2: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'WFDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #25253#38144#21333#21495 + DataBinding.FieldName = 'BXNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v2Column3: TcxGridDBColumn + Caption = #25253#38144#20154 + DataBinding.FieldName = 'Worker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v1Column3: TcxGridDBColumn + Caption = #37096#38376 + DataBinding.FieldName = 'Dept' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v2Column4: TcxGridDBColumn + Caption = #22823#31867 + DataBinding.FieldName = 'WFType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column4: TcxGridDBColumn + Caption = #23567#31867 + DataBinding.FieldName = 'WFTypeSub' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36135#28304#22320 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36135#29289#21517#31216 + DataBinding.FieldName = 'KeMu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 54 + end + object v1MSMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'MoneyKP' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25910#27454#20154 + DataBinding.FieldName = 'FactoryNameKP' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v2Column5: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoney' + Options.Editing = False + Width = 73 + end + object v2Column6: TcxGridDBColumn + Caption = #24453#25253#38144#37329#39069 + DataBinding.FieldName = 'DHXMoney' + Options.Editing = False + Width = 74 + end + object v2Column7: TcxGridDBColumn + Caption = #25253#38144#37329#39069 + DataBinding.FieldName = 'BCHXMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 62 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 32 + Width = 1223 + Height = 80 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label5: TLabel + Left = 8 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 167 + Top = 18 + Width = 39 + Height = 12 + Caption = #25253#38144#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 496 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#37329#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 303 + Top = 18 + Width = 52 + Height = 12 + Caption = #20184#27454#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 8 + Top = 48 + Width = 52 + Height = 12 + Caption = #38134#34892#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 303 + Top = 48 + Width = 52 + Height = 12 + Caption = #38134#34892#36134#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 647 + Top = 18 + Width = 34 + Height = 36 + Caption = #22791' '#13#10#13#10#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object FKDate: TDateTimePicker + Left = 62 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40675.000000000000000000 + TabOrder = 0 + end + object FKMoney: TEdit + Left = 552 + Top = 14 + Width = 78 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object FKType: TBtnEditA + Left = 360 + Top = 14 + Width = 121 + Height = 20 + TabOrder = 2 + OnBtnClick = FKTypeBtnClick + end + object BankName: TBtnEditA + Left = 62 + Top = 44 + Width = 221 + Height = 20 + TabOrder = 3 + OnBtnClick = BankNameBtnClick + end + object BankNo: TBtnEditA + Left = 360 + Top = 44 + Width = 273 + Height = 20 + TabOrder = 4 + OnBtnClick = BankNoBtnClick + end + object Note: TRichEdit + Left = 672 + Top = 10 + Width = 393 + Height = 56 + TabOrder = 5 + end + object Worker: TComboBox + Left = 208 + Top = 16 + Width = 74 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 544 + Top = 192 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 456 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 488 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 480 + Top = 192 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 511 + Top = 191 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.pas b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.pas new file mode 100644 index 0000000..0dc0891 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeFKHXList.pas @@ -0,0 +1,479 @@ +unit U_WorkDeptFeeFKHXList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, Menus, BtnEdit; + +type + TfrmWorkDeptFeeFKHXList = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ToolButton2: TToolButton; + Panel2: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1MSMoney: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel3: TPanel; + Label5: TLabel; + FKDate: TDateTimePicker; + Label7: TLabel; + Label8: TLabel; + FKMoney: TEdit; + Label9: TLabel; + FKType: TBtnEditA; + Label10: TLabel; + BankName: TBtnEditA; + Label11: TLabel; + BankNo: TBtnEditA; + Label12: TLabel; + Note: TRichEdit; + v1Column1: TcxGridDBColumn; + Worker: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FKTypeBtnClick(Sender: TObject); + procedure BankNameBtnClick(Sender: TObject); + procedure BankNoBtnClick(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v2Column7PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitForm(); + function SaveData():Boolean; + { Private declarations } + public + FMainId:String; + PState:Integer; + { Public declarations } + end; + +var + frmWorkDeptFeeFKHXList: TfrmWorkDeptFeeFKHXList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote,U_WorkerDeptFeeInPut,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmWorkDeptFeeFKHXList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWorkDeptFeeFKHXList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ñб',Tv1,'ù'); +end; + +procedure TfrmWorkDeptFeeFKHXList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * from ('); + sql.Add(' select A.WFDate,A.Worker,A.WFType,A.BXNO,B.*,DHXMoney=isnull(B.Money,0)-isnull(B.BXMoney,0) '); + sql.Add(' ,BCHXMoney=Cast(Null as decimal(18,2) )'); + SQL.Add(' from Worker_Fee_Main A '); + sql.Add(' inner join Worker_Fee_Sub B on A.WFID=B.WFID'); + sql.Add(' where isnull(A.ChkStatus,'''')=''ͨ'' '); + sql.Add(' and isnull(B.Money,0)<>isnull(B.BXMoney,0)'); + SQL.Add(' and isnull(A.Worker,'''')='''+Trim(Worker.Text)+''''); + sql.Add(' and not exists(select * from Worker_Fee_HX C where C.WSID=B.WSID and C.FKID='''+Trim(FMainId)+''')'); + sql.Add(' Union all'); + sql.Add(' select A.WFDate,A.Worker,A.WFType,A.BXNO,B.* ,DHXMoney=isnull(B.Money,0)-isnull(B.BXMoney,0)'); + sql.Add(' ,BCHXMoney=(select isnull(HX.HXMoney,0) from Worker_Fee_HX HX where HX.WSID=B.WSID and HX.FKID='''+Trim(FMainId)+''')'); + SQL.Add(' from Worker_Fee_Main A '); + sql.Add(' inner join Worker_Fee_Sub B on A.WFID=B.WFID'); + sql.Add(' where exists(select * from Worker_Fee_HX C where C.WSID=B.WSID and C.FKID='''+Trim(FMainId)+''')'); + sql.Add(')AA order by BCHXMoney desc'); + //ShowMessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Sub); + SInitCDSData20(ADOQueryMain,Order_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + + + +procedure TfrmWorkDeptFeeFKHXList.InitForm(); +var + fsj:string; +begin + fsj:='select distinct(A.Worker) Name,Code='''' from Worker_Fee_Main A inner join Worker_Fee_Sub B on A.WFID=B.WFID' + +' where isnull(A.ChkStatus,'''')=''ͨ'' and isnull(B.Money,0)<>isnull(B.BXMoney,0)'; + SInitComBoxBySql(ADOQueryTemp,Worker,False,fsj); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Woker_Fee_FK where FKID='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQueryTemp,Panel3,0); + if PState=0 then + begin + Worker.Enabled:=True; + FKDate.Date:=SGetServerDate(ADOQueryTemp); + end else + begin + Worker.Enabled:=False; + InitGrid(); + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('BCHXMoney').AsString)<>'' then + begin + Edit; + FieldByName('SSel').Value:=True; + end; + Next; + end; + end; + Order_Sub.EnableControls; + end; +end; + + +procedure TfrmWorkDeptFeeFKHXList.FormShow(Sender: TObject); +begin + ReadCxGrid('ñб',Tv1,'ù'); + InitForm(); +end; + +function TfrmWorkDeptFeeFKHXList.SaveData():Boolean; +var + maxno,maxSubNo,FHXID:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'FK','Woker_Fee_FK',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Woker_Fee_FK where FKID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FMainId)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('FKID').Value:=Trim(maxno); + RTSetsavedata(ADOQueryCmd,'Woker_Fee_FK',Panel3,0); + Post; + end; + // + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Worker_Fee_Sub Set BXMoney='); + sql.Add('(select Sum(HXMoney) from Worker_Fee_HX A where A.WSID=Worker_Fee_Sub.WSID'); + sql.Add(' and A.FKID<>'''+Trim(maxno)+''')'); + sql.Add(' where WSID in'); + sql.Add('(select WSID from Worker_Fee_HX where FKID='''+Trim(maxno)+''')'); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Worker_Fee_HX where FKID='''+Trim(maxno)+''''); + ExecSQL; + end; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Order_Sub.FieldByName('SSel').AsBoolean=True then + begin + if Trim(Order_Sub.fieldbyname('BCHXMoney').AsString)<>'' then + begin + if GetLSNo(ADOQueryCmd,maxSubNo,'HX','Worker_Fee_HX',4,1)=False then + begin + Order_Sub.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Worker_Fee_HX where FKID='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FKID').Value:=Trim(maxno); + FieldByName('HXID').Value:=Trim(maxSubNo); + FieldByName('WSID').Value:=Trim(Order_Sub.fieldbyname('WSID').AsString); + FieldByName('HXMoney').Value:=Order_Sub.fieldbyname('BCHXMoney').AsString; + Post; + end; + end; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Worker_Fee_Sub Set BXMoney='); + sql.Add('(select Sum(HXMoney) from Worker_Fee_HX A where A.WSID=Worker_Fee_Sub.WSID)'); + sql.Add(' where WSID in'); + sql.Add('(select WSID from Worker_Fee_HX where FKID='''+Trim(maxno)+''')'); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Worker_Fee_Sub'); + sql.Add(' where WSID in'); + sql.Add('(select WSID from Worker_Fee_HX where FKID='''+Trim(maxno)+''')'); + sql.Add(' and isnull(Money,0)'' then + begin + with Order_Sub do + begin + Edit; + FieldByName('BCHXMoney').Value:=mvalue; + Post; + end; + end else + begin + with Order_Sub do + begin + Edit; + FieldByName('BCHXMoney').Value:=null; + Post; + end; + end; + FKMoney.Text:=Tv1.DataController.Summary.FooterSummaryTexts[4]; +end; + +procedure TfrmWorkDeptFeeFKHXList.ToolButton2Click(Sender: TObject); +begin + ToolBar1.SetFocus; + if Trim(Worker.Text)='' then + begin + Application.MessageBox('˲Ϊ!','ʾ',0); + Exit; + end; + if Trim(FKMoney.Text)='' then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if StrToFloat(FKMoney.Text)=0 then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if Trim(FKType.Text)='' then + begin + Application.MessageBox('ʽΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + if SaveData() then + begin + ModalResult:=1; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.dfm new file mode 100644 index 0000000..7deedfe --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.dfm @@ -0,0 +1,754 @@ +object frmWorkDeptFeeList: TfrmWorkDeptFeeList + Left = 184 + Top = 92 + Width = 1018 + Height = 571 + Caption = #36153#29992#25253#38144#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1002 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1002 + Height = 23 + Align = alTop + Style = 8 + TabIndex = 0 + TabOrder = 1 + Tabs.Strings = ( + #24453#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1002 + ClientRectTop = 23 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 109 + Width = 1002 + Height = 220 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column10 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v1Column5: TcxGridDBColumn + Caption = #25253#38144#21333#21495 + DataBinding.FieldName = 'BXNO' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column7: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'WFDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1Column17: TcxGridDBColumn + Caption = #25253#38144#20154 + DataBinding.FieldName = 'Worker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #37096#38376#20998#31867 + DataBinding.FieldName = 'Dept' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #22823#31867 + DataBinding.FieldName = 'WFType' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column13: TcxGridDBColumn + Caption = #23567#31867 + DataBinding.FieldName = 'WFTypeSub' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'HZMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 116 + end + object v1Column8: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoneyHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 86 + end + object v1Column10: TcxGridDBColumn + Caption = #24453#25253#38144#37329#39069 + DataBinding.FieldName = 'DBXMoneyHZ' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1Column18: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column19: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column3: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'ChkStatus' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column4: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column6: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1002 + Height = 54 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 430 + Top = 22 + Width = 39 + Height = 12 + Caption = #25253#38144#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 700 + Top = 22 + Width = 26 + Height = 12 + Caption = #22823#31867 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 287 + Top = 22 + Width = 52 + Height = 12 + Caption = #25253#38144#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 820 + Top = 22 + Width = 26 + Height = 12 + Caption = #23567#31867 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 558 + Top = 22 + Width = 52 + Height = 12 + Caption = #37096#38376#20998#31867 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 179 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object Worker: TEdit + Tag = 2 + Left = 471 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + end + object WFType: TEdit + Tag = 2 + Left = 728 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + end + object BXNO: TEdit + Tag = 2 + Left = 341 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 4 + OnChange = WorkerChange + OnKeyPress = BXNOKeyPress + end + object WFTypeSub: TEdit + Tag = 2 + Left = 848 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object Dept: TEdit + Tag = 2 + Left = 610 + Top = 18 + Width = 73 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 337 + Width = 1002 + Height = 195 + Align = alBottom + TabOrder = 4 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MSMoney + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_CYZZ.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 138 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #36135#29289#21517#31216 + DataBinding.FieldName = 'KeMu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 94 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + HeaderAlignmentHorz = taCenter + Width = 86 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1MSMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 111 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'MoneyKP' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25910#27454#20154 + DataBinding.FieldName = 'FactoryNameKP' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v2Column1: TcxGridDBColumn + Caption = #24050#25253#38144#37329#39069 + DataBinding.FieldName = 'BXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FontBlue + Styles.Footer = DataLink_CYZZ.FontBlue + Styles.Header = DataLink_CYZZ.FontBlue + Width = 83 + end + object v2Column2: TcxGridDBColumn + Caption = #24453#25253#38144#37329#39069 + DataBinding.FieldName = 'DBXMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_CYZZ.FoneRed + Styles.Footer = DataLink_CYZZ.FoneRed + Styles.Header = DataLink_CYZZ.FoneRed + Width = 84 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 134 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 329 + Width = 1002 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 912 + Top = 40 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 656 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 704 + Top = 8 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 744 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 936 + Top = 32 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 943 + Top = 39 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 456 + Top = 182 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + Left = 397 + Top = 181 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 427 + Top = 181 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 184 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 645 + Top = 385 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 616 + Top = 384 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 576 + Top = 384 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.pas b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.pas new file mode 100644 index 0000000..f06fa9a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkDeptFeeList.pas @@ -0,0 +1,509 @@ +unit U_WorkDeptFeeList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC; + +type + TfrmWorkDeptFeeList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + cxTabControl1: TcxTabControl; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + v1Column7: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Worker: TEdit; + Label6: TLabel; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton1: TToolButton; + Label3: TLabel; + WFType: TEdit; + ToolButton2: TToolButton; + v1Column1: TcxGridDBColumn; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1MSMoney: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Column8: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Label4: TLabel; + BXNO: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + Label5: TLabel; + WFTypeSub: TEdit; + Label7: TLabel; + Dept: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure BXNOKeyPress(Sender: TObject; var Key: Char); + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmWorkDeptFeeList: TfrmWorkDeptFeeList; + +implementation +uses + U_DataLink,U_RTFun,U_ModuleNote,U_WorkerDeptFeeInPut; + +{$R *.dfm} + +procedure TfrmWorkDeptFeeList.FormDestroy(Sender: TObject); +begin + frmWorkDeptFeeList:=nil; +end; + +procedure TfrmWorkDeptFeeList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmWorkDeptFeeList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ñб',Tv1,'ù'); + WriteCxGrid('ñбMX',Tv2,'ù'); +end; + +procedure TfrmWorkDeptFeeList.InitGrid(); + +begin + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(',BXMoneyHZ=(select Sum(BXMoney) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(',DBXMoneyHZ=(select Sum(isnull(Money,0)-isnull(BXMoney,0)) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(' from Worker_Fee_Main A where'); + sql.Add(' A.WFDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and A.WFDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>'''' '); + end; + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmWorkDeptFeeList.InitForm(); +begin + endDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date-7; + cxTabControl1.TabIndex:=0; + InitGrid(); +end; + +procedure TfrmWorkDeptFeeList.TBEditClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(DCode)<>Trim(Order_Main.fieldbyname('FillerCode').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + end; + + + try + frmWorkerDeptFeeInPut:=TfrmWorkerDeptFeeInPut.Create(Application); + with frmWorkerDeptFeeInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('WFID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmWorkerDeptFeeInPut.Free; + end; +end; + +procedure TfrmWorkDeptFeeList.TBDelClick(Sender: TObject); +begin + if cxTabControl1.TabIndex<>0 then Exit; + if Order_Main.IsEmpty then Exit; + if Trim(canshu1)<>'Ȩ' then + begin + if Trim(DCode)<>Trim(Order_Main.fieldbyname('FillerCode').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + end; + + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmWorkDeptFeeList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Worker_Fee_Main where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + sql.Add('delete Worker_Fee_Sub where WFId='''+Trim(Order_Main.fieldbyname('WFId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmWorkDeptFeeList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('ñ',cxGrid1); +end; + +procedure TfrmWorkDeptFeeList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeList.TBAddClick(Sender: TObject); +begin + try + frmWorkerDeptFeeInPut:=TfrmWorkerDeptFeeInPut.Create(Application); + with frmWorkerDeptFeeInPut do + begin + PState:=0; FMainId:=''; + //FYLType:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmWorkerDeptFeeInPut.Free; + end; +end; + +procedure TfrmWorkDeptFeeList.FormShow(Sender: TObject); +begin + ReadCxGrid('ñб',Tv1,'ù'); + ReadCxGrid('ñбMX',Tv2,'ù'); + InitForm(); +end; + +procedure TfrmWorkDeptFeeList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='ñ'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmWorkDeptFeeList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmWorkDeptFeeList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,FS.*,HJMoney=FS.YunFee+FS.MaTouFee+FS.YangBanFee+FS.OtherFee '); + SQL.Add(' from JYOrderKP_Fee A inner join JYOrderKP_Fee_Sub FS on A.FMID=FS.FMID'); + sql.Add(' where 1=1'); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add(' and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(fsj); + sql.Add(' order by A.FPNo'); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmWorkDeptFeeList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmWorkDeptFeeList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmWorkDeptFeeList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmWorkDeptFeeList.ToolButton1Click(Sender: TObject); +begin + try + frmWorkerDeptFeeInPut:=TfrmWorkerDeptFeeInPut.Create(Application); + with frmWorkerDeptFeeInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('WFID').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + //Button3.Visible:=False; + //Button4.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmWorkerDeptFeeInPut.Free; + end; + +end; + +procedure TfrmWorkDeptFeeList.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmWorkDeptFeeList.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',DBXMoney=isnull(Money,0)-isnull(BXMoney,0)'); + sql.Add(' from Worker_Fee_Sub A where WFID='''+Trim(Order_Main.fieldbyname('WFID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryTemp,ClientDataSet2); + SInitCDSData20(ADOQueryTemp,ClientDataSet2); +end; + +procedure TfrmWorkDeptFeeList.BXNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Trim(BXNO.Text)<>'' then + begin + if Length(BXNO.Text)<3 then Exit; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select A.* '); + SQL.Add(',BXMoneyHZ=(select Sum(BXMoney) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(',DBXMoneyHZ=(select Sum(isnull(Money,0)-isnull(BXMoney,0)) from Worker_Fee_Sub B where B.WFID=A.WFID)'); + SQL.Add(' from Worker_Fee_Main A where 1=1'); + if cxTabControl1.TabIndex=0 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')='''' '); + end else + if cxTabControl1.TabIndex=1 then + begin + sql.Add(' and isnull(A.ChkStatus,'''')<>'''' '); + end; + sql.Add(' and BXNO like '''+'%'+Trim(BXNO.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.dfm new file mode 100644 index 0000000..dc9270b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.dfm @@ -0,0 +1,447 @@ +object frmWorkerDeptFeeInPut: TfrmWorkerDeptFeeInPut + Left = 236 + Top = 122 + Width = 905 + Height = 573 + Align = alClient + Caption = #36153#29992#25253#38144#21333#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 889 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 889 + Height = 84 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 887 + Height = 82 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 30 + Top = 14 + Width = 66 + Height = 12 + Caption = #25253' '#38144' '#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 207 + Top = 14 + Width = 39 + Height = 12 + Caption = #26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 534 + Top = 13 + Width = 39 + Height = 12 + Caption = #22823#31867#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 30 + Top = 43 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 358 + Top = 13 + Width = 65 + Height = 12 + Caption = #37096#38376#20998#31867#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 715 + Top = 13 + Width = 39 + Height = 12 + Caption = #23567#31867#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object WFDate: TDateTimePicker + Left = 237 + Top = 10 + Width = 110 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 0 + end + object Worker: TBtnEditA + Left = 91 + Top = 10 + Width = 102 + Height = 20 + Hint = 'BXWorker/'#25253#38144#20154 + TabOrder = 1 + OnBtnClick = WorkerBtnClick + end + object WFType: TBtnEditA + Left = 568 + Top = 9 + Width = 136 + Height = 20 + Hint = 'WFType/'#25253#38144#22823#31867 + ReadOnly = True + TabOrder = 2 + OnBtnClick = WFTypeBtnClick + end + object Note: TEdit + Left = 91 + Top = 40 + Width = 782 + Height = 18 + CharCase = ecUpperCase + TabOrder = 3 + end + object Dept: TBtnEditA + Left = 419 + Top = 9 + Width = 100 + Height = 20 + Hint = 'BXDept/'#37096#38376 + ReadOnly = True + TabOrder = 4 + OnBtnClick = DeptBtnClick + end + object WFTypeSub: TBtnEditA + Left = 751 + Top = 9 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 5 + OnBtnClick = WFTypeSubBtnClick + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 113 + Width = 889 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 142 + Width = 889 + Height = 392 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1MSMoney + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column8: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1Column2: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 138 + end + object v1Column3: TcxGridDBColumn + Caption = #36135#29289#21517#31216 + DataBinding.FieldName = 'KeMu' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1Column5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1Column7: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1MSMoney: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 111 + end + object v1Column4: TcxGridDBColumn + Caption = #24320#31080#37329#39069 + DataBinding.FieldName = 'MoneyKP' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column6: TcxGridDBColumn + Caption = #25910#27454#20154 + DataBinding.FieldName = 'FactoryNameKP' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 134 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 386 + Top = 2 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 325 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 405 + Top = 442 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 294 + Top = 1 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 355 + Top = 4 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 436 + Top = 443 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.pas new file mode 100644 index 0000000..e0aab7f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WorkerDeptFeeInPut.pas @@ -0,0 +1,555 @@ +unit U_WorkerDeptFeeInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmWorkerDeptFeeInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOZDY: TADOQuery; + ADOQuery1: TADOQuery; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1MSMoney: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + v1Column5: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label9: TLabel; + Label4: TLabel; + WFDate: TDateTimePicker; + Worker: TBtnEditA; + WFType: TBtnEditA; + Note: TEdit; + Dept: TBtnEditA; + v1Column1: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Label3: TLabel; + WFTypeSub: TBtnEditA; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure WorkerBtnClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure WFTypeBtnClick(Sender: TObject); + procedure v1Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + procedure DeptBtnClick(Sender: TObject); + procedure WFTypeSubBtnClick(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType:String; + + { Public declarations } + end; + +var + frmWorkerDeptFeeInPut: TfrmWorkerDeptFeeInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList, + U_SYDeptUserView; + +{$R *.dfm} + +procedure TfrmWorkerDeptFeeInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ñ¼',Tv1,'ù'); +end; + +procedure TfrmWorkerDeptFeeInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select A.*,B.* from Worker_Fee_Main A left join Worker_Fee_Sub B on A.WFID=B.WFID'); + sql.Add(' where A.WFID='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel1,0); + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add('select * from Worker_Fee_Sub '); + sql.Add(' where WFID='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + if PState=0 then + begin + WFDate.DateTime:=SGetServerDate(ADOTemp); + WFDate.Checked:=False; + if Trim(DParameters1)<>'Ȩ' then + begin + Worker.Text:=Trim(DName); + end; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmWorkerDeptFeeInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('ñ¼',Tv1,'ù'); + InitData(); +end; +procedure TfrmWorkerDeptFeeInPut.GetMaxConNO(); +begin + +end; +function TfrmWorkerDeptFeeInPut.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'WF','Worker_Fee_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡñˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Worker_Fee_Main where WFId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('WFId').Value:=Trim(maxno); + RTSetsavedata(ADOCmd,'Worker_Fee_Main',Panel1,0); + FieldByName('BXNO').Value:='BX'+Trim(maxno); + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillerCode').Value:=Trim(DCode); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditerCode').Value:=Trim(DCode); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + ///ӱ + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('WSId').AsString)='' then + begin + if GetLSNo(ADOCmd,maxSubNo,'WS','Worker_Fee_Sub',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ɷñӱˮ쳣','ʾ',0); + exit; + end; + end else + begin + maxSubNo:=Trim(Order_Sub.fieldbyname('WSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Worker_Fee_Sub where '); + sql.Add(' WSId='''+Trim(maxSubNo)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('WSId').AsString)='' then + Append + else + Edit; + FieldByName('WFID').Value:=Trim(maxno); + FieldByName('WSId').Value:=Trim(maxSubNo); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Worker_Fee_Sub',0); + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('WSId').Value:=Trim(maxSubNo); + Next; + end; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update Worker_Fee_Main Set HZMoney='); + sql.Add(' (select isnull(Sum(isnull(Money,0)),0) from Worker_Fee_Sub A where A.WFID=Worker_Fee_Main.WFID)'); + sql.Add(' where WFID='''+Trim(maxno)+''''); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmWorkerDeptFeeInPut.TBSaveClick(Sender: TObject); +var + FReal:Double; + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + if Trim(Worker.Text)='' then + begin + Application.MessageBox('˲Ϊ!','ʾ',0); + Exit; + end; + if Trim(WFType.Text)='' then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + {if Trim(Dept.Text)='' then + begin + Application.MessageBox('ŲΪ!','ʾ',0); + Exit; + end; } + if WFDate.Checked=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('Money',Null,[])=True then + begin + Application.MessageBox('ϸΪ!','ʾ',0); + Exit; + end; + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('MoneyKP').AsString)<>'' then + begin + if Order_Sub.fieldbyname('MoneyKP').Value<>0 then + begin + if Trim(Order_Sub.fieldbyname('FactoryName').AsString)='' then + begin + Application.MessageBox('ԴزΪ!','ʾ',0); + Exit; + end; + end; + end; + next; + end; + end; + Order_Sub.EnableControls; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + //ModalResult:=1; + end; + +end; + +procedure TfrmWorkerDeptFeeInPut.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('WSId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + end; + Order_Sub.Delete; +end; + +procedure TfrmWorkerDeptFeeInPut.WorkerBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BXWorker'; + flagname:=''; + if ShowModal=1 then + begin + Worker.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.v1Column3PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KeMu'; + flagname:=''; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('KeMu').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + // Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.WFTypeBtnClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TBtnEditA(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + MainType:=Trim(Self.Dept.Text); + if Trim(flag)='WFType' then + begin + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end; + end; + if ShowModal=1 then + begin + TBtnEditA(Sender).Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.v1Column2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + { try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + end; + finally + frmGYSList.Free; + end; } + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BXGYS'; + flagname:='Ӧ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('FactoryName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.v1Column7PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BXQtyUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + with Self.Order_Sub do + begin + Edit; + FieldByName('QtyUnit').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + // Post; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.v1Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FName,FQty,FPrice:String; +begin + FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName(FName).Value:=mvalue; + Post; + end; + FQty:=Trim(Order_Sub.fieldbyname('Qty').AsString); + FPrice:=Trim(Order_Sub.fieldbyname('Price').AsString); + if Trim(FQty)='' then FQty:='0'; + if Trim(FPrice)='' then FPrice:='0'; + with Order_Sub do + begin + edit; + FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice); + end; +end; + +procedure TfrmWorkerDeptFeeInPut.DeptBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BXDept'; + flagname:=''; + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end; + if ShowModal=1 then + begin + Dept.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmWorkerDeptFeeInPut.WFTypeSubBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WFTypeSub'; + flagname:=''; + MainType:=Trim(Dept.Text)+Trim(WFType.Text); + if Trim(DParameters1)<>'Ȩ' then + begin + TBAdd.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + end; + if ShowModal=1 then + begin + WFTypeSub.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.dfm b/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.dfm new file mode 100644 index 0000000..ec26259 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.dfm @@ -0,0 +1,458 @@ +object frmYFCRLZ: TfrmYFCRLZ + Left = 99 + Top = 88 + Width = 1295 + Height = 598 + Caption = #20837#36134#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1279 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object TBDel: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1279 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 618 + Top = 13 + Width = 60 + Height = 12 + Caption = #39033#30446#21450#25688#35201 + end + object Label3: TLabel + Left = 424 + Top = 13 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label4: TLabel + Left = 297 + Top = 13 + Width = 36 + Height = 12 + Caption = #35746#21333#21495 + end + object Label5: TLabel + Left = 810 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object YFName: TEdit + Tag = 2 + Left = 680 + Top = 9 + Width = 105 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object FactoryName: TEdit + Tag = 2 + Left = 462 + Top = 9 + Width = 138 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 3 + end + object OrderNo: TEdit + Tag = 2 + Left = 334 + Top = 9 + Width = 75 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CPName: TEdit + Tag = 2 + Left = 837 + Top = 9 + Width = 105 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1279 + Height = 489 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + OnMouseDown = Tv2MouseDown + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + Column = VQty + end + item + Format = '0' + Position = spFooter + Column = VPrice + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = VYB + end + item + Format = '0' + Position = spFooter + Column = VPS + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = VQty + end + item + Kind = skSum + end + item + Kind = skSum + Column = VYB + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object VOrderNo: TcxGridDBColumn + Tag = 3 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 102 + end + object v2Column1: TcxGridDBColumn + Tag = 3 + Caption = #21697#21517 + DataBinding.FieldName = 'CPName' + HeaderAlignmentHorz = taCenter + Width = 98 + end + object VDate: TcxGridDBColumn + Tag = 3 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 110 + end + object VFTYName: TcxGridDBColumn + Tag = 3 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 104 + end + object VYFName: TcxGridDBColumn + Tag = 3 + Caption = #39033#30446#21450#25688#35201 + DataBinding.FieldName = 'YFName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 127 + end + object VPS: TcxGridDBColumn + Tag = 3 + Caption = #21305'/'#20214#31665#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object VQty: TcxGridDBColumn + Tag = 3 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 82 + end + object VQtyUnit: TcxGridDBColumn + Tag = 3 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VPrice: TcxGridDBColumn + Tag = 3 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object VYB: TcxGridDBColumn + Tag = 3 + Caption = #24212#20184#37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object VNote: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 130 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 581 + Top = 209 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 613 + Top = 209 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 309 + Top = 193 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 448 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 376 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 480 + Top = 248 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 443 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 544 + Top = 208 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.pas b/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.pas new file mode 100644 index 0000000..f51baeb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YFCRLZ.pas @@ -0,0 +1,572 @@ +unit U_YFCRLZ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, + cxButtonEdit, cxTextEdit, cxDropDownEdit; + +type + TfrmYFCRLZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + Label1: TLabel; + YFName: TEdit; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + VDate: TcxGridDBColumn; + VYFName: TcxGridDBColumn; + VQty: TcxGridDBColumn; + VQtyUnit: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + VPrice: TcxGridDBColumn; + VYB: TcxGridDBColumn; + VFTYName: TcxGridDBColumn; + VOrderNo: TcxGridDBColumn; + VNote: TcxGridDBColumn; + Label4: TLabel; + OrderNo: TEdit; + ToolButton5: TToolButton; + VPS: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2SSel: TcxGridDBColumn; + Label5: TLabel; + CPName: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton5Click(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure VHZFTYNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure PriceChange(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + + end; + +var + frmYFCRLZ: TfrmYFCRLZ; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_GYSSelList; + +{$R *.dfm} + + + +procedure TfrmYFCRLZ.InitGrid(); +begin + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select * from YF_Money_CR where CRTime>=:begdate and CRTime<:Enddate '); + sql.Add(' and isnull(CRType,'''')=''ӦǼ'' '); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + if Trim(FactoryName.Text)<>'' then + begin + SQL.Add(' and isnull(FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+''''); + end; + if Trim(YFName.Text)<>'' then + begin + SQL.Add(' and isnull(YFName,'''') like '''+'%'+Trim(YFName.Text)+'%'+''''); + end; + if Trim(OrderNo.Text)<>'' then + begin + SQL.Add(' and isnull(OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+''''); + end; + if Trim(CPName.Text)<>'' then + begin + SQL.Add(' and isnull(CPName,'''') like '''+'%'+Trim(CPName.Text)+'%'+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYFCRLZ.FormDestroy(Sender: TObject); +begin + frmYFCRLZ:=nil; +end; + +procedure TfrmYFCRLZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFCRLZ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧб',Tv2,''); + Close; +end; +procedure TfrmYFCRLZ.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + if CDS_HZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while Locate('SSel',True,[]) do + begin + if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + sql.Add('UPdate YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CDS_HZ.Fieldbyname('CRID').AsString); + ExecSQL; + end; + CRID:=Trim(CDS_HZ.fieldbyname('CRID').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where CRID='+CRID); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_KC where CRID='+CRID); + ExecSQL; + end; + end; + end; + CDS_HZ.Delete; + end; + end; + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɾɹ!','ʾ',0); + except + CDS_HZ.EnableConstraints; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; +end; + +procedure TfrmYFCRLZ.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid('Ӧб',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-30; +end; + +procedure TfrmYFCRLZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFCRLZ.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmYFCRLZ.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FQty,FPrice,FMoney,FBBMoney,FFieldName:String; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + //Post; + end; + FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString); + if Trim(FQty)='' then FQty:='0'; + FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString); + if Trim(FPrice)='' then FPrice:='0'; + FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)); + with CDS_HZ do + begin + Edit; + FieldByName('Money').Value:=StrToFloat(FMoney); + FieldByName('BBMoney').Value:=StrToFloat(FMoney); + Post; + end; +end; + +procedure TfrmYFCRLZ.ToolButton3Click(Sender: TObject); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('FactoryNo').Value:=Trim(Order_Main.fieldbyname('ZKID').AsString); + FieldByName('FactoryName').Value:=Trim(Order_Main.fieldbyname('KHName').AsString); + FieldByName('CRTime').Value:=Now; + Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YFName'; + flagname:='ĿժҪ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString); + FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZ.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='OrderUnit'; + flagname:='λ'; + if ShowModal=1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYFCRLZ.ToolButton1Click(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + TcxGridToExcel('б',cxGrid2); + +end; + +procedure TfrmYFCRLZ.OrderNoChange(Sender: TObject); +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + ToolButton2.Click; +end; + +procedure TfrmYFCRLZ.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(OrderNo.Text)<3 then Exit; + begdate.SetFocus; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select * from YF_Money_CR where OrderNo like :OrderNo '); + sql.Add(' and isnull(CRType,'''')=''ӦǼ'' '); + Parameters.ParamByName('orderno').Value:='%'+Trim(OrderNo.Text)+'%'; + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmYFCRLZ.ToolButton5Click(Sender: TObject); +var + CRID,maxId,FYFID:String; +begin + if CDS_HZ.IsEmpty then Exit; + if CDS_HZ.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ToolBar1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + CDS_HZ.DisableControls; + with CDS_HZ do + begin + First; + while Locate('SSel',True,[]) do + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''''); + Open; + end; + FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + if Trim(FYFID)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'YF','YF_Money_CR',4,1)=False then + begin + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡӦʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FYFID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CDS_HZ.fieldbyname('FactoryNo').AsString)+''''); + Open; + end; + if ADOQueryCmd.IsEmpty=False then + begin + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+Trim(maxId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYFID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + end; + FieldByName('YFID').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'YF_Money_CR',3); + FieldByName('YFType').Value:='ֹ¼'; + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString); + FieldByName('BBMoney').Value:=CDS_HZ.fieldbyname('Money').Value; + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('YFId').Value:=Trim(maxId); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('SSel').Value:=False; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CDS_HZ.Fieldbyname('CRID').AsString); + ExecSQL; + end; + end; + end; + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + except + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmYFCRLZ.Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if CDS_HZ.IsEmpty then Exit; + If Trim(CDS_HZ.fieldbyname('YFType').AsString)='Զ' then + begin + TV2.OptionsSelection.CellSelect:=False; + end else + begin + TV2.OptionsSelection.CellSelect:=True; + end; +end; + +procedure TfrmYFCRLZ.VHZFTYNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmGYSSelList:=TfrmGYSSelList.Create(Application); + with frmGYSSelList do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('HZFactoryNo').Value:=Trim(Order_Main.fieldbyname('ZKID').AsString); + FieldByName('HZFactoryName').Value:=Trim(Order_Main.fieldbyname('KHNameJC').AsString); + //Post; + end; + end; + end; + finally + frmGYSSelList.Free; + end; +end; + +procedure TfrmYFCRLZ.PriceChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.dfm b/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.dfm new file mode 100644 index 0000000..1a10095 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.dfm @@ -0,0 +1,372 @@ +object frmYFFKFPList: TfrmYFFKFPList + Left = 91 + Top = 60 + Width = 1229 + Height = 618 + Caption = #24212#20184#27454#32479#35745#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1213 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1213 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 303 + Top = 13 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object FactoryName: TEdit + Left = 340 + Top = 9 + Width = 117 + Height = 20 + TabOrder = 0 + OnChange = FactoryNameChange + end + object begdate: TDateTimePicker + Left = 72 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 182 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + TabOrder = 2 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1213 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column1 + end + item + Kind = skSum + Column = v2Column2 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + Column = v2Column7 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column11 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column16 + end + item + Kind = skSum + Column = v2Column12 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v2Column6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 125 + end + object v2Column5: TcxGridDBColumn + Caption = #19978#26399#20313#39069 + DataBinding.FieldName = 'SQMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Focusing = False + Width = 107 + end + object v2Column12: TcxGridDBColumn + Caption = #19978#26399#26410#24320#31080 + DataBinding.FieldName = 'SQWKP' + HeaderAlignmentHorz = taCenter + Width = 106 + end + object v2Column1: TcxGridDBColumn + Caption = #26412#26399#20837#36134 + DataBinding.FieldName = 'BQYFMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 88 + end + object v2Column2: TcxGridDBColumn + Caption = #26412#26399#20184#27454 + DataBinding.FieldName = 'BQPKMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 90 + end + object v2Column11: TcxGridDBColumn + Caption = #26412#26399#24320#31080 + DataBinding.FieldName = 'BQKP' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v2Column4: TcxGridDBColumn + Caption = #24635#20313#39069 + DataBinding.FieldName = 'MaxHZMoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FontBlue + Styles.Footer = DataLink_DDMD.FontBlue + Styles.Header = DataLink_DDMD.FontBlue + Width = 86 + end + object v2Column7: TcxGridDBColumn + Caption = #24453#23545#36134 + DataBinding.FieldName = 'DDuiZhangMoney' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column16: TcxGridDBColumn + Caption = #24635#26410#24320#31080 + DataBinding.FieldName = 'HZWKP' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_DDMD.FoneRed + Styles.Footer = DataLink_DDMD.FoneRed + Styles.Header = DataLink_DDMD.FoneRed + Width = 99 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 389 + Top = 137 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 421 + Top = 137 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 453 + Top = 137 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 424 + Top = 208 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 392 + Top = 208 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 456 + Top = 168 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 387 + Top = 171 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 168 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.pas b/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.pas new file mode 100644 index 0000000..03ee53b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YFFKFPList.pas @@ -0,0 +1,185 @@ +unit U_YFFKFPList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmYFFKFPList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + FactoryName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column16: TcxGridDBColumn; + ToolButton3: TToolButton; + v2Column12: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmYFFKFPList: TfrmYFFKFPList; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp, U_ModuleNote; + +{$R *.dfm} + + + +procedure TfrmYFFKFPList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' exec P_View_YFZhangKuan :begdate,:Enddate'); + Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); + Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmYFFKFPList.FormDestroy(Sender: TObject); +begin + frmYFFKFPList:=nil; +end; + +procedure TfrmYFFKFPList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYFFKFPList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧͳ',Tv2,''); + Close; +end; +procedure TfrmYFFKFPList.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧͳ',Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=StrToDate(Trim(FormatDateTime('yyyy-MM',SGetServerDate(ADOQueryTemp)))+'-01'); + //InitGrid(); +end; + +procedure TfrmYFFKFPList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFFKFPList.ToolButton2Click(Sender: TObject); +var + fsj:string; +begin + if ADOQueryMain.Active=False then Exit; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=' FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''''; + end; + + end else + begin + if Trim(FactoryName.Text)<>'' then + begin + fsj:=SGetFilters(Panel1,1,2)+' and (FactoryName like '''+'%'+Trim(FactoryName.Text)+'%'+'''' + +' or KHZJM like '''+'%'+Trim(FactoryName.Text)+'%'+''')'; + end; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmYFFKFPList.FactoryNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmYFFKFPList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('Ӧ˿б',cxGrid2); +end; + +procedure TfrmYFFKFPList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='Ӧ˿б'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.dfm new file mode 100644 index 0000000..e049658 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.dfm @@ -0,0 +1,439 @@ +object frmYPCKKCList: TfrmYPCKKCList + Left = 143 + Top = 158 + Width = 1027 + Height = 511 + Caption = #26679#21697#24211#23384#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1011 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1011 + Height = 130 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 182 + Top = 15 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label5: TLabel + Left = 35 + Top = 42 + Width = 48 + Height = 12 + Caption = #20135#21697#35268#26684 + end + object Label3: TLabel + Left = 35 + Top = 15 + Width = 48 + Height = 12 + Caption = #26679#21697#32534#21495 + end + object Label7: TLabel + Left = 182 + Top = 71 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 182 + Top = 42 + Width = 48 + Height = 12 + Caption = #20135#21697#25104#20221 + end + object Label10: TLabel + Left = 35 + Top = 71 + Width = 48 + Height = 12 + Caption = #38376' '#24133 + end + object Label2: TLabel + Left = 35 + Top = 100 + Width = 48 + Height = 12 + Caption = #26679#21697#31867#22411 + end + object Image2: TImage + Left = 392 + Top = 2 + Width = 161 + Height = 125 + Center = True + end + object CheckBox1: TCheckBox + Left = 182 + Top = 98 + Width = 145 + Height = 17 + Caption = #26174#31034#24211#23384#20026#38646#30340#25968#25454 + TabOrder = 0 + end + object CYName: TEdit + Tag = 2 + Left = 232 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 1 + OnChange = CYSpecChange + end + object CYSpec: TEdit + Tag = 2 + Left = 84 + Top = 38 + Width = 89 + Height = 20 + TabOrder = 2 + OnChange = CYSpecChange + end + object CYNO: TEdit + Tag = 2 + Left = 84 + Top = 11 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object CYKZ: TEdit + Tag = 2 + Left = 232 + Top = 67 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = CYSpecChange + end + object CYECF: TEdit + Tag = 2 + Left = 232 + Top = 38 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = CYSpecChange + end + object CYMF: TEdit + Tag = 2 + Left = 84 + Top = 67 + Width = 89 + Height = 20 + TabOrder = 6 + OnChange = CYSpecChange + end + object CYType: TEdit + Tag = 2 + Left = 84 + Top = 96 + Width = 89 + Height = 20 + TabOrder = 7 + OnChange = CYSpecChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 163 + Width = 1011 + Height = 309 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column3: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column1: TcxGridDBColumn + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 63 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column7: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21367#26679 + #25512#38144#26679 + #33337#26679) + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #31859 + #20844#26020 + #22871) + HeaderAlignmentHorz = taCenter + Width = 47 + end + object VKCNote: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'KCNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = VKCNotePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 109 + end + object v1Column18: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Width = 62 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 32 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 936 + Top = 112 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 896 + Top = 104 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 896 + Top = 128 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.pas new file mode 100644 index 0000000..a6c6744 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPCKKCList.pas @@ -0,0 +1,292 @@ +unit U_YPCKKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, Menus, + IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI,IniFiles, + cxTextEdit, cxButtonEdit,jpeg; + //DParameters2:='±ע' +type + TfrmYPCKKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + CheckBox1: TCheckBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column3: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + VKCNote: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label1: TLabel; + Label5: TLabel; + Label3: TLabel; + Label7: TLabel; + Label9: TLabel; + Label10: TLabel; + CYName: TEdit; + CYSpec: TEdit; + CYNO: TEdit; + CYKZ: TEdit; + CYECF: TEdit; + CYMF: TEdit; + Label2: TLabel; + v1Column1: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + Image2: TImage; + CYType: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure CYNoChange(Sender: TObject); + procedure VKCNotePropertiesEditValueChanged(Sender: TObject); + procedure CYSpecChange(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + procedure ReadINIFile(); + procedure InitImage(FFCYID:string); + { Private declarations } + public + { Public declarations } + end; + +var + frmYPCKKCList: TfrmYPCKKCList; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmYPCKKCList.FormDestroy(Sender: TObject); +begin + frmYPCKKCList:=nil; +end; + +procedure TfrmYPCKKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYPCKKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.CRID,A.BCID,A.KCQty,A.KCQtyUnit,A.CYColor,A.KCNote,A.CYType '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID)'); + sql.Add(' from CK_YP_KC A '); + sql.Add(' left join CP_YDang B on A.CYID=B.CYID '); + if CheckBox1.Checked=False then + sql.add('where A.KCQty>0') + else + sql.Add('where 1=1 '); + {SQL.Add(' order by '); + sql.Add(' substring(WeiZhi,1,1),Cast(substring(WeiZhi,2,charindex(''-'',WeiZhi)-2) as Int)'); + sql.Add(',Cast(substring(WeiZhi,charindex(''-'',WeiZhi)+1,len(WeiZhi)-charindex(''-'',WeiZhi)) as Int)'); } + //ShowMessage(SQL.Text); + Open; + + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYPCKKCList.TBRafreshClick(Sender: TObject); +begin + CYNo.SetFocus; + InitGrid(); +end; + +procedure TfrmYPCKKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбAS',Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmYPCKKCList.FormShow(Sender: TObject); +begin + + ReadCxGrid('ƷбAS',Tv1,'Ʒֿ'); + + //InitGrid(); + if Trim(DParameters2)='±ע' then + begin + VKCNote.Options.Focusing:=True; + end else + begin + VKCNote.Options.Focusing:=False; + end; +end; + +procedure TfrmYPCKKCList.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + TcxGridToExcel('б',cxGrid1); +end; + +procedure TfrmYPCKKCList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmYPCKKCList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYPCKKCList.ReadINIFile(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmYPCKKCList.CYNoChange(Sender: TObject); +begin + if Trim(CYNO.Text)<>'' then + begin + if Length(CYNo.Text)<3 then Exit; + end; + + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmYPCKKCList.VKCNotePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with CDS_Main do + begin + Edit; + FieldByName('KCNote').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_YP_KC set KCNote='''+Trim(mvalue)+''''); + sql.Add(' where CRID='+Cds_Main.fieldbyname('CRID').AsString); + ExecSQL; + end; +end; + +procedure TfrmYPCKKCList.CYSpecChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmYPCKKCList.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty then Exit; + InitImage(Trim(CDS_Main.fieldbyname('CYID').AsString)); +end; +procedure TfrmYPCKKCList.InitImage(FFCYID:string); +var + jpg:TJpegImage; + myStream:TADOBlobStream; +begin + if Trim(FFCYID)='' then Exit; + // if cxPageControl1.ActivePageIndex=6 then + begin + Image2.Picture.Assign(nil); + try + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File A where A.WBID='''+Trim(FFCYID)+''''); + sql.Add(' and TFType=''Ʒ'' '); + open; + if RecordCount>0 then + begin + if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then + begin + myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread); + if myStream=nil then exit; + jpg:=TJPEGImage.Create; + jpg.LoadFromStream(myStream); + Image2.Picture.Assign(jpg); + end; + end; + end; + finally + jpg.Free; + myStream.Free; + end; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.dfm b/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.dfm new file mode 100644 index 0000000..c997e98 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.dfm @@ -0,0 +1,313 @@ +object frmYPCRIn: TfrmYPCRIn + Left = 15 + Top = 171 + Width = 1238 + Height = 500 + Align = alClient + Caption = #26679#21697#20837#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1222 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ShowCaptions = True + TabOrder = 0 + Transparent = True + Wrapable = False + object BtnSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = BtnSaveClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22797#21046#22686#34892 + ImageIndex = 39 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20840#37096#26367#25442 + ImageIndex = 19 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object BtnExit: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = BtnExitClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 48 + Width = 1121 + Height = 353 + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column18: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column18PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column3: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column7: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v1P_ChnNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 53 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 74 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + #29255 + #22871) + HeaderAlignmentHorz = taCenter + Width = 47 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Note: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 109 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource1: TDataSource + DataSet = CDS_Sub + Left = 192 + Top = 168 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 232 + Top = 168 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 296 + Top = 200 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 264 + Top = 200 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 224 + Top = 200 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 496 + Top = 176 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.pas b/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.pas new file mode 100644 index 0000000..f7f5f77 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPCRIn.pas @@ -0,0 +1,595 @@ +unit U_YPCRIn; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB, DBClient, + cxButtonEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmYPCRIn = class(TForm) + ToolBar1: TToolBar; + BtnSave: TToolButton; + BtnExit: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + v1P_ChnName: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + DataSource1: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + ToolButton4: TToolButton; + v1Column1: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column3: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + procedure FormCreate(Sender: TObject); + procedure BtnExitClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure BtnSaveClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure v1P_ChnNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + FCRID:String; + procedure InitGrid(); + function SaveData():Boolean; + procedure SaveKCData(); + { Private declarations } + public + FMainID:string; + FCopyInt:Integer; + { Public declarations } + end; + +var + frmYPCRIn: TfrmYPCRIn; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp,U_CPSel; + +{$R *.dfm} + +procedure TfrmYPCRIn.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; +end; + +procedure TfrmYPCRIn.BtnExitClick(Sender: TObject); +begin + Close; + WriteCxGrid('ƷSTInput',Tv1,'Ʒֿ'); +end; +procedure TfrmYPCRIn.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.CRTime,A.CRID,A.BCID,A.Qty,A.QtyUnit,A.CYColor,A.Note,A.CYType,A.BCID '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX'); + sql.Add(' from CK_YP_CR A'); + sql.Add(' inner join CP_YDang B on A.CYID=B.CYID'); + SQL.Add(' where BCId='''+Trim(FMainID)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Sub); + SInitCDSData20(ADOQueryMain,CDS_Sub); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYPCRIn.ToolButton2Click(Sender: TObject); +var + FDate:TDateTime; +begin + FDate:=SGetServerDate(ADOQueryTemp); + try + frmCPSel:=TfrmCPSel.Create(self); + with frmCPSel do + begin + frmCPSel.Align:=alClient; + if ShowModal=1 then + begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=FDate; + FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString); + FieldByName('CYNo').Value:=Trim(CDS_Main.fieldbyname('CYNo').AsString); + FieldByName('CYName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString); + FieldByName('CYSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString); + FieldByName('CYCF').Value:=Trim(CDS_Main.fieldbyname('CYCF').AsString); + FieldByName('CYMF').Value:=Trim(CDS_Main.fieldbyname('CYMF').AsString); + FieldByName('CYKZ').Value:=Trim(CDS_Main.fieldbyname('CYKZ').AsString); + FieldByName('CYHX').Value:=Trim(CDS_Main.fieldbyname('CYHX').AsString); + FieldByName('CYColor').Value:=Trim(CDS_Main.fieldbyname('CYColor').AsString); + Post; + end; + end; + end; + finally + frmCPSel.Free; + end; + +end; + +procedure TfrmYPCRIn.ToolButton3Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if Trim(CDS_Sub.fieldbyname('BCId').AsString)<>'' then + begin + Application.MessageBox('ڴɾѾݣ','ʾ',0); + Exit; + end; + CDS_Sub.Delete; +end; + +procedure TfrmYPCRIn.ToolButton4Click(Sender: TObject); +var + YCLCode,GYS:String; +begin + if CDS_Sub.IsEmpty then Exit; + CopyAddRow(tv1,CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('BCID').Value:=''; + FieldByName('CRID').Value:=NULL; + FieldByName('CYColor').Value:=''; + FieldByName('Note').Value:=''; + Post; + end; +end; + +procedure TfrmYPCRIn.ToolButton1Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + ToolBar1.SetFocus; + OneKeyPost(Tv1,CDS_Sub); +end; + +function TfrmYPCRIn.SaveData():Boolean; +var + MaxNo,SubId,strSQL,LQuantity,LQty,YLQty:string; + KID,i,PStatus,KID1,KID2:Integer; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not Eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1* from CK_YP_CR where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + sql.Add(' and CYType='''+Trim(CDS_Sub.fieldbyname('CYType').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if Trim(ADOQueryTemp.FieldByName('QtyUnit').AsString)<>Trim(CDS_Sub.fieldbyname('QtyUnit').AsString) then + begin + ADOQueryCmd.Connection.RollbackTrans; + CDS_Sub.EnableControls; + Application.MessageBox('λ!','ʾ',0); + Exit; + end; + end; + if Trim(CDS_Sub.FieldByName('Qty').AsString)='' then + begin + CDS_Sub.Edit; + CDS_Sub.FieldByName('Qty').Value:='0'; + CDS_Sub.Post; + end; + + + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_YP_KC where WeiZhi='''+Trim(CDS_Sub.fieldbyname('WeiZhi').AsString)+''''); + sql.Add(' and KCQty>0'); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + CDS_Sub.EnableControls; + Application.MessageBox('λѾռ!','ʾ',0); + Exit; + end; } + SaveKCData(); + // + if Trim(CDS_Sub.fieldbyname('BCId').AsString)<>'' then + begin + SubId:=Trim(CDS_Sub.fieldbyname('BCId').AsString); + end else + begin + if GetLSNo(ADOQueryCmd,SubId,'BC','CK_YP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + CDS_Sub.EnableControls; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_YP_CR where BCId='''+Trim(SubId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_Sub.fieldbyname('BCId').AsString)<>'' then + Edit + else + Append; + FieldByName('BCId').Value:=Trim(SubId); + //SSetSaveDataCDSNew(ADOQueryCmd,Tv1,CDS_Sub,'CK_YP_CR',2); + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_YP_CR',2); + FieldByName('CRTime').Value:=CDS_Sub.fieldbyname('CRtime').Value; + FieldByName('CYID').Value:=CDS_Sub.fieldbyname('CYID').Value; + FieldByName('CYColor').Value:=CDS_Sub.fieldbyname('CYColor').Value; + FieldByName('CYType').Value:=CDS_Sub.fieldbyname('CYType').Value; + FieldByName('QtyUnit').Value:=CDS_Sub.fieldbyname('QtyUnit').Value; + FieldByName('Note').Value:=CDS_Sub.fieldbyname('Note').Value; + FieldByName('Qty').Value:=CDS_Sub.fieldbyname('Qty').Value; + FieldByName('QtyFlag').Value:=1; + FieldByName('CRID').Value:=StrToInt(FCRID); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + if Trim(CDS_Sub.fieldbyname('BCId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('Note').Value:=Trim(CDS_Sub.fieldbyname('Note').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YP_KC Set KCQty=(select sum(Qty*QtyFlag) from CK_YP_CR A where A.CRID=CK_YP_KC.CRID)'); + sql.Add(' where CRID='+Trim(FCRID)); + ExecSQL; + end; + Next; + end; + end; + CDS_Sub.EnableControls; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_YP_KC where CRID in(select CRID from CK_YP_KC '); + sql.Add(' where not exists(select * from CK_YP_CR A where A.CRID=CK_YP_KC.CRID))'); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + FMainID:=SubId; + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + CDS_Sub.EnableControls; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; +procedure TfrmYPCRIn.SaveKCData(); +var + LQty:String; + PState:Integer; +begin + PState:=0; + if Trim(CDS_Sub.fieldbyname('BCID').AsString)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_YP_CR where BCID='''+Trim(CDS_Sub.fieldbyname('BCID').AsString)+''''); + Open; + end; + LQty:=Trim(ADOQueryTemp.fieldbyname('Qty').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_YP_KC Set KCQty=KCQty-'+LQty); + SQL.Add(' where CRID='+Trim(ADOQueryTemp.fieldbyname('CRID').AsString)); + ExecSQL; + end; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from CK_YP_KC'); + sql.Add(' where CYID='''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + sql.Add(' and isnull(CYType,'''')='''+Trim(CDS_Sub.fieldbyname('CYType').AsString)+''''); + sql.Add(' and isnull(CYColor,'''')='''+Trim(CDS_Sub.fieldbyname('CYColor').AsString)+''''); + sql.Add(' and isnull(PBFactory,'''')='''+Trim(CDS_Sub.fieldbyname('PBFactory').AsString)+''''); + sql.Add(' and isnull(RCFactory,'''')='''+Trim(CDS_Sub.fieldbyname('RCFactory').AsString)+''''); + sql.Add(' and isnull(HJGFactory,'''')='''+Trim(CDS_Sub.fieldbyname('HJGFactory').AsString)+''''); + sql.Add(' and isnull(KCQtyUnit,'''')='''+Trim(CDS_Sub.fieldbyname('QtyUnit').AsString)+''''); + sql.Add(' and isnull(WeiZhi,'''')='''+Trim(CDS_Sub.fieldbyname('WeiZhi').AsString)+''''); + sql.Add(' and isnull(KCNote,'''')='''+Trim(CDS_Sub.fieldbyname('Note').AsString)+''''); + //sql.Add(' and isnull(MiLenNote,'''')='''+Trim(CDS_Sub.fieldbyname('MiLenNote').AsString)+''''); + // sql.Add(' and isnull(BZType,'''')='''+Trim(CDS_Sub.fieldbyname('BZType').AsString)+''''); + {if Trim(CDS_Sub.fieldbyname('CRPrice').AsString)<>'' then + begin + sql.Add(' and CRPrice='+Trim(CDS_Sub.fieldbyname('CRPrice').AsString)); + end else + begin + sql.Add(' and CRPrice=0'); + end; } + + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_YP_CRID Set CRID=CRID+1 select * from CK_YP_CRID'); + ExecSQL; + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + PState:=1; + end; + if PState=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into CK_YP_KC(CRID,CYID,CYColor,PBFactory,KCQtyUnit,KCValid,CYType,KCNote,RCFactory,HJGFactory,WeiZhi)'); + sql.Add(' select '+FCRID); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('CYID').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('CYColor').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('PBFactory').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('QtyUnit').AsString)+''''); + sql.Add(',''Y'' '); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('CYType').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('Note').AsString)+''''); + // sql.Add(','''+Trim(CDS_Sub.fieldbyname('BZType').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('RCFactory').AsString)+''''); + sql.Add(','''+Trim(CDS_Sub.fieldbyname('HJGFactory').AsString)+''''); + {if Trim(CDS_Sub.fieldbyname('CRPrice').AsString)<>'' then + sql.Add(','+Trim(CDS_Sub.fieldbyname('CRPrice').AsString)) + else + sql.Add(',0'); } + sql.Add(','''+Trim(CDS_Sub.fieldbyname('WeiZhi').AsString)+''''); + //sql.Add(','''+Trim(CDS_Sub.fieldbyname('MiLenNote').AsString)+''''); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_YP_KC Set KCQty=KCQty+'+Trim(CDS_Sub.fieldbyname('Qty').AsString)); + SQL.Add(' where CRID='+FCRID); + ExecSQL; + end; +end; + +procedure TfrmYPCRIn.BtnSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + if CDS_Sub.Locate('CRTime',Null,[]) then + begin + Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Exit; + end; + { if CDS_Sub.Locate('CYNO',Null,[]) then + begin + Application.MessageBox('ƷŲΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CYColor',Null,[]) then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; } + if CDS_Sub.Locate('Qty',Null,[]) then + begin + Application.MessageBox('Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit',Null,[]) then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('CYType',Null,[]) then + begin + Application.MessageBox('ƷͲΪ!','ʾ',0); + Exit; + end; + { if CDS_Sub.Locate('CRPrice',Null,[]) then + begin + Application.MessageBox('۲Ϊ!','ʾ',0); + Exit; + end; + if CDS_Sub.Locate('BZType',Null,[]) then + begin + Application.MessageBox('ֲΪ!','ʾ',0); + Exit; + end; } + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + end; +end; + +procedure TfrmYPCRIn.FormShow(Sender: TObject); +var + i:Integer; +begin + readCxGrid('ƷSTInput',Tv1,'Ʒֿ'); + InitGrid(); + if FCopyInt=99 then + begin + FMainID:=''; + with CDS_Sub do + begin + Edit; + FieldByName('BCID').Value:=''; + FieldByName('WeiZhi').Value:=''; + FieldByName('CRID').Value:=Null; + Post; + end; + end; + if Trim(FMainID)<>'' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_YP_CR where CRID='+Trim(CDS_Sub.fieldbyname('CRID').AsString)); + sql.Add(' and CRFlag='''' '); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + for i:=0 to Tv1.ColumnCount-1 do + begin + Tv1.Columns[i].Options.Focusing:=False; + end; + v1Column1.Options.Focusing:=True; + v1Quantity.Options.Focusing:=True; + end; + end; + {FDate:=SGetServerDate(ADOQueryTemp); + if Trim(FMainID)='' then + begin + with CDS_Sub do + begin + Append; + FieldByName('CRTime').Value:=FDate; + Post; + end; + end; } +end; + +procedure TfrmYPCRIn.v1P_ChnNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ordcolor'; + flagname:='ɫ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CYColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYPCRIn.v1Column18PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='WeiZhi'; + flagname:='λ'; + if ShowModal=1 then + begin + CDS_Sub.Edit; + CDS_Sub.FieldByName('WeiZhi').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYPCRIn.v1Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CYType'; + flagname:='Ʒ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('CYType').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPInList.dfm b/坯布码单待检(PBMDDJ.dll)/U_YPInList.dfm new file mode 100644 index 0000000..d205c6b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPInList.dfm @@ -0,0 +1,585 @@ +object frmYPInList: TfrmYPInList + Left = 64 + Top = 118 + Width = 1201 + Height = 618 + Caption = #26679#21697#20837#24211#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1185 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DDMD.ThreeImgList + Flat = True + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + OnClick = ToolButton1Click + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object ToolButton2: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #39044#35272 + ImageIndex = 66 + OnClick = ToolButton2Click + end + object Panel4: TPanel + Left = 504 + Top = 0 + Width = 173 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label13: TLabel + Left = 3 + Top = 9 + Width = 52 + Height = 12 + Caption = #26631#31614#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabName: TBtnEditA + Left = 61 + Top = 5 + Width = 104 + Height = 20 + TabOrder = 0 + OnBtnClick = LabNameBtnClick + end + end + object TBPrint: TToolButton + Left = 677 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + OnClick = TBPrintClick + end + object Panel2: TPanel + Left = 764 + Top = 0 + Width = 88 + Height = 30 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label5: TLabel + Left = 8 + Top = 8 + Width = 24 + Height = 12 + Caption = #20221#25968 + end + object Edit1: TEdit + Left = 33 + Top = 5 + Width = 49 + Height = 20 + TabOrder = 0 + Text = '1' + end + end + object TBClose: TToolButton + Left = 852 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1185 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#26102#38388 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 288 + Top = 12 + Width = 48 + Height = 12 + Caption = #26679#21697#32534#21495 + end + object Label4: TLabel + Left = 435 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label7: TLabel + Left = 566 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object CYNo: TEdit + Tag = 2 + Left = 337 + Top = 9 + Width = 79 + Height = 20 + TabOrder = 2 + OnChange = CYNoChange + end + object CYColor: TEdit + Tag = 2 + Left = 465 + Top = 9 + Width = 79 + Height = 20 + TabOrder = 3 + OnChange = CYNoChange + end + object CheckBox1: TCheckBox + Left = 693 + Top = 10 + Width = 145 + Height = 17 + Caption = #26174#31034#24211#23384#20026#38646#30340#25968#25454 + TabOrder = 4 + end + object CYType: TEdit + Tag = 2 + Left = 593 + Top = 9 + Width = 79 + Height = 20 + TabOrder = 5 + OnChange = CYNoChange + end + end + object cxGrid1: TcxGrid + Left = 8 + Top = 88 + Width = 1113 + Height = 353 + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'DefStr1' + end + item + Format = 'GYS' + end + item + Format = '1' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Quantity + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_DDMD.Default + object v1Column25: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column18: TcxGridDBColumn + Caption = #23384#25918#20301#32622 + DataBinding.FieldName = 'WeiZhi' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 72 + end + object v1Column3: TcxGridDBColumn + Caption = #26679#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'CYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object v1Column14: TcxGridDBColumn + Caption = #33521#25991#21697#21517 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'CYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'CYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column7: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column10: TcxGridDBColumn + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 61 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411#21495 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1P_ChnName: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'CYColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 53 + end + object v1Column11: TcxGridDBColumn + Caption = #33521#25991#39068#33394#8216 + DataBinding.FieldName = 'CYColorEng' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #26679#21697#31867#22411 + DataBinding.FieldName = 'CYType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21367#26679 + #25512#38144#26679 + #33337#26679) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Quantity: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column20: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1UnitName: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #31859 + #20844#26020 + #22871) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + end + object v1Note: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBFactory' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378 + DataBinding.FieldName = 'RCFactory' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #21518#21152#24037#21378 + DataBinding.FieldName = 'HJGFactory' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column19: TcxGridDBColumn + Caption = #31859#38271 + DataBinding.FieldName = 'MLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column21: TcxGridDBColumn + Caption = #26465#30721'ID' + DataBinding.FieldName = 'CYID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 504 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 528 + Top = 176 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 560 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 616 + Top = 176 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 472 + Top = 176 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 588 + Top = 176 + end + object ADOQueryHC: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 224 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 392 + Top = 144 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 360 + Top = 144 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_YPInList.pas b/坯布码单待检(PBMDDJ.dll)/U_YPInList.pas new file mode 100644 index 0000000..325296e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_YPInList.pas @@ -0,0 +1,589 @@ +unit U_YPInList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, cxCalendar, cxButtonEdit, cxDropDownEdit, + DBClient, Menus, cxSplitter, cxTextEdit, cxCheckBox, IdBaseComponent, + IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI,IniFiles, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, BtnEdit; + +type + TfrmYPInList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label7: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CYNo: TEdit; + CYColor: TEdit; + CDS_Main: TClientDataSet; + ADOQueryHC: TADOQuery; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1P_ChnName: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Quantity: TcxGridDBColumn; + v1UnitName: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column20: TcxGridDBColumn; + CheckBox1: TCheckBox; + v1Column21: TcxGridDBColumn; + Panel2: TPanel; + Edit1: TEdit; + Label5: TLabel; + v1Column25: TcxGridDBColumn; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ToolButton2: TToolButton; + Panel4: TPanel; + Label13: TLabel; + LabName: TBtnEditA; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + CYType: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure CYNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure LabNameBtnClick(Sender: TObject); + private + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure SaveChkData(); + procedure SaveChkNoData(); + procedure ReadINIFile(); + { Private declarations } + public + { Public declarations } + end; + +var + frmYPInList: TfrmYPInList; + +implementation +uses + U_DataLink,U_RTFun,U_YPCRIn,U_FileUp, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmYPInList.FormDestroy(Sender: TObject); +begin + frmYPInList:=nil; +end; +procedure TfrmYPInList.ReadINIFile(); +var + programIni:Tinifile; //ļ + FileName:string; +begin + FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI'; + programIni:=Tinifile.create(FileName); + server:=programIni.ReadString('SERVER','ַ','127.0.0.1'); + programIni.Free; +end; + +procedure TfrmYPInList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYPInList.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmYPInList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ʒб',Tv1,'Ʒֿ'); +end; + +procedure TfrmYPInList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.CRTime,A.CRID,A.BCID,A.Qty,A.QtyUnit,A.CYColor,A.Note,A.CYType,A.BCID '); + sql.Add(' ,A.CRPrice,A.BZTYpe,A.PBFactory,A.RCFactory,A.HJGFactory,A.CYID,A.WeiZhi,A.MiLenNote'); + SQL.Add(',B.CYNO,B.CYName,B.CYMF,B.CYKZ,B.CYSpec,B.CYCF,B.CYHX,B.CYEName,B.CYECF,B.CYColorEng'); + sql.Add(',MLen=dbo.F_Get_MLen(A.CYID),C.KCQty,A.CYID '); + SQL.Add(' from CK_YP_CR A inner join CP_YDang B on A.CYID=B.CYID '); + sql.Add(' inner join CK_YP_KC C on A.CRID=C.CRID'); + sql.Add(' where CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + SQL.Add(' and CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + sql.Add(' and CRFlag='''' '); + if CheckBox1.Checked=False then + begin + sql.Add(' and KCQty>0'); + end; + { sql.Add(' order by '); + sql.Add(' substring(A.WeiZhi,1,1),Cast(substring(A.WeiZhi,2,charindex(''-'',A.WeiZhi)-2) as Int)'); + sql.Add(',Cast(substring(A.WeiZhi,charindex(''-'',A.WeiZhi)+1,len(A.WeiZhi)-charindex(''-'',A.WeiZhi)) as Int)');} + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYPInList.InitForm(); +begin + ReadCxGrid('Ʒб',Tv1,'Ʒֿ'); + + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-365; + InitGrid(); +end; + +procedure TfrmYPInList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmYPInList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + frmYPCRIn:=TfrmYPCRIn.Create(Application); + with frmYPCRIn do + begin + FMainId:=Trim(self.CDS_Main.fieldbyname('BCId').AsString); + ToolButton1.Visible:=False; + ToolButton2.Visible:=False; + ToolButton3.Visible:=False; + ToolButton4.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.CDS_Main.Locate('BCId',FMainID,[]); + end; + end; + finally + frmYPCRIn.Free; + end; +end; + +procedure TfrmYPInList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + CDS_Main.Delete; + end; +end; + +function TfrmYPInList.DelData():Boolean; +var + FInt:Integer; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_YP_CR where BCId='''+Trim(CDS_Main.fieldbyname('BCId').AsString)+''''); + sql.Add('UPdate CK_YP_KC Set KCQty=KCQty-'+Trim(CDS_Main.fieldbyname('Qty').AsString)); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_YP_KC '); + sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if ADOQueryTemp.FieldByName('KCQty').Value<0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('г!','ʾ',0); + Exit; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YP_SQ Set NowOutFlag=0 where SQID= '); + sql.Add(' (select Top 1 SQID from YP_SQ A where A.CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + sql.Add(' and A.CYColor='''+Trim(CDS_Main.fieldbyname('CYColor').AsString)+''''); + SQL.Add(' and A.YWY='''+Trim(CDS_Main.fieldbyname('YWY').AsString)+''''); + sql.Add(' and SQTime<='''+Trim(CDS_Main.fieldbyname('CRTime').AsString)+''''); + sql.Add(' and A.SQType='''' and A.ChkStatus=''ͨ'' '); + SQL.Add(' order by SQTime desc)'); + ExecSQL; + end; } + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmYPInList.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒб',cxGrid1); +end; + +procedure TfrmYPInList.TBAddClick(Sender: TObject); +begin + try + frmYPCRIn:=TfrmYPCRIn.Create(Application); + with frmYPCRIn do + begin + FMainID:=''; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.CDS_Main.Locate('BCId',FMainID,[]); + end; + end; + finally + frmYPCRIn.Free; + end; +end; + +procedure TfrmYPInList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + + +procedure TfrmYPInList.CYNoChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmYPInList.FormShow(Sender: TObject); +begin + InitForm(); + if Trim(DParameters1)='鿴' then + begin + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + end; +end; +procedure TfrmYPInList.SaveChkData(); +var + FCRID:String; + PState:Integer; +begin + PState:=0; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YP_SQ_KC'); + sql.Add(' where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + sql.Add(' and CYColor='''+Trim(CDS_Main.fieldbyname('CYColor').AsString)+''''); + sql.Add(' and YWY='''+Trim(CDS_Main.fieldbyname('YWY').AsString)+''''); + sql.Add(' and SQQtyUnit='''+Trim(CDS_Main.fieldbyname('QtyUnit').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_YP_CRID Set CRID=CRID+1 select * from CK_YP_CRID'); + ExecSQL; + Open; + end; + FCRID:=Trim(ADOQueryCmd.fieldbyname('CRID').AsString); + end else + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + PState:=1; + end; + if PState=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into YP_SQ_KC(CRID,CYNO,CYColor,YWY,SQQtyUnit,KCValid)'); + sql.Add(' select '+FCRID); + sql.Add(','''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + sql.Add(','''+Trim(CDS_Main.fieldbyname('CYColor').AsString)+''''); + sql.Add(','''+Trim(CDS_Main.fieldbyname('YWY').AsString)+''''); + sql.Add(','''+Trim(CDS_Main.fieldbyname('QtyUnit').AsString)+''''); + sql.Add(',''Y'' '); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YP_SQ_KC Set SQQty=SQQty+'+Trim(CDS_Main.fieldbyname('Qty').AsString)); + SQL.Add(' where CRID='+FCRID); + sql.Add('UPdate YP_SQ Set ChkStatus=''ͨ'' '); + sql.Add(',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTime=:ChkTime'); + sql.Add(',CRID='+FCRID); + sql.Add(' where SQID='''+Trim(CDS_Main.fieldbyname('SQID').AsString)+''''); + Parameters.ParamByName('ChkTime').Value:=SGetServerDateTime(ADOQueryTemp); + ExecSQL; + end; +end; +procedure TfrmYPInList.SaveChkNoData(); +var + FCRID:String; +begin + if Trim(CDS_Main.FieldByName('ChkStatus').AsString)='ͨ' then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YP_SQ_KC'); + sql.Add(' where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+''''); + sql.Add(' and CYColor='''+Trim(CDS_Main.fieldbyname('CYColor').AsString)+''''); + sql.Add(' and YWY='''+Trim(CDS_Main.fieldbyname('YWY').AsString)+''''); + sql.Add(' and SQQtyUnit='''+Trim(CDS_Main.fieldbyname('QtyUnit').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + end else + begin + FCRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YP_SQ_KC Set SQQty=SQQty-'+Trim(CDS_Main.fieldbyname('Qty').AsString)); + SQL.Add(' where CRID='+FCRID); + ExecSQL; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YP_SQ Set ChkStatus=''˲ͨ'' '); + sql.Add(',Chker='''+Trim(DName)+''''); + sql.Add(',ChkTime=:ChkTime'); + sql.Add(' where SQID='''+Trim(CDS_Main.fieldbyname('SQID').AsString)+''''); + Parameters.ParamByName('ChkTime').Value:=SGetServerDateTime(ADOQueryTemp); + ExecSQL; + end; + + +end; + +procedure TfrmYPInList.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + frmYPCRIn:=TfrmYPCRIn.Create(Application); + with frmYPCRIn do + begin + FMainId:=Trim(self.CDS_Main.fieldbyname('BCId').AsString); + //ToolButton1.Visible:=False; + //ToolButton2.Visible:=False; + //ToolButton3.Visible:=False; + //ToolButton4.Visible:=False; + FCopyInt:=99; + if ShowModal=1 then + begin + Self.InitGrid(); + Self.TBFind.Click; + Self.CDS_Main.Locate('BCId',FMainID,[]); + end; + end; + finally + frmYPCRIn.Free; + end; +end; + +procedure TfrmYPInList.TBPrintClick(Sender: TObject); +var + fPrintFile,FFCYID:string; + DPS,i,j:Integer; +begin + CYNo.SetFocus; + if CDS_Main.IsEmpty then Exit; + //if CDS_CYNO.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + if Trim(Edit1.Text)<>'' then + begin + if TryStrToInt(Edit1.Text,i)=False then + begin + Application.MessageBox('¼!','ʾ',0); + exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) +'Report\'+Trim(LabName.Text)+'.rmf'; + CDS_Main.DisableControls; + DPS:=0; + FFCYID:=''; + i:=1; + if Trim(Edit1.Text)='' then + begin + j:=1; + end else + begin + j:=StrToInt(Edit1.Text); + end; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + for i:=1 to j do + begin + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + Exit; + end; + end; + + if DPS=0 then + begin + FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString); + end; + end; + //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]); + + Next; + end; + end; + CDS_Main.EnableControls; + CDS_Main.Locate('CYID',FFCYID,[]); + Edit1.Text:='1'; + +end; + +procedure TfrmYPInList.ToolButton2Click(Sender: TObject); +var + fPrintFile:string; +begin + if CDS_Main.IsEmpty then Exit; + if Trim(LabName.Text)='' then + begin + Application.MessageBox('ǩƲΪ!','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'ʾ',0); + end; +end; + + +procedure TfrmYPInList.LabNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='YPLabName'; + flagname:='Ʒǩ'; + fnote:=True; + TBAdd.Visible:=False; + TBEdit.Visible:=False; + TBDel.Visible:=False; + if ShowModal=1 then + begin + Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.dfm new file mode 100644 index 0000000..a6193cb --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.dfm @@ -0,0 +1,275 @@ +object frmZDYHelp: TfrmZDYHelp + Left = 466 + Top = 188 + Width = 465 + Height = 528 + Caption = #39033#30446#32500#25252 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid1: TcxGrid + Left = 0 + Top = 73 + Width = 449 + Height = 416 + Align = alClient + TabOrder = 0 + object TV1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV1CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object V1Code: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'ZDYNo' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 97 + end + object V1OrderNo: TcxGridDBColumn + Caption = #39034#24207#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 49 + end + object V1Name: TcxGridDBColumn + Tag = 2 + Caption = #21517#31216 + DataBinding.FieldName = 'ZDYName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 326 + end + object V1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1NotePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 109 + end + object V1ZdyFlag: TcxGridDBColumn + Caption = #26631#24535 + DataBinding.FieldName = 'ZdyFlag' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1Column1PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 57 + end + object V1HelpType: TcxGridDBColumn + Caption = #24110#21161#31867#27604 + DataBinding.FieldName = 'HelpType' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1HelpTypePropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 55 + end + object V1ZdyStr1: TcxGridDBColumn + DataBinding.FieldName = 'ZdyStr1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 61 + end + object V1ZdyStr2: TcxGridDBColumn + DataBinding.FieldName = 'ZdyStr2' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V1ZdyStr3: TcxGridDBColumn + DataBinding.FieldName = 'ZdyStr3' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 57 + end + object V1ZdyStr4: TcxGridDBColumn + DataBinding.FieldName = 'ZdyStr4' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 61 + end + object V1ZdyStr5: TcxGridDBColumn + DataBinding.FieldName = 'ZdyStr5' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 449 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Caption = #36873#25321 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 59 + Top = 0 + Caption = #22686#34892 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 118 + Top = 0 + Caption = #21024#34892 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBEdit: TToolButton + Left = 177 + Top = 0 + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBSave: TToolButton + Left = 236 + Top = 0 + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 295 + Top = 0 + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 449 + Height = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 18 + Top = 17 + Width = 24 + Height = 12 + Caption = #21517#31216 + end + object Label2: TLabel + Left = 240 + Top = 11 + Width = 120 + Height = 24 + Caption = #27880#65306#28966#28857#31163#24320#24403#21069#32534#36753#13#10' '#21333#20803#26684#20445#23384#25968#25454#12290 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentColor = False + ParentFont = False + end + object ZDYName: TEdit + Tag = 2 + Left = 53 + Top = 12 + Width = 169 + Height = 20 + TabOrder = 0 + OnChange = ZDYNameChange + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 48 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 80 + Top = 144 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 112 + Top = 152 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 280 + Top = 144 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 208 + Top = 144 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 168 + Top = 152 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.pas b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.pas new file mode 100644 index 0000000..4debb28 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelp.pas @@ -0,0 +1,724 @@ +unit U_ZDYHelp; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, + StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, + cxTimeEdit; + +type + TfrmZDYHelp = class(TForm) + TV1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + V1Code: TcxGridDBColumn; + V1Name: TcxGridDBColumn; + ToolBar1: TToolBar; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + TBAdd: TToolButton; + TBSave: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ToolButton1: TToolButton; + TBEdit: TToolButton; + V1Note: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + ZDYName: TEdit; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + V1ZdyFlag: TcxGridDBColumn; + V1HelpType: TcxGridDBColumn; + V1ZdyStr1: TcxGridDBColumn; + V1ZdyStr2: TcxGridDBColumn; + V1ZdyStr3: TcxGridDBColumn; + V1ZdyStr4: TcxGridDBColumn; + V1ZdyStr5: TcxGridDBColumn; + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TV1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ZDYNameChange(Sender: TObject); + procedure V1NamePropertiesEditValueChanged(Sender: TObject); + procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); + procedure V1NotePropertiesEditValueChanged(Sender: TObject); + procedure V1Column1PropertiesEditValueChanged(Sender: TObject); + procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject); + procedure V1ZdyStr1PropertiesEditValueChanged(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + flag,flagname,snote,MainType:string; + fnote,forderno,fZdyFlag,ViewFlag:Boolean; + PPSTE:integer; + { Public declarations } + end; + +var + frmZDYHelp: TfrmZDYHelp; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmZDYHelp.FormCreate(Sender: TObject); +begin + {try + cxGrid1.Align:=alClient; + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + //ConnectionString:=''; + Connected:=true; + end; + except + {if Application.MessageBox('ʧ,ǷҪٴ?','ʾ',32+4)=IDYES then + begin + try + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + //ConnectionString:='23242'; + Connected:=true; + end; + except + end; + end; } + + {frmRTZDYHelp.Free; + end; } +end; + +procedure TfrmZDYHelp.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + ZDYName.SetFocus; + WriteCxGrid('Զ'+Trim(flag),TV1,'Զ'); + Action:=caFree; +end; + +procedure TfrmZDYHelp.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type='''+flag+''''); + if Trim(MainType)<>'' then + begin + sql.Add(' and A.MainType='''+Trim(MainType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmZDYHelp.TBAddClick(Sender: TObject); +var + i:Integer; +begin + ZDYName.SetFocus; + TV1.OptionsData.Editing:=True; + TV1.OptionsSelection.CellSelect:=True; + for i:=0 to 5 do + begin + with ClientDataSet1 do + begin + Append; + Post; + end; + end; + +end; +procedure TfrmZDYHelp.TBSaveClick(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet1.IsEmpty then Exit; + ZDYName.SetFocus; + + if ClientDataSet1.Locate('ZDYName',null,[]) then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + if ClientDataSet1.Locate('ZDYName','',[]) then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+''''); + open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType '); + Parameters.ParamByName('ZDYNo').Value:=Trim(flag); + Parameters.ParamByName('ZDYName').Value:=Trim(flagname); + Parameters.ParamByName('Type').Value:='Main'; + Parameters.ParamByName('MainType').Value:=Trim(MainType); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then + begin + if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from KH_Zdy where Type='''+Trim(flag)+''''); + if Trim(MainType)<>'' then + SQL.Add(' and MainType='''+Trim(MainType)+''''); + sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end else + begin + if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then + begin + ADOQueryCmd.Connection.RollbackTrans; + ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_ZDY where 1<>1'); + Open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno); + ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').Value; + ADOQueryCmd.FieldByName('note').Value:=Trim(snote); + //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString; + ADOQueryCmd.FieldByName('Type').Value:=flag; + ADOQueryCmd.FieldByName('valid').Value:='Y'; + if Trim(MainType)<>'' then + ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType); + //ADOQueryCmd.FieldByName('sel').Value:=0; + ADOQueryCmd.Post; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno); + ClientDataSet1.Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + TV1.OptionsData.Editing:=False; + TV1.OptionsSelection.CellSelect:=False; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + +end; + +procedure TfrmZDYHelp.TBDelClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString)<>'') or + (Trim(ClientDataSet1.FieldByName('ZDYname').AsString)<>'') then + begin + if application.MessageBox('ȷҪɾ?','ʾϢ',1)=2 then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete KH_ZDY where ZDYNo='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+''''); + SQL.Add(' and Type='''+Trim(flag)+''''); + ExecSQL; + end; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmZDYHelp.TBCloseClick(Sender: TObject); +begin + ModalResult:=2; + ZDYName.SetFocus; + WriteCxGrid('Զ'+Trim(flag),TV1,'Զ'); + Close; +end; + +procedure TfrmZDYHelp.FormShow(Sender: TObject); +var + fsj,fsj1:string; +begin + {if PPSTE=1 then + begin + Application.Terminate; + Exit; + end; } + InitGrid(); + fsj:=Trim(flag)+'01'; + fsj1:=Trim(flagname)+'01'; + {if ClientDataSet1.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into KH_ZDY(ZDYNo,ZDYname,Type,note)'); + sql.Add('select '''+Trim(fsj)+''''); + sql.Add(','''+Trim(fsj1)+''''); + SQL.Add(','''+Trim(flag)+''''); + sql.Add(','''+Trim(snote)+''''); + ExecSQL; + end; + InitGrid(); + end;} + //frmZDYHelp.Caption:=Trim(flagname)+'<'+Trim(flag)+'>'; + //ReadCxGrid('Զ',TV1,'Զ'); + ReadCxGrid('Զ'+Trim(flag),TV1,'Զ'); + frmZDYHelp.Caption:=Trim(flagname); + V1Note.Visible:=fnote; + V1ZdyFlag.Visible:=fZdyFlag; + V1OrderNo.Visible:=forderno; + if ViewFlag=True then + begin + TBAdd.Visible:=False; + TBSave.Visible:=False; + TBDel.Visible:=False; + TBEdit.Visible:=False; + Label2.Visible:=False; + end; +end; + +procedure TfrmZDYHelp.ToolButton1Click(Sender: TObject); +begin + ZDYName.SetFocus; + WriteCxGrid('Զ'+Trim(flag),TV1,'Զ'); + ModalResult:=1; +end; + +procedure TfrmZDYHelp.TBEditClick(Sender: TObject); +begin + TV1.OptionsData.Editing:=True; + TV1.OptionsSelection.CellSelect:=True; +end; + +procedure TfrmZDYHelp.TV1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TV1.OptionsData.Editing=False then + begin + ModalResult:=1; + end; +end; + +procedure TfrmZDYHelp.ZDYNameChange(Sender: TObject); +var + fsj:String; +begin + if Trim(ZDYName.Text)<>'' then + begin + fsj:=' zdyname like '''+'%'+Trim(ZDYName.Text)+'%'+'''' + +' or Note like '''+'%'+Trim(ZDYName.Text)+'%'+'''' + +' or ZJM like '''+'%'+Trim(ZDYName.Text)+'%'+''''; + end; + if ADOQueryMain.Active then + begin + // SDofilter(ADOQueryMain,fsj); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + if Trim(fsj)='' then + begin + Filtered:=False; + end else + begin + Filtered:=False; + Filter:=fsj; + Filtered:=True; + end; + end; + finally + ADOQueryMain.EnableControls; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmZDYHelp.V1NamePropertiesEditValueChanged(Sender: TObject); +var + maxno,mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + //Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('ZdyName').Value:=Trim(mvalue); + //Post; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+''''); + open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType '); + Parameters.ParamByName('ZDYNo').Value:=Trim(flag); + Parameters.ParamByName('ZDYName').Value:=Trim(flagname); + Parameters.ParamByName('Type').Value:='Main'; + Parameters.ParamByName('MainType').Value:=Trim(MainType); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + //ClientDataSet1.DisableControls; + //with ClientDataSet1 do + //begin + //First; + //while not eof do + //begin + if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then + begin + if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from KH_Zdy where Type='''+Trim(flag)+''''); + if Trim(MainType)<>'' then + SQL.Add(' and MainType='''+Trim(MainType)+''''); + sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end else + begin + if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_ZDY where 1<>1'); + Open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno); + ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString; + ADOQueryCmd.FieldByName('note').Value:=Trim(snote); + //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString; + ADOQueryCmd.FieldByName('Type').Value:=flag; + ADOQueryCmd.FieldByName('valid').Value:='Y'; + if Trim(MainType)<>'' then + ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType); + //ADOQueryCmd.FieldByName('sel').Value:=0; + ADOQueryCmd.Post; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno); + //ClientDataSet1.Post; + // Next; + //end; + //end; + // ClientDataSet1.EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ','ʾ',0); + //TV1.OptionsData.Editing:=False; + //TV1.OptionsSelection.CellSelect:=False; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmZDYHelp.V1OrderNoPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('OrderNo').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update KH_Zdy Set OrderNo='+mvalue); + sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmZDYHelp.V1NotePropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Note').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update KH_Zdy Set Note='''+Trim(mvalue)+''''); + sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmZDYHelp.V1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:String; +begin + if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('ZdyFlag').Value:=StrToInt(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update KH_Zdy Set ZdyFlag='+Trim(mvalue)); + sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmZDYHelp.V1HelpTypePropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + mvalue:='0'; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('HelpType').Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update KH_Zdy Set HelpType='''+Trim(mvalue)+''''); + sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmZDYHelp.V1ZdyStr1PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:string; +begin + if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then + begin + Application.MessageBox('ƲΪ!','ʾ',0); + Exit; + end; + mvalue:=TcxTextEdit(Sender).EditingText; + FFieldName:=TV1.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(mvalue)='' then + begin + mvalue:=''; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName(FFieldName).Value:=mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('Update KH_Zdy Set '+FFieldName+'='''+Trim(mvalue)+''''); + sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+''''); + ExecSQL; + end; +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.dfm new file mode 100644 index 0000000..190f784 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.dfm @@ -0,0 +1,224 @@ +object frmZDYHelpSel: TfrmZDYHelpSel + Left = 392 + Top = 169 + Width = 574 + Height = 598 + Caption = #39033#30446#32500#25252 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid1: TcxGrid + Left = 0 + Top = 73 + Width = 558 + Height = 486 + Align = alClient + TabOrder = 0 + object TV1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = TV1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object V1Code: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'ZDYNo' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 97 + end + object V1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object V1Name: TcxGridDBColumn + Tag = 2 + Caption = #21517#31216 + DataBinding.FieldName = 'ZDYName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 208 + end + object V1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 57 + end + object V1OrderNo: TcxGridDBColumn + Caption = #39034#24207#21495 + DataBinding.FieldName = 'OrderNo' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 53 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 558 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Caption = #30830#23450 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 59 + Top = 0 + Caption = #22686#34892 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 118 + Top = 0 + Caption = #21024#34892 + ImageIndex = 13 + OnClick = TBDelClick + end + object TBEdit: TToolButton + Left = 177 + Top = 0 + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBSave: TToolButton + Left = 236 + Top = 0 + Caption = #20445#23384 + ImageIndex = 15 + Visible = False + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 295 + Top = 0 + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 558 + Height = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 19 + Top = 17 + Width = 24 + Height = 12 + Caption = #21517#31216 + end + object Label2: TLabel + Left = 240 + Top = 11 + Width = 120 + Height = 24 + Caption = #27880#65306#28966#28857#31163#24320#24403#21069#32534#36753#13#10' '#21333#20803#26684#20445#23384#25968#25454#12290 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentColor = False + ParentFont = False + end + object ZDYName: TEdit + Tag = 2 + Left = 54 + Top = 12 + Width = 169 + Height = 20 + TabOrder = 0 + OnChange = ZDYNameChange + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 48 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 80 + Top = 144 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 112 + Top = 152 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 280 + Top = 144 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 200 + Top = 144 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 352 + Top = 248 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.pas b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.pas new file mode 100644 index 0000000..3f3ffb3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZDYHelpSel.pas @@ -0,0 +1,465 @@ +unit U_ZDYHelpSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, + cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, + StdCtrls, ExtCtrls, cxCheckBox, cxTextEdit, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmZDYHelpSel = class(TForm) + TV1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + V1Code: TcxGridDBColumn; + V1Name: TcxGridDBColumn; + ToolBar1: TToolBar; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + TBAdd: TToolButton; + TBSave: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ToolButton1: TToolButton; + TBEdit: TToolButton; + V1Note: TcxGridDBColumn; + V1OrderNo: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + ZDYName: TEdit; + V1Column1: TcxGridDBColumn; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TV1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ZDYNameChange(Sender: TObject); + procedure V1NamePropertiesEditValueChanged(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + flag,flagname,snote,MainType,ReturnStr,FGStr:string; + fnote,forderno:Boolean; + PPSTE,JiangeStr:integer; + { Public declarations } + end; + +var + frmZDYHelpSel: TfrmZDYHelpSel; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmZDYHelpSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + ZDYName.SetFocus; + Action:=caFree; +end; + +procedure TfrmZDYHelpSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type='''+flag+''''); + if Trim(MainType)<>'' then + begin + sql.Add(' and MainType='''+Trim(MainType)+''''); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmZDYHelpSel.TBAddClick(Sender: TObject); +var + i:Integer; +begin + ZDYName.SetFocus; + TV1.OptionsData.Editing:=True; + TV1.OptionsSelection.CellSelect:=True; + for i:=0 to 5 do + begin + with ClientDataSet1 do + begin + Append; + Post; + end; + end; + +end; + +procedure TfrmZDYHelpSel.TBSaveClick(Sender: TObject); +var + maxno:string; +begin + if ClientDataSet1.IsEmpty then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+''''); + open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType '); + Parameters.ParamByName('ZDYNo').Value:=Trim(flag); + Parameters.ParamByName('ZDYName').Value:=Trim(flagname); + Parameters.ParamByName('Type').Value:='Main'; + Parameters.ParamByName('MainType').Value:=Trim(MainType); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + with ClientDataSet1 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then + begin + if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_ZDY where 1<>1'); + Open; + end; + if Trim(ClientDataSet1.FieldByName('ZDYName').AsString)='' then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno); + ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString; + ADOQueryCmd.FieldByName('note').Value:=Trim(snote); + //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString; + ADOQueryCmd.FieldByName('Type').Value:=flag; + ADOQueryCmd.FieldByName('valid').Value:='Y'; + if Trim(MainType)<>'' then + ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType); + //ADOQueryCmd.FieldByName('sel').Value:=0; + ADOQueryCmd.Post; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno); + ClientDataSet1.Post; + Next; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; + // TV1.OptionsData.Editing:=False; +end; + +procedure TfrmZDYHelpSel.TBDelClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then Exit; + if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString)<>'') or + (Trim(ClientDataSet1.FieldByName('ZDYname').AsString)<>'') then + begin + if application.MessageBox('ȷҪɾ?','ʾϢ',1)=2 then exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete KH_ZDY where ZDYNo='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+''''); + SQL.Add(' and Type='''+Trim(flag)+''''); + ExecSQL; + end; + end; + ClientDataSet1.Delete; +end; + +procedure TfrmZDYHelpSel.TBCloseClick(Sender: TObject); +begin + ModalResult:=2; + ZDYName.SetFocus; + WriteCxGrid('Զ'+Trim(flag),TV1,'Զ'); + Close; +end; + +procedure TfrmZDYHelpSel.FormShow(Sender: TObject); +var + fsj,fsj1:string; +begin + {if PPSTE=1 then + begin + Application.Terminate; + Exit; + end; } + InitGrid(); + fsj:=Trim(flag)+'01'; + fsj1:=Trim(flagname)+'01'; + ReadCxGrid('Զ'+Trim(flag),TV1,'Զ'); + {if ClientDataSet1.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into KH_ZDY(ZDYNo,ZDYname,Type,note)'); + sql.Add('select '''+Trim(fsj)+''''); + sql.Add(','''+Trim(fsj1)+''''); + SQL.Add(','''+Trim(flag)+''''); + sql.Add(','''+Trim(snote)+''''); + ExecSQL; + end; + InitGrid(); + end;} + //frmZDYHelp.Caption:=Trim(flagname)+'<'+Trim(flag)+'>'; + frmZDYHelpSel.Caption:=Trim(flagname); +end; + +procedure TfrmZDYHelpSel.ToolButton1Click(Sender: TObject); +begin + ReturnStr:=''; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + if JiangeStr<>99 then + begin + if FGStr<>'' then + ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString)+FGStr + else + ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString)+';' + end + else + ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString); + end; + Next; + end; + end; + if JiangeStr<>99 then + ReturnStr:=Copy(ReturnStr,1,Length(ReturnStr)-1); + ModalResult:=1; +end; + +procedure TfrmZDYHelpSel.TBEditClick(Sender: TObject); +begin + TV1.OptionsData.Editing:=True; +end; + +procedure TfrmZDYHelpSel.TV1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if TV1.OptionsData.Editing=False then + begin + ModalResult:=1; + end; +end; + +procedure TfrmZDYHelpSel.ZDYNameChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmZDYHelpSel.V1NamePropertiesEditValueChanged(Sender: TObject); +var + maxno,mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + if Trim(mvalue)='' then + begin + //Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('ZdyName').Value:=Trim(mvalue); + //Post; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+''''); + open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType '); + Parameters.ParamByName('ZDYNo').Value:=Trim(flag); + Parameters.ParamByName('ZDYName').Value:=Trim(flagname); + Parameters.ParamByName('Type').Value:='Main'; + Parameters.ParamByName('MainType').Value:=Trim(MainType); + ExecSQL; + end; + end; + with ADOQueryCmd do + begin + //ClientDataSet1.DisableControls; + //with ClientDataSet1 do + //begin + //First; + //while not eof do + //begin + if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then + begin + if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from KH_Zdy where Type='''+Trim(flag)+''''); + if Trim(MainType)<>'' then + SQL.Add(' and MainType='''+Trim(MainType)+''''); + sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end else + begin + if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ','ʾ',0); + Exit; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_ZDY where 1<>1'); + Open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno); + ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString; + ADOQueryCmd.FieldByName('note').Value:=Trim(snote); + //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString; + ADOQueryCmd.FieldByName('Type').Value:=flag; + ADOQueryCmd.FieldByName('valid').Value:='Y'; + if Trim(MainType)<>'' then + ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType); + //ADOQueryCmd.FieldByName('sel').Value:=0; + ADOQueryCmd.Post; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno); + //ClientDataSet1.Post; + // Next; + //end; + //end; + // ClientDataSet1.EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ','ʾ',0); + //TV1.OptionsData.Editing:=False; + //TV1.OptionsSelection.CellSelect:=False; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.dfm new file mode 100644 index 0000000..d6411be --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.dfm @@ -0,0 +1,1130 @@ +object frmZHKHInPutTabNew: TfrmZHKHInPutTabNew + Left = 440 + Top = 58 + Width = 1048 + Height = 744 + Align = alClient + Caption = #23637#20250#23458#25143#20449#24687#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1032 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1032 + Height = 676 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object cxPageControl1: TcxPageControl + Left = 0 + Top = 0 + Width = 1030 + Height = 674 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 0 + ClientRectBottom = 674 + ClientRectRight = 1030 + ClientRectTop = 23 + object cxTabSheet1: TcxTabSheet + Caption = #22522#30784#20449#24687 + ImageIndex = 0 + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1030 + Height = 651 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 26 + Top = 79 + Width = 65 + Height = 12 + Caption = #23458#25143#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 277 + Top = 124 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 26 + Top = 212 + Width = 65 + Height = 12 + Caption = #32852#31995#22320#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 26 + Top = 168 + Width = 65 + Height = 12 + Caption = #30005#35805#21495#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 277 + Top = 168 + Width = 65 + Height = 12 + Caption = #20256#30495#21495#30721#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 277 + Top = 79 + Width = 65 + Height = 12 + Caption = #23458#25143#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 26 + Top = 124 + Width = 65 + Height = 12 + Caption = #23458#25143#31616#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 26 + Top = 257 + Width = 65 + Height = 12 + Caption = #25509#27965#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 26 + Top = 37 + Width = 65 + Height = 12 + Caption = #23458#25143#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 277 + Top = 37 + Width = 65 + Height = 12 + Caption = #23458#25143#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 501 + Top = 79 + Width = 52 + Height = 12 + Caption = #65288#33521#25991#65289 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 26 + Top = 300 + Width = 65 + Height = 12 + Caption = #20844#21496#32593#22336#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 274 + Top = 257 + Width = 65 + Height = 12 + Caption = #23458#25143#26469#28304#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHName: TEdit + Tag = 2 + Left = 91 + Top = 76 + Width = 160 + Height = 18 + TabOrder = 0 + end + object YWY: TEdit + Tag = 2 + Left = 341 + Top = 121 + Width = 160 + Height = 18 + TabOrder = 1 + end + object ZKAddress: TEdit + Tag = 2 + Left = 91 + Top = 209 + Width = 410 + Height = 18 + TabOrder = 2 + end + object ZKTelNo: TEdit + Tag = 2 + Left = 91 + Top = 165 + Width = 160 + Height = 18 + TabOrder = 3 + end + object ZKFax: TEdit + Tag = 2 + Left = 341 + Top = 165 + Width = 160 + Height = 18 + TabOrder = 4 + end + object KHNameEng: TEdit + Tag = 2 + Left = 341 + Top = 76 + Width = 160 + Height = 18 + TabOrder = 5 + end + object KHNameJC: TEdit + Tag = 2 + Left = 91 + Top = 121 + Width = 160 + Height = 18 + TabOrder = 6 + end + object ZKDate: TDateTimePicker + Tag = 2 + Left = 91 + Top = 253 + Width = 160 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 7 + end + object KHCode: TEdit + Tag = 2 + Left = 91 + Top = 34 + Width = 160 + Height = 18 + CharCase = ecUpperCase + TabOrder = 8 + end + object NetAddress: TEdit + Tag = 2 + Left = 91 + Top = 297 + Width = 410 + Height = 18 + TabOrder = 9 + end + object KHType: TBtnEditA + Tag = 2 + Left = 338 + Top = 32 + Width = 161 + Height = 20 + TabOrder = 10 + OnBtnClick = KHTypeBtnClick + end + object KHLaiYuan: TBtnEditA + Tag = 2 + Left = 338 + Top = 253 + Width = 161 + Height = 20 + TabOrder = 11 + OnBtnClick = KHLaiYuanBtnClick + end + end + end + object cxTabSheet2: TcxTabSheet + Caption = 'BOSS'#20449#24687 + ImageIndex = 1 + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1030 + Height = 651 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 302 + Top = 36 + Width = 65 + Height = 12 + Caption = #32852#31995#30005#35805#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 30 + Top = 36 + Width = 52 + Height = 12 + Caption = #32852#31995#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 30 + Top = 81 + Width = 55 + Height = 14 + Caption = 'Email'#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 30 + Top = 215 + Width = 27 + Height = 12 + Caption = 'QQ'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 30 + Top = 170 + Width = 34 + Height = 12 + Caption = 'MSN'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 302 + Top = 170 + Width = 48 + Height = 12 + Caption = 'SKYPE'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 30 + Top = 126 + Width = 65 + Height = 12 + Caption = #24555#20214#22320#22336#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ZKPhone: TEdit + Tag = 2 + Left = 362 + Top = 33 + Width = 160 + Height = 18 + TabOrder = 0 + end + object ZKPerson: TEdit + Tag = 2 + Left = 91 + Top = 33 + Width = 160 + Height = 18 + TabOrder = 1 + end + object ZKEmail: TEdit + Tag = 2 + Left = 91 + Top = 79 + Width = 432 + Height = 18 + TabOrder = 2 + end + object BossQQ: TEdit + Tag = 2 + Left = 91 + Top = 212 + Width = 160 + Height = 18 + TabOrder = 3 + end + object BossMSN: TEdit + Tag = 2 + Left = 91 + Top = 167 + Width = 160 + Height = 18 + TabOrder = 4 + end + object BossSKYPE: TEdit + Tag = 2 + Left = 362 + Top = 167 + Width = 160 + Height = 18 + TabOrder = 5 + end + object BossKJAddress: TEdit + Tag = 2 + Left = 91 + Top = 124 + Width = 432 + Height = 18 + TabOrder = 6 + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = #19994#21153#20449#24687 + ImageIndex = 2 + object cxGrid1: TcxGrid + Tag = 2 + Left = 0 + Top = 29 + Width = 1030 + Height = 622 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomerNo' + end + item + Format = '1' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #32852#31995#20154 + DataBinding.FieldName = 'ZSPerson' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #32844#20301 + DataBinding.FieldName = 'ZSDuty' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #25163#26426 + DataBinding.FieldName = 'ZSPhone' + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #32852#31995#30005#35805 + DataBinding.FieldName = 'ZSTelNo' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = 'FAX' + DataBinding.FieldName = 'ZSFax' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column6: TcxGridDBColumn + Tag = 2 + Caption = 'EAMIL' + DataBinding.FieldName = 'ZSEmail' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = 'QQ' + DataBinding.FieldName = 'ZSQQ' + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = 'MSN' + DataBinding.FieldName = 'ZSMSN' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = 'SKYPE' + DataBinding.FieldName = 'ZSSKYPE' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #24555#20214#22320#22336 + DataBinding.FieldName = 'ZSKJAddress' + HeaderAlignmentHorz = taCenter + Width = 148 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 1030 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton4: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton5Click + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = #36130#21153#20449#24687 + ImageIndex = 3 + object cxGrid2: TcxGrid + Tag = 2 + Left = 0 + Top = 289 + Width = 1030 + Height = 362 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomerNo' + end + item + Format = '1' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn1: TcxGridDBColumn + Tag = 2 + Caption = #25260#22836 + DataBinding.FieldName = 'CWTaiTou' + HeaderAlignmentHorz = taCenter + Width = 142 + end + object cxGridDBColumn2: TcxGridDBColumn + Tag = 2 + Caption = #24320#25143#34892 + DataBinding.FieldName = 'CWBankName' + HeaderAlignmentHorz = taCenter + Width = 137 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #36134#21495 + DataBinding.FieldName = 'CWBankAccount' + HeaderAlignmentHorz = taCenter + Width = 131 + end + object V2Column1: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'CWNote' + Width = 146 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV2 + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1030 + Height = 289 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label14: TLabel + Left = 302 + Top = 32 + Width = 65 + Height = 12 + Caption = #32852#31995#30005#35805#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 30 + Top = 32 + Width = 52 + Height = 12 + Caption = #32852#31995#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 30 + Top = 77 + Width = 55 + Height = 14 + Caption = 'Email'#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 30 + Top = 211 + Width = 27 + Height = 12 + Caption = 'QQ'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 30 + Top = 166 + Width = 34 + Height = 12 + Caption = 'MSN'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 302 + Top = 166 + Width = 48 + Height = 12 + Caption = 'SKYPE'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 30 + Top = 122 + Width = 65 + Height = 12 + Caption = #24555#20214#22320#22336#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CWPhone: TEdit + Tag = 2 + Left = 362 + Top = 29 + Width = 160 + Height = 18 + TabOrder = 0 + end + object CWPerson: TEdit + Tag = 2 + Left = 91 + Top = 29 + Width = 160 + Height = 18 + TabOrder = 1 + end + object CWEmail: TEdit + Tag = 2 + Left = 91 + Top = 75 + Width = 432 + Height = 18 + TabOrder = 2 + end + object CWQQ: TEdit + Tag = 2 + Left = 91 + Top = 208 + Width = 160 + Height = 18 + TabOrder = 3 + end + object CWMSN: TEdit + Tag = 2 + Left = 91 + Top = 163 + Width = 160 + Height = 18 + TabOrder = 4 + end + object CWSKYPE: TEdit + Tag = 2 + Left = 362 + Top = 163 + Width = 160 + Height = 18 + TabOrder = 5 + end + object CWKJAddress: TEdit + Tag = 2 + Left = 91 + Top = 120 + Width = 432 + Height = 18 + TabOrder = 6 + end + object ToolBar3: TToolBar + Left = 2 + Top = 256 + Width = 1026 + Height = 31 + Align = alBottom + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 7 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + OnClick = ToolButton2Click + end + object ToolButton6: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton6Click + end + end + end + end + object cxTabSheet7: TcxTabSheet + Caption = #24773#20917#35828#26126 + ImageIndex = 6 + object ToolBar5: TToolBar + Left = 0 + Top = 0 + Width = 1030 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#21152 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = ToolButton3Click + end + end + object cxGrid4: TcxGrid + Tag = 2 + Left = 0 + Top = 29 + Width = 1030 + Height = 379 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv4CellClick + DataController.DataSource = DataSource4 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'CustomerNo' + end + item + Format = '1' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object cxGridDBColumn13: TcxGridDBColumn + Tag = 2 + Caption = #26085#26399 + DataBinding.FieldName = 'QKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 104 + end + object cxGridDBColumn14: TcxGridDBColumn + Tag = 2 + Caption = #20027#39064 + DataBinding.FieldName = 'QKZhuTi' + HeaderAlignmentHorz = taCenter + Width = 151 + end + object cxGridDBColumn15: TcxGridDBColumn + Tag = 2 + Caption = #35828#26126 + DataBinding.FieldName = 'QKNote' + HeaderAlignmentHorz = taCenter + Width = 493 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv4 + end + end + object RichEdit1: TRichEdit + Left = 0 + Top = 408 + Width = 1030 + Height = 243 + Align = alBottom + ScrollBars = ssBoth + TabOrder = 2 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 536 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 480 + Top = 65533 + end + object ADOQuery1: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 504 + Top = 65533 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 60 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 648 + Top = 60 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 616 + Top = 100 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 656 + Top = 100 + end + object ClientDataSet4: TClientDataSet + Aggregates = <> + Params = <> + Left = 624 + Top = 188 + end + object DataSource4: TDataSource + DataSet = ClientDataSet4 + Left = 664 + Top = 188 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 584 + Top = 60 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 592 + Top = 100 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid4 + PopupMenus = <> + Left = 592 + Top = 188 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.pas b/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.pas new file mode 100644 index 0000000..37b14f2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHInPutTabNew.pas @@ -0,0 +1,575 @@ +unit U_ZHKHInPutTabNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit,jpeg, + IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC, + cxGridCustomPopupMenu, cxGridPopupMenu,IdGlobal; + +type + TfrmZHKHInPutTabNew = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + ADOQuery1: TADOQuery; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Panel5: TPanel; + cxTabSheet7: TcxTabSheet; + v1Column10: TcxGridDBColumn; + Label14: TLabel; + Label15: TLabel; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + CWPhone: TEdit; + CWPerson: TEdit; + CWEmail: TEdit; + CWQQ: TEdit; + CWMSN: TEdit; + CWSKYPE: TEdit; + Label23: TLabel; + CWKJAddress: TEdit; + ToolBar2: TToolBar; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolBar3: TToolBar; + ToolButton2: TToolButton; + ToolButton6: TToolButton; + Panel3: TPanel; + Label1: TLabel; + Label4: TLabel; + Label7: TLabel; + Label10: TLabel; + Label11: TLabel; + Label9: TLabel; + Label13: TLabel; + KHName: TEdit; + YWY: TEdit; + ZKAddress: TEdit; + ZKTelNo: TEdit; + ZKFax: TEdit; + KHNameEng: TEdit; + KHNameJC: TEdit; + Label3: TLabel; + ZKDate: TDateTimePicker; + Panel4: TPanel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + ZKPhone: TEdit; + ZKPerson: TEdit; + ZKEmail: TEdit; + BossQQ: TEdit; + BossMSN: TEdit; + BossSKYPE: TEdit; + Label12: TLabel; + BossKJAddress: TEdit; + Label33: TLabel; + KHCode: TEdit; + Label34: TLabel; + TBSave: TToolButton; + V2Column1: TcxGridDBColumn; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ClientDataSet2: TClientDataSet; + DataSource2: TDataSource; + ToolBar5: TToolBar; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ClientDataSet4: TClientDataSet; + DataSource4: TDataSource; + RichEdit1: TRichEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu4: TcxGridPopupMenu; + Label25: TLabel; + Label32: TLabel; + NetAddress: TEdit; + v1Column4: TcxGridDBColumn; + Label35: TLabel; + KHType: TBtnEditA; + KHLaiYuan: TBtnEditA; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure SYRNameBtnUpClick(Sender: TObject); + procedure SKBankBtnDnClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv4CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure KHTypeBtnClick(Sender: TObject); + procedure KHLaiYuanBtnClick(Sender: TObject); + private + procedure InitData(); + function SaveData():Boolean; + procedure SaveCDS(ClientDataSet20:TClientDataSet;Tv20:TcxGridDBTableView;maxno10:string;ZSType:String); + + { Private declarations } + public + PState,CopyInt:Integer; + FMainId,FFMainId,FTFID:String; + FXS,TPInt,SaveInt,TPIntOther,FWH:Integer; + { Public declarations } + end; + +var + frmZHKHInPutTabNew: TfrmZHKHInPutTabNew; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmZHKHInPutTabNew.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('KH1',Tv1,'ͻϢ'); + WriteCxGrid('KH2',Tv2,'ͻϢ'); + WriteCxGrid('KH4',Tv4,'ͻϢ'); + Close; +end; + +procedure TfrmZHKHInPutTabNew.InitData(); +var + fsj:string; +begin + cxPageControl1.ActivePageIndex:=0; + ReadCxGrid('KH1',Tv1,'ͻϢ'); + ReadCxGrid('KH2',Tv2,'ͻϢ'); + ReadCxGrid('KH4',Tv4,'ͻϢ'); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where ZKId='''+Trim(FMainId)+''''); + Open; + end; + SCSHDataNew(ADOQuery1,Panel3,2); + SCSHDataNew(ADOQuery1,Panel4,2); + SCSHDataNew(ADOQuery1,Panel5,2); + KHType.Text:=Trim(ADOQuery1.fieldbyname('KHType').AsString); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info_Sub where ZKId='''+Trim(FMainId)+''''); + sql.Add(' and ZSType=''YW'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet1); + SInitCDSData20(ADOQuery1,ClientDataSet1); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info_Sub where ZKId='''+Trim(FMainId)+''''); + sql.Add(' and ZSType=''CW'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet2); + SInitCDSData20(ADOQuery1,ClientDataSet2); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info_Sub where ZKId='''+Trim(FMainId)+''''); + sql.Add(' and ZSType=''QK'' '); + Open; + end; + SCreateCDS20(ADOQuery1,ClientDataSet4); + SInitCDSData20(ADOQuery1,ClientDataSet4); + if PState=0 then + begin + ZKDate.DateTime:=SGetServerDateTime(ADOTemp); + YWY.Text:=Trim(DName); + end else + begin + end; + if CopyInt=99 then + begin + PState:=0; + FMainId:=''; + end; + +end; + + + +procedure TfrmZHKHInPutTabNew.FormShow(Sender: TObject); +begin + InitData(); +end; + +function TfrmZHKHInPutTabNew.SaveData():Boolean; +var + maxno,maxsubno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'ZK','ZH_KH_Info',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from ZH_KH_Info where ZKId='''+Trim(FMainId)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('ZKId').Value:=Trim(maxno); + SSetsaveSqlNew(ADOCmd,'ZH_KH_Info',Panel3,2); + SSetsaveSqlNew(ADOCmd,'ZH_KH_Info',Panel4,2); + SSetsaveSqlNew(ADOCmd,'ZH_KH_Info',Panel5,2); + FieldByName('Type').Value:='KH'; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('Valid').Value:='Y'; + + Post; + end; + if Trim(KHName.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHName='''+Trim(KHName.Text)+''''); + SQL.Add(' and Type=''KH'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͻظ!','ʾ',0); + Exit; + end; + end; + + if Trim(KHCode.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHCode='''+Trim(KHCode.Text)+''''); + SQL.Add(' and Type=''KH'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͻظ!','ʾ',0); + Exit; + end; + end; + + if Trim(KHNameJC.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHNameJC='''+Trim(KHNameJC.Text)+''''); + SQL.Add(' and Type=''KH'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ͻظ!','ʾ',0); + Exit; + end; + end; + if Trim(KHNameEng.Text)<>'' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from ZH_KH_Info where KHNameEng='''+Trim(KHNameEng.Text)+''''); + SQL.Add(' and Type=''KH'' '); + Open; + end; + if ADOTemp.RecordCount>1 then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + end; + SaveCDS(ClientDataSet1,Tv1,maxno,'YW'); + SaveCDS(ClientDataSet2,TV2,maxno,'CW'); + SaveCDS(ClientDataSet4,Tv4,maxno,'QK'); + + ADOCmd.Connection.CommitTrans; + FMainId:=Trim(maxno); + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmZHKHInPutTabNew.SaveCDS(ClientDataSet20:TClientDataSet;Tv20:TcxGridDBTableView;maxno10:string;ZSType:String); +var + maxsubno:string; +begin + with ClientDataSet20 do + begin + First; + while not Eof do + begin + if Trim(ClientDataSet20.fieldbyname('ZSID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxsubno,'ZS','ZH_KH_Info_Sub',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxsubno:=Trim(ClientDataSet20.fieldbyname('ZSID').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from ZH_KH_Info_Sub where ZSID='''+Trim(maxsubno)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(ClientDataSet20.fieldbyname('ZSID').AsString)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + FieldByName('ZKID').Value:=Trim(maxno10); + FieldByName('ZSID').Value:=Trim(maxsubno); + FieldByName('ZSType').Value:=Trim(ZSType); + RTSetSaveDataCDS(ADOCmd,Tv20,ClientDataSet20,'ZH_KH_Info_Sub',2); + Post; + end; + Edit; + FieldByName('ZSID').Value:=Trim(maxsubno); + post; + Next; + end; + end; +end; +procedure TfrmZHKHInPutTabNew.SYRNameBtnUpClick(Sender: TObject); +var + fsj:string; + FWZ:Integer; +begin + fsj:=Trim(TEdit(Sender).Hint); + FWZ:=Pos('/',fsj); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=Copy(fsj,1,FWZ-1); + flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz); + if ShowModal=1 then + begin + TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmZHKHInPutTabNew.SKBankBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + + + +procedure TfrmZHKHInPutTabNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + if SaveInt=99 then + begin + ModalResult:=1; + end; +end; + +procedure TfrmZHKHInPutTabNew.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + if Trim(KHName.Text)+Trim(KHNameEng.Text)='' then + begin + Application.MessageBox('ͻƲΪգ','ʾ',0); + Exit; + end; + if Trim(KHType.Text)='' then + begin + Application.MessageBox('ͻͲΪ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + SaveInt:=99; + end; +end; + +procedure TfrmZHKHInPutTabNew.ToolButton4Click(Sender: TObject); +begin + ClientDataSet1.Append; + ClientDataSet1.Post; +end; + +procedure TfrmZHKHInPutTabNew.ToolButton5Click(Sender: TObject); +begin + DelCDS(ClientDataSet1,ADOCmd,'delete ZH_KH_Info_Sub where ZSID='''+Trim(ClientDataSet1.fieldbyname('ZSID').AsString)+''''); +end; + +procedure TfrmZHKHInPutTabNew.ToolButton2Click(Sender: TObject); +begin + ClientDataSet2.Append; + ClientDataSet2.Post; +end; + +procedure TfrmZHKHInPutTabNew.ToolButton6Click(Sender: TObject); +begin + DelCDS(ClientDataSet2,ADOCmd,'delete ZH_KH_Info_Sub where ZSID='''+Trim(ClientDataSet2.fieldbyname('ZSID').AsString)+''''); +end; + +procedure TfrmZHKHInPutTabNew.ToolButton1Click(Sender: TObject); +begin + ClientDataSet4.Append; + ClientDataSet4.Post; +end; + +procedure TfrmZHKHInPutTabNew.ToolButton3Click(Sender: TObject); +begin + DelCDS(ClientDataSet4,ADOCmd,'delete ZH_KH_Info_Sub where ZSID='''+Trim(ClientDataSet4.fieldbyname('ZSID').AsString)+''''); +end; + +procedure TfrmZHKHInPutTabNew.Tv4CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + RichEdit1.Text:=Trim(ClientDataSet4.fieldbyname('QKNote').AsString); +end; + +procedure TfrmZHKHInPutTabNew.KHTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ZHKHType'; + flagname:='ͻ'; + if ShowModal=1 then + begin + KHType.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmZHKHInPutTabNew.KHLaiYuanBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='ZHKHLaiYuan'; + flagname:='ͻԴ'; + if ShowModal=1 then + begin + KHLaiYuan.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.dfm new file mode 100644 index 0000000..ba69859 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.dfm @@ -0,0 +1,540 @@ +object frmZHKHListNew: TfrmZHKHListNew + Left = 86 + Top = 89 + Width = 1182 + Height = 606 + Caption = #23637#20250#23458#25143#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1166 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 10 + Visible = False + OnClick = ToolButton3Click + end + object TBAdd: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 38 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + Visible = False + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 567 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + end + object TBClose: TToolButton + Left = 630 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1166 + Height = 468 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.Header = DataLink_DDMD.Default + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ZKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'YWY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + object v1Column10: TcxGridDBColumn + Caption = #23458#25143#26469#28304 + DataBinding.FieldName = 'KHLaiYuan' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1Column1: TcxGridDBColumn + Caption = #23458#25143#31867#22411 + DataBinding.FieldName = 'KHType' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Width = 117 + end + object v1Column6: TcxGridDBColumn + Caption = #23458#25143#31616#31216 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v1Column7: TcxGridDBColumn + Caption = 'Email' + DataBinding.FieldName = 'HZEmail' + Width = 150 + end + object v1Column3: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column8: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column9: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1166 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #26597#35810#26102#38388 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 179 + Top = 15 + Width = 52 + Height = 12 + Caption = #23458#25143#31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 179 + Top = 39 + Width = 52 + Height = 12 + Caption = #23458#25143#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 384 + Top = 39 + Width = 65 + Height = 12 + Caption = #23458#25143#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 384 + Top = 15 + Width = 35 + Height = 12 + Caption = 'Email' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 632 + Top = 39 + Width = 65 + Height = 12 + Caption = #23458#25143#26469#28304#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object KHNameJC: TEdit + Tag = 2 + Left = 236 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object CheckBox1: TCheckBox + Left = 635 + Top = 12 + Width = 105 + Height = 17 + Caption = #25353#26085#26399#26597#35810 + TabOrder = 3 + end + object KHCode: TEdit + Tag = 2 + Left = 236 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + end + object KHType: TComboBox + Tag = 2 + Left = 448 + Top = 35 + Width = 161 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object HZEmail: TEdit + Tag = 2 + Left = 448 + Top = 11 + Width = 160 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object KHLaiYuan: TComboBox + Tag = 2 + Left = 693 + Top = 35 + Width = 123 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 544 + Top = 176 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 688 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 552 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 440 + Top = 296 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 352 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 160 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 320 + Top = 160 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 384 + Top = 160 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 576 + Top = 248 + end + object PopupMenu1: TPopupMenu + Left = 448 + Top = 160 + object N2: TMenuItem + Caption = #26377#20379#24212#21830 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 440 + Top = 328 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 296 + end + object PopupMenu2: TPopupMenu + Left = 648 + Top = 168 + object N11: TMenuItem + Caption = #26684#24335'1' + end + object N21: TMenuItem + Caption = #26684#24335'2' + end + object N31: TMenuItem + Caption = #26684#24335'3' + end + end + object CDS_Chk: TClientDataSet + Aggregates = <> + Params = <> + Left = 248 + Top = 504 + end + object DS_Chk: TDataSource + DataSet = CDS_Chk + Left = 176 + Top = 528 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 304 + Top = 488 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 568 + Top = 528 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 744 + Top = 504 + end + object DS_Sub: TDataSource + DataSet = CDS_Sub + Left = 672 + Top = 528 + end + object CDS_Chker: TClientDataSet + Aggregates = <> + Params = <> + Left = 832 + Top = 248 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.pas b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.pas new file mode 100644 index 0000000..1a0db03 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNew.pas @@ -0,0 +1,442 @@ +unit U_ZHKHListNew; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxButtonEdit, cxDropDownEdit; + +type + TfrmZHKHListNew = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + PopupMenu2: TPopupMenu; + N11: TMenuItem; + N21: TMenuItem; + N31: TMenuItem; + Panel1: TPanel; + Label1: TLabel; + Label9: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + KHNameJC: TEdit; + v1Column5: TcxGridDBColumn; + CDS_Chk: TClientDataSet; + DS_Chk: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + cxGridPopupMenu3: TcxGridPopupMenu; + CDS_Sub: TClientDataSet; + DS_Sub: TDataSource; + v1Column2: TcxGridDBColumn; + CDS_Chker: TClientDataSet; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + CheckBox1: TCheckBox; + Label2: TLabel; + KHCode: TEdit; + v1Column1: TcxGridDBColumn; + Label34: TLabel; + KHType: TComboBox; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + HZEmail: TEdit; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Label4: TLabel; + KHLaiYuan: TComboBox; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + Canshu1:String; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmZHKHListNew: TfrmZHKHListNew; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp, U_ZHKHInPutTabNew, U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmZHKHListNew.FormDestroy(Sender: TObject); +begin + frmZHKHListNew:=nil; +end; + +procedure TfrmZHKHListNew.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZHKHListNew.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + DQdate:=SGetServerDate(ADOQueryTemp); + Canshu1:=Trim(DParameters1); +end; + +procedure TfrmZHKHListNew.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('չͻǼN',Tv1,'ͻ'); + +end; + +procedure TfrmZHKHListNew.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,HZEmail=dbo.F_Get_KHInfo(A.ZKID,''Email'') '); + sql.Add(' from ZH_KH_Info A '); + if CheckBox1.Checked then + begin + SQL.Add('where ZKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and ZKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + begin + SQL.Add(' where 1=1 '); + end; + sql.Add(' and Type=''KH'' '); + if Trim(Canshu1)<>'Ȩ' then + begin + if Trim(Canshu1)='' then + begin + sql.Add('and Filler in(select UserName from SY_User where DPID in'); + sql.Add('(select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + end else + begin + sql.Add('and (A.Filler='''+Trim(DName)+''''); + sql.Add(' or YWY='''+Trim(DName)+''')'); + end; + sql.Add(' and Valid=''Y'' '); + end; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZHKHListNew.InitForm(); +var + fsj:string; +begin + ReadCxGrid('չͻǼN',Tv1,'ͻ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + fsj:='select distinct(KHLaiYuan) Name,Cast('''' as varchar(20)) Code from ZH_KH_Info where isnull(KHLaiYuan,'''')<>'''' and Type=''KH'' ' ; + SInitComBoxBySql(ADOQueryTemp,KHLaiYuan,False,fsj); + fsj:='select distinct(KHType) Name,Cast('''' as varchar(20)) Code from ZH_KH_Info where isnull(KHType,'''')<>'''' and Type=''KH'' ' ; + SInitComBoxBySql(ADOQueryTemp,KHType,False,fsj); + InitGrid(); +end; + +procedure TfrmZHKHListNew.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmZHKHListNew.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Canshu1)='' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + if Trim(Order_Main.fieldbyname('YWY').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + end; + + try + frmZHKHInPutTabNew:=TfrmZHKHInPutTabNew.Create(Application); + with frmZHKHInPutTabNew do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('ZKId').AsString); + FTFID:=Trim(Self.Order_Main.fieldbyname('TPID').AsString); + TPInt:=99; + TPIntOther:=99; + if ShowModal=1 then + begin + Self.Order_Main.Locate('ZKID',Trim(FMainId),[]); + with Self.Order_Main do + begin + Edit; + FieldByName('ZKID').Value:=Trim(FMainId); + FieldByName('ZKDate').Value:=ZKDate.Date; + FieldByName('YWY').Value:=Trim(YWY.Text); + FieldByName('KHCode').Value:=Trim(KHCode.Text); + FieldByName('KHNameJC').Value:=Trim(KHNameJC.Text); + FieldByName('KHType').Value:=Trim(KHType.Text); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + end; + end; + finally + frmZHKHInPutTabNew.Free; + end; +end; + +procedure TfrmZHKHListNew.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(Canshu1)='' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + begin + if Trim(Order_Main.fieldbyname('YWY').AsString)<>Trim(DName) then + begin + Application.MessageBox('ܲ˵!','ʾ',0); + Exit; + end; + end; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmZHKHListNew.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmZHKHListNew.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͻ',cxGrid1); +end; + +procedure TfrmZHKHListNew.TBRafreshClick(Sender: TObject); +var + fsj:String; +begin + InitGrid(); + fsj:='select distinct(KHLaiYuan) Name,Cast('''' as varchar(20)) Code from ZH_KH_Info where isnull(KHLaiYuan,'''')<>'''' and Type=''KH'' ' ; + SInitComBoxBySql(ADOQueryTemp,KHLaiYuan,False,fsj); + fsj:='select distinct(KHType) Name,Cast('''' as varchar(20)) Code from ZH_KH_Info where isnull(KHType,'''')<>'''' and Type=''KH'' ' ; + SInitComBoxBySql(ADOQueryTemp,KHType,False,fsj); +end; + +procedure TfrmZHKHListNew.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmZHKHInPutTabNew:=TfrmZHKHInPutTabNew.Create(Application); + with frmZHKHInPutTabNew do + begin + PState:=0; + FMainId:=''; + FTFID:=''; + TPInt:=99; + TPIntOther:=99; + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Append; + FieldByName('ZKID').Value:=Trim(FMainId); + FieldByName('ZKDate').Value:=ZKDate.Date; + FieldByName('YWY').Value:=Trim(YWY.Text); + FieldByName('KHCode').Value:=Trim(KHCode.Text); + FieldByName('KHNameJC').Value:=Trim(KHNameJC.Text); + FieldByName('KHType').Value:=Trim(KHType.Text); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + end; + end; + finally + frmZHKHInPutTabNew.Free; + end; +end; + +procedure TfrmZHKHListNew.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmZHKHListNew.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZHKHListNew.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmZHKHListNew.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmZHKHInPutTabNew:=TfrmZHKHInPutTabNew.Create(Application); + with frmZHKHInPutTabNew do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('ZKId').AsString); + TBSave.Visible:=False; + ToolBar2.Visible:=False; + ToolBar3.Visible:=False; + ToolBar5.Visible:=False; + if ShowModal=1 then + begin + + end; + end; + finally + frmZHKHInPutTabNew.Free; + end; +end; + +procedure TfrmZHKHListNew.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmZHKHInPutTabNew:=TfrmZHKHInPutTabNew.Create(Application); + with frmZHKHInPutTabNew do + begin + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('ZKId').AsString); + FTFID:=''; + TPInt:=99; + TPIntOther:=99; + if ShowModal=1 then + begin + with Self.Order_Main do + begin + Append; + FieldByName('ZKID').Value:=Trim(FMainId); + FieldByName('ZKDate').Value:=ZKDate.Date; + FieldByName('YWY').Value:=Trim(YWY.Text); + FieldByName('KHCode').Value:=Trim(KHCode.Text); + FieldByName('KHNameJC').Value:=Trim(KHNameJC.Text); + FieldByName('KHType').Value:=Trim(KHType.Text); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + end; + end; + finally + frmZHKHInPutTabNew.Free; + end; +end; + +procedure TfrmZHKHListNew.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmZHKHListNew.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmZHKHListNew.Tv1DblClick(Sender: TObject); +begin + ToolButton1.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.dfm new file mode 100644 index 0000000..b67984c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.dfm @@ -0,0 +1,308 @@ +object frmZHKHListNewCX: TfrmZHKHListNewCX + Left = 74 + Top = 105 + Width = 1182 + Height = 574 + Caption = #23458#25143#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1166 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DDMD.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 10 + Visible = False + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 99 + Width = 1166 + Height = 436 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_DDMD.SHuangSe + Styles.IncSearch = DataLink_DDMD.SHuangSe + Styles.Selection = DataLink_DDMD.SHuangSe + Styles.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_DDMD.Default + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ZKDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v1Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'YWY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object v1Column1: TcxGridDBColumn + Caption = #23458#25143#31867#22411 + DataBinding.FieldName = 'KHType' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Width = 117 + end + object v1Column6: TcxGridDBColumn + Caption = #23458#25143#31616#31216 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Width = 139 + end + object v1Column7: TcxGridDBColumn + Caption = 'Email' + DataBinding.FieldName = 'HZEmail' + Width = 156 + end + object v1Column3: TcxGridDBColumn + Caption = #26159#21542#26377#25928 + DataBinding.FieldName = 'Valid' + HeaderAlignmentHorz = taCenter + Width = 76 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1166 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #26597#35810#26102#38388 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 179 + Top = 15 + Width = 52 + Height = 12 + Caption = #23458#25143#31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 179 + Top = 39 + Width = 52 + Height = 12 + Caption = #23458#25143#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 376 + Top = 15 + Width = 35 + Height = 12 + Caption = 'Email' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 76 + Top = 35 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object KHNameJC: TEdit + Tag = 2 + Left = 236 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + OnKeyPress = KHNameJCKeyPress + end + object CheckBox1: TCheckBox + Left = 419 + Top = 38 + Width = 105 + Height = 17 + Caption = #25353#26085#26399#26597#35810 + TabOrder = 3 + end + object KHCode: TEdit + Tag = 2 + Left = 236 + Top = 35 + Width = 125 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + OnKeyPress = KHNameJCKeyPress + end + object HZEmail: TEdit + Tag = 2 + Left = 416 + Top = 11 + Width = 160 + Height = 20 + TabOrder = 5 + OnChange = CustomerNoNameChange + OnKeyPress = KHNameJCKeyPress + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 480 + Top = 168 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DDMD.ADOLink + Parameters = <> + Left = 552 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 504 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DDMD.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 448 + Top = 160 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 352 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 160 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.pas b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.pas new file mode 100644 index 0000000..64fe787 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZHKHListNewCX.pas @@ -0,0 +1,359 @@ +unit U_ZHKHListNewCX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, + Menus, cxButtonEdit, cxDropDownEdit; + +type + TfrmZHKHListNewCX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ToolButton3: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label9: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + KHNameJC: TEdit; + v1Column5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + CheckBox1: TCheckBox; + Label2: TLabel; + KHCode: TEdit; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Label3: TLabel; + HZEmail: TEdit; + v1Column7: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton3Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure KHNameJCKeyPress(Sender: TObject; var Key: Char); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv1DblClick(Sender: TObject); + private + CanShu1:String; + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmZHKHListNewCX: TfrmZHKHListNewCX; + +implementation +uses + U_DataLink,U_RTFun; + +{$R *.dfm} + +procedure TfrmZHKHListNewCX.FormDestroy(Sender: TObject); +begin + frmZHKHListNewCX:=nil; +end; + +procedure TfrmZHKHListNewCX.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZHKHListNewCX.FormCreate(Sender: TObject); +begin + CanShu1:=Trim(DParameters1); + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmZHKHListNewCX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('չͻǼN',Tv1,'ͻ'); + +end; + +procedure TfrmZHKHListNewCX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,HZEmail=dbo.F_Get_KHInfo(A.ZKID,''Email'') '); + sql.Add(' from ZH_KH_Info A '); + + if CheckBox1.Checked then + begin + SQL.Add('where ZKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and ZKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + end else + begin + SQL.Add(' where 1=1 '); + end; + if Trim(CanShu1)<>'Ȩ' then + begin + //sql.Add(' and A.Filler in (select UserName from SY_User SU where SU.DPID in(select DPID from SY_User where UserName='''+Trim(DName)+'''))'); + sql.Add(' and (A.Filler='''+Trim(DName)+''' or A.YWY='''+Trim(DName)+''')'); + end; + sql.Add(' and Type=''KH'' '); + sql.Add(' and Valid=''Y'' '); + {if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and (A.Filler='''+Trim(DName)+''''); + sql.Add(' or YWY='''+Trim(DName)+''')'); + + end;} + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZHKHListNewCX.InitForm(); +begin + ReadCxGrid('չͻǼN',Tv1,'ͻ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + if Trim(CanShu1)<>'Ȩ' then + begin + v1Column7.Visible:=False; + v1Column7.Hidden:=True; + end; + InitGrid(); +end; + +procedure TfrmZHKHListNewCX.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmZHKHListNewCX.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmZHKHListNewCX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZHKHListNewCX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmZHKHListNewCX.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZHKHListNewCX.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmZHKHListNewCX.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmZHKHListNewCX.v1DeliveryDateCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmZHKHListNewCX.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmZHKHListNewCX.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmZHKHListNewCX.KHNameJCKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + {if Length(conno.Text)<3 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add('select A.* '); + sql.Add(' from JYOrderCon_TT A where 1=1 '); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + sql.Add(' and TTType='''+Trim(DParameters2)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; } + end; +end; + +procedure TfrmZHKHListNewCX.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {if Order_Main.FieldByName('ConFlag1').AsBoolean=False then + begin + if CDS_Chk.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete OrdCon_Chk where CKID='''+Trim(CDS_Chk.fieldbyname('CKID').AsString)+''''); + ExecSQL; + end; + CDS_Chk.Delete; + end; } +end; + +procedure TfrmZHKHListNewCX.Tv1DblClick(Sender: TObject); +begin + ToolButton3.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.dfm new file mode 100644 index 0000000..7b1352c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.dfm @@ -0,0 +1,287 @@ +object frmZXBInPut: TfrmZXBInPut + Left = 26 + Top = 130 + Width = 1356 + Height = 573 + Align = alClient + Caption = #26816#39564#23433#25490#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1340 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 29 + Width = 1340 + Height = 505 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_CYZZ.SHuangSeCu + Styles.IncSearch = DataLink_CYZZ.SHuangSeCu + Styles.Selection = DataLink_CYZZ.SHuangSeCu + Styles.Header = DataLink_CYZZ.Default + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MDID' + PropertiesClassName = 'TcxTextEditProperties' + Properties.CharCase = ecUpperCase + Properties.OnEditValueChanged = v1Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v1Column5: TcxGridDBColumn + Tag = 99 + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 114 + end + object v1Column10: TcxGridDBColumn + Tag = 99 + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column2: TcxGridDBColumn + Caption = #26700#21495 + DataBinding.FieldName = 'ZhuoNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 108 + end + object v1Column3: TcxGridDBColumn + Caption = #26700#26816#26085#26399 + DataBinding.FieldName = 'ZhuoDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1Column8: TcxGridDBColumn + Caption = #26700#26816#21305#25968 + DataBinding.FieldName = 'ZhuoPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column4: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'JiTaiNO' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #26426#26816#26085#26399 + DataBinding.FieldName = 'JiTaiDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #26426#26816#21305#25968 + DataBinding.FieldName = 'JiTaiPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column1: TcxGridDBColumn + Caption = #25171#21253#26085#26399 + DataBinding.FieldName = 'DBDate' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v1Column9: TcxGridDBColumn + Caption = #25171#21253#21305#25968 + DataBinding.FieldName = 'DBPS' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1ShipDate: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_CYZZ.Default + Width = 138 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 600 + Top = 5 + end + object ADOCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 397 + Top = 3 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 375 + Top = 440 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 398 + Top = 332 + end + object DataSource2: TDataSource + DataSet = ADOZDY + Left = 501 + Top = 5 + end + object ADOZDY: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 346 + Top = 3 + end + object CDS_ZDY: TClientDataSet + Aggregates = <> + Params = <> + Left = 325 + Top = 4 + end + object ADOQuery1: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 453 + Top = 5 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 506 + Top = 446 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 298 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.pas new file mode 100644 index 0000000..a32a59a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZXBInPut.pas @@ -0,0 +1,269 @@ +unit U_ZXBInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, + cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxCalendar, cxGridCustomPopupMenu, + cxGridPopupMenu; + +type + TfrmZXBInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + ADOQuery1: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ClientDataSet1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column5: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + procedure GetMaxConNO(); + { Private declarations } + public + PState,PCopyInt:Integer; + FMainId,FConNo,FConType,FYLType:String; + + { Public declarations } + end; + +var + frmZXBInPut: TfrmZXBInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel; + +{$R *.dfm} + +procedure TfrmZXBInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('鰲¼',Tv1,''); +end; + +procedure TfrmZXBInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.*,B.PS,C.OrderNo'); + SQL.Add(' from JYOrder_Main_MD_CJ A '); + sql.Add(' inner join JYOrder_Main_MD B on A.MDID=B.MDID'); + sql.Add(' inner join JYOrder_Main C on B.ORDMainId=C.MainId'); + sql.Add(' where A.CJId='''+Trim(FMainId)+''''); + Open; + end; + SCreateCDS20(ADOQuery1,Order_Sub); + SInitCDSData20(ADOQuery1,Order_Sub); + + +end; + +procedure TfrmZXBInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string); +begin +end; + +procedure TfrmZXBInPut.FormShow(Sender: TObject); +begin + ReadCxGrid('鰲¼',Tv1,''); + InitData(); +end; +procedure TfrmZXBInPut.GetMaxConNO(); +begin + +end; +function TfrmZXBInPut.SaveData():Boolean; +var + maxno:String; +begin + try + Result:=False; + ADOCmd.Connection.BeginTrans; + // + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('CJID').AsString)='' then + begin + if GetLSNo(ADOCmd,maxno,'CJ','JYOrder_Main_MD_CJ',4,1)=False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Sub.fieldbyname('CJID').AsString); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Main_MD_CJ where CJID='''+Trim(Order_Sub.fieldbyname('CJID').AsString)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('CJID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('CJID').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Main_MD_CJ',0) ; + if Trim(FMainId)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + end; + Post; + end; + Edit; + FieldByName('CJID').Value:=Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmZXBInPut.TBSaveClick(Sender: TObject); +var + FPPrice,PRTPrice,BCMoney,FPQty,ChaMoney:string; +begin + ToolBar1.SetFocus; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ','ʾ',0); + exit; + end; + if Order_Sub.Locate('MDID',null,[]) then + begin + Application.MessageBox('벻Ϊ!','ʾ',0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + end; + +end; + +procedure TfrmZXBInPut.ToolButton3Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + Post; + end; +end; + +procedure TfrmZXBInPut.ToolButton4Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('CJId').AsString)<>'' then + begin + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_CJ where CJId='''+Trim(Order_Sub.fieldbyname('CJId').AsString)+''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmZXBInPut.v1Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + with Order_Sub do + begin + Edit; + FieldByName('MDID').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add('select B.OrderNo,A.PS,A.MDDate from JYOrder_Main_MD A'); + sql.Add(' inner join JYorder_Main B on A.ORDMainId=B.MainId'); + sql.Add(' and A.MDID='''+Trim(mvalue)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('¼!','ʾ',0); + Exit; + end; + with Order_Sub do + begin + Edit; + FieldByName('OrderNo').Value:=ADOTemp.fieldbyname('OrderNo').Value; + FieldByName('PS').Value:=ADOTemp.fieldbyname('PS').Value; + Post; + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZXBList.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZXBList.dfm new file mode 100644 index 0000000..b9374d3 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZXBList.dfm @@ -0,0 +1,680 @@ +object frmZXBList: TfrmZXBList + Left = 6 + Top = 112 + Width = 1382 + Height = 547 + Caption = #26816#39564#23433#25490 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_CYZZ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 6 + OnClick = TBExportClick + end + object ToolButton3: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25805#20316#35828#26126 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 47 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label2: TLabel + Left = 260 + Top = 18 + Width = 18 + Height = 12 + Caption = '---' + end + object Label6: TLabel + Left = 383 + Top = 18 + Width = 26 + Height = 12 + Caption = #26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 561 + Top = 18 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 30 + Top = 18 + Width = 13 + Height = 12 + Caption = #25353 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 147 + Top = 18 + Width = 26 + Height = 12 + Caption = #26597#35810 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 748 + Top = 18 + Width = 26 + Height = 12 + Caption = #26700#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 831 + Top = 18 + Width = 39 + Height = 12 + Caption = #26426#21488#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 925 + Top = 18 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 1047 + Top = 18 + Width = 26 + Height = 12 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 175 + Top = 14 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 278 + Top = 14 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object MDID: TEdit + Tag = 2 + Left = 411 + Top = 14 + Width = 139 + Height = 20 + TabOrder = 2 + OnChange = WorkerChange + OnKeyPress = MDIDKeyPress + end + object OrderNo: TEdit + Tag = 2 + Left = 601 + Top = 14 + Width = 136 + Height = 20 + TabOrder = 3 + OnChange = WorkerChange + OnKeyPress = OrderNoKeyPress + end + object ComboBox2: TComboBox + Left = 45 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + end + object ZhuoNo: TEdit + Tag = 2 + Left = 775 + Top = 14 + Width = 45 + Height = 20 + TabOrder = 5 + OnChange = WorkerChange + end + object JiTaiNo: TEdit + Tag = 2 + Left = 871 + Top = 14 + Width = 41 + Height = 20 + TabOrder = 6 + OnChange = WorkerChange + end + object PRTColor: TEdit + Tag = 2 + Left = 952 + Top = 14 + Width = 71 + Height = 20 + TabOrder = 7 + OnChange = WorkerChange + end + object PRTHX: TEdit + Tag = 2 + Left = 1075 + Top = 14 + Width = 72 + Height = 20 + TabOrder = 8 + OnChange = WorkerChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 79 + Width = 1366 + Height = 429 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column2 + end + item + Kind = skSum + Position = spFooter + Column = v1Column22 + end + item + Kind = skSum + Position = spFooter + Column = v1Column11 + end + item + Kind = skSum + Position = spFooter + Column = v1ShipDate + end + item + Kind = skSum + Position = spFooter + Column = v1Column14 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1ShipDate + end + item + Kind = skSum + Column = v1Column14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Inactive = DataLink_CYZZ.SkyBlue + Styles.IncSearch = DataLink_CYZZ.SkyBlue + Styles.Selection = DataLink_CYZZ.SkyBlue + Styles.Header = DataLink_CYZZ.Default + object v1Column15: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 39 + end + object v1Column6: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 106 + end + object v1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column5: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MDID' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 108 + end + object v1Column10: TcxGridDBColumn + Tag = 999 + Caption = #30721#21333#26085#26399 + DataBinding.FieldName = 'MDDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + HeaderAlignmentVert = vaCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 110 + end + object v1Column3: TcxGridDBColumn + Caption = #26700#21495 + DataBinding.FieldName = 'ZhuoNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column21: TcxGridDBColumn + Tag = 999 + Caption = #26700#26816#26085#26399 + DataBinding.FieldName = 'ZhuoDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column22: TcxGridDBColumn + Caption = #26700#26816#21305#25968 + DataBinding.FieldName = 'ZhuoPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column8: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'JiTaiNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object v1Column4: TcxGridDBColumn + Tag = 999 + Caption = #26426#26816#26085#26399 + DataBinding.FieldName = 'JiTaiDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column11: TcxGridDBColumn + Caption = #26426#26816#21367#25968 + DataBinding.FieldName = 'JiTaiPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Tag = 999 + Caption = #25171#21253#26085#26399 + DataBinding.FieldName = 'DBDate' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1ShipDate: TcxGridDBColumn + Caption = #25171#21253#21305#25968 + DataBinding.FieldName = 'DBPS' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_CYZZ.Default + Width = 70 + end + object v1Column13: TcxGridDBColumn + Tag = 999 + Caption = #31995#32479#25171#21253#26085#26399 + DataBinding.FieldName = 'XTDBDate' + Options.Editing = False + Width = 85 + end + object v1Column14: TcxGridDBColumn + Caption = #31995#32479#25171#21253#21305#25968 + DataBinding.FieldName = 'XTDBPS' + Width = 85 + end + object v1Column12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column17: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column16: TcxGridDBColumn + Tag = 999 + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'FillTIme' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.Alignment.Vert = taVCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_CYZZ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 815 + Top = 7 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 454 + Top = 193 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 392 + Top = 192 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 423 + Top = 192 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 877 + Top = 9 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 485 + Top = 195 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_CYZZ.ADOLink + Parameters = <> + Left = 672 + Top = 184 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZXBList.pas b/坯布码单待检(PBMDDJ.dll)/U_ZXBList.pas new file mode 100644 index 0000000..af99a64 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZXBList.pas @@ -0,0 +1,556 @@ +unit U_ZXBList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox; + + +type + TfrmZXBList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + ToolButton3: TToolButton; + cxGridPopupMenu2: TcxGridPopupMenu; + Panel1: TPanel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + MDID: TEdit; + Label6: TLabel; + Label8: TLabel; + OrderNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1ShipDate: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + ComboBox2: TComboBox; + Label3: TLabel; + Label1: TLabel; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + Label4: TLabel; + ZhuoNo: TEdit; + Label5: TLabel; + JiTaiNo: TEdit; + v1Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + Label9: TLabel; + PRTHX: TEdit; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column15: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure WorkerChange(Sender: TObject); + procedure MDIDKeyPress(Sender: TObject; var Key: Char); + procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + + private + FInt,PFInt:Integer; + canshu1,canshu2:string; + FNowDate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridWsql(fsj:string); + function SaveData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmZXBList: TfrmZXBList; + +implementation +uses + U_DataLink,U_RTFun,U_ZXBInPut,U_ModuleNote, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmZXBList.FormDestroy(Sender: TObject); +begin + frmZXBList:=nil; +end; + +procedure TfrmZXBList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZXBList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('鰲',Tv1,''); +end; + +procedure TfrmZXBList.InitGrid(); +var + fsj:String; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,B.PS,B.Qty,B.MDDate,D.PRTHX '); + sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')'); + sql.Add(',XTDBDate=(select Top 1 Convert(varchar(10), WM.FillTime,120) from WFB_MJJY WM where WM.APID=A.MDID)'); + sql.Add(',XTDBPS=(select count(MJID) from WFB_MJJY WM where WM.APID=A.MDID)'); + SQL.Add(' from JYOrder_Main_MD_CJ A'); + sql.Add(' inner join JYOrder_Main_MD B on A.MDID=B.MDID'); + sql.Add(' inner join JYOrder_Main C on B.ORDMainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on B.ORDSubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S; + sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); + sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + +end; + +procedure TfrmZXBList.InitForm(); +begin + FNowDate:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=FNowDate; + BegDate.Date:=EndDate.Date-7; + ReadCxGrid('鰲',Tv1,''); + //InitGrid(); +end; + +procedure TfrmZXBList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + try + frmZXBInPut:=TfrmZXBInPut.Create(Application); + with frmZXBInPut do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('CJID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZXBInPut.Free; + end; +end; + +procedure TfrmZXBList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then + begin + Application.MessageBox('ܲ˵Ϣ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmZXBList.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Main_MD_CJ where CJId='''+Trim(Order_Main.fieldbyname('CJId').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmZXBList.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('鰲',cxGrid1); +end; + +procedure TfrmZXBList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZXBList.TBAddClick(Sender: TObject); +begin + try + frmZXBInPut:=TfrmZXBInPut.Create(Application); + with frmZXBInPut do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmZXBInPut.Free; + end; +end; + +procedure TfrmZXBList.FormShow(Sender: TObject); +var + i:Integer; +begin + InitForm(); + SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True); +end; + +procedure TfrmZXBList.cxPageControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZXBList.ToolButton3Click(Sender: TObject); +begin + try + frmModuleNote:=TfrmModuleNote.Create(Application); + with frmModuleNote do + begin + flag:='鰲'; + if ShowModal=1 then + begin + + end; + end; + finally + frmModuleNote.Free; + end; +end; + +procedure TfrmZXBList.FormCreate(Sender: TObject); +begin + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); +end; + +procedure TfrmZXBList.InitGridWsql(fsj:string); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.* from ('); + sql.Add(' select A.*,C.OrderNo,B.PS,B.Qty,B.MDDate,D.PRTColor,D.PRTColorNo,D.PRTHX '); + sql.Add(',XTDBDate=(select Top 1 Convert(varchar(10), WM.FillTime,120) from WFB_MJJY WM where WM.APID=A.MDID)'); + sql.Add(',XTDBPS=(select count(MJID) from WFB_MJJY WM where WM.APID=A.MDID)'); + SQL.Add(' from JYOrder_Main_MD_CJ A'); + sql.Add(' inner join JYOrder_Main_MD B on A.MDID=B.MDID'); + sql.Add(' inner join JYOrder_Main C on B.ORDMainId=C.MainId'); + sql.Add(' left join JYOrder_Sub D on B.ORDSubId=D.SubId ) AA'); + sql.Add(' where 1=1 '); + sql.Add(fsj); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; +function TfrmZXBList.SaveData():Boolean; +var + maxno,maxSubNo:String; +begin + try + Result:=False; + ADOQueryCmd.Connection.BeginTrans; + // + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(Order_Main.fieldbyname('MRID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(Order_Main.fieldbyname('MRID').AsString)='' then + begin + Append; + end + else begin + Edit; + end; + FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString); + FieldByName('MRId').Value:=Trim(maxno); + FieldByName('MRStatus').Value:='Ѵ'; + FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp); + if Trim(Order_Main.fieldbyname('MRId').AsString)='' then + begin + FieldByName('Filler').Value:=Trim(DName); + end else + begin + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; +procedure TfrmZXBList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZXBList.WorkerChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmZXBList.MDIDKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(MDID.Text))<4 then Exit; + fsj:=' and AA.MDID like '''+'%'+Trim(MDID.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +procedure TfrmZXBList.v1Column15CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clYellow; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + // ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmZXBList.v1Column9CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id,Id10:Integer; +begin + Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;// + Id10:=TV1.GetColumnByFieldName('MoneyKC').Index; + if Id<0 then Exit; + //$008000FF Ⱥɫ ɫ $000D55FF $00B9EE9F dz + if AViewInfo.GridRecord.Values[Id10]>0 then + begin + if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]=null then + begin + //ACanvas.Brush.Color:=clWhite; + end; + end else + begin + //ACanvas.Brush.Color:=clWhite; + end; + +end; + +procedure TfrmZXBList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmZXBList.ToolButton4Click(Sender: TObject); +var + fPrintFile:String; +begin + if Order_Main.IsEmpty then Exit; + if Order_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡݣ','ʾ',0); + Exit; + end; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean=True then + begin + {with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then + begin + Order_Main.EnableControls; + Application.MessageBox('ܴӡӡĸ!','ʾ',0); + Exit; + end; } + if FileExists(fPrintFile) then + begin + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID '); + SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo'); + sql.Add('from JYOrder_Main_MD A'); + sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid'); + sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId'); + sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+''''); + Open; + end; + RM1.LoadFromFile(fPrintFile); + //RM1.ShowReport; + RM1.PrintReport; + end else + begin + Order_Main.DisableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + end; + + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmZXBList.OrderNoKeyPress(Sender: TObject; var Key: Char); +var + fsj:String; +begin + if Length(Trim(OrderNo.Text))<3 then Exit; + fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+''''; + InitGridWsql(fsj); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.dfm new file mode 100644 index 0000000..ddad6f2 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.dfm @@ -0,0 +1,218 @@ +object frmZdyAttInput: TfrmZdyAttInput + Left = 219 + Top = 254 + Width = 920 + Height = 370 + Caption = #23458#25143#36164#26009#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 912 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 31 + Width = 912 + Height = 302 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column6: TcxGridDBColumn + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'ZdyName' + HeaderAlignmentHorz = taCenter + Width = 147 + end + object v2Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v2Column10: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'DEFNote1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column8: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'DEFNote2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column9: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'DEFstr4' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 154 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 949 + Top = 225 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 864 + Top = 224 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 928 + Top = 216 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 224 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 899 + Top = 235 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 872 + Top = 224 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.pas new file mode 100644 index 0000000..cc2fa99 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttInput.pas @@ -0,0 +1,236 @@ +unit U_ZdyAttInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttInput = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmZdyAttInput: TfrmZdyAttInput; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttInput.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where ATID='''+Trim(FCYID)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttInput.FormDestroy(Sender: TObject); +begin + //frmZdyAttInput:=nil; +end; + +procedure TfrmZdyAttInput.FormClose(Sender: TObject; var Action: TCloseAction); +begin + //Action:=caFree; +end; + +procedure TfrmZdyAttInput.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻ¼',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttInput.FormShow(Sender: TObject); +begin + ReadCxGrid('ͻ¼',Tv2,'ͻԶ'); + InitGrid(); + if Trim(FCYID)='' then + begin + CDS_HZ.Append; + CDS_HZ.Post; + end; +end; + +procedure TfrmZdyAttInput.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmZdyAttInput.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FCYID)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'AT','KH_Zdy_Attachment',4,1)=False then + begin + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end else + begin + maxId:=Trim(FCYID); + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_Zdy_Attachment where ATID='''+Trim(FCYID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FCYID)='' then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('Edittime').Value:=SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('ATID').Value:=Trim(maxId); + FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'',0); + FieldByName('Type').Value:='KHName'; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_Zdy where ZdyNo='''+Trim(FCYID)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FCYID)='' then + begin + Append; + end else + begin + Edit; + end; + FieldByName('ZdyNo').Value:=Trim(maxId); + FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('Type').Value:='KHName'; + FieldByName('MainType').Value:=Trim(CDS_HZ.fieldbyname('DEFstr5').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy where ZdyName='''+Trim(CDS_HZ.fieldbyname('ZdyName').AsString)+''''); + sql.Add(' and Type=''KHName'' '); + Open; + end; + if ADOQueryCmd.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + with CDS_HZ do + begin + Edit; + FieldByName('ATID').Value:=Trim(maxId); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmZdyAttInput.ToolButton3Click(Sender: TObject); +begin + if Trim(CDS_HZ.FieldByName('ZdyName').AsString)='' then + begin + Application.MessageBox('ͻƲΪ!','ʾ',0); + Exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ToolBar1.SetFocus; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + ModalResult:=1; + end; +end; + + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.dfm new file mode 100644 index 0000000..f0e6c69 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.dfm @@ -0,0 +1,393 @@ +object frmZdyAttachCP: TfrmZdyAttachCP + Left = 108 + Top = 101 + Width = 1075 + Height = 569 + Caption = #20135#21697#36164#26009#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1059 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 113 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_PBMDDJ.ThreeImgList + Flat = True + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object ToolButton5: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25552#21462'Excel'#25968#25454 + ImageIndex = 68 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 243 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 306 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1059 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 191 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label2: TLabel + Left = 369 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object ZdyName: TEdit + Tag = 2 + Left = 241 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 71 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 398 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1059 + Height = 461 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DS_HZ + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object v2Column6: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 124 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 53 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 68 + end + object v2Mrate: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object v2Column13: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'defNote2' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 100 + end + object v2Column8: TcxGridDBColumn + Caption = #33457#21495 + DataBinding.FieldName = 'DEFstr4' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 58 + end + object v2Column10: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'DEFstr6' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 61 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'DEFstr7' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 73 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'DEFstr8' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 61 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 114 + end + object v2Column14: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 60 + end + object v2Column15: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 80 + end + object v2Column16: TcxGridDBColumn + Caption = #20179#20301 + DataBinding.FieldName = 'DEFstr4' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 70 + end + object v2Column17: TcxGridDBColumn + Caption = #20179#20301#25968 + DataBinding.FieldName = 'DEFstr5' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Width = 70 + end + object v2defflt1: TcxGridDBColumn + Caption = #20215#26684#22686#24133 + DataBinding.FieldName = 'defflt1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 741 + Top = 161 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 864 + Top = 224 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 928 + Top = 216 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 224 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 843 + Top = 147 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 840 + Top = 128 + end + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.pas new file mode 100644 index 0000000..8ddab4e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.pas @@ -0,0 +1,401 @@ +unit U_ZdyAttachCP; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ComObj, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + + FdDy=record + inc: integer; //ͻ׽־ + FDdys:string[32]; //ͻ׽ + FdDysName:string[32]; //ͻ׽ + end; + TfrmZdyAttachCP = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + TBFind: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + v2Mrate: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column16: TcxGridDBColumn; + v2Column17: TcxGridDBColumn; + v2defflt1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + + public + fkhType:string; + dFdDy: array[0..20] of FdDy; //ͻ + end; + +var + frmZdyAttachCP: TfrmZdyAttachCP; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachCP.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''CP'' '); + sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + sql.Add(' order by zdyCode '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + + +procedure TfrmZdyAttachCP.FormDestroy(Sender: TObject); +begin + frmZdyAttachCP:=nil; +end; + +procedure TfrmZdyAttachCP.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachCP.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachCP.TBDelClick(Sender: TObject); +begin + + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmZdyAttachCP.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachCP.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachCP.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachCP.ZdyNameChange(Sender: TObject); +begin + TBFind.Click; +end; + + +procedure TfrmZdyAttachCP.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ʒб'); +end; + +procedure TfrmZdyAttachCP.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInputCP:=TfrmZdyAttInputCP.Create(Application); + with frmZdyAttInputCP do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + fkhType:=self.fkhType; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP.Free; + end; } +end; + +procedure TfrmZdyAttachCP.ToolButton3Click(Sender: TObject); +begin +{ try + frmZdyAttInputCP:=TfrmZdyAttInputCP.Create(Application); + with frmZdyAttInputCP do + begin + FCYID:=''; + fkhType:=self.fkhType; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP.Free; + end; } +end; + +procedure TfrmZdyAttachCP.ToolButton5Click(Sender: TObject); +var + excelApp,WorkBook:Variant; + i,j,k,ExcelRowCount:integer; + maxId:string; +begin + + try + ExcelApp := CreateOleObject('Excel.Application'); + openDialog1.Filter:='*.CSV;*.xls'; + if opendialog1.Execute then + begin + WorkBook :=ExcelApp.WorkBooks.Open(OpenDialog1.FileName); + end + else + exit; + + ExcelApp.Visible := false; + ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; + except + application.MessageBox('EXCEL','Ϣ',MB_ICONERROR); + exit; + end; + + try + k:=0; + for i:=1 to 20 do + begin + if trim(excelapp.Cells[1,i].value)='' then break; + if trim(excelapp.Cells[1,i].value)='Ʒ' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='ZdyCode'; + dFdDy[k].FdDysName:='Ʒ'; + end; + + if trim(excelapp.Cells[1,i].value)='Ʒ' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='ZdyName'; + dFdDy[k].FdDysName:='Ʒ'; + end; + + if trim(excelapp.Cells[1,i].value)='' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='defNote1'; + dFdDy[k].FdDysName:=''; + end; + + if trim(excelapp.Cells[1,i].value)='ɫ' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='DEFstr3'; + dFdDy[k].FdDysName:=''; + end; + + if trim(excelapp.Cells[1,i].value)='' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='defNote2'; + dFdDy[k].FdDysName:=''; + end; + if trim(excelapp.Cells[1,i].value)='' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='DEFstr5'; + dFdDy[k].FdDysName:=''; + end; + if trim(excelapp.Cells[1,i].value)='' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='DEFstr1'; + dFdDy[k].FdDysName:=''; + end; + if trim(excelapp.Cells[1,i].value)='ɷ' then + begin + dFdDy[k].inc:=i; + dFdDy[k].FDdys:='DEFstr2'; + dFdDy[k].FdDysName:='ɷ'; + end; + k:=k+1; + end; + except + end; + + ADOQueryCmd.Connection.BeginTrans; + try + for i := 2 to excelrowcount do + begin + if GetLSNo(ADOQueryCmd,maxId,'AT','KH_Zdy_Attachment',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where 1=2'); + open; + end; + ADOQueryCmd.Append; + for j:=0 to k-1 do + begin + ADOQueryCmd.fieldbyname(dFdDy[j].FDdys).Value:=excelapp.Cells[i,dFdDy[j].inc].Value; + end; + ADOQueryCmd.FieldByName('ATID').Value:=Trim(maxId); + ADOQueryCmd.FieldByName('Type').Value:='CP'; + ADOQueryCmd.FieldByName('Filler').Value:=Trim(DName); + ADOQueryCmd.Post; + + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where ATID='''+trim(maxId)+''' '); + open; + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_Zdy where ZdyNo='''+Trim(maxId)+''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryCmd.IsEmpty then + begin + Append; + end else + begin + Edit; + end; + FieldByName('ZdyNo').Value:=Trim(maxId); + FieldByName('ZdyName').Value:=Trim(ADOQueryTemp.fieldbyname('ZdyName').AsString); + FieldByName('Type').Value:='CP'; + FieldByName('MainType').Value:=Trim(ADOQueryTemp.fieldbyname('DEFstr5').AsString); + Post; + end; + end; + WorkBook.Close; + ExcelApp.Quit; + ExcelApp := Unassigned; + WorkBook := Unassigned; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + WorkBook.Close; + ExcelApp.Quit; + ExcelApp := Unassigned; + WorkBook := Unassigned; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmZdyAttachCP.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + IF cds_Hz.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.dfm new file mode 100644 index 0000000..2cbd691 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.dfm @@ -0,0 +1,340 @@ +object frmZdyAttachGYS: TfrmZdyAttachGYS + Left = 192 + Top = 103 + Width = 1038 + Height = 618 + Caption = #20379#24212#21830#36164#26009#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1022 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_PBMDDJ.ThreeImgList + Flat = True + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 11 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 203 + Top = 13 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + end + object Label2: TLabel + Left = 395 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object ZdyName: TEdit + Tag = 2 + Left = 267 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 83 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 424 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067#21378 + #21152#24037#21378 + #22806#36141#25104#21697#21378 + #21360#26579#21378 + #21360#33457#21378) + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 510 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + OnDblClick = Tv2DblClick + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_HZ + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column6: TcxGridDBColumn + Caption = #20379#24212#21830#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 124 + end + object v2Column10: TcxGridDBColumn + Caption = #32479#35745#21333#20301#21517#31216 + DataBinding.FieldName = 'zdyNameTj' + HeaderAlignmentHorz = taCenter + Width = 111 + end + object v2Column8: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'DEFNote1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 69 + end + object v2Column9: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'DEFstr4' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 114 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 773 + Top = 17 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 813 + Top = 17 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 733 + Top = 17 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 768 + Top = 216 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 776 + Top = 184 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 824 + Top = 184 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 731 + Top = 179 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 712 + Top = 184 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.pas new file mode 100644 index 0000000..f61e536 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.pas @@ -0,0 +1,214 @@ +unit U_ZdyAttachGYS; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachGYS = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + v2Column8: TcxGridDBColumn; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column10: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv2DblClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmZdyAttachGYS: TfrmZdyAttachGYS; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachGYS.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''GYS'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachGYS.FormDestroy(Sender: TObject); +begin + frmZdyAttachGYS:=nil; +end; + +procedure TfrmZdyAttachGYS.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachGYS.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ',Tv2); + Close; +end; +procedure TfrmZdyAttachGYS.TBDelClick(Sender: TObject); +begin +{ if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete;} +end; + +procedure TfrmZdyAttachGYS.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ',Tv2); + InitGrid(); +end; + +procedure TfrmZdyAttachGYS.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachGYS.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachGYS.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachGYS.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + //SelExportData(Tv2,ADOQueryMain,'ͻб'); +end; + +procedure TfrmZdyAttachGYS.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputGYS.Free; + end; } +end; + +procedure TfrmZdyAttachGYS.ToolButton3Click(Sender: TObject); +begin +{ try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInputGYS.Free; + end; } +end; + +procedure TfrmZdyAttachGYS.Tv2DblClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.dfm new file mode 100644 index 0000000..bac7085 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.dfm @@ -0,0 +1,361 @@ +object frmZdyAttachment: TfrmZdyAttachment + Left = 140 + Top = 88 + Width = 1118 + Height = 652 + Caption = #23458#25143#36164#26009#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + WindowState = wsMaximized + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1102 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_PBMDDJ.ThreeImgList + Flat = True + Images = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + Visible = False + end + object TBClose: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1102 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 190 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#32534#21495 + end + object Label2: TLabel + Left = 350 + Top = 13 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object ZdyName: TEdit + Tag = 2 + Left = 238 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 70 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TEdit + Tag = 2 + Left = 388 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 2 + OnChange = ZdyNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1102 + Height = 544 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DS_HZ + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v2Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v2Column6: TcxGridDBColumn + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'ZdyName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 127 + end + object v2Column15: TcxGridDBColumn + Caption = #23458#25143#31616#31216 + DataBinding.FieldName = 'zdyNameZ' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column10: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 56 + end + object v2Column11: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'DEFStr6' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2DEFStr7: TcxGridDBColumn + Caption = #22320#21306 + DataBinding.FieldName = 'DEFStr7' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column4: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Caption = #20256#30495 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'DEFNote1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column8: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'DEFNote2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column9: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'DEFstr4' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 165 + end + object v2Column12: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column13: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column14: TcxGridDBColumn + Caption = #27424#27454#39069#24230 + DataBinding.FieldName = 'DefFlt1' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 9 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 829 + Top = 1 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 949 + Top = 225 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 864 + Top = 224 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 928 + Top = 216 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 888 + Top = 224 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 899 + Top = 235 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 872 + Top = 224 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.pas new file mode 100644 index 0000000..a050097 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.pas @@ -0,0 +1,204 @@ +unit U_ZdyAttachment; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, + cxButtonEdit, cxTextEdit; + +type + TfrmZdyAttachment = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + ZdyName: TEdit; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + Label2: TLabel; + DEFstr5: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2DEFStr7: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + + public + fkhType:string; + fywy:string; + end; + +var + frmZdyAttachment: TfrmZdyAttachment; + +implementation +uses + U_DataLink,U_RTFun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttachment.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''KHName'' '); + IF trim(fkhType)<>'' then + sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + IF trim(fywy)<>'' then + sql.Add(' and Filler='+quotedstr(trim(fywy))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachment.FormDestroy(Sender: TObject); +begin + frmZdyAttachment:=nil; +end; + +procedure TfrmZdyAttachment.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachment.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ͻ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachment.TBDelClick(Sender: TObject); +begin +{ if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; } +end; + +procedure TfrmZdyAttachment.FormShow(Sender: TObject); +begin + ReadCxGrid('ͻ',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachment.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachment.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachment.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachment.ToolButton4Click(Sender: TObject); +begin +{ try + frmZdyAttInput:=TfrmZdyAttInput.Create(Application); + with frmZdyAttInput do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmZdyAttInput.Free; + end; } +end; + +procedure TfrmZdyAttachment.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_HZ.IsEmpty then exit; + ModalResult:=1; +end; + +end. + + diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.dfm b/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.dfm new file mode 100644 index 0000000..fdd877e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.dfm @@ -0,0 +1,17 @@ +object frmZdyInput: TfrmZdyInput + Left = 165 + Top = 188 + Width = 870 + Height = 500 + Caption = #23458#25143#36164#26009#24405#20837 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.pas new file mode 100644 index 0000000..5bc42df --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyInput.pas @@ -0,0 +1,30 @@ +unit U_ZdyInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs; + +type + TfrmZdyInput = class(TForm) + procedure FormDestroy(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmZdyInput: TfrmZdyInput; + +implementation + +{$R *.dfm} + +procedure TfrmZdyInput.FormDestroy(Sender: TObject); +begin + frmZdyInput:=nil; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_iniParam.pas b/坯布码单待检(PBMDDJ.dll)/U_iniParam.pas new file mode 100644 index 0000000..3d4ab11 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_iniParam.pas @@ -0,0 +1,65 @@ + +unit U_iniParam; + +interface +uses + IniFiles,SysUtils; +var + Filename:string; //ļ + iParam2:integer; + bParam1:Boolean; + bParam2:Boolean; + SCXFlag:String; // ݴ˱־ȡǰ׺ ܰĸ 1,2 + SCXCount:String; //̨ + PortNoStr:string;//˿ں + DllName:string;//˿Dllļ + Function IsINIFile():Boolean; //жInIļǷ + procedure ReadINIFile(); + procedure WriteINIFile(); +implementation +/////////////////////////////////////////////////////////////////// + //ȡiniļò + // +//////////////////////////////////////////////////////////////////// +procedure ReadINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'File.INI'; + programIni:=Tinifile.create(FileName); + SCXFlag:=programIni.ReadString('','̨־','1'); + SCXCount:=programIni.ReadString('','̨','1'); + PortNoStr:=programIni.ReadString('','˿ں','com1'); + DllName:=programIni.ReadString('','˿Dllļ','JZCRS323C.DLL'); + programIni.Free; +end; + +////////////////////////////////////////////////////////////////// + //дϢINIļ + // +////////////////////////////////////////////////////////////////// +procedure WriteINIFile(); +var + programIni:Tinifile; //ļ +begin + FileName:=ExtractFilePath(Paramstr(0))+'File.INI'; + programIni:=Tinifile.create(FileName); + programIni.WriteString('','̨־',SCXFlag); + programIni.WriteString('','̨',SCXCount); + programIni.WriteString('','˿ں',PortNoStr); + programIni.WriteString('','˿Dllļ',DllName); + programIni.Free; +end; +////////////////////////////////////////////////////////////////// + //жInIļǷ +////////////////////////////////////////////////////////////////// + Function IsINIFile():Boolean; + begin + FileName:=ExtractFilePath(Paramstr(0))+'File.INI'; + if FileExists(FileName) then + Result:=true + else + Result:=false; + end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_testdll.dfm b/坯布码单待检(PBMDDJ.dll)/U_testdll.dfm new file mode 100644 index 0000000..6b709b8 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_testdll.dfm @@ -0,0 +1,221 @@ +object Form1: TForm1 + Left = 203 + Top = 121 + Width = 791 + Height = 554 + Caption = 'Form1' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIForm + Menu = MainMenu1 + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 775 + Height = 25 + ButtonWidth = 57 + Caption = 'ToolBar1' + Flat = True + Images = ImageList1 + TabOrder = 0 + object Edit1: TEdit + Left = 0 + Top = 0 + Width = 81 + Height = 22 + TabOrder = 0 + Text = '1' + end + object ToolButton1: TToolButton + Left = 81 + Top = 0 + Caption = #20851#38381 + ImageIndex = 0 + OnClick = ToolButton1Click + end + object Label1: TLabel + Left = 138 + Top = 0 + Width = 79 + Height = 22 + Caption = ' DllName'#65306 + end + object DllName: TEdit + Left = 217 + Top = 0 + Width = 135 + Height = 22 + TabOrder = 1 + end + end + object MainMenu1: TMainMenu + Left = 232 + Top = 40 + object test1: TMenuItem + Caption = 'test' + OnClick = test1Click + end + end + object ImageList1: TImageList + Left = 320 + Top = 56 + Bitmap = { + 494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000001000000001002000000000000010 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000EFEFEF0000000000000000000000 + 0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFEFEF0000000000EFEFEF00EFEFEF0000000000EFEFEF00000000008080 + 00008080000000000000C0C0C000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFEFEF00EFEFEF000000 + 0000EFEFEF00EFEFEF000000000000000000C0C0C00000000000000000008080 + 00008080000080800000EFEFEF00EFEFEF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000000000000000000000000000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFEFEF0000000000808080008080800080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008080000000000000808080008080800080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFEFEF00EFEF + EF0000000000FFFF000080800000000000008080800080808000000000000000 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000808000000000000080808000000000008080 + 0000000000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000808000008080 + 000080800000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000FFFF0000FFFF000000000000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00000000000080808000000000008080 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000808000000000000080808000808080008080800080808000FFFF + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080008080800080808000808080000000 + 0000808000008080000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000100000000100010000000000800000000000000000000000 + 000000000000000000000000FFFFFF00FFFF000000000000D343000000000000 + F4810000000000009340000000000000F801000000000000F001000000000000 + F001000000000000C001000000000000C001000000000000C001000000000000 + C201000000000000C001000000000000F001000000000000F001000000000000 + FC03000000000000FFFF00000000000000000000000000000000000000000000 + 000000000000} + end + object ADOConnection1: TADOConnection + ConnectionString = + 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' + + 'ID=sa;Initial Catalog=rzdata;Data Source=6GMFFMYKYMJDZW7' + LoginPrompt = False + Provider = 'SQLOLEDB.1' + Left = 408 + Top = 64 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_testdll.pas b/坯布码单待检(PBMDDJ.dll)/U_testdll.pas new file mode 100644 index 0000000..ccbe2a4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_testdll.pas @@ -0,0 +1,106 @@ +unit U_testdll; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB; + +type + TForm1 = class(TForm) + MainMenu1: TMainMenu; + test1: TMenuItem; + ToolBar1: TToolBar; + Edit1: TEdit; + ToolButton1: TToolButton; + ImageList1: TImageList; + ADOConnection1: TADOConnection; + DllName: TEdit; + Label1: TLabel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure test1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure FormResize(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + newh:hwnd; + +implementation + +{$R *.dfm} + +procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); +begin + sendmessage(newh,1034,4,0); + action:=cafree; +end; + +procedure TForm1.test1Click(Sender: TObject); +type + TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; +begin + //̬ + //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa')); + + //̬ + // showMessage(intTostr(application.Handle)); + Th := LoadLibrary('PBMDDJ.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,strToint(edit1.text),0,0, + PChar('ygcode'), + PChar('ygname'), + PChar('datebase'), + PChar('title'), + PChar(''), + PChar(''), + '','','','','','','','','' + ); + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim(DllName.Text)); + end; + +end; + +procedure TForm1.ToolButton1Click(Sender: TObject); +begin + close; +end; + +procedure TForm1.FormResize(Sender: TObject); +begin + sendmessage(newh,1034,1,0); +end; + +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/consvr.ini b/坯布码单待检(PBMDDJ.dll)/consvr.ini new file mode 100644 index 0000000..3a03c34 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/consvr.ini @@ -0,0 +1,2 @@ +[SERVER] +SERVER=192.168.88.254 \ No newline at end of file diff --git a/坯布码单待检(PBMDDJ.dll)/testDll.cfg b/坯布码单待检(PBMDDJ.dll)/testDll.cfg new file mode 100644 index 0000000..e9c1cc1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/testDll.cfg @@ -0,0 +1,38 @@ +-$A8 +-$B- +-$C+ +-$D+ +-$E- +-$F- +-$G+ +-$H+ +-$I+ +-$J- +-$K- +-$L+ +-$M- +-$N+ +-$O+ +-$P+ +-$Q- +-$R- +-$S- +-$T- +-$U- +-$V+ +-$W- +-$X+ +-$YD +-$Z1 +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-M +-$M16384,1048576 +-K$00400000 +-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/坯布码单待检(PBMDDJ.dll)/testDll.dof b/坯布码单待检(PBMDDJ.dll)/testDll.dof new file mode 100644 index 0000000..d454d72 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/testDll.dof @@ -0,0 +1,136 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=0 +R=0 +S=0 +T=0 +U=0 +V=1 +W=0 +X=1 +Y=1 +Z=1 +ShowHints=1 +ShowWarnings=1 +UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=1 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir= +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath= +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=D:\selfware_83398\selfware\ֿ\Ŀ\self\뵥DDMD.dll)\testDll.exe +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=0 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=0 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=2052 +CodePage=936 +[Version Info Keys] +CompanyName= +FileDescription= +FileVersion=1.0.0.0 +InternalName= +LegalCopyright= +LegalTrademarks= +OriginalFilename= +ProductName= +ProductVersion=1.0.0.0 +Comments= diff --git a/坯布码单待检(PBMDDJ.dll)/testDll.dpr b/坯布码单待检(PBMDDJ.dll)/testDll.dpr new file mode 100644 index 0000000..4be4b8a --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/testDll.dpr @@ -0,0 +1,14 @@ +program testDll; + +uses + Forms, + U_testdll in 'U_testdll.pas' {Form1}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/testDll.res b/坯布码单待检(PBMDDJ.dll)/testDll.res new file mode 100644 index 0000000000000000000000000000000000000000..2d6f24c3d9a870364649288b1c0306b551768325 GIT binary patch literal 876 zcmaJ=Jx{|h5Pc?9%tTwkz(g}L7BMg|6oiDt01W(ruz1OWgw!H+AXAn~{FzE^Brlox z9gK_}J0Q&SIVr99IQ9AN-MzD~Rtx|M;amX24SU~e>Jc?cYMoANyAd5SNQg5+p~aQP zp5HA8_(Prt$CV+GqpB(v{1D!`;JAjld@@+K+i61a|MTdsd{~!%b1ms_KJEh}cpe(` z6jA?@e29>sU}iiwp;b>~TL@2U!O)h%Yr)7`8+a;b=@mD^tI-VbODr7!U{0?gh%d@~e3Ro)^HNMvvU1UHt)HYrq~&L`&fQ16Y1SeYiaObZ>3v kZ4W@7aBc_JIL8%khzs1(H@5yR{A*B1l9s#*|B4j80N@tIJOBUy literal 0 HcmV?d00001 diff --git a/坯布码单待检(PBMDDJ.dll)/testDllDJ.cfg b/坯布码单待检(PBMDDJ.dll)/testDllDJ.cfg new file mode 100644 index 0000000..e9c1cc1 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/testDllDJ.cfg @@ -0,0 +1,38 @@ +-$A8 +-$B- +-$C+ +-$D+ +-$E- +-$F- +-$G+ +-$H+ +-$I+ +-$J- +-$K- +-$L+ +-$M- +-$N+ +-$O+ +-$P+ +-$Q- +-$R- +-$S- +-$T- +-$U- +-$V+ +-$W- +-$X+ +-$YD +-$Z1 +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-M +-$M16384,1048576 +-K$00400000 +-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/坯布码单待检(PBMDDJ.dll)/testDllDJ.dof b/坯布码单待检(PBMDDJ.dll)/testDllDJ.dof new file mode 100644 index 0000000..9b5b586 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/testDllDJ.dof @@ -0,0 +1,136 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=0 +R=0 +S=0 +T=0 +U=0 +V=1 +W=0 +X=1 +Y=1 +Z=1 +ShowHints=1 +ShowWarnings=1 +UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=1 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir= +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath= +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=D:\selfware_83398\selfware\ֿ\Ŀ\self\֯(CYZZ.dll)\testDll.exe +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=0 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=0 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=2052 +CodePage=936 +[Version Info Keys] +CompanyName= +FileDescription= +FileVersion=1.0.0.0 +InternalName= +LegalCopyright= +LegalTrademarks= +OriginalFilename= +ProductName= +ProductVersion=1.0.0.0 +Comments= diff --git a/坯布码单待检(PBMDDJ.dll)/testDllDJ.res b/坯布码单待检(PBMDDJ.dll)/testDllDJ.res new file mode 100644 index 0000000000000000000000000000000000000000..2d6f24c3d9a870364649288b1c0306b551768325 GIT binary patch literal 876 zcmaJ=Jx{|h5Pc?9%tTwkz(g}L7BMg|6oiDt01W(ruz1OWgw!H+AXAn~{FzE^Brlox z9gK_}J0Q&SIVr99IQ9AN-MzD~Rtx|M;amX24SU~e>Jc?cYMoANyAd5SNQg5+p~aQP zp5HA8_(Prt$CV+GqpB(v{1D!`;JAjld@@+K+i61a|MTdsd{~!%b1ms_KJEh}cpe(` z6jA?@e29>sU}iiwp;b>~TL@2U!O)h%Yr)7`8+a;b=@mD^tI-VbODr7!U{0?gh%d@~e3Ro)^HNMvvU1UHt)HYrq~&L`&fQ16Y1SeYiaObZ>3v kZ4W@7aBc_JIL8%khzs1(H@5yR{A*B1l9s#*|B4j80N@tIJOBUy literal 0 HcmV?d00001 diff --git a/基础资料维护(BaseInfo.dll)/BaseInfo.cfg b/基础资料维护(BaseInfo.dll)/BaseInfo.cfg new file mode 100644 index 0000000..7876259 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/BaseInfo.cfg @@ -0,0 +1,42 @@ +-$A8 +-$B- +-$C+ +-$D+ +-$E- +-$F- +-$G+ +-$H+ +-$I+ +-$J- +-$K- +-$L+ +-$M- +-$N+ +-$O+ +-$P+ +-$Q- +-$R- +-$S- +-$T- +-$U- +-$V+ +-$W- +-$X+ +-$YD +-$Z1 +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-M +-$M16384,1048576 +-K$00400000 +-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-U"D:\ͨERP" +-O"D:\ͨERP" +-I"D:\ͨERP" +-R"D:\ͨERP" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/基础资料维护(BaseInfo.dll)/BaseInfo.dof b/基础资料维护(BaseInfo.dll)/BaseInfo.dof new file mode 100644 index 0000000..4ecf1e2 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/BaseInfo.dof @@ -0,0 +1,138 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=0 +R=0 +S=0 +T=0 +U=0 +V=1 +W=0 +X=1 +Y=1 +Z=1 +ShowHints=1 +ShowWarnings=1 +UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +NamespacePrefix= +SymbolDeprecated=1 +SymbolLibrary=1 +SymbolPlatform=1 +UnitLibrary=1 +UnitPlatform=1 +UnitDeprecated=1 +HResultCompat=1 +HidingMember=1 +HiddenVirtual=1 +Garbage=1 +BoundsError=1 +ZeroNilCompat=1 +StringConstTruncated=1 +ForLoopVarVarPar=1 +TypedConstVarPar=1 +AsgToTypedConst=1 +CaseLabelRange=1 +ForVariable=1 +ConstructingAbstract=1 +ComparisonFalse=1 +ComparisonTrue=1 +ComparingSignedUnsigned=1 +CombiningSignedUnsigned=1 +UnsupportedConstruct=1 +FileOpen=1 +FileOpenUnitSrc=1 +BadGlobalSymbol=1 +DuplicateConstructorDestructor=1 +InvalidDirective=1 +PackageNoLink=1 +PackageThreadVar=1 +ImplicitImport=1 +HPPEMITIgnored=1 +NoRetVal=1 +UseBeforeDef=1 +ForLoopVarUndef=1 +UnitNameMismatch=1 +NoCFGFileFound=1 +MessageDirective=1 +ImplicitVariants=1 +UnicodeToLocale=1 +LocaleToUnicode=1 +ImagebaseMultiple=1 +SuspiciousTypecast=1 +PrivatePropAccessor=1 +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir= +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath=D:\ͨERP +Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication=D:\Dp7Repo\Ŀ\D7wmhengming\ά(BaseInfo.dll)\testDll.exe +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=0 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=0 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=2052 +CodePage=936 +[Version Info Keys] +CompanyName= +FileDescription= +FileVersion=1.0.0.0 +InternalName= +LegalCopyright= +LegalTrademarks= +OriginalFilename= +ProductName= +ProductVersion=1.0.0.0 +Comments= +[Excluded Packages] +c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package diff --git a/基础资料维护(BaseInfo.dll)/BaseInfo.dpr b/基础资料维护(BaseInfo.dll)/BaseInfo.dpr new file mode 100644 index 0000000..e667f31 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/BaseInfo.dpr @@ -0,0 +1,57 @@ +library BaseInfo; + +uses + SysUtils, + classes, + forms, + WinTypes, + WinProcs, + U_DataLink in 'U_DataLink.pas' {DataLink_BaseInfo: TDataModule}, + U_GetDllForm in 'U_GetDllForm.pas', + U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas', + U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, + U_SelExportField in '..\..\..\ThreeFun\Form\U_SelExportField.pas' {frmSelExportField}, + U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, + U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, + U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, + U_ZdyAttInputCP20 in 'U_ZdyAttInputCP20.pas' {frmZdyAttInputCP20}, + U_ZdyAttachCP10 in 'U_ZdyAttachCP10.pas' {frmZdyAttachCP10}, + U_ZdyInput in 'U_ZdyInput.pas' {frmZdyInput}, + U_WeiXinHelp in 'U_WeiXinHelp.pas' {frmWeiXinHelp}, + U_CPKWList in 'U_CPKWList.pas' {frmCPKWList}, + U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas', + U_ZdyAttInputCP10 in 'U_ZdyAttInputCP10.pas' {frmZdyAttInputCP10}, + U_CPKWKCList in 'U_CPKWKCList.pas' {frmCPKWKCList}; + +// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas', + // U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField}, + // U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField}, + // U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, + //U_FormPas in '..\CommonPas\formPas\U_FormPas.pas', + //U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas'; + +//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.pas'; + +{$R *.res} + +procedure DllEnterPoint(dwReason: DWORD);far;stdcall; +begin + DLLProc := @DLLEnterPoint; + DllEnterPoint(DLL_PROCESS_ATTACH); +end; + +procedure DLLUnloadProc(Reason: Integer); register; +begin + +end; +exports + GetDllForm; +begin + try + NewDllApp:=Application; + DLLProc := @DLLUnloadProc; + except + + end; +end. + diff --git a/基础资料维护(BaseInfo.dll)/BaseInfo.rar b/基础资料维护(BaseInfo.dll)/BaseInfo.rar new file mode 100644 index 0000000000000000000000000000000000000000..298905fb1d4a74d7dbb0a0de5d802e017b3fcbdc GIT binary patch literal 2097824 zcmYIvb8uw)`}D-NZ9Ca`qm6Cbwr$(CZELdG*w#iH+t~2kd-s0d-~2OGr>eX9^wUq* z)H$C~GIS!rg#yeZI0FC(fWIH^QWszX3qS>w7yvK}1b|izn}vCWCI}O-!2|wW0(>)c zHkGt9vu8B1u>mx|5vgO7VxYiB60Bl^vXx0DVaouCk)dnUVBtX$!YZ-hLXM$b_m4qQ zz>Ora;RV;20BRtVJ9ZOkQ%0vFnAh%E$@0 z0|0v|xKJ;?0FXgui1+sZKmY(NLw}D(DKoI}_ z0Efr`Fn@o*E*b#p;{)V7B>?69?H?G`9~e9k8=(I5kOM&E3kU*&-U$>i14!|m0l@(f zN1viQ04_67An0d*0{|HS_`?JF4^IXd0O8{!F92ku0a*j!JaP{W02hukKz0Be&7495 z{%~pl+@Br+pa1|OP5?9D^XiNqfbR_g5ddxSDQEx?;W`9?0w7O*!~_5wCjVUZ_c!=w z%zp%;{1G_F3<;oke@6%ai#H%{0Aa~LMg~BK;{%CzK#luXp#S9r5x6?J{>ur==l}mX z(S1J(1pnoP{Xb5O|2P@m-?{$dbo)Fe{~zZS(IWF-PXDV@=D(cqqW*%w|8!y}d;|*q z84x%ofQ9ZI6aa#}mjR9sFfxBJ1^jhjg;z&q5iP|Om}-W;IG{JtK*-4IT5lx|Kr5t`$+gtEXVshSipZ`?XX@v z|A=Kd_5f`E9Zb%5gn$(2h%Z1v001&_HegTWL{Lq-@mrlq(0)3w#6(pFUaC_>aLJ@L z09myaB&!B`jvRRvM&d;W?4L=4%v>FZ{CA(lpRg#`bzkih;U z8Ti*iUf*}{|EY2(dg1&h$&divKUx8Q$Gsze%>3VIz`heLM*IyXRE2**!hgX;QuP-G z0=OPQ;Q)lAA3*>>gySSAB7m>(9qUhq{)Ch8<0DM)?`WR;?@|9Znp>pfhW{j=Ce#Q#YqD)~qR{FN*)_YVHQsrwJUAOikbA%QWiD+K@3)p`V1>xhokNX=@P`~Z}A`1RNH0$thL_z(p{+RRc=A(oCpSRS=f9CVo zTLtBJkpIP@p!sF~pEzIw6#uW<%Kvs0$e)gC`YRUp;q(7T0pt4LDE#Rt*#GM&%)ed7 z@VD!9|8`yfzZD4*{%=Ks5&c_{kox~tB>d;U6^Z*7#{L&(`xmzT7dG-2mj5pd>MsoO zFO2XnjPEbZ_x%mh%r?jrri-*>LYdRvd709gZoyC)&C8u`MJEfZ>Vf!kMO`DG#Yt6F zX4aDWmn*uK-({3@Z{(H6TqfG4yvQ8Og2=t)+9`F;W3ntkY~OcLH_JK!sqadgW@rPH z-`!F9f}i_P?H8K*s1!qFk?34m=Pr%d>Y%N|z$+y#dO)~T?d9Lf%w^q=&yu&QQb%VO zDE1UnJ?4b5c&2B4?+jJ<{Lc+aUC;U=z_;JF@6+t$6er3DC`^Z!s!q%tInFwh$7J>+ zRy8Q>KJc7K)ov{!5zNV0m^J*jE1Vd|lRSOtH(B7#lH44|evEE#jZg~aM2{Xta+^eI zDkbBkw%;4Z6y+5z950YcT!N1j#6x;#B7e#OK~h{PrkGF&3xW`sC3>` z8I-uZc;TE(vAWb(9Dv(E$~lF_d8$mI;hbhyM?t5;mQ+wtM>E3G$g1>^E>ve+>E?w? zma%-ZQhP_!LAeug&{P-Y+niB^rAZS!^okCv67M7J0Xdt%%3GL|s}$-)B7u-PV7Hrw zWy@7mJxnW4@?1O{%Tou$Y>ro%?dt+C1Wet55P7a$uj>h1`^1 zROHd;p2n+c!#1jMf7-5x?@`oC+YugN__`+s-6GnjrBBtFopC1?4=RO6t;yci9|lhsR^98%-MH2&0Ea8(yyK9 zMNb9E@Ty`m?@FikT9hGVJkqBqKWA=6Hy7oTO?+6E<}`tNyna_8czo=H`T;G>;+XDx z&c%2NTBagw?E(!~samaN(22#s2l&VxN!O-Wz&AmGQsnMBCc!a-cr__d^DZP?gwKmH zu8ErVF93QNvMM9dMkASCNNW8uyNi}n@_<7h!Se0;WL6%BflmriQSNO4M$p&=VsEA9 zXl8)X&Y{T>W6pGPZ=T#X((rIr=JuuYn2rdSgpY&j`4Bs+z2VZE>_3<@Q}YJm}q680L0sf88JD%1)js3|?7 zy~2e&hu!Jy1>Y=TQm|1eacq0@jgVzE-zkZ8-;t6X;MTOJ8=vEp07uden>P}_0g;jYqqs7yj*RbsF}SOD@jhdEJnJM{S? zh%|$WMp&zbqr=zm#0b+l+zTj1>S1KU{YsRCgShv!b`7)%GdJVipW{?V&B5Z0Jd;k z+Fohcw=oV%1ldF)7bi>Q&m>+Po#9+eO2Ah@HVnPL;t^okNlw5tTZJ7mRZ-|342jzdhUK)&Ygds1 zr+6@EH$SMh?tB&JZu&6SQU?nY-;k^w@{lwQq)MmEj9PIR&xE+yK-)c({Cl|i*ZEEa zu-c+@?!r|HRyshAuvIB2jV^Zjfgwu)Qs@`Nve4bEbTJ~PA3_475wB3S-_!+dfjnH? zX*Azti#2U}U>;n+<%lv9@sI&vDf^$PL_(kPCgK2{Ta!-S+p<`7taK{kaR^OU= zdam5E4`j{2tC=x{mX&R_YeBsS=@m2^AnO<&42y>0lS*t&(Cjwxf(3KL%D~q|hJ+3l z9ViNQ>H=)bN<^MbOzoujD`XrvnH)rc4K6mYrr#ETku;?}f{ownD@w| zILq6Is}uv&-A2N!#3aO2`w=DVaO|sl?G%`Z+j&hdnarhn5j#q12w$U`e&an3pt45N zbhcZ?I+Cn5KEjqo!TtIY*HwZEi^9KqgB*cjyG3Gj$itevzf795(`Ag3iigH0=(kN97cgpp7GU+BxO7`%f!a zTSo0Z2_G91DbBMJFi>$nj{)ffSsddnrWhn9Pl&8Y4=Ida>*}aGNibU!+;(Hia!RJR ziGgy;dN8Du2|5ra1PjVVVDp4?hM}fQKA{hEyuCH3``YLZ)Y*n6=Bn<7>tu$a)KIu9 z#GV?FP+_Q$u}l-hYf4mB_;P&?mtUIK*i!H=3%x9tpVt<=#t~+xxdby*I`Jn4?TkrK zqP_;v;jAQx5NdG6pwI>_*=|5@a23RwCK9Cw)Yo9<#R20hYNGG7m`2MXmRR=GrL^gx z2kVTR(*|RIF=IjH=5R@<0c}Hdm>jcbjKy)#&LHaGH+l;pf4TWP=senn{Vx`kA% zSd#!KAY!naKmxHPSy2acIl0tk>ZU+BSO(5Hb8pkMRe9x{Vw3L#R4q1`Jn>!cji)1` zIE8lCDZ)r)+Uoo!*@m?Z`PZcdIHGZGN9^K&k-cBatf3^WMP836GT(uLi{P^F zi!Xc33H|&B7`XpFp>`bkiGJ|f84`K*zvIm~4f2Bu}ZJG`32W3&Fu4sfZAq~vw zo5k9_hS1dr2n}tXRZGe=r|p!eUhY?hQHH6wq1A zLk^*+%%XcnT4_+-BWoB?Oa3w)>YYGZ(wB}Ytzp#Sn6!rQbG{={HS>A4Lpu<-nI=Z8 z7G0|s1CccpQSgQWIp<9hZQ2f}iOTL2oAB(H9#8}F*a2x3$F-X%amJGqqMmt3VB=pH zQ5g8<(0$%_tyq8ikTAGB>Vl`6(19dZxX=6Vbf7x!7 zZ^}pCavCI31T)=HgrVgy`sI`I`M{)s*H@YRaoj^8pHG%0eXwn0eW&i0xq=jfa7p)& zjMr5;*P~c?5A%Hp1o^FbI8ZYoJ%T6^Z^F7El1_j{*5VAuEi$888hWPW0L{HSF&cmT zy^)h>U%WPH=b2G1veepNK2Ob6eAQ`Gg9m9{?3~T&Qn+*pHw^aM$ywfBF#d|&5x9X| zV9u13q#`UPQe-fx2OQ(lk?yG1*(@9kw9aL%uOO6!g>KGI+0h9Ns5!0d0#v2QC=UpX zdIt;%&2y4OT<9YZ}B1q_nS4^o$ECv8aPDmeI#lY80`WVDnmL<;gS)S}XV^1Iib`yvc*IxI6Fn*f*%N$fQm{!oK%=1>f zj0g{RZdES3fGx^WI!zyIj_PtSx3^JlxQ+qtIE>HJzJeUiQk5FTP%p>nR+sIO0yPrD zV*;^UKt=PZk0L(=O^B_PsFW+vWmaU2qz~Tj>#L;CQ%_O8%ER{N5%nRq4F{2m2q%K~ zZa}tA_vBpQww-+oz6(ao?cC;lls*S81q9J*``L6ADdVHkI;#odG!r5CxWu-m5$7$q za1=;r5`t9#d5F^HgfS|DiGRSM3iaN1OtvuM6!QK6BBZ*d9Liv3G)O~J#9-Y)f>p{$ z=#`-Dmyvs^q2s|FQFR(%Wm9E8k zkZ`~fR4upi7MR{8?JujaK2yceu)QS=nn*qLBk|XjWKdhV96I zTUrK2J_Zy?fe+{q*V-x*XPT1B>G*T`te;YFTtAQ|-dMA00S4ep@o_%-LK6}{09@$Y4gwxw9(w}LC}kc=>e?f zOX(oNBz8a2+JN&4hAWG{OF@1eCQYG}=Hh5aPb)y;q@A9SANfa^@|GLd$}l$&Xa)$g z8yus-1kD{n%CQx+3D*rXSHUFaH40}C_QU!^w%Pgc?*Q^y<)OBqn!_75t6yUa$)}O> zVfa}U`@#*Yn$`~W(Ds4JG3B1)6@>;EF?44$BM*jr0gO~Y!KBfn25&Wp^->80;)w&T z5VKQ|`oq9PQN2M2Gfu-ER)WB8Z`TZx{9t!_lFD^nX$?i`r)t|d0FN6(F0EUAvQtn{ zM^rBg%EXHVgq}Z~qFpAIL6On?ORkg{)|$mbS<)u?ARu7t+r7a3LSK6+BsY^HU^h3Y zdz1brYyl=x?pUWRs(=7TXPT%MMU0&AR``Ox$?!`A(I}>EHbd#r;AtTEDXxkqJOGqg zXdxV$Fe!DGml3lAH{1GckWyI;^=cSH#PfG&8O^#_v$X+hklu6yeP<~G@5!qLIgrNH zLe<=PcsU1&Qnw2ge6%<0P8*4+b;Yoe{p=AhO2Xp3tP6+#BiBwj^`Nca>(`xU`wU)( z?J%ds>Wc>hmSd}j7yZJ5ZOup9#qe|={-j2%P3C^7<&vn{*bvnP*zPy0Tptx|fQEt~ z)Y!);G#k}E2o~+P`L_OaG^49U-{nIz^KDa!JgrV4DHMwrB}53sV}&mSIzSzd z!yd5N~~RT zN`Sf{=vfTEO7zxi0K^q7r;TvH+oAEi;Yn*(N+()o=?jn5^3DTEferhKef1a@=xn!% zqxzK6HoM}m6BiU6sN^}T-Voj9pwlue^5=Q;T9K=MPgUT&!A9CSR*vuP^_Wu7th#;{Za84II+x*q%Jr*!?H0(qR{x9$}W1uBsHSh zA3`NKRN(4w4W(+$bb9wLG~EvRI5HVbRTXts)5RK4KxdhUbrqG9Tt7e|`2Z>y45UGc zXK1oTW$cz2QW*4a)jn!)tKcoaE=g5=0MYbsU57o;R07=LY93n~>$N6p9@dlVC7PiZ z9Y9n1m@=vDGE2Q%PPd(uQZ3UmmX+!nSBx0@`Bc|Uyq=_j4giuQUy`eU#97oUBqDPj zy=zTjy!NEvHxI~nP_3hML*?XDpAsPnV|Ok3g={bZ*;>{24mdXiP)q*pFO_Q>kK(_A z%z9Ua;*=m5#HsJ`=IQ@a5=tq}6@833OS8Srk|@gDIh;>)>*d*1`5 zW>D6IG8(;&_)>)fBkL={#IlWKYN^J>w$a58Z@1@AV`5AV8_!NILtH+7ka&ZGw$QR; zq5#O$y4+&(u+PDp(KRx%xyG&JrX3&&y0Vwiky2p{GKwR4z5FFEctW=4lL%y6vjl~F zRD2Ot{+=}UU6!~VpCf8~RWuy`Xv`Y5i9Eft039Kga=r^Pr!GpF6p@c0jzcp%nFdl$ zhhiCp^Knx{jIT{rrh<4&3KPFeRe47%$bg-iZ?Y=7HR7}Om7dE60)fc}RANMbU&1JT z6h{rI0bks?##$2sURvmICOzALMK693MK+%Yc9X^g<0)egNfDdj7BJBjaWV|8Ewrfn7o1l?!}NMRh( zVlb<9ai@!*H-D=gXZ1yW#&4V!%5E+ioa{73K0}PO<=d|^EZ)()FOLLXRfLRrgtAXj z(lYm!9Vr!DO!0JL+;3CchR!A8J(To38ej%`=*iPW)-O@Zx2CT_SFEpEK)uuZ2G!x=k;FVNDDBE;c$wX9yUSKw!>z0EkX34LcEi^_sr4|%I zz&k{)wE?I0HZR-+&WxHZmfYr=b{-T&KIQu~w!JMM5DaS0X<%gLQA?CfJRW66+p6wF z!c4SPbqARW5yuPlEun|mzI;=OrVk_f`-RTPaTB+9ZjBdI0jnzT!fD^K%b4FOyBSU9 z;8V}P2}had76F}Oo0j~5h&+q?V6`tx&u9+6elOO3h97sZMel`t2UzkJUBR!F8tX~- zv+u|2VJ~^M2vv5p8Zybi)H$H@7r((kofHKX7DT^+7I<|)C{}kKQhzk4kE9L~52U^1 z8&eZi4AcO{VASN(C zB#mwI-G@#%wt6cFDCAfv`!?KOqp(Yg*qyX~)znCPyOo_qiMXps8a_rguJy!I?bVS7 zo=d2X2m@c5&OHsro|jt1y&E?MpEXJxsnF{Uz)wR^$0s&6T|`p}8jtH_IE4 z6DHMPT=)?a>?zk|+CnJXg2XzgoxXJ7?IS`c$Ff`)Gg{gzr~= z)p%NaG<~@OdoxGQ67<9d`HdZ& zK5?HLo`7X_3Fp@Ba`qV0F`L?;n2)lB&;h^oQIG!hH}PaDI?+%wwp|lva9q^GKoR(w zJY}H@JO5hdX{ATB`3@Nw)!SRU&swtfJ2`@m@sPGK)zgW${g|Zh)ID*X$GZ&xV#6uZ zwh)DMXG(aoMsv-Cw0x+G`&y*t%LhZht-x8`5?&6xmXKCh zn@&Dk90cRxq%lwCQ}Dh@mq?Y zsr7R0b>pr>>JCRac`sd(Ozb+ue*CgMcen&b5n-lQY8m%Td5|o6k3fqhHBFjGT zTIHQagI^UCRAYnTBlUDSR;4k0P(H01upge!X+p+2Ra)8oG+^n~4ll#A#KD}G63{Q; zf4_$?mOh&mVNv2d`6@Na+nL#<6%HWxVK6HMIF%M!} zJh7H-h>Tdc4ZBu^Hi*V&cbUo1~VzZi&NL3l(m!=mQPT!iB zeX?T`A%CK1mv&NNU6cQRiN{4jAZa%_q$g3@Pswx1w0 zJ)as~Y&@Lac?V^SMyY*8ci=- ze)bhHO?~7YUCuK-3#9jL(=AzTed#wx*niDn5_omIGO~Ebj!!FzJvA(RXumhH=*uclzJK^}>1}JD%RsU7$fFC1x>2{~jjENO z?K<}3k>|y(OWqSk)g-(A_A^u^4{5sfUfpNwa3hy0e|4!fXm!!a+?4ZYow0p7!}jym zTe<6-j|EfIU~5hM*ouck|HRyFLq5k0Rj|fz_Fd!RC57`>`L}n)TcV`qg->T9{&2EO z3lqfm5AyBX<~5P#%)76I(+(%iHOwz)o^86D^>p=*pK;s5H}fYw`73A&Mf#l^hO28w z9|)YTes6j4-8*0G!&?|{5qU=O{pS6IRAbPvV`-fR2gAXWNwZ$yr-ZQ72BHF1K?Qu{ zE!vj?un>TUKb_dR3s_UWi~5e@VJ+NV#^zo9=9NO zxmRJ!vfKpEc|a@*mMlomoTMCUm^L$~ew{o&fJ51lUh~FONz=ufa2UM54_X>E%oG4<4=qwy_} z*2C*f1_J>rxtHn9^ENSBUigjok*kW>Oi9N}p>jATbI4AJr zB5~nFJUy3G16Azg)G*b(#wL`&GFOo*VTH=5vs^9M)oLLlICvm00ChX+y6QD_d^S3a zIjS%Cqm^oYB%L}3Li|RfkxI@=l>Nff1VmxVW}{ zgUuajU)83`>J%sQ&&q_%8)lsbHd)H#<{uZ+Y&5n-AX5R9BsU~VM~5*A+s8AlYc~P# z2(sDzQi2=&yD@O(TuC5{a}S4fw3~Eg{iOOlFV;>0ioE6_=72Jwlpt}Rz>y}cjqGA>i`G5G5 zD8H_?eGL(TqnzF4v3*}qu^=;WY{WX%&kh0O1(gg(0Fj_7yOk6`->_ltg25cw3i*5# z2jj@8w>3Q|V}BhNWmwe`y8?58;c-L%Nzx_ix<;XYMTywLDorIDaxrj`tuyb`pE>l^ z(g@&%@!~QG`p_)e2XZ|z*O57qJ+a=eu=?T%VfU@z-N|9@7(4lJ;Bu2u938etzOvs^ z8N=cyq5Es7eP9?AInw?DPO!lx8tElraHKo!giW1=m1k1jV5nETii96lu-7JTS@+Gn zPAT5jhSvGxbz*})D@n;higDpcEM5g0GYqQ+P-JQX`!EsPr)tPyY(90q z#t=w@-*z}gmXRd$*!8emMGv+zH*={C39}oBL-^@FVjdj{%@Z7~PwFGV4b8ICbrnHv zySftG^tBt)xcGUojNlA;lcar&lco`NnyiG?J=Acf{+ePC<>51!Mfcn`^>_d#eL6Dy zw&}-+{bLz1JmWFtV1rQ=8bYzkO0DeUFi~eK6$s53b~8@_t?N8(QPaVOJ3*-$mJmPi zTXrM4zlr@2@y~I}`|19381hW0$DVPa^0xkdGG>!n*+|Be*^5Iiu@;6@eMFxMqix*B&J{iE`s(c2#R;JK#`X3p^GbV24gSH% zDVPqAojG^jbf916{D7tMEVSwJ~>0uo%ARfOkqYH^%enB5jj?_`O&y-I|1Fv3$6&do44 z(5sW_X&zS`B4k27>qapPR)G=&1DP449cW!2{bRJ+#8kE~8=V1fwHuF<@rt5rIN0m@ zWP34(Z>Kl@l@r6fm|(@C92YG98n14QGl^_7%#a!;-kHo*Lw{#weUx z`#n~p3P{^Y<|56=eCoO_ob&q4b%Mgo$~D_wgJZs@p6z=;7Ls?GNnl6M0FeSPY|7(1 za6IOYt&QX5i^k^Qq#C3)Sn8%HD@OD+67E{;3LQ2)%2)HX{a_0~qyNq2w?EN<(AaSS z0UxCg$~8*6UYs9vK;}OEZsF$W?7QVd%+vLaLlYYa@-^&L8zjC1ZFOIqRzo_hAp9Pm z+-J5au!#^W!*ihtFy6ycaDcy)yh`;fzvo_%&{}n8EcV0V!2h$d zD<}In)lfIn_*%Px=UupZI-ERQJ&PKOad_%g+;4#yrH6(+>a@*?_qdu`GV@rf*R z(UxYnK$oaN@+j9Zbybt4>Ar|VsCj^=2Y*_{BZoMYz*N!bf=_}w+YQpjFGMRn*8GJS zoNBV+JDXk<%5mZJ!XW38h>JyX_m?=bHairhudR&Y%)0jQ_wO8H=28Bm-wab#p= zEBn;o3i55Rc%+op>My;rfOts@!Qxu84@ptTK21+9*%prvF8j+70DSf`IJ)In{Eaj% zA0%9=LCMdYF@D z;%5g?+ybEhGGnzu>UqOmMG+f=(`&M}7`KACXO$brSkVz~HKCl?p9-**M{@nr)7eX5 z6&@!*#Sn+eK_DeIm`H=%(F2%J*g(G7z&ey#5TUk6g2s=yBsLYx(1tQ z)4I32y@Tlv`bN+faDC&m-VJ85fXI5vkhqgMsD(%VQ zPIg8Q4}+b0tBCqpwgQ8h?e#e(i+0<EL0AZ3{n5)1%1Y9J9wP{SXX4cE%XcAI z2q^g{zx$AkO&}&=oqkIQ8zgQQq<*kE^~Aww$tYmy-o__hgwvffaSH0m}t*4ih){3q>c-fSkzO@3mZiAn{ zYgbPC+I=Nna<{b!a@*vmk?dM{l26Pl06* z>^sw4YIfV*qgBNTtMi769B$`j`85bh7ELxVi_-Udjn1ao6s2Z9Hdxtp@BNW6uun4{ z8 zkQgv>$@xS3`#J4lWSLGbfx-06z9u=d$7gN4 zr88sM@4!angA}MyC7%294cF2NJP`;LLjFBNKW)nI%OWareT(%pi(h0lr)I!PjH>Mk zY1!HEn60IUL_xNJ%zhPX)df+hr4lPiazMAkl_>7k2a)lf-1-OcQG1*lb6HrShczpi zFaCoyr;WUuVZV~0pK@J)^DjE-l6ghn+ugKJ+eVuWMd3ZU9T@e#NM)@q$~c)Pd^WazU;H z@UWA8xY=!d#o~C?9n|`+)u0XbKIp_7b&ZvmcRgiOIWEYs+_bb_ZoJ6Kr_E4<2j-#9 zWule^v4C5$DcWkC*haj5Ul*qZH_i>@9JvL3?}=~JdH;3yczmhL-hO8@2N=K`D{myI zu43zIxo~)$gl}Lyny&Ucui@KO{9zl!vLLbMSQEuWFOK{O zk-|t!RctpxDc=O*R1JCJB|=fUnJt)V`decC8dX%F1DH>eMN&v5f`Yi8T1%;z*+dYy zjpG1$ZN}t*`b2(@W6mAAFra%Hpk~OxOWE6DZ*G}$Id_xXwBtsk`{-&xUMD|huM5FAY@ zw1yy;_}R&Lz!v3->Qs_+Z~t2yBR?4_mE@7tTI3x66V9+mEg$b7Z zzKF-&U?VQ*L9|?yrYnGU4`8wgL`wtflU1%K@yiHW1~NWTnTuVO4<(-lQ*j0PPJ%WE z%e6&)3JH0McU$+MSG$&y!bD!a23|}BeNV8gQNWkj!Bq?}%=vGNd;=UQSLj#MlhxPb zNukzjN+zECPD2oclyh7i2F+l}Wq?@9B;i!auW-RR6Fr%`EcOtsfUbzc9aE-k$P-uc z9kZ9}7O*CgPRc_0fuTFFrL|Tl?}Mbuu>a9KON`l3d~TyjS*E!AGLcc{IVVD=y`?8Xo@~Vd zx!YI_)sgvJh)n@NUT|E|N&7JaB7x6H1Ck-K5Q@tgQSyV3UG$=Wvq4X!sadO!MU8Y%)Hz0W6jStzd zM@qLR^t%S{8480`anL-e)@9&rvuLTPXIHu~oZjE#b#o|sSjgNaNIN1|w;WA)FH{K& zg@wZHB%dpnhyzk?ho<9IK2{ECU*@n#RLS`10$|Q0TS<-O7xi2U5i$j(&gxVCrMr-j znjUUO{2Zxy9c!MLB(E${hj7b_V6dN?HSOZ6k?Yp>VHe74<M7J? zD@nNKA6O`lyYY;gyv|JHU@ze3Kz!&gW=_r`%CaSJj3}oRv75yt5i=+c5n)9wA>9w( z#ptGTC}?~P3}rL58^XY;Whc0;7I6pH7}(sqDCqt2BJCM=Z9C0O>kXoRQ~3FaQhHu@ewPVr`sEjBkMtI8Oi z5;zwOMe9uAg5<)`9K!gsJ6|~834iLg;`a?w*7!!M9?|iW)UGBy=Rw^~XRpH-xs6=l z1paKTr2GnP5-2JkWzNR?eMi@p7z4hL_4HGaAG?+=6@G(_)(F^PC;~v*#_hgVs{a6P zX*+9p1vCI;iabZ@(nLkE``fXh+z`Ed3rwYfcjw#3lJ-V(00*RdEWq;4jI?m)30`&J z3Vv2-4Ts(NX*OpjJkwxeS7u^c?o@brB-3R4M|4Kc_QM(E8jyyir*|99y=U|4$p`v_ z593ayN?^Yz;Ky5r9M1>Q!p0pgY^F?*1gsi4q3PrSq>-LN%%`dDv4r{98MxFNhJ$Tp z&sAIfSHXHuk~;CJ$dZ1Y=o4bb4r3#`74JbLIG>69kXg~bJiWeMdwHk+QopAt3C7Uv zAA$(6HLi&+kOi0O3AHykZA$G%(|L*=ydoi3**HVtzncvw)Ru(+={;Ul-^X$cJj;_$ zxmeXJ%cuj}B^F^3&BR7lN|!mInlTD_hsKmS8LzfC$QX0De?s@3hx(FZn~6v2yRhc~ z4U=BeD>B_?{jPhy7B z#x%pfmVR+|I0t+OHMnhvH=HoScS&|c@KeZ;Qkpl$`;lq&C{a3AMShtljCrGYFHgM= zMuItf_%SwYif%@1DnAmCnUKW>&*B*EhPMN)LOV=B;QIIjjvPHwDrRVw*P^N)14b0K zIy)+`2w3$3c1Y6h=gyIRf{Hj1kG)QKx6o|sBm9*w5E>`p6j0F=o1!GC3@%|muNY%r zsj|+d8^hE6Nai%R)S`WGp=!$|mD1-AAmCYE({R#2=#r)&tI3)TWlZr}p7J|kEEF0| zT=nO+;z~oPM)?&l(*6b!2a;cc=2SufJs40iWXhI6d>No{?z-Ak(DcpobN~{d=S{Q* zE8DLra>wj%K~bzFhzdVQb_Olsm+D)f3Q08?>5NckLlKxD${YW(WxkuR41N;=_bTy6J`+OmSI(Rr0G9K58*M&T&E2 z5*AKjvYYT5GD7QIxH#%&TEkPHzNUM56&JO}y@6KkC)`3glh{**f-^MoMt)8K&*a=3 zJ@j(UOof+>9kV6Bgl5JY|JW=YwaAy<8Pj;Vkv~TZiz9I0d5TWyb|LvPbWH6Zwky|j zuZAu~2ic~3Wzo=zPtSd!8dUs&&itLMnK4Glx!yv$|!ee2JnzjUkvC> zZ%T7up4_+JSH+BejRqW>VN8ZxZMn*+Eon-kIHtnXO?2W7@$Hv@uQ~y@hOWU`w4Kyx zx^{4{2mU!Fd$y3s&)$})aXY8pQjr?ue5mmFh=d* zqIIZA8>ONdVBQTj`^XC^o2MC;kp>$U-br^PTPXMa>u@*AURsH33mtebL}wdZqPJz@ zu?PbPey>rf0C6Pd;B1+MT9`a9TlKG}TO!1^<2UNgf=;!MDzDjae3)ONKY1jw_D7SXSusuAh3p>=sf>^qA9@o|0uJ8;7k0p_#7GTF_{LrS z{EvFF?(F@VgZPV%Oi}v@riPlkNsXEs9~{0DB8>@x`aTdT?FTY%@>T2&b~8GI;GT;&hpfvTU)GNvgCN%AM-!p z>J8i)GX&ACI(UNG$fmOqwS^mgAZ&h+N;q3wC^VSv@UmgIbT&r?zJH1{ad_LFlnadK zLL+4%EGdBIDmF>isZKxE^sHtTHI^H=mQ9f0$mx~qj5eG`3oRu)tLaUO8W_-ldQBgL zxYgE|o=<#p8QI~@b9Gt&deUhfsx-W|=$kIEAvjct>?8nN%30uPX<;g$m_cL(t1HNc zaw9~#GdacsTktfU{{va3@D&kRUylV(zTplu3+BpZpwDrU4ev~=p;xT80v1gt$f^Yx3Fm@VOwSLoK`8- zBKGjS>=M9D+_GcQL)@-TY0+Cm+?fyYiHuX`t|IA|aHUw<)89a6#(_Rf2|Owh^MKd) zNGQerW0XPoOGBRADiQ>@pmzO51UMlL{yAF;4GL~QLcKQuPkB88K6~8TSsN&^=5r~4 zo+DmFOPBBd17?<27%yH-Zebx_{T>sE4F_a{k;sEX% zVL)G-@+rbEG+21DDKKY5U)0w`zO6Utq0a}}g3O1IIaMNQX~r1R6%MrGTf3*L?Umb77H4j0tnjwI zw5>=9sRA1Ld7uuX@=!{?1usN zXDX$A@&*i6OUI9S;ujk?T-8XlJ9Kw?*)9t}VORb~biF9FTWPb9w1kqPo8U}akmyS= zE(uCZp_o8f>1||tQ*Fv;WIvH4cag*lOL;zU{XYOqK(oKwAV}GdhwS;{Y-;KWHoG&h?WIgIF2DrAzY$Dij1>8ClM@UR1%Of!eA_t+z^ zu_fFpzyszc`?|Pxssh7Z^=W42ZB5QwM{f(*Fb5^}JC_}}7tOz*uBxsDzN|J|B+H$y z)j-q3Mr7M(>AAzFGpUWK?i9#qZM9E^_;!t!Qto(E@ezXx2AAgTuB|OTf-yZW4(R)+ zOvWf>TBWp0xF{p*5t{BJF3ZWouam?ZKDJ+d2r7F@Y^n4C@~N`ZjdD`c=CRV%#j((;yZyn}#`} z_Ma>b^LBT;|5MtYnrS{0T+Ouku-PEW`_P@v!ib?5H7lz}&m9@iQ0mV6$xt_h!}N0v%wK zq6#R8*ino{r!j8aklo=m8atT~vzgWAiJ$H7i6boKXg6f*`H6s^1H5%i5zYC(KQTjk z2k}X&!e=p^OI;NnD3(T>zz4i3(`!2c`UdN^`c6_Al4e5-w(uU#1k}uW+Q8{4594A}CLPWqFi*e` z`u%XiOND;D607J_UM|<)A!-DDmMlO?*0T2iUaf!*i&;f<0B-F=cYSnW$T@DSHEuZ* zAgX+b{eR>yU>1L<5C?H*KI>*kRq!pyoB1n^fFmBOPiDMEZHN`^o z2@Eu=&*5p&!H%*W9&B0h8iZMjGqPoovjQyLj3s9cE&@PuSHfRl&5Fy&#>*INhH}95 zVJF+PC@e7S>W{Mk?#yJ5iU|~^iHK~>M|}qVchsd;8G*e`ONoK!h{XPHgg?az2lLC} zD%56GRTtUN3YIHhxMSB&oq@#_kAKY5r>}qzou%OK@aIa2pK1(c3y9SLyye|+iP1Gzq6f4hT} z$SBsRHUwHrkyWjD{!Ixdq`t@;M~gTY+?iPPsd+PW5h#upQrMRZXi%DXd)pr^RpAwGuksJr&Zl7r4;9VbOJ66(}mC9llSS<6Yt6MUk#FCefd6X zu3o60-=McRgkD;wKk-fY$^NZU<%D1_@ra_86a5>kdzt)b!*S%L-GB4e;n3+kIqCoQ zuHXMn;ynq3fClz09qpQT%>L?I+Rh zEUJ;&28)TBsdfji)QipD;Ps_A5Aixxjg+_%MN%do>0$2va# zF)#w-*+MP23T1d5b~(BT?d3-85wzrIU^WQvEETn`|E5f7HKp#TqLWpB>}(AOpyv=lvZ@_Z7-83^It7Hm^+lm9B5ec%2>qrvZF`x)6AH*d zg^8{!+EVqH!s>S2W@kIO>JZjkiOkGrrDY{E0*{%UI62{)4=BZGrSo}=#nZ|Mysn6` zGa1GVGjj7fA&eRLN6bkK*F~7h=A|Ya+D^0D_+-kEnpyZ{a6Yjzq$CT=D=ze)`vj`=x~tvP~oBTA;d%HL+C^4K=c}+#X+(hWIx&; zQXF(E(A}ZDLwbh!4}lH(90V*7u|wfP$q$JSjSrCy3JlQNA+ciW@XM zv^>N=k{|eonuqg4&O^^b&_ntm=%M{kszbv=#6$HV;-TXq*cMc*M$-nt8r49&7uPDpEyYN5VnOB9{x=y zM-PusBi1=1JbTRax43R@N5| zRapKKgkFt=L#PNyPft1O2T6!ZYmwvyy35>euJ8RQqk+brW zv(uW3y9ZT6_kp?+R@=uXVPvLliJ7_l%=dctUidJt+uQBilD`5%?~<8aFb8EQsIAmb zk@sP7mvi2Oln=wh(P^hBPG_rgw%xgV@77Mm{FuBgb{}{jxNdvTcgpFJA+A(s>?X^G z<@h%PozRk!dQD7^eKz;4Jyk#61?kD*zDi5ZX}h`Njyxwjctr555)Yfyy}EvfPpSlS z$bQmn8Gpi-I7v**;gkg&s=Qyk3*0v@&-N3v_dQJI4w82_sH)>R+iu+VuabgofZx1k zdQZu?*fQ>W&~lH<0nGL;cH6(hkbLHvbr8i>rN-Nb_*Fx#eplFO^nv)31{)iFmk;o( zlUV#WB{@bPixc!5?YM4x*V#!eJI5a0{`%_waW)LU;ZrSipz5Mg(dTrUdKtk~Xb*HB zcpsoAh7wVQ5F^D5_jf&1&+h{4$>D{R4O*Qac>N$MqCbD#hQ?p;>q7$GWfq=>NakjJ z;9lYW9OI+-(g!tP_kp{H=fJ_@dWm`I$=u$WhrV*LU%;C!+n)3(BRz18o)G0#J-*w9 z=e!92MjG@&k2yKOLTTH8{D%0R^Zyh*U-2W^L-#P3>a7Rf2J{5*f<=YqrxM3j-Bw&}8GpjF zF0NBIFi@}|I`89evfXOAbi zHe*AO<|se5-*`EUyr1AQNwbN`CcsS0&`|~aM}J=>r(!s1?wK>+HO~W?LG$gBvh<{$ zIUJl)tE2009;D`Y1joulbPRtG%e^`V+mB`f&LIYss{1x5@h16MQHar~n3-aMI zJ+wGY@lI>XxG~oU+W&@LGT^1Z{nz9)>iWmc#Z2Z{(3zwaXaSI+V@IUa&lONJ9rl|> z`&~YpN#DM)9jMv6({{T~D(U`bDD4Wl^HcO}1Cdfy@3WM9PY?4gr~;mSW+T_iYjxdGzq z1LA^eU%}Of1~9x1+c4V)9lb8tF10RoKFi3Br$@fC-aJAo)2ax`PF=CD+05kdPQiLOmg<-EBX%)AypbN+j{3`uqZ!T2?3 zBJ{^bbzxW3UVWcvbimZ=8@fi}FPC-(JQDCrzZeh65St=YPO|jMP-W$u!I!MNH)$Wc z)TlRiAGqazBNeUx88-bNJls0O=9N$Wt1X)@8j$+qSWZ{|F?pu#+E}Mv69M{#kGcqU z6&=HODfJ5ON7RSb7u0L6yK*+@apH0O^DG`<)1z=6W!sHsA6{k<0vIp`!yPMZA4edt z^Z#K`RZUuSyCnXUiX+f&*T3v+t=6^>8N!lXqWKNCY{Oob-8UWE;V{q2G~+HERo z0da19If2PtQ2*$M$L{nt|FlPte;4?GdUAVV{E~Xk^mG#$ z>!s5G1b}q1_WT^guzjjUWh4HH7)3J0*b`KHJo~i|3#v~W&FMGK6@Wmljjg!lhu_Vj zMFs|5^M8c@e{#b-h@VtIIfLph-E(X}Gytz$J8+@t$r?4A{vhkkv;U+9M)hSQj>8$M z6&jthnkA^H_-nPeq2gHAX0GwmWcBKD%Nw2G9rSFUjtO zc8ct?{vxYRPOhYqUYzsoYUFI*aPBLobO@(qpRhCr$>gLtRFG7(ol|(7O{LP-LLKfG zwGzSRohN2O)!lvQz0OGO=u#MF5$R&OPLB6sK^v+=nR*EA zrHNfN;_ktX1YGJ+&w9c6ld=3ic!=Xf>F<8-0IiK{oE^Czw^ehQM|5u92)rB|6QEM1 zhgj_qb#2r;e!Yw+6phVc{%~Pc5$L?sR$auPA7=fLd^`89KV$V*mL3Gd_8j`~{(sOZ zhtqYR(YS`@ZBF<@?zI@&3UT%Rfi5|_^tJ&mX-af?m^cRTIY6|qH<3(#-od*b#->p4 zoBxpe;D#skXNSsh1Kn5;j#beF+Pf4-@C$G5Hg$TQ11+k7xtQQZ|KvoKz#akoVNIdo z;RqxFJPZIV7lRIFHJ}JpEUNG=%ApqL3V~J-)=0T>G#EBoZI-1vY~5o;qazCyCEYN{ zn`}sI0{FlR8MfPZ4s+K%b>F4Em5hgs4d35?pX49G0pM+iIdkXSel(?ZuU$8BOP6Fk zHSR-|UYua_=GUA?WzkBDnUL?c<>D=hx96M<(d0uNF*2s#mX}A_Ki=9$6}$&n8m9d~ z&&#%ajgze;HL>e3FzZ;yw`&k2q?LM#YOsyTbJ2402ep zm=*+(2~8X5Xnk0RkPXacAtsjUClmiH{{S5v7=A_i4{E+To8J>=^Q_CgQ>^|WZG1HC z&MKf?f_`OA&@pz~S>+FVdlLrA1|@4I2;ydX*B3~QE2A1-H=^&hVA+V&k9TMm% zjLo#cljz#R?0rZLP?6uP9(v|HS_WUN1~CS&^_6Qc$VGneO|6U12ktG(8Pgl}z7tvA zx7ip7Mp0;Zt~Q|4$aEX!d7w5eJtI<^(W3^ANEoQOG>Wed1Q@&^z_c`KHs>} z1B~p4tPl{%4cM}y8n*Y1Jxb;))%a-MNHklf)+YlHr}(u6$Bj<7DE|<54@Yj2qOH5` z2Z(B&Zx4R`em9n#(_)XooPk}!iNI>$;#XWAyRU3@o)T_@iO$0j8^S9DPG@{K6Ff?J zo_rpz`)l03kY5hlh-r{4kQ*bmz z+dStp!1GS+6*JYyYS!BDQ+MZTXV3BU7=NP={q?Yl{r&7#AK*o7+U#aspHyDC=D+Es zbS5v0oOg6HqXsqUXU#&5DB%mO6Bw>2(9Mi#c24ZOml~zcBAV6M;G!B0Y8^g`)Iz{t zG?_;joYZr>uXvdE$J+>noT$i&ZJP*%OnFf@!Kz%OF5fBOPVggVr5g+l`;zK>IOggi z7xP`Rr-}Y}Vjv>3n}+7DcWxeQl;4{2>aL{av|SY$aJt3U3qZPRo1bDWV6c5x00O)1$G=uq6Hj6aZW7CTO?KDA@894|M(E)w2$ z=n{LW$xOX%$!$b#GYxrjQF~!lcBv#T3A>66ZhMpT&8o)nP;P9O=2MzXi#zz8;Ll?{ z7Ca9?`4;Z>6Keua!cQV-w>Rf_-4Hgp<Jr zgQ4~9$Qpq$+bu^dhO73BTzP+}0ojk{tM>x&%=3VxTJmnHh0EziEw5&ov|{OqGGT!)m)%3pNV12PodRge|!z9SSKZc0koJn|GXCgh)rpR{Vteig+~ zkq=yWZTU!(BGm7=VT%bR)L0zz_rc8@bop5mvaRRjh!!Kv?L4nfqkIiWC{jceRj?nJ zZw2T138-;za#76w^weCkS0~%FrnndBY5tb9>#Wygn{qaM>hi_ks~fJyAG@j3t+o#D zg(mJA1Bf)%^k$~wwcpcpZ@N>L-iGy(nPuFiA1et3_&zi(sGotIkqsv8>IHwOa^HU#>{I#nd6i(&s(nUUE}ISPgIU#oyLjSvf-l9ZjT_ zGLqmoI=lSKAg!Gkr`!fiPR$pDo7ozvnY+upb)s$uOwQ1Z@TJ+e%~KFtw2Og7U5~B> zg`z={W1FON2U9Ff*-gcIprcsrsB|f_JWn9aN* zo!g}NJ0A>6Bnk`Jm>TR8UXDr9!*@~ejQ`Gc z*rHD?B`u1=>mZLRor4}L1{1SdtKCZp*+~upq0}$KBe%Y>(F{<6!)yEjBAD@BTWWKuK=(n_mDxAQ*bsvcOzym?cJO+l z(%Vv@H@&5KqzF|SNHr#A0EsCA)kV>V~*_kKc_YISxrita0bu-{N9#f;Xt zU}FGjg}%#rCapVR%YtmYD~uM)r8^?mRwv`iy&%=iigw4pVGaJ z>)jW+c#etgZ6z>^7m{x}@fzpD1Dj)Gfg!U*&J;#99S3fww4r9N#O)c$u8^5$=c!E8 zi$?1<7zv-kuORTrQcz!?#PocJ;9nAEE#^5v3bkW#u067n=-zF|#(=LX(c|+9@`;AU z*UUf*M#G$&u4-22DUpItFWd2lwB~PVKp36RD>;HE(>R>z_H#eSpnjyij4(qx)zHHb z#`K{D1zhNC=*#jwNNaaXm9^g3LvqbUDSnV4L}ihP%eK6pu_F)hyjHWdBjsxHLCU6v zmePMv!*wxsX_3PYA0v~N*hGN4W0IwjLqWbeC`xLmU=cJ-^w>%pvt6pjYlcG0!KZe_ z0^0US6)N4~n=Gdl5=(w=N9LKB`J7w=4q%*v#PupL zS)v7`0^B;YUlnc#VMBVHbCp(d7b4!s>wIh@U~L_N(c{%b?}H529|3y@RDnr*V^nMo zTMRyi|T4>-!*o)|HMZXs#4Cwz_w*djPX{wa}qiRox|oD z4RkE*t&qGI|03RMHln%|3;kb^pHLI70^bPfo!*o7-0-juivPeRf z4{MlyiF|KtHTwM!;j$}@!E00Qjc@kL*U=ox*(}S@R^E_q23kZmCLh3oB8i9pmS@!T zGd4%X_)_LVGGnMh?c1ywt#dV!cGj)6C{u4j)!PL8}sw4^L-3g&u}Irl7k)LtJZ=QJ7TM8SZ3pS zTI1FV*(fSA-?+0;l}<4(985B^3S8 z95dwhPs3T9N!zCrBqxvMN4)TFmMM3~129!&9}~5rBtJIzE_FAHp$EsHf>OBGL-XF$ z;2-5W>At@o6^eb9FGQ(Qis9XBZjlf|V|FDInDPta2n5}ir|POIGMfB}o?7b!#j>y; zFTh#q$4V$jZ@C&GGQ7by;OCd0JsJOrR@`hxVCuA)@GmHm6mV0VRX1okU5_Bj_+MHk zOfA@;$MDM+ViSxq7maR|uI)Y>iK@q{u5x`d$>Wg-dQs6wpOR6UuxdjlpMJi4idB+m zYtB{$wz1T=#?%c@1zUf1OJqH0(gjkvfi+g!GQf~@B9w1@b+^u@!f@jiRToo(1Bu0<@SmFuT@Iuw1vrB_1j z+v`Imn(^z7<@miDo6f8<*Q(Z(i4Jj$q3M4a@mSJu^v!-6Ev?DEcPikT$A}JYC7F~J zKN~z+z)wMJefG93eg?nYt->{{KA+lUF^_fRc{E>G4{4!@L?CC}bGr~@UNf|cIFZ{~ ztB%9*jPSQdly{dXBi3tAp*zg|Cq2_uFm-pSJai*x)hd0FN&LW@?OE?eoZ7y-(6+qV^zE0i-?%DKepiErTj z@?ZKQy$OcA+ip8mXt3HDY&f@zDr&kKb&fuipz>qsQFdY+P;*@JYQHO(joU14` zcdMXF-56S{e*am~>W4-A+7S=bI2au#Z&GqB+I6s+*biu9G1NsA`kAw`s~o!RsM~Rd zv&96`F2Nr9SaH6>A_Q-ahj`ERqs6^F9`M{TjCr=aMnJW;z7nCr!vecdWaZ$gN&RGs4$+UT-Y4Kq6w8`!p)(hCW+vjb?tf zDETa6+;{nH0`T1O z=MfuhKNdAr0RL)I`b*FIg6^D~biWE(o+x7+Ec}-zvXaEy;_S_%lNUmUBZNf0Aloxj zhxguLWQJg5oamG-D^#9_i(WL%Y=a%98~r$NZ4FtTwtm{+0l|byf?xtW=XL$yJ9E3j z1GA6#`9oU!M(3J$C2!yvkeTXAF`6E|aM}lSMrHQ^mT8Yytzy@RQ`NcwvpV#0_`WH? zBYQnv-80qyWd>1#V9JNE#^^eDO;Cm#lca_lvC>$#lZ4Ewuu*?R4> zR#ADHt#Z06kLr&L*7d=SXYrIG*YXsNgzgCLP z`lol_Ts73nvdM3i+R`ks`{jvc8D96xQq3|L>oN*(U)$x=_p+twTCWRtg4-4+T1jnQ3eb|j+P>@tYs7V^_c{?Z?A9ok^xypjbtAkV3a zQ4jb+5o0^HD6m>R;~BQ{UnLy#*uI~vzn0B*E}+nK|C z^=Gz#4dxq}vord4Eo|eYCPa&OZG1IURWrZYrUGqxVgh|(>YK5EHC|omgq-^x@IfXa z7HZa%t{k{%amP2?X^SB#vy+JxIOJbi%mZE;3wVxH@3EF|?iH77iB!n?cSz!AS^O-0 zog5(Rrm`P}+Uv6(6TC&dYhtr}?bt8VSPw^B+XHAgz&^F_}d!uwP|89b> zKJYBIYblzJ%?>Dx*6(7oR95W#3Yl9RPpw2~`QurhPA;M^GQ(wqY1I0*5W_XN2WIuA zd^cpsPDu5=YaUT5SvUh+gOe;`ul~0=xqaUz=)?kB_!pcLu(u#_!HIS*g&y4S+8t4{ zZ049i$0uf3%tiO?VjQLKD_l2aad)yanmda4QoNkH6f`Q89qigw*L81txC#QD5*Nf% zfJq+ouuX(m$_=eFmicc_>6`f@&kALkG4UDLTbtDqFg|}-)gpk27$Fx$n!j7*y9@I! z$%J!0p~JH5>}Z}8^Pi;C;%SgyZF*b=E0V|Yt=F65Dn@s4xBLF_r=NgYs1u80BUyI& zxk$*1ipL1ZJ98Kz`Pgqi0@;22YV1d5fJ0$ z-ovGabeMSDNjSt}Z6AAy7Pn(^5Jj~wh>JrKLAHoqqo z>!&`E7d=ZN+^b%lcdSzB@C|s6SWV70g1hBcGQc+RS8(fah~C)m@~iIVYJ#?2D)&ak z3JN!BWtc<#kI?3#pgnauDw)CJ2R4Tg)$J?JsmQ;BSAcSsQ_Eysk(K;aMiy70iP`s7 z$=WtJGd?fkXRVH$t`9TFuW7Bsh@k5^315sY9yIu3+40#x8aYFA{e%_?Cd}9Tm_6iY zc*-I(xn&MDa)gX_ZjU?XoPi%T$z8+*%oYNoo1@-i>e*A;CUz+N(v4mp?G>G|d|X{X zovvOmoZPP)v2?J7!%<}Hztio zh4D-*Ysks9_tB*jH4Yi@+RC7h29igNtsi9Zhw=!8c(x=(EJHcxSJ79z7=Nsf<#xLB zJr;mD`tbDI5iA9)jTw2=%mfae(M>}rA!{4BFN1Gdc)Mk?8HcyS|dUA{K~(Clw$$4)Je8J@fNhH0bN;`gym<-t_W>{laL z%YOu6{cD4`#nZ3wM>qDy_3N$a^sUNPG^-=iHL>0)!J-?w6X~MOUplaKO@0B?%T#;j z*+HR!rW%?mNe-Zib-gjV>RGl?dtN3KstU`u8qW#qp5|J|DFQXFy$;vf?X%dMW)`+L z7g0$bwcUNeWy{54Tx6{mn?ndVOmN%6MvCd+RrwOl`Cl0k{)X2XX0$x3A)x+W^5c#V z6+ErKGGnK=c-_8=qnTa4E%{*@;oG^a(4G7%Xa#Hg+s;ULzctNRHD-=7ht_x_b+Zfn z_$*xwZn$UeE@6P+g=#c$d)9Z8I|#MC{;vy3A!{n}b@z_A{gYRPuKCfzOH$k6izty8 zUJ(naf_B6K6wBzi?>xM5e3s$!-dfdc+@i`Ms_#IGEz*zj19%)Kc;z;Mc4f_YcW-@; z&`5MucBu2y>qs$tTX7fNoDFFlTa>$Dgy9s_$6`hO`}Thp``N3!YdTqI12L!u)<&(Y zt!Fn=YV}L7QXJGUV>90uvFKg-F{+O+`+K()o(F(a895<`JjJu^=IY`Yv%+PW*CXLg z(=Lkju5RMcKm+vbJoc^Ua~H+9dTK~3iRN-w5!i_LaP|=qo2!QAlpl3f~uI2OYwFr znmqHl&R%AEgg5mPw@kq|oTr^p2X21Pt6(+()$_^CWxk2bsq-6_a}(b$J1Qo}sByeg zUobjm^0X&eWwbB&F{U1};$ zT=d_tu6AfQrZ%u>?W|Y<2n~ex>!CIm%ZZ40NLQ)YH?QZKSH6G3mdmESD*?t<5KdM% zKHXK%NAw=?@dzEEgJ*WiJfr|DL_1_0NFxuD?! z+lHIIf3SYp>hpCi&$GX}N;JdX_hQkCLXdo((Y!XZGivo?HJMbpiAPIp`sgjzWEk)0eA*eFhkz%> zsyy0_AnNih;#)6$Bo>7H1Jocl<@PF`|55Q4sVe?tHr!z)bDfXKJpU@0<8HGDi{9HF zSouQ-Fdw{aM~g3T)PV;*y0K2kJjYq&r_stOa6N!mAeEWH3opo$~5cb-` zJ8XN#K7&H?XyIP2V18I@wZOX8&+okYlvS1py%tZeuF{JMD|GfZqh)U<<+?1tUOGvg zgQ)j%&A4V6e?5<1&H4?m`|rJ9E0*-J74E#lvz63aUhVW&rq7^i+q>^BM#AMq54!y` z@v_Z4nbhcVL*7bXt`Hn zs3pNbWQ-6_PFbz@Bs z!f?%Xywc7yE|X^K9W=L`>$I}VYD^O82A_IBzoY@f2PQubt!35MQm?eZPLX?0V~dJV+VYMTJCy32%3ZxkoF= z3;{verRLJxQsDC+_j%j9b~kr&mY+@Y1rfIzQ>nq}f5~p`HF!r-FbIP%N(@*$6HoPY74+N#TddS~ifa~gYz2T-uvdQIr+myF^>UTsY5K*K`V z{xLf|H5Je<*@ z(8mWpW(C;R)Zq5K)6PZca9Bgw5Dr(zRJ2^tV*JsF0X!(*OGdzTm0E|RTfR525}KsH=)8#Uc_O@X8O#YKsi_}qeOUXldw-^ zh9T2B_mZ>kOMPCw#;J#59Gce&NpuV5PQ1{6NZP=I2tz*0CWco zN)5ohP@fRla-!MUq&n&CI?Pe?y$tN3#QcWAKXOj@M zp!1^nJXp7hBsG?|jHST#okg-_Ga3bt(H#*v!bv{aEBYfT4)!$6J=z*+<-qxFnW?#!@IMwy1XoN;J-B#Q&1-*Asx&4>;(2xJe1>yvsH7GaTtA zYd6`cy&pKsw9oly-yX-%ccIRwGyheW062)6rXQlwd_TbduL^^gn@PK>VF0yK!Ft)H z#eveL=+7xbLRSBE^u)I%FfD-i{=~qo|%h0t<;a+!8$hY; zsS6vgg)LHzevo5C1KE+U2T3DVJf`Uys^3_}F4bK53lM_Tde?{-pc2Q~8@i;nSN1zW z>+kL{?paG(kPN(}uney#{mWa*Wd!9xGV>A7Ow2raoSg=UYTRuAB7=Q1Z?U3iG^E@X0rMTa^qSpZa|e{L2G^60F7+r02I! zs8*3;bW^(wdh0txO0*$pVzDilL4sRAjt&)FrhOUV#JV1P4O-@oh}vru3ln!W)r}xm z6!cd2;@jG2b^ZLXAy{;NIFUVx~b6x}TZod*=ORL=H4NCLZo{)Y!@ zgy|B0U?RKp9d)QVT2^NxIxPb9{UKz{{6pFp7t;pI@R$eF4w2Iu+=$^m*O}-$vs;v{ks{S@?Uewqq9Bq znCKBIjP%YD3s_K@+p{e(XH)wH=#Z<9gJh2tNplxbyDuqUv@=K<%>m+Tj#m z6zm@C6&un>*qF2lL!iW8+md-=8p8`DPq@Kv-ktEOIWIi12dmTAw5mRrPm1IH;s z?^BW(Lnvc#Ml~a=_XoHAhS=c9rdNVq``2!jUp6+vvTF=R7Fxv&UM4iGL!FY*)@0!^ z5`(7s!re)FT?fE0L533=nx#*D`+ie^)hZ}8!y$JW-O~V91HOCd^Lme+`-q!4qX%_JCFN_z^O6`591-nPKZY3n4S?ib6Ml>5igE?j;K+%o`vXGR+Opr6Z82qw zPa<;gSD%Y>FN`Mu1GjU)=?2yZr@E*eXcghUK#n7-&l0azy_a$|VaOw#5+Y}I z39E56XCu%bvt@Nhz_~f}f~*2C09XPh@n)7N?XOAp2-7K_DrsPS@R<Le&{K5sQ1RHQ^H;k(^k&* zpo*k&j3v~2x=fj-5Un3Gk(0lh3XSkH(B3#6J2HImdvFX#%;KY1M)vldD@U2%bFtOf z6wbm0#5+EF*n#t=c6LUoG7!_bw)m$ax~T2vxxJTq?KLToxaa1k(p<|upzT*glxEL!4*Uc=KV_rMnkVfP_aKX3%E6ijYftyEd{>Q#7bWUW;fci};R*pmo zYFAYPf2HXUr`-G#myb;GDeKP3l8_7-ZD<{sW>hVJZ{SoC*f)R+yoUW#NGXX={|;ti zC5dyBd{Riz6S{_>TL&S7N&@64Y%F~Mm|MPmoR4MplREkOr8F?ohcH*~8nb6{^ zJHfH_DM4-;J?AiMbyI_%|7Sc~cqT%5suP)n+oN|g4Jt)MkjLUhDwIC73vY`~nX9oJ z^O|!bKXHIV3995(mXXEgb2_=i&p)`;^sP(7FPubfH~pWL`cHw;zkk-x`Ughr@Pz3! zk4>FEV_!QP*qYT$r*rG;KI0zTw2t#;-+<}X8_@ZDWgrL%!NqLh4X3d-YSmX{id}|Q18?78n3yjb0?+2o7svn76 zJ=}P*yb9q-EpjsRvGNi~YsMw<$CKqqX$D{_@K`KhRy;Xw{VSM{X-X=PJ5IIXpYc3E z!u|#rejU02O$_nV19)5tRmo-oM);P2g7#DtmWrTQCXX!Q?OzY=Y8^lXDG28_`0C4n%eo*;N z#KUmAlot{YPy>X9h|__~(6W$*6Vr`X8Q9Rn(c5U<{O9(sI1Hm#?Opeqnl|q`kCF~D zW~Dv^V71U)$3YO)9vG;^shTYm1#3zlsi5mt#%b4Qj2|a2R5MD2TOrO|R53n8q|%!0 zH)>s%XJMyWphPopr=w0Qs2ZltgYrCe4^NbDi$6~H#Zs`zpeEq@$r@|V&Z;blXOPhS zU@pOi=^jBb{89?vkKwR%zeyX1PV2$BXTL|f9!PvnRh9xK9gy;;r!%(Lk9JPfM?wVoeh72othPshEF_(lU(I&|E*B4Al7&zsa^c?QqX3p$Po$?Av?RL_c`I| zl}_X`&r8uNM6gEfi2j7~9e%Tedio?G1djI9`8#jXEesXPz#cdJ`tPbVsog)e<9@yL zQ$`3?=?P`2<4W@G5m*?*>(c{8{>2aW&X0m3F_Aa9h>0XMLpYPv?k2}Ba;9EH z_XJ3FLMIMYFYXLfY=oHnNn9UKuu*IWvoi*V3&u_7b_gIeAtp$PSF2%FIL$@L$sYqx z8f|H5=t}v%)iv_)kmvN$LWqYRCw-YA#z02GATjxDOKl>$irr73UrnzS{WpjD>gTmz zlro1dzANu1?~{)Voey)q4CgQt|Et{h|OX!aqk{ z{`@ggDRV2vv$cgllD0z;T)EEk-FN%krE>uOzCAGkA7>xm90w(AhB&bO;pu>I8mjRF z?e()~;{v2H6z+cyupMf{12(2WSQ->^k2qglI3F{Ms$D6Mh!OSjG3hD)Yfxzw?Q*OB zz6iMxZ}pOA)m0t#G#+?~?2X=tYw8usWy9s}`_8g-y{S7^LWWax+GV?t9_OAAfOKa&` zWgJDXxCh-E8X48!+jK<`$u4X$S%g=4MhOP?1>o?0C2U4q$f5N1G3GV4Cbevyrf{_j z6raI7s=(=-W9x%T*-ujr*G%x$Ppxp;?-- zmocBMD8dw;ue!RyirlKZroS^uAP{Xto-A#6;;k7x9=FWPIB;?84nO-BhGlzB8saHK zU(-73qe9y8yRS6!?mt`ddlB7LCc6Uo=}H93r5Pm3Nf}V)HJ5^pR4=~?!vtTE?}Bik z@M!lN)wEmH-HHJy6rhq`mDwx0OcJ~$c}o09?Xk)g!4aI)P}n5dHuiLWi67S^`92bv)u9WG7+1;@Qz4cy3$+nQ{WFeYz1A=GG z2p4l>1x99c!7ffan5R54Q8b>NYr%?JPj6KzQ<>6cG@ZfRJ*nb4GYcD3y)L?#@cL$F zxO)$7LN`G>P=$cK5PMg%K|5yb`g>Wv<^Tgwk?TBa5jM+?LgiZSOo$)g>QiCzO{k@D zr$>JBDyvYVg{MJ(Zbh-7413;u(v!Y1{RcGrw~?7t8B zg1thz9n(p5f;W3`vbtJ&T)GsUfZf485%iancmOlwcu~qVdHcBZiM};x8G`{tfj{W1 zj!R!;Jr0ci?93{;;LFt?$}&{T0AeR8BUmdpfiLmb3m8v!Ex=abEz2e84$OKjjS<2a zSvP?S?qG#CF_=-vgqJL)PiICcgfTO#=_Q>)D9H@6S9!fbMeq-T?@`NgFZCjlO&9Pg z=YtF=_L_dCI9d_A6Ek^F0(xeT2w`y z65|1g<)&istr;fPIiyvJFzWX>!YgO-o!;;dS6bWN#CxuYQKkNT z23e;UuN^hTX1mu|jq-7JKIH_g1lx#zMprs4DKq{on5n=f%c1Dm87ohX;;8EcX0bl= z!+iTu9%He)C*&yX=On+>^(wzAV+3D4!n+)!-8n6kTW*Sw#8HeGI|N@_VTJodM}&*A zOmf?QV<+hQEmrjtixvhm0BBtv<0x9F{gf$67>m)^ObVudu>Sxv?unOg**w?>B!*j! z@`JQ`YYhLY)?!xQmaLq+?P8peq&@r?SV@|vjSBPV0ksQHKm+lP0fp}>~WIh$Sm z_A>{B4s4-Jl3FTZGEIAFLjAzCH@X$|0hYJ6#}fLoJ<5qW5j|0TPgeX>pa)6WG22mG z0(HF%$b4lo5k}Sk%D6|?Dot4Wfo+b6 z#8{0oXdc(h`BBs>hWmKAKoOV{*y~o`EQHC9W4X#_1 zMhUu1i$pwo!{#@r-Hk+Em*_f8>;Kad|5$5K9q9u`>Ov4brhaqkluXPFMoUlJ(}R0N zM9xTB3lV{*z3%+|4YAD5ja3Js)QzA$rQ{nz#22=jiX9Tn>nvs4JexdNv)sCU7Ve`M zT$SMporJ#@GBuz;r->>#jpGSUSZJU4%iPgADmr*FgJb zmP7;CT9UHs;Uk|at9?MZ_GZWQT5R=T>Lh?|PoFX6_v-txga=@rGQT!K_@W1>OnHUv zDQmoG=>jE_ax#(OvS4F+W3qejU}rR53>SM-tH4Li$he%5PN=`YBd=|`{APUil#3d5 z*i1o?Y#e|lbjLD)bK7n3n&=^`uA>?WkK;{If+uJ3mgK^4fOuglXS6+*Zve1 z$WDWbE1r@AHda2hjbvKUStF%Tg%?jAe4lg$0{=L4IQXHI`)Vn?83PSOSSI%+vbKDy zp*yx7gtBd9ZcidZYd`lpG))4PJDQd(mXhYLuD-S!0=YIE^TkkJUz(d539Jh3gH?(}zKfUN zP+-F|rh8Qaum^+O3k(kq{sYIK+=dQXf|kOy>64cDP}ML|Xr>PXyBsi^?g#8@jIE^_ zZ|>+dMi|Kgp-c(_5Hmw^h-@e`0jBgCAh!(L_A4oUK(n>%C&y-MK)E!fs&1O}w_&lT zh5?-A{r7%J@d%zG#RMblZ*X1!GuPVb(G9?XsqeJC@|rbe3+hMx52cBRf6><>13axu z?>$gaL2~cFa`NwbH28Dwc@$<$q2FxH@((6@A&;IzS*$gk&CfY6``vKLmdwQHG_1d= zep1jqITi~UUyepWV$nKnK2q^U75^|JrTA>>y*9I=UaNMd0FI@wEf&Ot{NDA>eWrCGfJOTgUB*&VKC7dmE56T@U=ZkGr9*i2ql2V zYFYnIW7ZjD=e))^FronsxxJD`M$1nJFB5-vIYc21!=00pwp+bwr4}G4(wvMH{4ADL zDgA1CSoY&aG=4sR-3T#&BUzMj$i{)uB*f`z{7J`0_>tLJ9JXsI;=iXE-mN5ZhBnUm zT`W;Jx?#?p?%~gp3Y|Q)Mk?z0+Xas5;)4tBCuB)& z9L_bZ5>#*|4M0{xYlAJfRZvRw5*wU?gX;?;#Ja5hGYYBk3-cO{OZmS*IHd=2UNCjWIV4z_D6hD?WgG1vZpv{decl5>#*dq!rY zZgt#m4SP_ai|rac=$z^p`7s%2Dzv{LKyE}eGlMfzUny}xEMK&KhI(A8cgFw6NB^h23w6rQ?sbz`oEREmC?PBxQaXPK&?&xpF4_NhLJ+-t^$ zitr>Z4ZWYK(bluy2!#?ZBR%}a)vB3bhk!?LNAgmzFtKnOoBLDm{z=V~0&l*PV_7&+ zgUUx&wBjxl$nk~^Xcfg#^YArJnO7Q>`_q|4XlX`Rc;ZdeStq7wX(VXw^SMQq#+fcT zwS=T;+^$XBu)EW{mE&}Cnb4EZ-M3Mzto>7J>w+6SsRWh;8|}##?58O5jTEz{7OAMKTmS1{^Dz zCPsA>m;_;~ad?7)?4;0#X8q~Gk7kP{g9h_IpTA0qw||LD<}2N+dHQn90b{5A3h8QBH4bBf z8t51{;#}!!#|99dUUv~7)9K*EfHU@ylt$d4*l(U4svNP+U{Sm_?c7QY#HL&2g>P*v z+x+!C_3zpscW_4h*=tx60xdGsp#pD8>x*{JlrP<9Fl_qjVltoM zDD1oO^%Z2`7TU$x*NSaxP_HstP|$@=&#X)tFg$_3 zHOa0viSp@T-Ur$?JZbw?xv8k@>1ICuBWEC}+K?f$$c@(0TL@6Nb7~GeL}@yZAoD*O zAt(*K6!V1F1ww`-;j@Nwmw#sp98l*v8|7$2`2&IDc)5s!dJtfosIb2lG5BK~(&XC< zaidD2V`+VR1x$Z65XvZt(Jx2R8Sh5`J|jQYi4S4R9*}c?60l3W11khwNq6BA|1$N(BW6bYQ47*)igaZsF};V_}S@3%Sms`PWelg+zsx{ ztJ=bbd>{+Z-0(9cVVx3ASL^=@2~|^oI!bYK4smU{>QM_Dr2rq z8$jdUi){Ji-o(v-6o!{w}74o&?)P{23(K|%qlumrpf z=#`GC$sjD-;{jJdrCvXBW04I9CX=cPuFb((Dv&CKnA&$D0v}A3NWbV@krrh7S@99~ zu1(01%e!)5h5xxrb|ZhLV3_nS(5U~)J=GCpvmCAl^UV}?_?dhj7S;Vg;o zTIO{?FX)8o0H){!%Yj0h?@9-;U=ySRG1dvu0aloPe1txuna+X9a1$m6rD<7!6V)B}+HLUwS#*M7$PGAu z1P7!3!eM}rTzR*J14^*|aD^_@lI#G^*MzSE6P^;d1?h*X10256Y=n$BTI)G)W@GIt z!O5LYi0j;&)ZzN)A{u|(tQ{~BDT{P&O`>tR)j)oydmJ3}i#a6LTwc@rq4Gh1+KCKs zlIn!mna!Wzh@-&27a~tYt~lP2xjs9KUIY=FDwPF~ZHd5G<_B=>=60ki7C_?e5Rcp* ziuizC#7X;zLo?2RoF@7GhV3nk5*{130fV0Rf#gSg4k>P)`0i5NCFv!#OK6ro?3jph z<1;`*sMhx7^;n4Exm%}%O;uM;fAtuEwwRD=^^vpwz}*yr=>iiw!SRVoXCtOAUrQ5C zH3Z1LOlkGmhK5jI)*p;~DzRk(t@LHA2xt`ic>XJ1_MiP+Kx20Pdy9H!=27V1ZuaaQ z68M5~Z5GQPnHE=k2?c z8`%2iD#pAfD>9+1AqbiHpu`|+0-8qR;P}t(Tl*n=lI-~Tb*b`VpXHC{zy={zZF^K- zOdpE+u=e+Zec*aRhNCfmSv;6YW|IrYtz4bVk0SP`_a_;`hs1s?HNNei=~rsw3tXMb zXeakrm0DFvRHeyEoh~>*zXtw*Lvw{zn)l9aLDQFwC5#Js#wPBmW3<6EKuskhm>mgu z=v6nYBg1eNH&z&LMM6)zR;kPp;@0!oh$o<}!gc}G_2tHH;Nk;Tobhp&U8$Gvh6eZ8 z>Fd<)Z1i?rtArWy;{%D=P+)@{=E9$a?>$G+n|d>~W|`7KO==em0I03CDQ{BR>zF>T z*Jdt3gnf4i?AwcB;epy5f$1WA`*E3HWXyy%lR55Mam-S%U3i)k=7$$BYq z()5z2OK_JZEz(sX5@7d%ilB`UKVUId5ljw@F<23f#R16-AQ8C-SQxGdVc!8@7_SJ| zgI(YUECL&Yg$y?cmx=-)F=P=^4;&a(3To@?(iH{5oYN|d8NxRzy}p(zhHT9#W%J_O(Qjt?F8Z70Rmo+How?OT|S)as5O zj>>BO_NGymtuYTdb!U$bhw?3VttA8b_cwf>-ne1TvUQ+tmvS3Iw!h?U-`ZO zVRSHORp0~vh)}^hE7m|Ejv3mbKjeyMKIq~c%qwEH$^J;Kj2{`HfPWbOZW8Suk}7`T zZ*y-ShwyE$t}Qm6+97xU(6D#O|95As<90f+`-MuuE!tH{Z7Bh8T#{6y1>+-J#=Kd} zi@YGUuCyeuP=}EN2Kt+&m_4!l%KVD7bXx#qL!FOEVLvfruXW7K$?&tp_ z^?G5z0nN>a*3G&7p+d(K9JZ%bs8S=Y53QsB?IPbSu+DEgkq@Pt|Ls;eU%RH)>WO{s za})n*5!yRH?w{p%E^7thhtkctaK0DYnNz@BEgza^sMINS`LaotKEI2@eZg~{&h-@8 zHdz6$7?j1&+4R@Lf69xgU=2)$^@dIKS9T;4tW!eo1Co6bj>MCCCsbU)WD~oBKy>#0 zU1O3(2mOh|sjRmWwdki<7ujsUJDiX@$L+8`Chq4CWqz+D8q!#X;X~8U$p)q_;e*0- zfxV^9aOv_P=k7V)95UzI$&C-fdsZHsTOi#~dP_!!&ejY(eVEYJcm3J#lNKI-)-*NY zL53gq*5{Q_5#e_ezcpGoz_7r z-ynnHF`#Ec8_zm%n4JbZdKpIQPb=X3QGsk9v+-tZ9E;+^Yr-qs1YHdDyXu}$fLEP%ip(&N2SWJ3m9(p%Ui!4W_#i*Z znv3Q5SH}k&tx^4}E+w^2%@_ljX|>s25x+L#Huun*8fr!m-ducW2YIQ;14BMOujPG= z{O@_RSE26^C(5ztV7wPC2S4K~f|)`PX1MLL z&6OL7UdCCcRf8F>d*&i1L^QHxm9v!d`Y376MNn{?Iozc*b;1jCZu`Z{Ac0AtO&Wwn*s|5x> zjJ@E5z-l<@YZ^sRpQ2B6#@j~0<}qv|S>Vs3pnt_Li$_wZLLH70w~kxMBmQI8BHb1v#FInX z`9^e&h>2M@la&h@R>yxyk+=+hBEMw}(F?OH;G=5qDB^K9VI>We0I_G>G|0mYopQ2s zsm8R&3Ez#%V=Qs^UA zjQ&Gg#t`mhqFUCG+I>u;idjTo32#@MKkt^+kBIVVxQ z$|-O)aCfyeVqbc>Jhh6{I7RrXAzEHpw}&jz#4fV)o|Jt0N6(hoxEqLX;MI=WMR+TZ zGsocS4ae>V;+y2NSh4Nvg~V<$hzA@Bln71)o?bZ13jUx*Bzw`g=9Dh=rzH;5#<&K_ zcw|^V$4RGD$8en&^s?{_HnZ;SXcG>Ui5ByEJ#oD=u-=)^YOor;5^Sr(R;lX8w-^3R zDvFhcCa?<-55|VqURO(@GaQ`Ho0v7p8uLCH)s4OW2RJ-MA(B1a3VM)P)0B+!FRqJP z$A3;XD&Y-T`mn5h0sLc;#75iW@g0UcGJo#>FbgaOi7iT76u;>$%3cCsd;l=nm(1+l zMVay?VB~;uUtELgKnvLLuYb?3hbLquU*D25TW3XN60{t8{!q7}U9%RBlAw-YbK?o- z;edtwNmJcGcuJE~p>(4#O^ta*=z@Q8MHk$0dzP{Iur(cx3Nm=ksNl!jw*gf)1Qml^-LAdqU{;{W>zN4y(kDGH}(* z9*x;#pRcpnW@DdvoR8r8y6yso`Tm|wTx&QJ*yRo0N$p3)0O^!og;$PS>8HfKFCEAD z*dVGYTgY&lEbRJjY4&3EBNQh z5c)E%e0bht{es~$!*nOY7lKE-e9RX-8$s!9;Dv#{^eM-rUV*j2nJnOlUUhf;c*K zxv`0A0soMk?wS4P>4T$4r$#F#EPa!M)92F?jd&FC+ccSgt?3K?iTnWDvD{2os2PZfQ_2DuGkLiF%!Z(yGco?SM{?DFTL5!d>=FUJ)I|2lSmY`Ow z)6SjZ)p6?H_by~++3lI|l7Vi}I`{^;G;p0a>Fdu`%*d9%qu+WluAR>__r z9{hQqvaQdvDX;}(TU4HIrlv+x_4Gn*norY z%85WmFJa?;M$ZX!S7z&$#PQXB(_u(KprAmgq7!kUVzvSpF#PZ zn{4F$4o_7n^u6SbmKL}E2lAYB?Q3|J6N^u6Zg+WL1Xg3hjb2Q=V3x;YmP?cg3Y;yn zli|0*Me#G@XLo7f7Wy)`3~&x$d%*Nsp zwqqzMXCK{_?HG6Q-o)zD zm1!;Ufp=hdscOidKSz1L2KLtBRr|f;NRr7UG zxGbU331&_l6Us3i8l9aK%B24s@7A7Kv~*8LtPO98(F{Tba?U%ShLN@VVZH<@kY@B7&;@4_%Y*#h zIC#H}FT*zLpcuUen`#@7&NUEd-t@=NDSbIJ&KRg{?O;Dj)-6*{@pG2}11q3(u!H@7 zOBR+vDD<-lJd(H4RdT(>Wy(x`04>xRBlpzsmjREqmy!?J0JKfJhJ;&(`T;B=SY)wj43pVEO550P zOc$b3P0A?JYEkoaA?Dybsw;yRu=DKXz44Esvo$CB`V^@&J*rK>_j)Tu&KEk-{#rh4 z9GBF)bgc$~)$ljwl$zlIq*77%)^C0WX(E+*M6-Gz(G(~u2qC2_YM1Fx&qOhN4>J7! z?xd61otY@`!GZj#KvJ)toK_X&p+ISDH3BB_GHSWp=_$JfrXMKE6<~E^6JPC=T zg$bo}hxbaeSb;@r0vYOot}l^6+t?hci_ef6unI2H?BzaI0&j84m^Zc{7I^oiV^{_R zcwp!&|2ezkWPGALdl41a~)b3eotM(VSV}J^eAlZSPPV$GMnmkBYo*ex8EQg zVu++8mEG~zBr6uv)t~(X6=o;HKaaXrtCg46T&4ouY6{~YBv7j~JUVr0_u)@t4TwXv z=7;f>I^BJ7%C>tHA2mN~D(?&#g%3fe#<^9`O2XQ`G9H;&b)RrOIKel6Bo~rD+O)Rm ze-x-v_!6#3evlV#2L&&AELvZ=`J0y@2aK1TmdP*1l`M^U=kmZEY`x5^$WX=5BP95( zQK;Q`D+<_`rEI9vfVq{rn`-NsT25=AvGG{&-dIv@bqhO7$AS`u3pTAruT^JcD*ji+ zTv^*k#aQkg6bcN!}UYPXeYk%qm_T>+&}X{^Yq-C#HiA$ORAOc?mh#;xj#jnIlO=# zDqnFXX?h7-aY?|*zZH(7UMlKVT5b31saOtcuBrU1Tdg?Ns_k!DV3+x?{*UERC?@V- z%BE4Vuw&U&r70t?dR2SYtum5v>r9|jA*tDQqmAsT%^Xe6oDspDaB!Q>7^=I?&Drh} zUFC0$@`fQoZgy`z6UE+~rgN1tt=^}5(@nv0JigLmlcpQmx0?>Hp;-xLlN~YPGtJ1j zN5T|s8`Bl_>G1Ykm_uKGcU1ka!ofDHnTtP*%Q@O-Jz&0IbB`i(<#!MAoIE{(IdH>H zrAxmUx9Em7`cT(IE20%Y)721h^RyA0jKvKkmAHu%Ni(=z8d z0&Doc08c<;?4Fs*@dx`(mc1#Yzd~QhDm1xCXC;AoKp;MOIcLo5+i`1vO7@gGSd^&* zgWB3vmn-%z;e$JFz_+vTuT;lvZL5Dkv3kOE4pe&joE$W~ahEc2Y}cjC505MkZ=48M%I zgB?hOAxBuSAmYuQJgm`;4*(=dIzmZkSiAe}-VI?{zMVPXgIFOH;{pX{891)XzHlrbC_3M>0T4s`>Bx0YaeIDuc z4kLdq%j0REHRo_|oF@r6kZZ+B?bE64sBCIzyHQ~L$#C*-+KR#Kj@V<-$=ypcK?Z+$ z!+=b#+`UR1%^Q8XC%h&AJRk$Q$$rvSb?=-Hm~;`>Ws%?OGA6&o1}R~5LH|rdTxBU8 zLYLl_FZpPKXME7>_Izn)xd0THdOP}FXg6uc^Afke?tEZZhd=a|9{?Yrl_huU#eX15 z?Kmv>|4St}m*q?LCHzvMN}(#mrhMRAP%H<}?|ILe*}JeEx>)40$$4oRWIYj5x1)2s zY5*|!4~z#iY(hF6Mmkf=PtSaN#~jD+0JY!-gB*nQ+b4L3f27ocFdIPm`{%qWBSfs= zK2QvJLIgDh<&W{3GXVXt@4*7z8Ox(@a6wz}?SgTz&(XVJ&TgXEna8B8!x6my(sz~? zkXf2P!S4S-L2vsLJE_;V;qUgGKOCd~Y^CN5gX26C@r?vUYES*&>H$ZAn@h<{SeKxd z-6a73|3F080s;aU0u+`W24HkB0L%b3ZMI-6*_vcDlQdM>6ftUYL4`UC95Rh=r&HbC?OmJWeTkK(yJrqF4k`dEk{q7}A1uwlHz5MhN*Io7IUR9okD+0Zyn{{E zu&4HzJ;AbrLMu{L@9^#g8{7@tX^9Wm4l`i(Va7oCM5|OAIPDG*pW6Vw44htKh?XC?R@46+a`FimfV>gA=pt6e4Smp?)sLvc2T~L03(@iu7-vC5kDs*N zp}pYo#ajq{*cu}wZ{%DiG)r7?tc93WpQ#{1tBaheIyNm8vJdYXS;U;``zfM+QcGQJ zUytAh8HY{)LhYxHoFbik-BmsKd^NQ}6NdqTt5O*mqlrv%i?gj^4gh%9{- zVv~fx2V?+q$M3<@uEuq%ICJ*|52P*fY(3w$3o}PvY@b|A6!*{yIucQrk8_g11t8=p z)reA~JaSw;?soV9{J;nD>V2@DW_UR3zGH3vVCc`l38eW!{yYHw@B#k1aF(Lq(hr;C zerA8qg1H8Ia4;s~8}2q3-xBY%-b4)PwFdJ|>l(Whfy4lJYr{ITYEe0Cwp=SmYMnp6 z34`wfvO(P*Yw&m7!@AraZUR)mi&>E5FXTkeWq~z11q&Cq7qYhJU0KA?Cpz_2^C{nS z9WbFiu7e80!fKB{c>C*&UN7jZeTpIK^C|mae!X~t}jcRN|U5C%m$T7PST-!v5Qc0 zl8uAmv}bMLj6Z6YFco2kC8Fjhr||554ts{dvZH7IKPqpFoKL^L*_r%5Z{gUZJfCy; zeqY1Ci+wk_>;&dK5aZz9o2{nW>oe-HKlVLT+u_JuXt51rYX zo5l+M0BjAkG|q?>02G7o-{_uwyMIWb)}~$4I`c}I;L!V5yL`9%WNiH#@I^Ev=Y}=? z#*fWKz4+s8T!YC#)M#@|QTO%QhUfCWD1G;Hua^q{PlJP8&Uw#+iCmSYeH?n^zVYyK zwb_xjM>e@W_Q~*cIaNbzgCytM@0391F?(|VYrh4ZKg68Ds=xn<-mp4pLVj_B32zM^ zb^Z`6Kp8Ns;2LvzCRInS1GZD$-TRKt37n=}lP~Fq9SY}XfmWz0vB6n2k-O%LOh_sR zxro>?2tNhYvPfqa(s4?v1Ani-uw5~0b4A35jzVLTi&!tq=+|S8JgwDg?a&{_I%9sf zKr9IvuS*c;fvDpZy|aDCV0{`j^FJraT>@>(99pwaQ1k*q1TT92HaNCdajYVym^v^J zrbZ%iKbJG4<*;kpj?|E_1(?zWkpaAy!X@++eOY5ji%tlsdf#GZG>Ej1Km|SV1D>*F zS5NHR7S36&i}t(4Ri#}vk7CFp{0kz>N}9M2oq@Y^X3eQL_cy?Atls{Z7Z3UHNY=@d=>Y@RsH%88qhzvP9|RH{eLqI~T&Amfro zQD3u+DSaa|Mo-j{iG72BXM~M%1I^f@*HDG}MV`|3$=fQI?VI;2Xymj`c7axIaKmk{x=?UIpR*#-4!@3C(}5wQz_TPgfpbK;|vSxb$8tcJVol0;-cfU zvW|ghr%)=Ry{IB`D1Yj6$Db}9#X6AIq$y#6Y&=kUmD~vzV0{Q^hx9ND?LjWj$1`}6 z^*44dkPVs#eDh~3DZAC1vn4bg{hZKznj(Chc!^l1>DS{6Wqy1SO3qUaG`?l8R*mXy z{ISz2RICf-rwitHwr1P+CWG9oYbURL=m5XknmT-OJk>kw+yvEXH34?S-Pv&8y;)V? zG<}<{O!k&FDm_g&d1rMC=K-ACr@BW>r%tnJ!n2Q1K2AQKK55YH{eeFavOP4~Ypfq7 zO`bIIy)$l2P-p)b7W@jMbf(*``%U1$ls0(D8~?m#a6u(UVxJ8d2VqgasD)3w=~ZvZ z_MIo@Px5sKvY+KR)u-YnF`A>qPk)N6FT~z~lr}!sINFnl@q;{NSoG$cGft=uobZEg z63+cNrVP_6l%D(0t?H?%?7nj2raRcAQk`x<*!V0|ob2JVzromqi*;)N!SYS8=pXD;f%;F7DegxhdsQ2%iS_M4dsy?saAzBtXZ7v zs`IrP7@<_#m~5^|KUyHsf7$pZ*{i5qMXxBJ>EhRC=?ONX_?Y<> zl%nBwbYnydO>t|OnxU$iZu}$E{j~y5lXZ+3s6g{b^Kak`ExxS1v1(|@>?jv#c)f~Ld7IOyT+e3;$3X7TsaU_#&?6Iqp;Pl+yVb*X5hJdXWo@;%cl_h`iyeOsX+_rmBs8 zlSM+;$gMwlKLqqnEkzg5h>@Ux=>-H1JwQ zX?C|!H%Y|Dyk)3YTOV~yB2`&D^d-iyl{shHBEBwK>yYnOsZTC z*t)zOUVvO%m$C_owI8S;_kc+xf}H@ zoB(0$yk8=!)`?9H2wRkTxkzUGfrat*ED>M-%)+p2K6u9S4X`)(H?(cJw?^L^h;OLJ zHI>Y1VQ4I#7Fot|2pw2!xe4U`fq0Pu7`TrVZ#R>qA$-- z2R}?IJEOARXhUDjhl`ogS|-*JNP;t-1mmK8q{mo_9*@jBr>j?bb;hnZMLLw4f$ggf9aj5T(2+l~5E=t*yR8@MDSD! z{^L;I4@k=&NJOQ;RN|8i;kYgenZ37roA$1lT z)GXur#38`~f(>**H~?4x(jk{o!D|fgYG;OStbPkqD-&IfSgbV(t<96L3mkJ;GnccF z>=$z0a*#CDLrWRr8sbYxNG&BM_04-mEntU96)choYIhf~dIE~dD3uP7o}zY4mF=<$ zDF;dnwpdoduCOuFhMQf2E+L1WuQrl#&G*Xx5W7C#faa{T_oosAYcsBsfM2Z2>wM_I z%Zu3SF%e5^HwnHrt?5N>IMY@e7jyhyc832u{MMb?>^}P(SbG0er*h*AxiS2)p(>QaZ%_e4D?}j z(LSCIw9)~No*X)&h`C=N4)oK1Yh&_PX-Tm`m9|*Oz~=mQBTXgh)Tz3MFW~;xjbNmj z-@i&!`5={qQYDFcJ&RT|5>^o!W!~v}owO)<|4_imMG9WJyl)jx@qzp0CV`<|oL^ja zDg+w2A@e$a%zqW0DZKz0V$;b7O+TV7Nv(AnvDQrgF-(R^K&#Fyjn=JN zm!dwPLu+MVl=x}m9*>f<=kS#{MoaU1Kkr(;lPYqGQMUDSd>7!AMRA z^;%QBQCsMGva8yJec@OTg?J^s781<}IiJs(GuaIHZq*ja zkne``knvu#6uwEXvf$R`+clN#tHU^77IA_#?dj{Lymu5ov5tNTt6X)QfuO#++* zd}sng#md39fQyf5plM+waRBb`X#NNqRTk@RL;O1t@Um?OnBJ1g;_|&K^reYeP|MZ%uGNbh?Yy=7=1(Kg zwNEm`U<~`1O1$K+^^*w8k9v%ck&$nKFRA zuj&p&W5hvybs#cv4xq^D$X755JOb`+e@vmSPd!)0Ih3##FL_}v;T5D*-yyZf0lTrW z-nw$cl^gN0dL9z2+R57;3QHrs!f*aRDPWCRYqGG{KLZ;0+rm0k#Z4ys>mGY6AMgPV zqAtUl_>WczK4qz$0{DkVTt7S8J8JxXBn;7 zFR*2n{(&c8lHPOH2BMkv%XansUIdU!tUFV~^6M?SB-57lpTO^7&H&$oUJ`o}5i0M! zRyHYF|D}(jyk=&cq5yqXLYSS!vIaN^r?>s;87*UqqyJQcXm9TKXknoZ?w{B^RI?iV zUFA2tCTIUg{rSBR=bf-M86u(h*h0?1dCsjH5aaqB2;hzoqB~Zn z+oNI5qqF^kFK@4$*eCh_{UfX5`T_S+ZRzUrwP?J4Ld?7O>2^cIP1xuLhdZM*JJfes zN+CrWBakDb8I=QP9eAgm0~!?+3+ii98wMnLF2WsL97HGu)N9nQL|*!}GE!PV>E1C2YA+2-u}74Z z#}PA*XYu>!lP{+2b}tlol+Clerse?C8hqNrdPYi!`uvrkYHRQ?hXso3#d0H+G)(oQ zvr+$4(I;LZZo+uCu!7g;J=r z3dR-;FO$1f$6`xbfvgNU3Tq7bsp*y0?dE?LBkonLt-Wer-2UOUU{(vy28-M@bWz#$ zx|C`hCnK&PwD?G)-k5&CI+8j(D$K462KC?CAq!*<5;*L|k)pk@u< z8$4#lKO?Agjfo_MX^t^}1U#YFC?V>dY10oM_aJgxl>%<bcdNkNm?Ug_5^n&cYlx%fK4 zVh;;yb)EVZj~PfkLT~;*Ii73bJS~aGb3apgxEuwdokDV|8~_OF6IDsVe07KSvl)en z%d_0xv_iJD$S=uLm>cE6wT4 z*-Q&3&FdL1S}5_&I)~8RQrp7p_vu6Vb$xo7OmE~YLN8^mHW}?z3fTz$F_?n50K?Y` zao`_jiAD$BE_}E>G@SpJSWV!QFsLoEOYHbaqu4skiELG3O3*gtg!LPS1BMo7(Vr7p z>y9bq4i4yBhyBP^I8N9XB90}km}COMnFvvVSAey#OM>96z9tEex1?yl*$p-N@y)Y3d=wp-bxzhwihyL| zCp$Q*7Ac+EDWhVx0FFtB3AQ}46S=Pf`vXnF_KpE@cpd=#U~^7w?O(_H2-zJsK2}4W zFxlbsg_<{02GU&S%=>U8IGDrLwEpo1&ZWsBVf7oLppQa7wj!FLt<06MAnSM#0$rwZ z$I{)ORIO*Q3cw$Pq=8bO-9EufXc4-C|K#aze#Z9E!T<6EF6EwWeYVWoZzQthI@od9$iAl8c(W&4q|1*;OsJqq4?CpCD%nz#RS z0}y=~MZOrK6njdTGAgZcRE$^^ zD&4e7;~<8xUjmF%pvtY3%XmLbiEn!$;s!Y*S#Wk1miOUAv6GA5W_It$jbjrF<%uV^ zbsuQPw)5-}Y+OMUjk&P4)2g3a{XW{P;={4Lm1$eSk4N!brn!1;G$5E2#`M43@3MWk zzBvZt5O`I;=?>f_)5lNwWWN{f_!7TP_zcp|Grn_K3ETPl0zVSl>z|t?0dlq>PR+eWE4+$QT)RSnxfa#-~<%v=+Dp}#XM0=R1G0>f} zBUxzqBbKD`e0jb`j_y3~M)4Jp@0jDITi!p(=NrS#QA1+eRIAakVoagc79(>MEIIkK zK|W@pg?{H+JwlbUhDuVF45@5iKO0D}F;ayIHi$`pTdiq0v{GSPrBe4N5skFTAB{{c z%)Zjztfv?=5lUHLT@4A5Tw(j=2WJeW*n)Yu6{DE~+bTS$c6Q>RSw37gTqSfS=YqxQ z{Z=jZ0}#RLJN-uOt-%3-!r_roSsz}QM2MbZMmWcj*wQze`!2c*kkSsHXBd^zVzh1- zu%0Uh$_iv-$4y~;eLvJxiqhN7H?dqbiaZdl7}f3@raB{x@$~wWqdI>-B;I~k?ipfR zFS{PxUivOR8Lfg2@^+jr!edo?L3V!R{^G)u*vEr4%Yzah=Zt;K0CY#^9tb5FE;0Dg zfnWqK6b&1ga>B~w`%AE(PP~fM3D5Er-0#C3rGIsSp2T=xo;drU zb@%)TTbI^5Y}imMc21LMHC>xP?XbFYeMxQAO1zAeKBo0ZmKDm<9VgT?3|PM0tH)bU zM*8uck{0cu4#pw_nv2lzgBymyt`b}0yK*F?9-q2f+Y2UE)Q>y&)l{#m1BE%H^I>h_W8J<3-cd{ z>~=Ox;u~4}k8lP;YMtLDq-i_v-}p0ojU)u$+SVm3;m*B_8Z?>zE>C*NEi?Svro7tI z4}Lob@acF{t@3J@kbSt>m&1=jUtGrK#!kjmr#d}0vx2qM3P2{ZH(#fNQ!;p?G5A_dyC`vX6_#xM6 zZzNg5of)3U=<#k^zl$8f#l}Mt+v-@Ja*}Pbo>Z=lIb4UzAgM;in;exI3}2-^$S_k0 zbrIMOK@+~WP-M}_rFOB`s$AQQSRrZY)HyopooJMx5MtS;_j)^=ZUTiUTOhRNE5?R# zowI78n=b~Uj%mvcA6aCLhxn$3=I)^UR~;%){xyteVf6AUBmLno@-{4V+jxE;(su{= z23*<%{X#cGcEg7l55FY-P=TwCJBx@6T|s%lV?mkzjh?KjRYwyW7fqw2S#t;0U(0s z`^wsdjyClUAW2hlvIlwcSCkYd!HZJ*r0<7x?hPiprd<0vtRtAwYOl{hC`(jPRdsVN9YxAbrSV+%1^fH;pREi`R>D+PkVf_!XEhoJ=vwMUdg z?@XCeYSTk|z`AfSCXh6-taozLUo3{igKr039UmZ4(Eo41t`5Y`h}9DZM7f-(=1jqx ztf>`+dW|IfQxn~NS>)a3=^fgvh_>k;d9)$Uk&4tAFXNhWWZ#`70#1&`yf?PQ8!pz;T~P)6LUQDxwP8rlu`A zTXfaJD#9ya_E?fM*yclNkzw(6S*g74KxnPaQn3w_QyuwVvf~j1X{HrujO5)PG2vHn zl-iuCvYaXvRT{a)`QHCGY7UVrrV`^Aa$-D*e_~_L93N%*R4W~1!S2+pZoI2EsRY~} zPkMeQZkH)z4>9w5_)|A?v3X0S>V(sjNAGqE()ZTc1Zw^2c1oRLR@Gu%E8gTRv7g5= zC5{*gH9g`$$zLgBK~)f_v2C~_U5p**s?y@6yd$m*q_WkQeKh$>AWE8z`jWS97g7~U z19tph>uJd1gIttDGMtxAvIL8`3MK$i$BadZR|7<(qrYfhq!YfP1>t+>^BcAWm;*v- z<9X)U8i?D&eI`z?!GCy3N9j1_BkhWB4i|C>yM{VoeNz*-!|fq5ykV%7Q4aQmC@g}q zxnL~_;6xu#+OE$G4iHzj-vn`RK(`jPFR;NHs(mT*zkk)|*zUe{AHhYI_Zq8vs8I$Z zxl|%>)kTTvE_bSY4(rV0B)B=8u|_5D>j?JhoL^p=mmMR$NdglGbm9p{Z23PT#rd@u zO(`XEfKa_ZT1LL7zlA((ktHbku;1tR!HYxLA&f+k*#<6zui>XvBCWW;b+_)hPO|?g z&U4+46=FE`N-uup^lj#)@5B6WOw|2051iYrBA4?f;OVLLl>(OjjE%?)CeW_4*U=;TXr7klPR`nB7phq6c)Gy8eK5?k~xtZ zrQ5V&TEsc`7Rs@smL>iN(7UvaGckT6Hn)+vcwEE7WCep1@shK>)#ZxIz_e{}Vg^-D z$GScw*jBhJM5n9p*BzgS#_9IBuE6)y+vPYjtIgevoF?S3?YFm5uwvfaio#_M7K!b@ zd59Z)DN*ca2_h{S6sg-`p_=O4UtI8|7d?V~4QMhMQ0HLXE5bEiGC4wt4983RXD8=Z<^ z7m(T$7NsRd;~xh7-=kXTF)j8r<4q%yzHM}H)=oka4g--pf%0QyTYd*m80Lv$q$frl z5!G!Q(46-RT_ed2aD%Ifb(kHnDnPBsDpm@%Ru@0zj|D?g*#Nz)L%lUKF)d{K=2jX| znXbbsL!Hl;-M0Ay9&wsjuu7vKIoURAWdb)3a*E{4gIPNIF$l8knT0PJI7^6}Ux1aA z;>#9{Rcee9rD!6DR}6}JG)0x{NnW?WziWn!W+lzN)OiHu(BbqUKd6vL)r+Vs`(Fdt zb%Y3>vUo~=fsLS)|0E1)M;q`(KM~Hd_}F&P9RC%ashuoB`!*CAnl>#M4Tw4E^a`A? zO$GbC>_RP-n|Y6QRJE-?th2Hit=zHEde3y?YJ^0&+vvyX!R;#4ttmj=f*1JH*Ojwf zEvhS%kq~_|g;}>Bs9l_sL)VHW!CE6i`E(~4dqY`fN7{@REPJM?|%E*Yzh@ zp3@dbwxvL%%X}~=H>wmRGpTB!j-hCrVYfI|7YHdtTq|L-8U=V)CG{P3HY{Ae z`r=EBABSweQ{htF4Hnhc|BZJE7L0?Q!$dy~`FGK#OYs{kl9wE-O@N!yX{y*3*K0K2 zs6_!RZDjjBt9YTQs>FoI#5te9{DSY0V&;XK63NYi+2iDKF6A_P zWmG~y|E$txXzZnF7>{(fQ@E=5R0kZa$J&_JAy^6$Vfk;)j;T$#7*KyBNR);;cMbWB zaoReJt1a?iLY$SLux+o3vqN(7HbQrf`J$)=R>X0_1@%(iaAHWfC)4hjMrLPlJ6Cdd ze`70o1_i1}i!%#1A%e!fVzDh!f<` z;Wnir(NIlVB?jX}@i>FY_SB%(%hY(B6=7 z48;l!4PofYo$gu#LK@khuZ$g9@rC=IC2HJInHGclY<4`VPi=ux8nB7aJ{0KD^d5UO zM99|*hEc<4aVY})gC9{zKPAFOA+rdkv^!2ws8VfBZ(;(rB_d() z(46EeFS!gP+MKFmLjWW#=AwiFsa?kq0(pgPBU`8G!s-fDH`YfoB~=HnAUu~#NJR16 zuNftP%rR1;z!rD&awta_VL5cELdQ_5DLR#*8Q0dIAy)0i0xLwcKN8Qk-TZ(dk7@-K zMqk4#%L_26%^-FjNi~yhd`tED);>glLckfkXwaC3i8bVeA*QI*J}PBft^<4Ew;57) zO>YNnZlP-`2jFR@w4-QJFI%>;+xzaN z8@5V8nPCqsVB6za>Hd&uqus>}O%K-4{bLc$w(KqC7sy?oEiL)T z0+_w5FY{4x)SW<Uo|s)wR^oO_spWw$ zrMwFq-pkluKfE#Q!)k^|a$ubxA-rt{61zCQko7!z`Ts1MML4z@{tDatv`wzt? zIOD)B9dQs@ye4>jTW?us5vtw?9o~iNjHju*UBhsr$ug;KLp4C91R4^|fe-0T&cdV0 z_(w#GID~3EWP7p);e@jXoe8%C?!sCF$AsI#_Q5b9`#_iQeQ-oaG|T%4WwJN86=_d=tdMahl2D}1)SB^y4ns0=h?bF zl}@L>1Bp$vCC2r3XIrTjii)C@wP_R9sy6$8)Yn)Ij)THN=!N&RrjD@RL`dD8rSG*L zTfx1o7ibD}u-*QMkye%?kTsZ6e4^pt7w=FV`N94f;z83^1U1qF6C2K%s?-C6t(*Z4 zigUqTU`P1`gm}T!$_@iQoloBs(?--9Y~C@vb50s`)5b{JlTVxX8^|_z-T|}b z&>5+l8^Jb&+9P;I@Xg{IMr|RqrqdfLY_YqucZSQGFl@=Y(@UE)Zur@=OdB|{!N<*S z-bPMEc|rfb!h_H&1M^*Ej74+Y%}~`5KM^JuR2x-PUn<=?N3U20=W{$PN0>fqjifP4 zjg-CHxt;B2<7Vz3&QtP(>HmNC6m<#$5s`iNn!kU+Lgzp9$fv`*GPp1QF+TqjP6~pZ z3cIwVn{Mu7HK3P!C*e5M-1wTuB>()4&Awwk)a2i71ZM-Evvtiswa_&5ZzkUjI~}lT z;Mk*%JD&j#g8)ecTwzmf_f7-Vi=|k+!5jo?FjMf9q7j~~O)td6{2(c9I?S&&%ahBF z0XtGV?D+ieo7D=Wh~#&q{Z57I{ zV^hLhMLpYUJ%1E5zl>S8J-;uScpoV5d=kF(O{Mg zDx-o|IgiN?MJd0L0x{^K+V`6?yyu_ZUKve*xvkAE~o@2_4lHS8E;5zn;1hzFl`X_$D-(X zdQDE-Y57b7uP5Oz=u+UmVrr^__pCX}``TG2Q}cmFi>>n7259H;>|4rLKP&>cy*i&S z#XhX6hH1u(t})Y!Q=~TnSJfM&UhrXn==&}(sijfxu>YvcQXc8vG3XP1NO=6v>8cJo zsrdq`Ik%7FGdZBRN)jiIc?H#m>kV`0;U8vb&}l11i|tDKwJ`b6K9&4`nGtJqW!ym4 zr9Hw!&UnEV5TiJiO(c7;*O)*23R9Wmhh z$TQinbn8bx67f!WnhpcRsWN08NuTZ77m!*#6KjFWQEI`I31FK7Q^fG0c& z;2znB;gb@C9XjPN&RSDlQ^0De349;1(b+060W=!Zo3X?2l`DA;Kj(M=|)CwBo86s%nLbhto8|| zaAZmGGo3`7W_j7S|*IqCDiY_Z_ zb|JUm;^AQNmL$Ki!MW1##@GpYw_BNu5^c+F--WM5t@RP!2=40wmC&7drYPtNyS?me z7aoxCa-sBDey@frhvOvk#-6(cB>`=XDW1 zjJwSXzijE+EOf9Z z=H(b|`s(WbFtg)?us<9r&t_4a5$>{!2n}O&c2S*$_hp(*@N~CCsFlFdKqYn*%A$vg zB_qC(GYFOB8{0@c){XzF}qIL37AE-ZPpxDk*9zpg|c1d==vpJsD z0j<2c0N#7Kg=J(dfOv2RUcqQ#0-SV~K5@}0)F-pdW_e?5|CvaCS?Adw^FetOF)$rA zc6)<+;#s~v>dk8(jEoD93inFW3!UGk*rnJDZQ29i&t(AVL1ZDcT%3=x7FXF=vsYPGoJp+mz>LVhd@>3#M zAd*B<++mg6-42tdoxrZB`7!ug6CbXez~(2(Yp}in;IMdH-u>fs@QSZ5^BuT7*ZT6% zPS80nSy69Oh;v>(vnjGNN7hc!yrJtD#JLE`O9*(elk_j6N1(lxp(xQM_OK$nIi}q_ z_Tv?jb_c^^5;SzzE+w|y^vWV7;{{mju$RRT;_e}&v}Zbxt$mx0^SoG?_ZJAQTRZCN zxBbHJe3`_yGeGc1os2)vGl&v`>iZJarS=W0JMI0q*f({zR2&QCR6?D|H{uDe+{dL` zLkFr-((ri7G3Rma8-?IG1IADMbJM9)mB~1MbX(E{^8sWk@3C!ao}T*zMwBwKzAJ)6 z*7@ZsQ1(MO(sfBIeX4Sw$DG6pYnD&<>G2maWPH#zPc8JDt}Y#QUD@Tgw?p7BjTuiL zLBUdtF5Dq?V)Ndv9Y%Pj5cck3Hn>vA*PNvRY{^b_jPik*Yn{TYyP!~l%d_F0F?32T z2G$?pJvLPu^WKi_PNlMCf{$A_WZ2W-+j8Dle@_QCe`l5}+^kv5>7WC9pcfFWyzj=Z zQGOmlV!&C8k56qYNu4Om%HyAb1nK((>g{5hCtLCUY5udYRAs^5_eY=;J&I_{V}hj5 zvYe#!r#4D+}df_S>Jj1W<>2!159Ls`UkMa_?;cE=y=H8_1 zw(WR_{Db0yR7d9tE z0N_8BYhuPhaMA6pRN%?T7h$dmn+OxUBG9v6++MVljx@a9o3Gc3{Qo)ScWqOu9A!=m z*0zO7q%XU>e)tl&&dNnWxE<4AyI0L;iXuk|(4w7&ue7WF)^O7}CT*cOH`u3*iOjaK z?Hbe~;@qPlYL-xYSX~Q=;j+YfgI^H7(~bDk{1=;r@&EZ2e^o-vv-{IfqvhP)al12c zbB#C`f8s<#`1^3oek$-eu88|XBUzlwmqxUx%ArNY?14(7+L{wtRb&YuVSrjAcW7UC z;ePoNxlYQ1$+?}qS+T%?DhO=?DrhlV+2B$aV5}`bzc%jsA*f2sPo)}_~ z0tqC~x_YRK>a40AE}cYAJS73U+E zUf)2M7h7xwMkZPe`>>knp31>3KlGmn)^UUWYA=&4(|up%8G=>6;J-vVxrk2dct6Al z{f(dy!e#-kGr1OJ$(8a}SNLFEhNDBT0h_D-e%_+omdlp66tWqGt`>xnTpdx z37=_dskX+DvHPc?MojgJnrLDPp*#ZWnue54@p*v3!+c2g3@o5`d(&_%B2;bX>c_EN!!j^ zgN)!Osw8Z24m&fZS2%)myab?xI(BnH%F;%tC@3Sf49AO4SFO@is(dJJ_|&_*YT+pB4?njR%@s%V$Rh88f@`cL^BOFuqe8UAN#-;94Az0EcM8-R z3(MLT3=@b9DIYvpYUOCn1pzDW0eI%Q{Ki{3+=?3;e>hr|Ng)sE5Yx$b`P|lS$9j@j z!mtkrS8d7__E2~E{I`3UI4=b6^?R!YaDr=MymY1(PCYlql?_=g?!lBMq0k+F zcIVJ%f#d-Uo@6umZ02LvCB@gCK5YcYArcGCSQ~8mANFS6=fvy1+q^Pg?T4ho{RioV z+#R=9sbp}Qc||{D&5AUMu*Qrw5ZEJNO@1}>*Rw?$B-evP8XVBZgEK>FO*m~qrcI+Z zh|Nu&G{L3Kmo`)(L(n$3RR1R=F($hJ&rQh((&K{?VGYF{`UX=AF`DmlxxtV5;GBh* z#uSJ~xolQrGS{|kplh1U_*V-1jj=4czfA#03d1pQJ3 zLi1VP^iIqYt%ap~l55#@xAV0R;8Gd_!tv7fgEhBvdm-At^H}D&`GNc<6jIK~v`tB7 zviW(8!1^CYTv^q`@_|3WN*#hD@*c#QMAisV*ulz3<|Z@3b|rHfA>{|B?t}UXPEp;t zC5{6bXP%Q3dwrF-oX3Ts@ALU_^-*%GS*a#Y#^s}xM>cA&bcSo)jV!Ch_vHc6{s_Qj ziJCv-xxQRrQ610>TnOM_&Li{Z*bQ<|PwfXDiJ#OjN80oTZKzh~mC%dDcxdrFmrrc| z^gVZ>SHH|Y5P+T+)d^7FxqSVbB=r8!K(U$Z#&qn==RjrapX**t*qNVBDZ|y9O)LQhZaXL%inR5KOcv;q8X5$BMA$G$*#fmH=hKxXPg_`)i7`tyTB z-6|O#W4}UA{d|k@xrKvN&3$*Rb5HF9ABxQ=cUJ2<120_D{t>yRx&WC<(DY5G_J)r> zNI78CUO(694F9el#uh$1zs_g7{O(}~fd(1ZKW5237zm#;^#_b>xDepNXMWp1-g8-w zfX$MB{-=8^M1!9r#K`S#dILYgP&?=xBCcNf8)81Q^yV+d_Q&4^eFbimC;=K@;=#Zp z;F{y`hGk}WcBmxSM)Tkdlj4*3&|m>UD0gDTtjdbqX}hc4vV?~2C%(*`?=iIbE?>Si_}pMUxg3v?d$?{Ay}LcP6GyS5G(xPLT<_}{bdpR)js@n7yI=; zdtSsR`Gt3?GXEL3fXfp1<+ZIwCKuLQ*Zu*y=@{BS)eo2Rd1C7P^v~#T?r-#O_-}mQ z5x!G!&HqjIoANg>*5O^kCS43v3Ey682q@}ebDWR9rH?y;vQLNTXL(*nudzMCQR)S# zB^h)0fs%jfI9Z)%WKnk^E2TrQd}Q~lzWs6c+NLvi@!4SkQ1*YPNCyhIDyG%0w0)&{ z+=>hoqLs`9LDpH5M*zJDfJfN)o-A)TW1dzF|1}=$TAVS{fey)_5=I9etUQR)AEmoEV6E7To3A9d^c(^Ucp*PG^$qTx;%s&yT@Ej zoCUU&K=mo$33R^kOv8!=-*W@+;j?=T>%6BU6XLG8-r+%5`88NSvT2BedQthj50J8v z-Tc7xC}4~q5oZ2zDiUtsA5n-PeGNtW+1s83_tE#4UH94nENG9^2Jk&RxwR3(&Ec2897qKwmTWnWs~vL1%Hah*Fnq-taL`MfF#~W5&M9aapjO)MnD<_DF7it)~7wazYBP$Q_Yv3(O1QO-#&tc+JIH6U-!r~D>#)Au& z%V&l#2Onk!_UkkiINJ66zpauV=d-Ko3YZNOvOlT^4 z>-C+;afa@ltq}R6G|8R1yr?NWv7)=MoT&cqU5-U| z&nI0v+TxzL#bq7O3b;<<1%G?49r;Vw8iQ!XN4XXLq*=XS_^ZJb(*)<>7oZcsOTb#B zcMosp^IzYs|Erm-sMFy)#MI#VtunC>jLU-CCO}FewZ5aEHTv6nCK{w^8lTQvGzwz4 zgEipEyXgMHN=W6ixpixnr9)ZJ8+eEioE5x1FS)qT{lQ8+uScGN=k1=R1rnqEYpYfE z<@0EL{cdeJxuc1TABN1KyQvRYI3!T>ih)nlgrl#Sm`@li;D9Eo3!pq48Yb&c+gY9oUjO^t^T&gQ zlvby*8*|YksS9ZJ^9E>RLz*DhgG8Dr*Ra{`P|PBtvR<{)J#P7+xS%&XpI}}_gnal7 z{7tYoNNeG+X2Y6P-Qm0gX^lQ&fH*hGJe%k=MTIt%4vr9DynN?B_QDYm7tm?J>v!O( ztBA^B2U9P+08{|@Ahm#O4eOeO*iH~Df`WHab(#iu4u26cPigvrce9ChpyduUnE|*% zBh;6b=nUR?3)p;cJ^(J~z<4w=@%-Xfv;S-vskR#W)Xf>8?i~I)b$S#ua+)O6;Q6fa z0cgAJOlv8$1E<IntPk+T4-}uqM_LN^t~AL0 z><7*+p9*_PTF`yfI`$Z9LUtJIl{10dP{UcjP)Cb@DY4bHhO;PpH zBCEYK)V}N=$P1|cihA!}lsnpt+7@B0Jy5Nq<3spxl+p&9MW zXmxY&gvESls!v!yw40}8Druj{X5zcN54#x+s3f`_t9Z@UmJ*+OlLvKU)< z7m&R`PObrR0X$h!y=1}UC8!L#h+Cm9CQ;)ui17FONXH4)b7Jv0T%+`+TfHlP`Sq<}khk)eFym;u?^r(i z^vOeB?mYe%_CF|gLGOd{E-L-Vr{}lEA223pX+tq#_qxFn?RZ`xSp#qnNQ556T$jL! zM$Y#R_T=>ozVhSmpNDtDP9T8e&9oq zc>2+~X%NlSW8$L7CYa3X6y&0j0z^4x!rll)eAhqUiT#_rT?S6$W=UkGb*z?KJs-_; z{uAkwzf%-Uj$dt4;2#!a+vaCk#eSTkIu(L}ep5{xp(#a`C`rhCK6t0tXTvjCCryOj zF*<6uOPP+bo0*!zMOa9lz8fxVEOcx^OcwtAb?6mF?!T*&-A&jPyk{}*aQXiIwtCEY z&Vb93f9h?G<+?HxeRb$45{!dysJya9l@5MtwtnaTzsx{IRp&*f1A}GjXhe6Qxc9}oi@|(Y-NZR!lvHa;0s7fFdTaFm4pii=pw!q6 z*o4EUzxu3o(<5(8e|gyEWA(CtjSFbKG*1KM8Eh@Y_0~Qu6*2csok4c$_03M#^HWA; zsNIhWYe(!IubP=D0e!fW*Ujw{W~2dh(gHvOk6xRd|J;rjijBU`c$nwgP$LHmfYaK2TiRBt-(-?tOpa5~#6SbIKYnhv$C(tuw( zW|A0|-}F_CCzLfu2-sEL8)EchadUkXXj+>rY4lrKz>3AhRE!;zvve&)$;eL4lNGlk zTNMR9e}c%5Q*$Q);W=yaWIN$Aq(uQL;AC^++O3!9)L+)dUn3E&b(W{5Cc+obp?G`E z_vHe+o}H0|$$&$nQ*-G>?u7)N_AZUI3g0p%sl5FUI7}GxnE`a8)q3%C&xSYL?HqyM zgqd5>pwRpK_VlofiZ`$*M5PxXc5{LtlhVPMcQXy%gS*gS@o2fha8$@SsTQ{>Vd6(G zrabE=cD*HsRxdF!7!S0*epO}i?4oZtFnKv04Ihhb^se6C-t{&ICCUyhQf#s|e-6@2 zv{l5R3XV;2#ux=`qk8h9BDN3&8y*QnuSW5VlWlCiDdJBB+eC(lMasJUlqTFjsj0xS>HriCUEfxff&uTxmoV zNdm|hx`O$tCP88R^(k+aZX&@pyCG0g87}nLRw(C>kF@GOrPPyl-b$HLd8!eKbuo%S z;}iYi*m5=I73*>^6>Aw!+(@ta;R1!DJiWJLFe?FbV#LV z**oTZIXAK&9eloLWU9}qN-e8)Jx-k~SvwlfT`v$ZjG(xX@ug+=_myLuTH;(0(^8Cy zvJ$ONWknx=1nFcYs7DM%5Gh2$H5o#gygS*A2zpY>RK>nA7r^eB6UHTKU>4sxxPlX) zIgz;nqNs?z4w#eBbz2e3fW1%`=i+~S>cKIR^O7u57d@u#R$tSJ23oHw(EZhi1H^TO zQ_XspS+PGT|M7bz{V9|6cyP-XRt$p=?A5YAXR^21}%?t5dsFvjUt zLXsFW>W4UBjHhs~3HyCyU*dw^3YxK2YgKRz!bJxa9ZKlM98q20mkn3WLxO=Ro~hLcoH zF>StkC)KSq@Oo#i5_SirkQppRzcz;3$MVLPa#-eP(K#Say!wR|g!k#IucH-5dTFlC zU_w!zd3@_0i6N!OOMR{{MQA9&tM*f79)bE7c61CYm#ON1s(tI|RZhMobUPoCL*m{6 zAzGzq4ZE%Q|AR@6_#9;qll_k6f(wv0m$7Eob+>W?3vqB*?X`_T)YXsD=?hQxfl&AM zsAL!6e7X^Qxh#OBlw$SpKtuP652jXMN7XGYOQ~rB`5{VwS`p@jIFX8WIx39^P*W+E zjiw~OdY$r?R{dfDbW7g}Uiv;H#3|?+7P5|azP6P_o~2Z@EOvn%(dUo41048a-q>o= z!Hn;Ja+Md*u9*gKscc|_PFt=aTlI)*A{y)UAgATZ!vf(cQoAgz7Xp2wh+&|U~^V_ zTG+h&jbycfbap#|c|^h!t6yGfqoxLx6W(!b`mx5kQXuAv794`TxM=$J72`A1TeqTz zUapkI`4>wIs*mJM={W>qN;)(SXZtL)vS3?HO3pHJKa!%VoFPDW`~adnFsZEIkp{8s ziTH&*U|J%>y0CwA^^t@hDZ_|S9Wl^F&%R~S3`trI(pz@(T4P=2;y;tJ*MbS~ zf3asdzBp0*7Xp!=v3zemh?U!*o9QNQ>4G%}!hqua$qUR))FL7B_$Eh3u4%`}0E4>N z6>Pc>$lIlFivh)_DLHRV(lUHhRfE9>B!t`#$JL!uD-n7Nke-x^vh<4^L}t&!V4aed zZPKWil^{7bXsg)Xlg%NPTN=Z!YAqQv2zT2%%Ker%xjJKzuQ(xb&rx1tEy@iVJ=0cD z_?ze&Md%>JPqaq{qnXa(Hcq38(pn1vxKm_8W|rMiYo5^3Q>bLX{*eG8u-QNuj|Saj zV@(_?S4~is7ki}>-Se-JV8g$t)hU2Z3u!TU3?dnwp`qOYz` zD;)9x&))xd4cXq-WE}w$e47b;O4(L%`L#GV|Y)~Uhwohn~RNsG}6EpvJBwo zZ1MZxOXNHq6Gx7~ZX7Yfk5|jIN?Dv-I!(V3_-$j|!=%0Cbbfb@_LMswgPT+?%50gJ z<(w|#oW+N_Kz`GD}+uiqmmsM{mX29SEiwM?$#lNi*t)hk8*@ERHh z2ji2ASR?V3D51y{XeKJP)B!(d3zaw+8C8v|Ci~v{843H`6Xnh}@(WsDsO6V0H$RYZ zr9eDT_;@MO^g`>W;rv?>iN5Ujso7dPndr$&&@P0o+aU8mipBF=Ac*6LO>)-cADPi+IV z1IPI*pk7VxVtxVV{WhG>ggYH{V+78$IeWL{QQEK z2=76}gFU>2PdnQ2m5}=Fr2MG36=XtoUx;A#fd>X2wvcs$zEDMB>ld8N{37BC(0*mq z4mGQ3Fh%HEUo+!rIe`q!=%QG)hFa1Y53dUKX)NQVLYFCKz=(@ApRCEherTk~S{nMF`MS+3i!Nu#tNULRX2ZucOVpR)`TK~Z+GmF`0 zVfA(40>&up;jV>H-FF&aRq+W%rG)6Uk)42An$ksO^^*mq6th8x>;s?k4h-!2gaw)D zMfX3klIKR3D%)+S!$Rln(RoLc|G%jc;dD6hqf6&K6^=Wn&>Hp-v!@&Zlha&QFgH%b zG*&#zX)*VX#qo{#u3*MrO2}T?WAg!)fwaJMo(|k|>&TNO?S>I0)$Fwpbif7o3)yji zSI6q62i4$$&jaNup=Sz}Y^#~}bO_N@mTNEAAm?v#3OUNded>1mQ(^oA4^)1JH|cNQ z+Rr>XWI`A5-urE&`~yjDk6{ckxhTCX%{dO0w-uvc^x*BN&-b`6_mCGMs}7mm7;`ys zPp3I@JX{!Se5EXuT#~xd#4QD<5CQwuRq9jUQ|oUG5VRVh^6i+s;5#79M^L$w?7JZ6 z+lB^#qw}UdXf~8I@N}3l>knGlDqz6dm^YzcGG`U_l)D5S`_*8|8`e+{y5ZTJei*OX z%bpIl&9tE@Sr)tRvgR(-g{&r$E|*BjFM%(4TiJ8eHfDa?F`MLR2#P)ya(+T4ME~Jg z%g?;#+&h->Rg$l-NUi`Jp?F<$)@40oPL}&6fdp%b6=RzlIX{o2jhEq z)4WbcB`o9Sq7_^$)9|B;z8BGk=%{9?)a&7~GV(8>==*5oqXa4$s%*1L>9N8_u#1P; zH68>ymJ?(@;&O?f&hw#vn))=>M(^|YVybs;vP(?;N|w}WeMRkbcPjAW;TeR9ZSu%E zgNkkJi$#)ne%{{aXJ?z|uwys7YX9XGmiYD~olW_Yrv>h&)r24Zy_j6zA+JcKqXYPM zoYb3pVy;dL2uV_Eqa9eOz}GK@*hEHXJ4@nc^tJqehpw4*S~?%!vtMD`h=f}Rbg2_} zoy|-z@{r~zA1zk$2y=+ljz~@M;~dCBBBnX1&&gmK-wb zMy8}$H(ia7Eqb~nzi7NV{m^ORiGIoMfACM$R=$Z7 zidNdHYS9tAi0i~NTq27pIeH$}!o1(W!Sf!vuS5f= ztfB~bQjf3b6&x&NYvGy_DzOBzJT$?Uu3(OF474xE#sr_3b$^HzwN8s>np$5VA;RxN zbGm1ivBjZaooq%tDfG0PJUz$aV_JDfof?Q? zl?_@oa3l16A|x0@l|tINO1Ol&my%DZ3-vIj9*xUugvbuW2^`I760BfVMgQrrC!Yeo z)(*lZTWr44kXQmS*lsT8JIO0bMx-#a_w6vC)HHYn^@8Djv9mVS}lP~b8%CzC^ z(2J^T5R4(UPh<#Qy%pCr9g*TBBNg@VD_Uo$6$tP;FvS|dA1f+b;2ALeY&+4&7M?pbrD!B9Ai!s1W4}?0#u-dh_d1BF8R9Xv zco%Z&PViHg?@zHHL7a(VS8&fFuPH00(VNLK%anOWs#HnrU*m&O^@jn}xT`s+k-Ux_ zq;<}`@$NB&MM>BK$rDo34~cEYS`IuxVbo>fovFA0Xt`IWzaCg9H30FDbVO&eAO=50 z8`Wrot3(N*?9`-}gkOkh#2S}!NO{pw%UHj}Hkobq8-GNw-okZS@_Bv_sUw z!L&vW(&`Y$zdM7x;Oa}H|LE4*?Fb+J z=SV%rG&?S|n%ssf9&4XHgnQm0Nm&*-=QCengZ0%M*P`OEY>&@TZpAisDm(_xZK<>S zIQZAXi5uCsR@#nHUs|Tnzf|+JpbHTPjfX+R->g^`E!S6F4Xa-7$R*_=Qwj>*)50)xZg=7e==e#}}%yT@`$=+~AfMg;;{Jyz4i(DknJgK>`xB58HaRbyfi zS)nWwtbnrzj=B&|Bm>-OsMGq4UMdBUDIZ1E3#g80dyhh@rs4$+Vl0#f&g}~`u}U+R zy|ax-=_S87gHcVqlxy7^#Vs$W$xsz!L(3T9UOi}*Whj+k#}{WaP{%(1Texck;^LO{ z@?XhOBOb*Kl0c5_k`r+Ia;OCR$(*xm!y0w&9XEzck3AqY`)em7S=WdFhyYLF58$oA7UWT$ z5b`lSeh)!xC_y?jOzN!~aqYeaj27)b8}Qx&cM4(s&(i;y;;I+cddy4fZuT9C<{KvH zRPI~tyF$fK@z}VALJ8l*MSJ|{id)NI2i%VhcRxz2Nz1UukW4<4IS^8<;KhWN)p+2`ZP7BFW-H&Uc{e5s;HsBT;nCqSE7( zN3X#Mdc^9gO&fRekuR00mT!c_*_PR$#D{n+g4T*b!8B&-nLug>N> zQ1WS77uzrnUThO}c$N3(+i=&$nV#)g203__dvfb}iR|^V&5pj5ix=W(cv!1uOa9Wx zs!26RuHGpa!8sGe`5WNU=hcZqGLmrKDGiZBug0rUtV@NJz9N=zzV<16c6#*TWY44p zORmH}_0F^#=SRKd7XJit_YzAv+9VR^1B7bEGDm6nG(nx_xuEXG4jO21oh8r`R`Tsk zvi4X5?&O!hHmjHzJX&4K`(L@}#&ePUv-(?seqj&bxn8aG_Z-3mdZIy;x7gzl{}nF- z1MVmoRnW=Dk~_~&O8#?_cH{bTfj@+D!85Z#_#X{pH%F^dMf$K>!jY0X2mG3irZ6?P zuBonD7TH0NX%GDHs3zGJwkWPUlzRsDQnA~xV?Qd~cu&Vf-pbX& z8{QnE=JQ+XM7NXcPYbzFB;}BAs;nZ+FVc^p6zX$NKOrB{upI`%W-NcegG(@STEcA` z{~#rGgR^oeWBls;RE^NflU1unQTz!D3Z5NW2~{ zljsRAGTu!s(uVZ`Q%#?=rj$0MU1L-o`S~@zX zeL>8XdZ=__^Uswac#z zwUVpGm26QINy^^xIR*4Ma^bH=R5r(cLA?vmU)X+1&|S!>5i#7uk(@l+p|EbRw2h(S zP8z8U`E*?bt%Z+#s;RHXh6bMYjgtlLpG}W_sZ`?XTfWVTtPL>(4l1_fg_X`0QO}4P z@v-aO7J98oSvTD1*G$#v3!AZv8A8E)eH?#05RbS_WBoTT}Rkm6aRZsJ7C<)Nfa~lW<8K1HRt-G2(fBi&~JYWI=!VR6>S%G1JOlE;B%wz_z ziLgh4(+>p6A&XUQ1RKJlf)x=;xCsk@%tkU{AYCd+CwD4W5{y8R!YFu*&j1|!f4)oC zbOiPj81?=1YuH1;@fhX%zE{5U?^_vSH*WqS^0iDzs%Ipg-M5s;gJ}15yJP(Mrg0~t zRj!%qW|_z<7^^u1L=AjvP2g`gQJY=D`zz8AcY-s+i${aUdh6UoW?4_yYz`aSV&dI) zIJYShz&W0!;7KPm)N*WHvuU$)(MI^YS?{u^6PMg;@w05@1uOW0vY)%216;L}6{#>4 zPQTABTBi`a<^K~X&~h_uSOLj+56)cJxO~-q#qcL=&N1GPyc_L%W^cLV znqxD3FUEA*G42U@e^$DVE3flMjRLg6s)+S~H~9|UIqZKLgnoGnoVO{fx!t=YxbShR zMu3k5LV#GFpQK#xiuTz~y-p}O0L*|k$~FNYUwmAR(=wmh&IJs4G6YNjCO=0Pb}J&k z;yNhPTXO2iHsQyOoWDqSJ?@5C-Z_oz1i#M>z*i`lxD!iWJxpXpk)ab;$mD01q2(Bj ze1!6LncK6xm2mtOAXG`=Td?%F?8z+xjr!M?}J7xwQH_+ zYBNdE{MIAJhI8IDb# zT`#3lXavt}wcR|W(_@aPH;84iCG^=jNS9LR6@WAL$k>vpteyQ>1{0Cw8bK&!5(I53`)5uk-#8 zE|tsaOEKFaH^U4Rqh4=S9bKi2fhzmh?8k7!x$k6&V2r8ObFq&jUwkF^YRjHRD>1dE zV)apzPychb77C15-+^op@;8j~yry?S~6R- zbO_B6yeWx9`1gpV6p^eR9p9oNkWA0eoJafQR)zv5G|TAc{)DquYGAgBSR(nU+mbg2I+E8aDo#mrnbC0YNX=hB z7`m*Sr({!kn{kMmCt*{k#gypfNNAm2s|Iw7T`?#3dy8Yp`XV(^woP z`o^nNM3+veBb$L6sl%5&_>vJ)!_35KVHJlrM98*Xb4EK`AUzA_oUji^c)a{@J_p9k z72M2>7pAPr|ANS@S7&V%A}UQ5A{m^f!qorPH5>C5rK`t2CH;{BIUFIAx39<8K=Tkr z-u`Z|Zps>;)cgb)&QeJwRx399d*o%^*3$olt*68bPH2oz|J~|@f#F2n@}5H>AYCVv zsg6B|8y)=^*h?jGT@cP$ycOqW5#s!;vqWpmH-LQZLM)+Gg5rlofg1OF7vMJ?&XJy| z9u+(t_zq(-bTN&|G4t?qBEeyIdeRNy-(E>lBQvpjK#w&)6^?p|D!tV-!B9H!O7a#V z4=_MupJ#Zm8jf6n>-XFu-}!N)Y#9888Oqp`>klKOyKW^M{VC~#^cSn=;fnf;(Rcm# z?BqkRwbAi81)QK`p(XXMz_A{IEu z2BLF)4dgQdies66)jRBF^`tSx1dOKNG?6So*1m|u2!5CQ9l*pt#oUkhXEKgPx{xI~5PVco&3OtdW z=v6m_Gn75=2P=1ZR)6NVGR4qjTEN4SdZc~!R;N+Sl_V8^@t z3e%S`37#!9oIos`YP`o>|NG`(vbx7(VsW}B`?Gzha3|j1UB4Q$x>oqkKD&*p=I1|l zsx)It>9bw)@7#7I1Qlc%b4u%)rYHNGzC+d-=}b=3l&R&uY&r@2GJ5gqC`10wpO^grDDAT^YyK3AE6REX^=|3oKOe}4jo_E)%ll}uon z?*ZeU$MB=F~(Q*49D z1B@5U`Gzb!anGSq78HdWcDuLV#dx)hxgxmE@82aK2)+TxZZi5Sr5wKBGx}KwgYhw` z=Ef0VVTDNoNoJTdJUVW-q~*%hE|MtlFk_UC)khp&?gMq)eW|r2e`M8(^-Azg;G2%X zc^>R@;rX)9WwLJKvh$y`oIvR_Lr}|?!22N2ANyB) ztB;~C2nTzRz!p>D^fduUud0gq5$l7#sW|mvt8nz`Y6DykZEP3je847-5AiF(13DUtZsqx581kvjlfY6Fn2Slc4xX&vb_bre13o$Wx&E@Mf|fw*%zL^A!zv+Dm( z!5aJ7ckd~Uf!JVqrZ&&0B?QxvP&or!H?j1t4r^jwhn1N_q8LMOd(XI(MCXYZU{4h{umMgskE%LW4jM#{f4%Y zFI@sPZW-kAv>@YQr8m2M^FZyG!$ogXyY?!7%x;(8zhR;8pY3;s1m}B)+|4{ij^qP- zMsgu?Qq?n^IpM7I$Nv2=H;xt?KE|_D#gd#$#&~JJ%Y>|?&Elk5%Pw>rJfdA1+=N1U z%3-}d#iKL!vIeF}bqMEc&=CiU`Nq1_#|ARZ_=TNyidi*55Q7YWh-?Dp2NFLk^}@DQ z3j^Mv0_oRDs@6AYC-%A6up6-%VmUR`(Lg5QO!VG`W4O>e)xoDDMB9=FBqVZflT1Yi zK6*0^^<;?i4gyfHMrr%F)0?1m611eH#?zGH#I~EgFlkf_8Ku*Lp`6n<)a)06t>e~q zwK}ij5{(UiN(iq3(hm&ZMCp?0ye{rrSqyOqJ*C$kYwNSMeQCjn!r1D?F%O!0wO!FC zd!clIm<^!k>H=j9OOXJ7DM|x+2ip z$-c}vWgh1ytvAEot~f;cL4Pz;h=uGWw8U$&*lf=`*tW&2(<#yhM!<Y(OuME?nvn%duIcX_Z0F}^_l(ffxzQI)>hecv@V4^fwzU>E#H97QGfOP0&1(! z<`?67bX>iQaTgil*Tcz=0weuF4aSZimuk`El_01+Qp5GmL!-?IZiNDUIbOvWEzr6> zp~75GsUifnLH(y(vD&q~V2D(`MnGSP`1|1Qs~u!-5}Tofku9&Ujc+9}D|__^~J6 z^<{vgOj%1VmL+nsLxpZnL}>-Ul-izx=Rj_Zl7<$B9#+`+#cg+f_fUz~y)79#-wXGv zzY|c-myG$QMIGe*c*Y2>k)1X>Z_9Ni7EyaPV?+?WGt6QGhy2wEYA3FZje%<{_x%zA zsJ^^w9Uo`5JW};e?8YLu@G?)oWBtUUDl9zeWdB|)!*}WEo|$wDQ7O$oOtN{j^KQ={AEMQ&EpAZ~HZ#wPyAQSo+#373*39X?UE(&l-JkO=`qlYHLvyNSm9NPD)$^n%qTI7uOtnMZ z&a5a`^UJ|K$|qHs0(en8!HTnQnrW_-v05b&m*Oov;IAc@^FX(~jn$j-p=5X?^*;kr z%?Hj2UAA|6wpym&x4>Sw1wf<-@dwrhhiU6zMmJ+f{*mFSJ1`NV2u8gXglBQ*SV(qY zCG?DEHdw|<|Li9aQVq^fpc+}}3Ktr7VYA8>OZ4lr;pYSm=o%qxD%#&8wo3F?s?FAA zKE=DNv){?wB-?3~L%OC8Du-mo3;Nqvg4~|@-pL@2R2@z#?QmA3yh_L*Fcw)pxb!}7p1eP`8qpt1w#j}n*TUJJml0|T&c&aE&f%Hc^edn4KG{z6K7&4kzA6z0 zjx7idaNnDXZ3Hn z8ch@YRECAN(M+L5RqDfLR)s+3?P+)1h-)=<%6(Q#;_AMJ*Q5wUMsC|;hqHSe&!$81 zFCVuJi%NGimG9JqkN}f<>MkL>jw)1QJq965eN?lTobWy&*h?3LoSx#naT4s8Y(5_J zK5RAo&)DVgUt(xnMjE7|@C0rH;0d!rhO;zIXm3++%Ss+pRwJ8#xqVzTRmg3o#l}5nfmUzSDZovR;57)+>=VL_upF$#~zF8}5Xg$DL)@tIOw0x93%(o(! z9qWdLkGvlchhX@0S{DP<_|XLh(y&W0b4H`bih*ltJyE#LctXi!54e@(sVl<2L3}>* zkq(u4k;ro7qU&%I&RwV0&m0KS@b9RaKMOH-HWs?EjpPsTx|?PNpDZnV>!LK~vpxbS?$h_|sJ5BcGpkW&`wo^h z)x|sl;Y+e);7Fk~=^r1|(jERw&w;5;Vo9Rac8`R}3t<3Ce4z%`=7D>mfljvxFOsuQ zdXzF5tWHd0@Jzrw)x-Ty*TC5|+-JlPF-SN39}8d;Du~b62``dnJnd?gQNwEQfV6>Tc8)elRhP-`2Pscm(LMcc{R|vO+Rj7hb5`@dxQW zg~O;HTVTF?3u>^eI2R#ktayU(OXvf18bL_$M70_&8Pe~jqh3h-)-NT;`>cUJBzm(q zA1CS`T(Ylb6qx@;G&B0ZM}ovfL{)oHN7hXBn6j-Wk;A>_(#u6bw3=&Fc@bGz(yr&W zjDIzvxC5(^Kh?7E`x#2f=9O{jUuGcWV7&v6! z1AYkUA=( z`ggwgq>akkvA+iW@4b|tL?KakjKG`kvh@Zu369-ggdqOiK{MNOlhB^nXVL})=@PFY z08UfNg1*FOBUglCr#4eoihMl+wk{+W#LEQyw^Me3UJhD?2@ zWnJbpEe~hLEGMV<`ejndxYMZJ+%ac7$>oBIFGco%RSO-jAKM}R;;D!GU^<{Z z`jx6eP?Thb><)8ak9Ah3l5`3bQVss^U&WwrI(rBq4Nc8W))|%s6r;Gau}Vor{@2b{ zbN^WBWQa@q@rkfhm=GT;1YeItDXJ2&LhvJ28~c!)Lw|?VHI~rWLa^bLv{^U$0mlR3 zf|spRh7uzoHLf9H&mxMhExi0~8ZPfA-wrNymh43?JG%xE%pA@p&=q4fWM+dC|aa1zPA$bo`9}iV$Ds!3J zo^On-c)aUG3R27M`c$v{a%0FiAaz@E?$V!R2xnlnRdR1~F#~7Bsp3C!h{zoiuLsEP zK=7grHoj!CD4b=0c+ffu8amBU1K{f(!~@?Ye&9>yukA5Mw}`U>#PI#(6ZCHvLt)e!AoJ#6K_4fYgQF3$VyqDLQA*D;JOlr|< zTZsQ!H>B5~?V};P8wxhbj1i_6k&A%NN_rlMLSq&{f#5? z(1gSvmS0O+OV0!;YX}mf%Gj33z9t;mM&d{h2MrpF8P5T07jmn7lFV&Mm#)9IYXCxT zNG=`m@G#fwHdydo#6r%9y3XU)wTFd>MAn`$yB0}N=9fgblxpe}+gC4BwzNbJr%;8h zIH>&lq#FVBqSC=%YbJ&#V%i($P7`;=%oF*yiJ&8l@$wL8tk>y1ZCPgJ?hX%G3)q=xiem5QN z9VjS_sW-9cF*zNx8N(h(?6dr2(fQigEoe{w+h;emV2-Op%_o8@{___8(Ldf9<7ueZ zs6YJYLLs|B8Y@KJd6ihi*^-ZW9zWQ416_9An@=5lUA_Zlu(^nkxh3zKFfQGTD$dmM z-+5Rus`K01#DGH6sux+j{GsMN40tPLuryX82Ow##H--Zm^BDs<6xtBjN28@;*V^yJ zvn9Yy#VRYPAui(52B;)+-dy2mm$nYOosIkJ<+Ip`CAXXf`XhJs6AGrZR)~Xag0>y@ z>y}}@L>!QPKi`SL(?o5C&$AePn$Nz@%XXX2zjyVRTY|qu4?#`K^GfVwZWqEUZ80WLa zxZimZa@aeQSxG++vN5BJN8{at%@rkx{_scp{3!`Z5kr<%eAOm^brwc7D@g$4Ph`Xk(m-OmNMBUMb(Z$Y(Z$&zcF8 ztJ4{LFW?S?_)z@1(<}HH#$);ILYAtwfO?WQm3_MFjW^vm}Yu$1a4E{J%dxJ+zRUxInVQP-oT8LT)+hV#y|GQ60VS9l;Lli7vQzN$Go?78)sjz73e2V? zqY|)g7LGMz`GwAj_ud>c*HY7trCv#ridZl%m+FAQ(jG{MKMs$%FOlXM7J_aHH|%Bi zs8iMovJIV|2sZTwPMT`(R^XQb9E!ZAk1|l21d#DFLQt{Z<=eHN!C>0s2GKqE4j@NA z_+o9u?W9icFrdy9Mo&2Aaku}FsFcV>7udPTXdsmM;~rYP$}1M96Of6mvQVDpN0qmT z(=^)x_E%yK)U~tzoC#P@M7V9D7#Kk(ltqHFb#dvvJD#kKZr?Z{@&pI8aiZ-@1sxfs z{#lS;6%mqBO-2m{Ggp8RBh`4e|3CR@Q(&PZ`ijp5KKBW4j*(MNrln8Fr}l0{xpUMW%;xQGZYjgL55jli)O4nWM@7ns^`_5{bt5qU= zF7HM9OYObA#5z{xm>g!O=K>`HPfnUXm3}Y-Rz9y|D2CP0;N}}nTSMNmROa_tf_+Bi zt(51%t1Jf-ZhO{Mdj+)P2c}#sXo|}wA(|H{9U z>xk(+Y|HGEcDW}pms@swj(dR0+!e2YP1e`SWD3?dn%fDvwDElef(CHMH^e2Ylw^Em z=H|-6PrC52Bjqy9`SEsWr^S6m+2uZ*fh{s&*7m-*bJ2Tj5wcbrX6XHiI?{DsQy^3S zu#P8pNvq;^q@=KTkTp0YPPPmN}|6GMrr)K%uRa z*qQ&J zOWZ^FTgw%>4t~THcLe|2B{%?=v2nH8g;#jiXNN-xICIynR{zS#BK71H9kX>+VIA|$ zP2(I3pT6)x0$i(g!0 z$OOVZ6JR)tUu9Y?C!QEDsk00m&=}PIT(m7V1%5a;wHJ3HGNN(5>azqSiF->M5(N$;|xpy=InG zQY7sU=|Bb#Q}@`~L&}!Op)UKBq_Zu^;U z$}i@&gxSW~x_&Wko0+JDydK*G69S8Kk%>yjdf{C*=P4EP$pvAy(j1vLnkhAl3-k<; zyDX7gERs4kzT;^=r&BIJ?z35n+eWOxqV0(;&$YauOURm=z3O@a@E%uv)?#+eSXIWU z1Do46VIj0a$dfux5C!?@phoI>@ZOsY16hP1FA)8iPr@s#uGWX>+rY6B&fV@WeG zE5UO|JZk($kL&&slV|y2oJP!CU91Mn;~z%CQb{#gK9E}A^^ON5M1RjW>~%=cLG2eM z!|~3Hh0@WpJXwx>=vbs?nPm^AB8{gk5@O%idD$zJhcvrX@yk&1N| z1_YUN)g-Uxo@j&yQ!AphTQ9W93{-&o@D=ov=Pt49QJcq-q>kw2v0z{iu~tB2WU0mz zz8}mKAXRp3Q4m+DVI~A3;?0LN#6m#y)iUwB1E_256IR6od%MngqMn4X>+XZisrf`6WKtGwxKlLxC8gomSGK3)6&KqM@Smq zWz$}5rq*~G9Hq2Vob3Mq8$@vg<^tx@PWQyfp6}SvlzGNz+ix}=2|4z54CZza$KmWD zkA^O~xR#So;t>`_jmQkn{+S{)c)WcRkb6VvuKM;KYb<>>Oi7ZVOEhkT1)yw`3u70# zUN7Y-6F`wKJf_W=j?MK&d{kOR73g*rvtB^F@BXjFdutm`G+5y}4hR>xHMz_D;-=*Y z%XYpivMshCqTx_UEHb>~y!RFIDk|tWbHFD57(}26RI2bmIG$KEKPtru zS>=#*zH>W|Q7{3uVZ>^e&rh z8Pu6zjTqkPaaG7A7YvOCS)MApWJZN>P=GWQZ5g#5cW$S(_m|nOmjIoPX7^jS3V*vEur;R~OqkMy#4uHVi6LcGymHn%hk zl^7t-68Hn_=Jh+=!#hHmZLR%tTbb zeP+XSL>>`J?Svohfl0}xuR1|GUg)GUbmS5(re9_%@x`uN7c(L)<^<9?RsUW~WDHu= zHHoAUiH1UdCEO3Z8;}dwU#gkG4JEnL4r0uMp2^I%!t!HUF|XH%`{F8#rD40xza%X; z{dmLfZISl#{hodYQ{o6xR#qaPXwLBmf#-xCLcgW)QzQ+Cn;0TN9OaOg?@g{#--{i; zeY$5Qbm9&BK7>q6zIbrTN~a>`+=t3Jt=rC65riS)kHD-B_o(|&B17hYKuOO#fdpK< zS+qNr89i`6DdJ_7RL5l@vAsv)epEb_J-Dq9#1eSL$z%+GsA1GMz>@K1zY9Y2TkZf8 zT@wfG0zm|cQy4$~gE(%L`>aa>CIQLrgF^kKf?}~&xKYo~pUFe4p z>L!Mdn3?LKz2ei#?paJW!~z{RKJ!PM>pFDBjyH)z8h5CRMyo{5`8!|ethu83MU>BW z!8#wf2i!N8WxGmb)@Ay&nHiUO6G2XKB8avsN&H!A`{a-boqw;{vdA0Y_aK>*KJYdN zU_vW@<82c+1*YaB zC#w@!&zjgTg*?%szLvn21)crh)XQbRzg8w;rsqUdAd`u7IQrrju2-2b=gca{MlW!a zW<@~jYzBI-!TOm3+w-4oZ46Gqo_r7EWY}Qet01d|^W-^CHIoX{(q*3w<9(o{U_q9L zDhe(n(O14`J+SeKtD^;8-w;#~$_~?ux_zaD^2xSejH6C{Q@>P}uKjGzw7dLx)w8Rh z_ma#XWhYjwSN8%pV&rn3nxZ|I^q3h``SajNBq?En`-tm3oA9w=C=ePx&IN*TdFOEeu zx(w`pF~~2L1_4DvMD`CvCJ1W2suYH^sxsy7ojO%WVtG3V#wF%oZ&IJj7U*0nLLk7?MVm0>iT#V+N8+IT5a#XjF? zu8%(&sVb2McZH%4Y4;?~m&=I_B#xGUpSWK%U^!gjzkHtC1iO#o6RmC*gQqrTn?laA zmxm4L|M_Q83Z_-B=|-@Q%DgCxhen}Y5^^a6Wru(-6i2|;qhf@x16k>; zLi%%F#?7_-ROtO{vGFO8QIfv4hzwuxL1-(&{esCzmPq7l)WJqEv-2&V+2GD^0Z?xf zHJ zeAeS@5x+Vvtnrq^fIbm7?2ClH984t&{m-gzy^`Iuo^=W1gFAt?l)$gsuF}HK1GK+1 zLBGF`z_0q%E-*F2gvqR5%w?bP-NbI(9#4F^F8OTD@VI-mF;#4~xAt2$x^fj2whX0i zD`rzf#-b#U2cst~Yv&M;Yy2_u$-cKJ93Lg;xd3nJ}s_V=BXpSa`P5a_LF%&E|M4Eg*avSPPC5qka79TC0)8qQv!XM*auRfQ0x^V;w zut?L_>mmy^**$2O4YD$$B}^@`nDB$d>6R_WOoFugxa)mSRs^tquLf z*F!A7Gzztavqnd+oSYX`z6=gKoRderStEZf>`vJjzf_=c7QMfOyOtX?6LBt6uHPQ= zU78_E{-RMIei(th&SM|&MiU2!*i)4!8DdJDsr@>jJJ_tA8cDYHVNpM5L##ZP?ylcf z6qeuG3jE;Qv7{YIGKwv@6&Fo&*?m{eQKU1r6(eF4d+TYZ@#^yLN7Jq`NAI9IULMd${ z(JEMh!ES6F>U)dufJQuzRx+|Boi-rLaChRExHZPH3LC~5xSlH;JwC>DL~&UYZZ%&p zcz#8TAsrLr@Rzd0S%Up5lattW3If5h>n46I|*~?9PJsj?hr`Rx&{x z4XC`rb(6B^lZvHp%4Sq>q}6cTt6n>z7vxxGGc33C?`YWU~e^!_YQ>O?NHy#bMVP3#A~jCSZ4n4fM{oF$DBe<3Cq0< zZRXW23?}m@<8IRr!@i%$47TA5`;4`}Oa}t_Lb)OG=@I2p_9`ZY&3V%&BK!n6aj~}b zrwi2h|)_k6=O|va?_et32_iWt)t=$&N^NjQ-f+ z#$tKaA0&N54xj`gjY=m|^M^;NM*!-p>FdB#cv(4Xiczk7!%1Ea$#Oo&c;3FskT&Kx_PBHLqjc0`w)IpmPA&a zZ%!4F$NZCMY-PPOTfXhwjB-5!T}QM62URDG=wXAUrmD&Ep?L9yoLopsS;$WAG#dRE z7Z_I+bgEw}P&t%m(sg}q?JiWj5)#W#FsKY&FOL$cZ4Jw2O1cthT{<&$T^RjTC}`uU zrMo1|I#)R{LN3)`YFd_Y3svp0%n^T4d;_ApAfcBkJ4-NMZ%0pMz@EMOo)G`E*Skv7 z7C%poy4?8xzImb`9kteR4Mf}af}r_;I>iFngdkwLU!u(AVE{>LCRtUwO&vo-Z|rAZ zoV?k`y=)6oc(D_J)7jT_zS%%}dKjm2`>Ai%8TpbVQTUJd8gh^yh)}rYdMep*)S$kk z`GEXUk_PK1JBH7ClYu?1@TEfXVzKN+N$K+`(y9JtT2e9;H020SJ;G)We2sKQCyHHx zb$mt|t=;2P-leich*UOp$6>P4TVtxVj(JZ^JC1@Od!Te9u*;C5&cWTa`n5rmd;LK& z9KqAt)dDy?XKXV@Gj|svi1|nI#1&*aUOoWi(S#=_m_(y@z~D(2u}UFU#H2~=HUF`c zyYp*sG+4BFgNBx3hC7%JJ+tZJ?JMdg2VQs% z!Sw5u!?%4%fsn5+eVK2r<7%UE+-c4hv8~$j)0@$}qxMi8sTeRHh;Qb~ zTt!MH`pU3V39~r-<(&AD8}jlAC*6Vnm@+BlMvUALg@le-YxQ^D`YltJ&s+|$Y?~e_ zpBFnk1%)9~t^|%}Ftb5NU`0|YpO4H%kXYig8hf_Lm72co!av=$(WUzEyvTW9i4=~} zKKSq_yZ=|1Z5+p6PDBO_3%4k);FwP^{!GuTbmP-{p7LgMUQ%L9+7PSyP^9k+ysMZSM*D+BD1=fp8Dy_2J= z0Ec7Foq-i{jpMY=&aJ=yS7e>2ZzsN3JFL9~=@o{MR+Dc9ZK)d8k~5lYX?77d@^V)p zR(c}rA}o!Lhs;d~;F=OewOaT^^;)bYrZ44(*Es5QKvE7lT>HVt0Ct*$^1xB0)fxpI ztOIy*H4A_EjREB9ljb4X6H;2gn6mi=?AM5M;ZQdjPp4g;nYnRGeP%4QPowMXKjgRX zaHUTJlpzqH2wF3o>oT+*)-{wt&Z6e_^xSHF%Cvvbc7yuOGm6{eD)LTwmdx17JY#MY zYHK87Ru<86d3<^j{N=d?iD#?ytmlGt-n-d9)q-f%bN(sRj*BBIzF?`SX}&OFdt~ z2sapM%2y+t1aR_0^+y!xF)o*T-+_k>pl!iN4Pdx<$Beq|MoeC-+-I{9Z>S&oAGY$8 zbTRvtS_E+c4pxgX?gbO_j(h;SnD(8|^4PrCXE z^$P$&K)%1q16SAD4YfbCC$?U3?Y6EsR(q`w9t$KC{e)8bj)SLHb*wA149Jg!+0D3$?e z3y1}rPhW!Kfv~mwqZ23_)!~B+YyY|+0@v4uCD$xqPX6Km~uVBPQwb^UL2W(*d4#mmj2gj_yFkwb7`uVdY!KhAa?Sh85zL$ zP=bL}h)hTwk2Ml6>xq>8F9^HXgqcq(Pvo;lhy~8qu8ty%5#w}}aOTszU(QEx@Z(31 z*DR%6vzNW|>_H$Bbf-F5HxA6qP#Ysu8eZtUt!#Ic$QJlm+hMDV-Y;#5JMJfCR|OZ^ zn9!R@CwObA<_21gJFuJUHXqqHPUmD)K~!}*foPHlr(Yl2SYQKKS=}GV#KF!l`UOS3 zwme&B*#{M&nfGWmdv@)XgkjCp5T|el{9)z^T8gVb7;FtYHcood!PIu9KiJm zZ@OV6Ih{Pud7pVswvw$j^iy2;wE9Bx6Q9lLUG^2XQ4_d&z%Y@(fya=HD{q5bTYXLH zd+WwftGtu(G$ZCD~%DN|S+wTr}_>0&v zu3S~f;*jRUu0>3EA&ok3Y=lEgn`P&bQyvyCKh)Q|hW1evYimEV?!~k`D9tyTFcFZYet2v}j_-brjsc z7<#Uuj(*$O7Sls^9^OZK)%o`RkkFk*K9J=R)tvQJgpl^)!>_lKyRN6)tm?^ex~JUp z>N~9F%L8YXs;KZuvAlI1aRk+?9mjcP`(d!8c0EB@GPmh%HF)ER7gNva#jF)n{g$MB z6U_s(`n2?c6m9d!?rAG0T24~%-gCq2g+hr6=k`BfU7l!spUwD3$=($@7L0%L6@0JJ z)bR#8n1cArl&)XOk5uO@(V|~OVV}4cadx|UJHmx@TS9)H{6Zr=zG3~Iu)dC0SE^IO z`AMu1$J6sYld_y}ep7#CKlCabcXBTX_f%~t>H@JqqxW`EsKrMr6?YX9spGT}2}IXa zkotsP`-*jvcNB->HDxyy<5AuIi@UfdhE#t)imBXauj<9VQb~+IRsX{E>_k5 zRoi`6ObRngo`2ku*laF*2-EdR<&RY;$B>JxhVFf>SNY(fftUg**&b+BR+vk=d1Tv} z4iY|Iek}l2%c8X(E>Qw5K$0?6ft5d8~tx|1HxlDqS ziT%i_*QxZ>>=c(%pHrYyp;BQ^iB64Aq@>E7BAqIj#U_;Ll$F%5$n>)aR6Fq+*e(HBqvW%15anqjfM!NU4KS!jej16q8a9%n|Q| z{0e+3TPg7=##4@@B|bGiMLtz6)Z{7iDGf_SKdPVEPwoXXA?~eMo6pB*E&Cf#T|Rg! ztEMFA%L_3_jE@qLzec}yUxsNpzw^wufih3}F;@nHt1l&_&s0n@c^T(OxskyCJJ-c-9W& z7gOwRSAU=%F&HcR-3Ms(;_TDv_l5Id*jx0mgtT2gyqJ5`-RL{^7-FnPR;iGvyeU!M zXXE)?{(DPL96y>jm?U}+i-5IAs@+}s_(>~)*?0O|xtVJ|!@IU79lDDaa>85{!8RMd zp3!H!uJnI%H*0yIj#Oo|bqD^uj{xfB_!uMfFBu>iTk1Q#0IeBfXje5+-lNfEq4E?9 ziR8qBvm$Fb`A4BW3(0tkA)3+Y8=tv&F!y_2D7U;FB=(W*^{hQCfE}k5PpS|=&ffcn0~QKaPiBjboNCtiER6z_chL+A6~ zl6(){2w&zR>As8IxWyp(>DhbJ0q@k9QfK{Ke-@GMmvVCw9FVy=U%VftUg6vZ;*%V4 z_$D4f9z@W*a&=5O9!P94jH|)jw_rcaiJB!uf@MF!wKwgD+_#BP+_>YL)Jewa*&C~( zk%>=@X&#F%mcuX=K&Dm2C>ohLTvH}yg`MtVS`F4-K65&%xPV#;dm?kTI0YYh;OHs^ zz)Pt#9LL@G<8Cu!?>*?4r|{yv?10OC0sigqVV3|K6t;zbCB8uY35h4-Y#6yj_!IJ1 z11TjE=o(y17zlm|tRP{r!b4)1+@_VC6sjyFPu&`qKu3u{5uoypKwi|Y29kAbrc$fIjA1abE{ZXT zL#y}0jigt;#13od6A9Jfod)!GA@By|B4^tGJ)uU01 zJL>m;0M9-`0Y`VF&}l}G?Duz|UYY!$rbyHhAkPio_hUu&UGIP2kBe{=9r%|z3%I`= zRZZAg%((TB4>88TMKSF#ccp1Nq4+27aL^Zcn%ZEp`V9T!I&8L&OrG&`;iEF~)PvVD zSk}2+FLsXb?vY?hO_xM3P$ctM1!ROK4|2(U}9$GQu4sUns?t55C0r0W1?y2N|g+)hWW0ZG=}MtlsY{Q1F4 z;&qDSlSMxc*5J2Viy@HtH#r5+3CP(silXqJZqC>8c8wYr@1Ub1kR8QPKc(5B^i>^y zW~uqlxGT@%AMg89!cwtJ1@!#%y(+Oc@c{Kw`1C{Pr}(Zh+Nx>C`fB6i+IISUeZk6P zfOj+ML>4pq#MB8AgVx>~ngLah^Lj)V-$L@_%c@d`OihF;dh??gVI!ZC8 zYd~ep(7hiM{fqnlG9+6!#^!GR#9)oJ5DX&jSlAte{~jfO+(morz~fZ${vKx#y?#y7 z@?Z3_YQn2ElynZuEA#Kb>+;IPuV|=*24au`s*02bQB&q-08ixAjlNt4q*Qu(F;(V= z&o%=DyMKLNO|C(N0&!W(XsDn}LgsIOGAZvB`0VqbdvS4MTIu)Kj;#aw*tP%TiTAct z_ZZ%3 zRXWfUqx-;8e188j;OMm_N}3#5H#>rlLUI@9#eH9*`1zaT)O=`{YQNTtTm#7;=^9SU zy3zOim$0#lUgrKtpLw7-|DZk_f3g^x`z%He$NMV9nEtl#-7h~JsQId_>k$|@JdNkM$Cf#@@zse~|0nm!UW-^V*g5T;z9>1av}BbnO*8f0LQMIVb%9 zq$`#AKsi{hr^@HM@qB?REbBjoX78!5rrlS^by2h3lioH4Y}M;B((4fOUql`y)+g^` zv{&qj+IB=Tdps%g;N3@Kt>oT&rJ9T#h}+&h#3p9lkj8>M#-9oUc3p;>5M_KSY08HW zZB1vQF;lAY$0#Hz-hTp9J)kt%*>XrmM>Qj?CE|`pLR#7OACxz~{_vvVt=`UFx!8oO z&!c_@0+=i;SaYkI&%UDF7~8Yr+iWd&*<=j040g6H1B)T{7u09f#&oHB*jMZTC2KUA%%PrWU^})9EpEEXV%E~fzi?e1-hg(X7qe-3duFpWlm`Q~q zN`-^=l1*AeEuhC=hPfsgew?}b&u3-DC6|ZqfZ0Lh((NwpN}TPw!_~(LWzGEV7Vuky zhKPA2{x(bvlF%-Z(T}>(9oQPjG9KsUbJ|TFkH2JdXzq_Cq|j(P`;7LQF7xZ?8eCGN zEuQ-R14c_5x4KG=6EmA8sHD(mv{xD#&*DBhKJ!I*o{^Ev|F{EVCLv?Wcb)cv<5|51 zi$sh-wiI{Ay;g8Q=wA0!`d;%q8|;3w-19d+cYo@)3S~yhXMl%j(VEvs-uMV#nSEka zvv>88ocnqS9hcn z2IXtrHmTcr}s6v(aLqM1Ay{4LiV@BSTA7WR8VeZ=6-0ZD>o+ ziHvE#xcp2)dV2$kvV{vAh*yAyF^1N|fMM*{Lp5U`dV2&|zCnKAEXS<>D#jKeE+wVn z73|62+oe96M?K!Oh;QVEt`Qb|t@dwOz1e%uXS9mUn&@#Zo<($cwZAMemuBqrRSMAb}`b}hjbyG`ZdJ3WR91L9W>Sqwc~Ez>@|qyOE@cO zE4G|+%MfEUF^M-pv*_xR@_JXQMrO(O_j9uw;JbnP+92g-ut4whT|C&&5uwL=J5t7$ zZHhgN{cnBdBq15?^k+cNJ-qqcq4uWHH7eKlO-l8gpJSGz?7N3lU5;Lkf{~*r6Q7`= z>}hh8i={0kIy~N1d$h_fjJyNodlyj(w;-syDjH7DvZKIP`=QHZs3~%a?4R$m?KvWO zm%y_xlAh|Z-A_~;VZhx7WtO128Scv^)!&x9mR^E`CLEJDNlTZ>-m67^b97gOUB@$V z!6V%3)Vn8F9VfdSr673Zti3HAA7y;{yC>_Ux$61D0if(?=_oH#?H$lx-(R$#%7y4~ zzKg!OoI%s>t&WpVVpXrR558Ygq;gcJ+c`epUB*6ld!*3ha}V73CtkZ!Ld=t4?7-mh zFSez%PEQ3HQ*&h_9+#A896&>0JkUdW+4+uct<;ToD#+JTOiOw)>F!}SB;5iLklTA275tT`kde z{7|3!SH(PWrr$I>#skg3vG|*lw`cTUaI#kRgWDhLH9ex^e@J()42q-qCA`~YS_g=b<~Z8w2MY$5BT^eL6~6W zgRho~nk7ab1Q_Yqct0ATj)^;gjWyIwAc3Eqaxddyux6{f6}QTukJ{JuditvOD?DOl z_u*ar8g%in`PirOk%;_#=AuOqnW9mqX2sbb2n1s(ZMv3sp`sM5h{+w> z`w^q#k7mA)Pm)DJm^63RTyYoCC&f@-ZS(c6@h`V%I!g9MuP;H;SSGz%+G4Kr*(9K$ z)niLBKX-ZARi0d?eJ8`XRe8j8SduOA#w8&I4VS(+&R@ z0jaO1AJCiSw9Ua5OeOMbu96N7uEA$*ns!R#UVmN`&OmTN?AkR9K_5kqr1~yS$K_&f zH@b8&>sy=oB%-F@dp3MNV=X7>HlTtq(#w5*KM6U$+01UHw z_Tke2k6TQD7$Kjcb77dro(O-85Vx9kaV+v=@Hp}7B*T~?OTahTlV=@@iNN3IlMPYM z2W^G^I^+F3+<|R)9Cq;zLx>^fS;%YK$Oh$Bh}l1~vO3Lf3;qLDqByiI-=q(=Q~iO642i2{fTqkTaHsM|5O4@87=tBId0 z)qb$IL{q0CS@n>f_SVlZPzOp4cUTya`lA%Ni-u~sI-5e}KeB-9sAkcBIm?Ks$b$9!w2O{w zaT9oPkA;Kz+&HgzA7Gw`UHI5<_;kn|d2;RxKN%{Xmrbpyt1b6P`%RXM@V~ZzmWf_t zl%M~$A(Z*aXcpLnNyQBY6Zl!~R=>gNhA3O(3#|H-E-{oXiho^2&`u4#tYzzGem!@a zF6l|j;NHy?b2w-Wr_sAcN#;~@{TQlf@KEqI6_HZ&|3A1pNna%(&l%{0il#U4E zl?`dh{Q)(87(3fx0ZVE^5#U!^6C!o)|KXFNg@5?YNSfH|fHB9NGooTUf!rmQq3a1r zKW1deC`(1X$F}8M(h3g7@~uq$!_$;mNl}?K6Ihj?*MVRtN6tOkKD+JnMbUaSy<363 z1X1fX59A>#MF&~sK8&#^|mCV?_5k~F=wa>Fs zN+Jgj!pyMD?P)r(nH6$9t9WrRL#aFM8?g02pe8D7?*Ue;MQGHLK$1~gmDfHA848>V zLhkvX`#}%OA()R;-F5SV7`c{UmXHM;zFqcZ#xpY5e;eaDyMjJ91n{tx8H=jSDz6HU z##s;T%XV!H;00SDnAK5(OQS_rcz`wk85{{5L`I~r-O1^fYnt9|hjQpR{wX{XjLe|ePUz0L|X2JHxk9@$14ae=wnZPshFy})4) z*|F6HoaT5gTLIYh z+HDtr9&lIomtr3Cq0<0(%t%^UYaawPV26Kq8ha#zuOYg2k3qd0X{H?Hu)tZFIB&{0-Luoh!?kZ!*Yn5c;WvB&IIpA*@gsM ze%{Mk#Ks#;_D(5kINvB*i8 z%8rmuGz#>m&I+B0g)A+9S4@DlO2nF3%uq>;rbx-CZ4WSJ4a};suVlQv5$7ltiNNb| z8-8{wfKA7Mb+ig)^aCu9zgIVG(6QZvN+7;!EsOC_A%b^OAAwzZy8y7?QsZg`*Bq!FJv37gIn9TiTIq~ zfe?1=%-_yS!&g^mjUc+03|=bbwg%o%6L522WN#g-`Q+}1<%iGJ1>@n-jpL;q{DMI{ z&$kciE#p}{_61WNDz_jb8iw4B)3m55OodufAc0D~G|FAnRweyeeW;m;YP3vp%Bq?e z)AHJyI|f@K3HaBp#eqHW-IesfgJvy5Xy3H=vh=O z32eW1WDojh&_=&Veg(KQ?|_;s?SMY^hS~b|tKW~0+Rt6^Y|)dB-t-|=)EozT65h5? z66kIfB~Pr|CI~gQ6k}K*!1|)GY;|SkV*iR6qFZ{fwZ1~Ly?c^Af!dr`Rwc}2N8u$H zu34`OlD9ueLRAqQ1ZSK^gFZLuc4)P^#7uvnrqy2rQ0$AW@WiTFmq))57BPkhq-f1( zx9)%p&9XU#)^*xX?FK42ae32DMWU{dnuqunZ6VXQ)>P2_SB@#FzspfQ>!0Pb*%#I% zB_n$lf&r!Mxc5=ISgzRJo%v87bpY@WN#F8{^N zAAB6=9?aa2#03xqFo(r|pXQpNSyDQ-X}EMPR%i5>S^ozIOMugH(lq>|1ocHviuHMT zxBki~O(pFHsO$SL1(V4A-i#DW5OALa-eJ#12l^ez!eY9Xx(0bh?=*BL&Ro6;(K&3GCxu6}Y zmxuD3fYPovvF#r4{4b_chw8ck=+F~PWPRCZUvh@ZIJ<*r#CBjieI7}S91-!u%tiur zaLfe$6Vn2?!@nh1%`fc{OzgjgP50OVAFDTp+?gyb}_ZOTLfnR=X%F*x8)12s* zegTImoXP9QaMl^`ORbe{&g`gb=nR^CFHTn8=nss;>!HBKvGMTG$*LQM7m2>&Wzn>?=X?5n04n2m1AVopKzL_x1XW@(b2Msg*Ahq^qXkGExv<+}c{rwpWI{I9FVAM2N+{{sV9%N3F&QKu+D(jBj^hPx#gJs&V?DiP@0(7k}Q zQh5}17u1*(b(S@PUF{;UV8S=>r*2v2{Js$vq-T^fw&us@x^6y%lPf2s48W{mAMi;Y z3h;onGj!>vBMCGZ5gHVWxPj_~IMrr+_TMmc*$A#vm_+R?PqtetzB3rV-AdmbzYvH^ z!cA(tEp=GHR?ASAyyug!Ois#19xL$mI%b-)G)^-4KV$ulOMN>oSW8FaFcK})gh*H7 z4?!QxsXQJLZ~5DLFuE}B?uNYBz@qK967CD)4kH1sn~0hP1&H1MTv#Rxy)oIhZr5Byj9y} z;~8cG%q&;`$I}I9Mj_T~PPKSi{*=;xqRsIif{(9)-%xQ0^&mK2tfAKGObcx~U{+y{ z&z%IE9q2NCgzRhiX>y1~qwQ6(QH_-K0q;cbnu>h>?FtLe=QF%bW;2vpYI-_Urq@bt z#+UK(%7AUUe=;g!-{5N=iRLY#?H>9lPNf1eOZ2X9r6=d1<`2l>D&UWx!|Gp)f>DtC zDz#XpyBBlCYe452WJ9vigi~b+CW*Q31;{5ITf45x*pc1{;NM+~y*9doUUm5FLN0fh z4}cK+JLAdzjPHwm9S4$6p7(3YUhN0hZU9?`EfP(CT=c9SSt+Pw)oiYgynoUEfx7pA zE8WqX3sO*1bPn?d!Xwv!oe{N)-WOh94Q&UWKihNOZ5torz_r<(Q$$Jh%AJV22)|>f zbO3kNyC?cfdw6yhuQ|qIJ741@@_T{9e&C=(fcl)^CDdQA)-EdI9S2gYTdJ5ZtIDS* z0A@^#s;@3N*nxOtWi~m@RAuUsgV4c!Oc&d+BQwsZe$aGKqO7Etm88(pA@|F#Ewkd? z;C2;Ir*$%;LX51=lM9%A^4C0=mLVL2;rxBP4uHG&WirqweAK*=a%9+l2>kJHN1vtS z=($c3@BJ`~soG3L3|%()))2TJFn?P#tkTQC#FvwBWz)$FH8&qcFy@-@93Z4P7@azo zoOLm!YjhI@vJdm}euW+p^QLpOSls64F=U_Uv8>6;Uo%Lt9+zf%HnA7LGOh00(5NTX zH02A0Lv`a&KWa2^HF0{N!RXdF!>=h#)ud@pLe>O}?b_aB9a_lsry>8_h0?&=&w1 z-t}V0XjA5zl+`dsV++*mk+@G5&Ff9RptFobPEvcwlUQR=aIiOSHHR)cn-L zH+av$?+Hy=OZmlgS#jIl?{Up?P2YB&i;&pMo-k$AOL8){%OcY7%88Y|IDjCSNabHIk5)4)p zm@`%31mO=jfN08q3*egsTuws)fctmz>A)~p0xAF3g*I30}SVk=NPv7@oevOiv z*vOcP|NrF0cJ$q2rh$$8qdc`YW@(Uuc7X0Iwgmdw-hRWG6i9w!Cj)K~NUi_juomGt zFly2^*=btb?4=*ixf!vX9NAB-(YDeSAW*XDT>E$JSk2ZFZY4A!nt==7cTdE=G{T;{3cQgWt90 z8q+vJwU^vG5$`AUJJ&jkHv?{2G%YBa^>#yBegUC~rKh!unJfUPs4Q6dXn6d7>@imXg7If~c(Fo}e?iENN%6b6c zg>fNRp4^;V0#L(y{MZtMKRLA~Wvhh~o^)yuI2M+3t_)*POL=ctEs#Zt zMu#>M&0XRep8Flf3+v|rrRlvHK0_m=w2kFIf+UiINM;!BCJemeQ?y>~=?LRu_Z6A=RtEFIK0%T;{MB=zONaqAGm2i!W+;(1iG zwDg8*3GeLA?Bixfvy7+5XL`!7N)k7bCYl;()K{&0?+=J7@@YO$*Y zAZN=X1~ssTti8#!0@)opU9QUTMSpe=^_Bt&*-Jt5CN(ghGF49SnXMAacz4hXnujN@ z=%J&!7hQSt&`V{ybt^$$vn++h48(*(FR2P%7&<<@6?irGLW?OS_nAV*=tzb?sbED% zoMTUa(P@5mUT3B0`A=yCZs7D^ zPVD$vM_MlOqw47M+D!UqH(@hLGy_rHx}N*3Ml zPd*8_I%&vHTrO!kQ#DB8Cd6%uYnoARpf;IzN-KmfOUtkLA!n-V=JE;MZM>48vAok( zo>?L6i~O*<{CHlxqi+AHRPt8KlDUURVedo7HMkoPJiZ2E2<-G{S-Ea?HH|JBMLz+T z(reyH2^IErI)@_aSvZeNsf}i3H_X&mpbp}V3~R$Y>_w;J!1+nz)> z^y2uHlrC<9SQWTbsJ>F*F;3xaFFqinAgRye#o0P=w&b^n)cklFIY&iaU(EGqYyL0x zD{==L1YMF|6h`@)AwpQR+Abu6%}P6D;a^#1s~x#Cd1WobGNm0aOR)+k(?G{oRN6Cj zY;ShD$n%c;NZX?pFD>R#$itT5O&u|ie-{EgIo^}x$hjVrIwFFL`}uC2say;7B-0rT z-{U{F%YeTVrg2k|7RdYoDS1@CAKE(Y{v*bjTl&s3ckP4!mou~MW-HR@@QX7=yDRrBkLG*tZ4(=N2Iz>+d$K!0 zZ|q7&93)v`Apq?Me#p`NkXfO7m5o$e*9SD2NhGCKHvKrZ!G{Mixu(GAqV5DwjNZ*G z_V&9xYa%h6Zuc}Lnj$&6#Awnx0ZAn4?zJtnDA3$_9OlhTdLFz z#pzr^9mU4YXr1tTM3L8=|OQ9CP%(G=tC^|qJg8(3Ad-=id^2LBYgb?-X_{Y$P1Be@~ z-=6#L@)$&r`5rcMS;eArB-8lL1uql~y9c7tL}IZNLd3{fT0Fn`v0GyBYNnk9UYId% z8o{8Zy{LVHF@1%m#NFiv(>7)7S|`evmmBc*C5z8~)O2Y%4k@FI6E>P0#@zEB)2Q}< zT+21>G2!*){*Wz;+&eW_tPniOJb;6_MEcXWAD5#!+Zi%^vHgrHq6>sFC=|8si-dWe zGBxKmBVKXoXC|2gb}b=7`;nPwtFF&ORYa={YNF_d1;(;t6M#@1|3Mft!yCzj!|7=_ zr#N-go)n$Wwa5p+}92n}~ESzZQXoMF79H!X(!HWlb67-D8&gJdIw@ z1nSZES_T+dnVL7$`O}lLPLE@6rB6myu=gml$NDyuiAA>0fPeF;n=W+aiW=u z*_uq{80Fz=vicH{(c%>OFmXZGkvtAGGZY^3VVl&hM{#gmux0Of<&u^T3Z)!Cy21-( zj$4ys`yQr!)8T4*Cs!l=TTh=DqA|)rVu83Fsd7ao15c@uVE;xp4j4CoqMuS&eFfe( z|Insp<2d5@7qs%yGGZ#naZs$QIhI8dkHr$L*6f&Tv2^Q_^-~*5woH zuLRobJx2PwJkc;c8k2~oklCr`H(pmDHO}@^vdsP;rDmO74%_3H%6ZvX7Iv*ZCVV>8 z)g{S|d#-F4x9PI?k7lJyO-)qD8d6-8mBA~STFLocyv(-RYFYkBX4r1Is}n`3TPy=+ zKP&34)i?$zOwj|okIQQYxSD9HbB?-c!ZdLr2u6L4bM8dbMfg%TZjP9d)sH@p-K8il zA%I~U@+q$BFaHEh4P63Y`qJQ;(d%V+r$YPJ~3VSz$n`R7M7v3%Qkq&id;3 z+q5`1h<8=yL)&o?A&c*zb&^7barF+`Qz4NSR;nf0cHy=Y6H$6nwi>W=T&%V@~U3Ztr z+WYAjYzwam9G7R%4+0ji-o_~#1R_a7B=0+`H7#Sax_%BA(pC@Fo2V@OsNCj+<^%6+ z;Vz;78fy6<;mAD*7UA8vaRflm;^*2TcTsw2rqww^mwzHen=o})wpjR6S1&lcCeD1D z7)7F-RMkgutO^@!c`r_ZHaP?bM>iUQeanKaTyL;Tql(f>Fs9g=+Y~nt% z3SQ{A_(akW9d3~+VN8=dO`Afys@7|pZEqeSIi<6jkrO$}{Iur?sjN>!7_CNo6-GZ?s{86Pr`5_vdA4M@I7qB`B}j5ktl)Eim#ruHDJKmOt{B zAOv}NZ#fTU7C#7i>;e8khZsKeTQWs)pQK;U*r)BnqtQ&aWqBT#*Tc3IZq}Gt)(Gha z;Vy6aN>PISxTQDG(^)Ds0ZxSYq|96T48ae%qg7olLlty4O674ay!FYBis4~ZOXyFq zo0d{>&U@r-^TNz{mD+vvw_WV`j3smB(~1ce5(9dnvcb}3R9kgnnUO*yf~HFV@_oy; z7j&-dPhm%jZOI^D@cJB}(ejGPV1MF{o!&;OrUfqI-%0jO2u?m9#NjCSX_sdrF)z^r zD4bCN+%TlH35?Z@{+Ka-50HiYkLj|BIU}qx6FXCNzug+}&gSP_ED&7v92C=11^+^D395)V2{qg3fk`5<< zPzKv)!{A41=SWJY?S~*FwSNUB$E177L~MtyYKHF*S#Nyt#dAJYwyV?B)|EQ`k~DH4QYz(mxd!35>;Dyb6iZUML&QP6J% zTY^S%KqR@&Oaz+JTn>JqiO|dJ$QcRIg9ASJ_>W)7P0pC=1JKP6rMT5w5rUd3jLr(` z!9i~>T=y=qUl;F@%V4?@EE}7<9aQeeWEsiUkuqAHd68D$68u1E?cm3naYyeofs>2r zX^@uQ5^wxQZqs^!$TYmkAvS$cn8$^>pX`R2L3|x);jG9oR^WJ!BxMq(0 z@W|`jC*sWjs6`@W?|J>lK&k|~YdUTFQw}rGnn}+w714;3DA)h1Y2d3*v10IZo zxbi{AwgjQY!kQAshsg|1;kUib=61|OfRSH8g?Qk=YIt^WkG3hk>xTqTAX4(&9OzuR zeBQTi7{HsJ(S)?W$F~J?fG6HU;9bh%^F$*RUE|NVx)&ZQx)x!F13912Q2x^rBW9jX zS~`Ng29?jB1I?kYF%YB*xjNW;46gkUXJc)R z2!@4Kn_1w|<6xASLGBEdcdE+u7Vw0b?I5nzbfS4zMQQ{H=5a7Jo0I2o=AHHf&{ z;FUiIxQ45_-_k8r$?(M+HXU7}#t*iXtr;zYZ-RuU5cfoV5#ZO$15u?S0Zvl+=~yA0 z0q91ezI_aUks53FG6i&YnhjRc?5VJ8W85iI?1DFPuDlXAW>~sDg7dO!B50$`dL*Al zs1Jv=qY*rxB!)aXv^@d(3-pRcSO-YBs~KB6sx0Eqp4R`FFz+PKH8mjaISIkf+*G2y zuOyR3>#3te@@c`&ZChCvBapKDJ~hE{i)`qNh#kPTt*WoW>RU(sA>SJc-x!bhi6Q;% zdPawgpzzni)RcnBzL%Zz;PEhLT@`uUg;woJDRVxW#=8a>vY4*u6~mSO)vuw{=5Ceio~H{xdBe_z&SwAJ4Gu|}yJ)ifo*5e1Kj_5rP3BA! zE5!%;s=Pn}o)(cE%n`OO2hGZGbG)JWNelLRh@eC1CZvc^&M`s=p*s+*HUs_QP}d~l zM449{RPt53T9czOK(;h`uIfi&5?B1hw$d<%!+|1l!xkCKD0u(YpfF1Otw(YMX4a0a z#ihq*awWAX{Yr7I<-n#>{17#K6t3f$-4HYNiTSDji>Ln=i=gvBYvr1wmv)H0_i($m z3kJ?)10zZ)Z`7kR@WNNAWb>z{ZfSm3r~p#lpQC^!gJ2XbWgk*Xy$>q1Xb$_xz*!o} zk`@wJE1~m~2H7dFzHZGbX!_yJDs86~eC`Nn;uX9ivt9RBVSzRcON|I;wxs2CDUs(I z+z(6i?m?GNEl-H}|8WoMUmPx2=}P8a2T)1-zmSC8IDeBu@ycT9E)2u|obhH9$Za_? zz;mCfQwu^xPFulGU-js7aef8UhjE1Gx8h7k8%E~-E|T=VZ9dVG7pVHc_GgIQd{LD# zXU8a2jkj_=G#5HX6WpfL8&T;H+c~YSyjo4>eG8K{IaKqoS+=|hg_5gRJn@0SKwduf=X9M7cG1sAO7X9OIKzp8F)(XCM@%T5LFkbY$z zxz#!^@|Qm9Hiy6vp|kc#3zZM!J}B&}G*|aN)q50$jY%+<*r(`%19l^IS2|V!dLZY4 zu3-4RF~UAT+o_64g?*$y+kjk=+62MndpV@#7?b%oUE3?jXh^I8dS$Lz^uO2`yKID* zU9mJjy-5p09@&F;JwAL{WfOvXwh6UADU(kIw+F4nGwWdYwg@bEq8Bx@oMC=G@L3)U z?Y%YR`s(ErD&k$~4D|q(2d{sB;|WuNmJ`!>u*}a?asvZb{z#wT7os$sgd8wK_Q5|2 ze$eO|8XFE2LX~@uYmUq>+3Jk=1{T!{tdRvU86f;35P0@L#214*Er|GsgoB zd3Q8rKb<;bEHQSo0RB<&$UUKLc@<^oial65!xwyY&O!QLLz=_Mgb< zI@b#2Sxvw{NXBzDq?Wos==DPDqja;-A!LVxFFLbuw2PaeZOzIgR$Gaoy@NHQMYvOz zI`XRX17d@6MlE$5QIcAS zb?^EzpJ6f`@XinF(}j~Kk-@^*(Lw+=NYL=R+y%gb2waygaSPC&plPf)1z{@La#$`Z zeh>n;`+M1@7+%>g;7{1W=PVyC3s^7kbi(2W_L#+hFQ)`-bR^NfPwxY2zKpTP0?g%U z(Py3@y+P@w-7(V27JHSK1;Xn;1vgb;~*ud;n#+Z-oH z7V`FLShRRR;0=laqL3iiZILO;1qY#hY+)Fq{->GC|I&;8=;#m}!f3*U)HGqN3A$OX zN}W3Ou1-t&L04dk7snJ`l+Vn;zJ^t6W%0#dvC$<$7&=K2*s?|xCdmSfq^%In3>~yU zOH6kqwpcO>&2Ai~qfjM_(HoT^iX#-5xbm)zhder)UA|7IzJe6Ru{uo#+$2aE$X1o< zp{b9gG^*7R4hkWiGj)tkR1tP05RJCE& z4CN_Jm55p)4FHyUlo}^^Es4$|46FV%Oe6wf9AoFRtP*reMg_crQxcJ4f3;-^wYXFw&t>jE&B4X}vD*8aJmKzSx4(qrZKT)UP&tf9j zu~cAHYrFFw8Hk6s&&cTB@y~ZHINib8+#;PvPzp@O894LH=ytXXW1G+@>`NGyPbxvu zW1N8UD*4qiNmw;9k6*5qWLnG6mBaLvAZGs~wii|0c8w0$;##x0mU__Z@?~$-#hmQE z*kU_+Y6|s|WdwAj<+<0pPUUMVGa=pOSz0?|3z~Bv^Px4H90FaDZf$H}vj~-n##pl~ zG5%Ec5uWRfmOF{{3T{N42;?=Cy3{no$Cc^Fhoc@Yog{DzO^ zg*GkLk{ovwQ~a-x)&E7a@Xnxx&O7nEIrm0~@}c#wRUjJoe~f1&%Ct*x(gM9sTZqMw5~iiQ^oK zYIEiXL6^zAmR=lA;=~7zJE3H7r<0yq3%P$wwtdOSG`&SW1VX4W2*_&6#(`A!j#P(; zT|r~uJELv8^e%aut(uW3)iX_y0j$5zZ3T(hvO0Hq0U|Ru%Vh?_0%f@Erxt<0)27g5 zX>bZS{;{uMaC2K`n<7RDsRMnxnPd#VWm%4q>dh5_>pxB4Jz|=aSjg&&N8Fgqc3cii zkODwn&ipMEb@&|SK?z<73m_|Fiht{S@MWVHTo#OMkg?`*y+MW-F@nH~B>l@}>=XCs zz;dvaoN6_Hw|*B30$Vd~@qcYV3L)JcSJGX&(y+qJKi{#b)kF0&Q7M+pb7MGJYkS8)%7n&akW*oeWO5hGgQ3u^{yzvaWV;Ph~aMv-p3Q z%_UF&3jJiQR?1zJe%E+)Cu7xWAFP3506{>$zZySjxH-2H0v_p!HBy%j9>D+_fxKXe z+wC?~;;|88ap!c#gJuF%Y&-ld`l@F1NdnBrBgATr2FuW8SD}^nJ&e_^y&O{#+jkxK zi~l$yr#cXBD3d%`maE3LS?P9b;%xXJ9{P|W8o?-x3flUxmPn|bfM62F4x_3R$bWwveH8E29S@~yXlIf8A#3a5ll@R*b|05~8=p}- zTh?>-n9yiU?EjYWjs>7|l!CY89n$F@fTVbGDVy{r`+64pVbw2pRbz30Zi^?eLl7pS z{AA8@lTp8N5uU0I{UyKayTssQ*ic6pcz>h7wiFId%Ry3f6qjZnS>!DL?Kl1e*-Z7R zz}+_~LM^J>BDLDuuED%ZC^fVtTxc(&CPD1@VMXg;7HJNK1NHTOb6z863KQPrjR*!W zzoQ2JEn}9W`Q`v^O7@1rmiul8&QdzB+HQKAqeX-_F{yMbb*jl`S>?6*;}ozLO%GoP zZBduP!T?G5o zonZ21JnL;@j<(Ayf(H#AbTAp^oow;ih>CqzgQnutBr)DMFNlGqHIq_rdnq{oCt>U5 z>^A>OWNe@#{{X>{mbc4-c|0k$|6Gne&told@vu5s5qJLrAfrF^$XQtBzTM>^>=X-) z64|BR4u>8QuT)%#<~=n36RlPX#16?XRJSjqec=Vr+r9KxUGtYP)kB9=G$xX2F{%dS zqc7wYR!j$h)s#y^LFnWS7yT4YR*V8~Jcpq~uXrJ73eMpPqo!(ve9cPWzPy~VAFosm$%4BQ1#YSRLk@dI{?41j#8k)#8$lOu@tTUNN$WtMltg}A5i?EwpW4EOlv-T^zYSz-7c z772pcfw) z)Y`Wuy&pbh_(T@t5KG44DxThR*DKL8-4&zL)g#3;qo35guTf%)tGgPN(U{~s7Oakh zW5e$Tr|lDBhlUggiHPr2)Vn;~rgub`fv6t(HGIh9>iy=VuDtLqb44I(BoY+8`WcHt5SUvKiG=$XiIq!QW_mFFZJwsTtWrK+$G5lIa> zL!stfesEV{@wvz;zzOh9Wnw7AW^Hi9E#5rX%8rFfdD7n_6sJZ*GocL4<+>IYciBjA zT6Q04>b!LKJXYWlnXK@%6{sXlV;{|>C^DjL0Fh=rSfYl1W|BefutX4DBZ}Q5j*oAo zr_qZG{RMxzCKOs1Mz=j8L1Dhx{ziikvzME`HBTwPU6WfZ?-FkF37)bh z_E4)Bdd)&V={g6!oC>IiN*t34gL%d=~-9OGkQ9iYwO%Q^t z*k?YO0N=?#WAn5qQBHpXxROqPH76f}Cg%IqL5=g2#<@r@>nrxjydzIhB;~lwqg7(+7`UQyAGDDt(onh4*647zt)P@{K>FIPg*zvGFslulp2<7*0ufH| zTr3ebt!pyPJyK(^j%NVeWqR2rxekM96gfy#?6TKpL{0jeEy`x<*0_)*05=jebzt?p zC(8g=BRCo~LS6L)JLi(|dDoumiS@-#1>CvR2X$h^`m|haTmvL-8M_X_w}BifvtKsa zAXo9Q!VVhbQpCs0DT!_ZAu#(v33S%ZNR`Ee)hB&Xtp{;HhO13eS%3!ErJNiS8-2^l zCAK?E9m|VPbck)YI7ZfBi>4n2z@-VUMj_!0j}&T>qxZPtM?qLa@6vG_h9Bm!2pSoF zB&;7~GR&Vga%H2q{0pOF_6}EhPnYxd`)vpq|GLaO4MbU z?`?5f;K8db^a{8FG_Vup{FYMzeAMoEIc67cXXRjRS)gz9EOC^aUY%Jy;BQ|KN0rBC z0=48nETibRZFUV*6%-_cB_&bkguGIZ`0TlMBgOddOsc1fLSpBk8C;I`p-8KEM7jbO z4qiemr!)Kcz}~XPthk|o-~SL)2NFApqXWZJut1Lqjplvjig3?#tj8u^_i;;DPJBiV z|IWodiY+>bpI`3Y;$XQ$?-@V zzFBKqM2t`(>lXeP1?*%eO3P1R$o}Gc`t`I!kD-EGNznB9U35K!*!2r7Rnr(N0JM!tb8CTD!-;mEQ2sJ|REpsiLcAWt@*y zP~-fg>s+*fe3kNNM#afi8yH;(_EcG5aJp5zG$Z!EP@MFZDiQddOk?vl%f8;o+OIVd zO9kgkTRF{Q7003Gp?e^Z-@nNv9y-eqjU;-QN&T_50T8rY3v8;`?SgzzZDC$Lb(Hhv7+fCKw;qh2f#NNEYdQkpQ?+rG!iBJzh z_g)DK%bLKkW;Emn=BaMMNq^>J4LpbjO$3uyO0USIvzT;KxHd8cfA(>(WQPAk345^{ z+XU-n*MjA_o$ag?D#xW_e?0*22wptavCO@W_JjKEkz}Sr(7OYTU_~@Dz%isbt zLVqCvL`@|?E%ty6<0rtz5r$HAxXx>LCDiGpgZ$C!Mlx$Q&KFQc-gFE;aeF#8rz;*; z`%Vf0>>{hgEL-2xJY;MT`+4wt;lk7{JW{>Lt%BplOYRp(gzosKs3t8szBeDpX1Cfn z%nqx2!e1=Y8~R-Z`rCM5+U@kRlM7fny|Ka429f6;)x$KP!PMIM%H0J#WA&;zwsZ*{8&0qhA4bD9O>PUJpB+T+hPDF|K^G_V(Od^5u+?zQKA%I#0oTeNFsbk zDyg79v0Ah0F@Z){NVCZG$0OJ;+IH_hc^bUyj3+FSMgw7VpSmq1nA?G~8O#~%0Pcv6 zG9*!UUH^N^)L4E#6^~=gqWqU;D7Zoj2XB)zfA+#>I0s?^_vwXsYgfLELDMXKCKk?0 z?vA8w_TWIIm*im&giYx@=<-asF$AAUXdpr1)*tq7zdc~p;&Vrv=siL56_$FhkMK;u z3upV$?VzjlJ`C<_&MiK&WKtUjY_c#NnydHY9(ohCe+BdB635~9Fp<)5xR|Yq+T`y! zX%xz;r%ZikODrJV7diKSnwKdQlGknaU+5a<{xFM^DakQt2SqM9{|*ZjZ1X;}Hu{D2 z_eGN|bi?o+>c+(XUfOR+yRWl5XjHWwS6c@urJ?GBIZFhcADoiASFV z7Ca!L{B+A?Sw%Mrs7wlF3+@P|w7f}TA4a|5Sr(&H-M%JYfQ|!;aO_PACK6*4i|UbZ zz4g>E)=EvE2w+XE#Njl-hnHYK&FG8+Z?NCMjwO6ZnepOOYWyVhG#{JxJx9aUgtvK5 zSH5iiBG-@lpHzF?uRZ5C|7~jh)>{U+8|!~x_h38e+(FtAA^3;?{ck?ktlodD2E9*t z8cS{i+g639;cznGz}Kb!Rdyry;0%ELKBu?-=^cFe#J0?B?WuV1z}n?)g)ANKTxT@) z$LKBh5B-dz+RXbWh60O=*qC6;lo0cwI~-#uAaz4jyLEZkma@JT&jkr2 z$KvoKfs8CEN;Ll73dUI-E=rf~^?J);_bp33t?31<MP*Q2qBd+3)Yfq%2#H@UIRT5PZX zonpHyB|O$AfzSyc(&q(4iSq2?NZ0-`%e3SxFKi)Hy?}GC3|&I+j8;YbK=P9Cs^*PY zyMD))S*$kMlMuS<1Nj9ft(-mM7A>VY*;V_)(x*$K+!wh;j_=uRD?L(`Pa{bHL;o3W zNg8(veudY6xq}xy+X1S+q)se(n;#|&NOyOx({s<}G203JhsB3E)3Ts+e_CiS9D#_m zL!4QU8=t82Vt?_0dd}EW^;DLg47UW*2Ir(B|h7R*1M^-G6ZM&Bk-i{}Q=Mow;BNCvrAX^PoJ~}w<+j_5l zAh_eya%gbM3)&CH^gF-cX>Bfpm(L{d}Nm2H@!A2yUk~P-aCWGbur`JeAWT?+Ra)y^M_G6 zQbytldrE~8`*8F^VGYeV$4}m5%f)bCFz-eow4M`f!QX9yTBylOywF9^O~^eRFoN>8 z1%0pcZJP@txJmuGe_tufQrS*Yma1}8v{R6$9ZoWq3UO4gQ--GrP70g=Xnr`+YIMwJ z;2%Nq*pqy_?bAihQ2R2e^hY9H$kN9R_VzGRc#!2|c%b!*4!8|O>9V{THf(hmxvUb_ zeszE&(3}T2Hg5>KE4y7Atb7&I3AT3St8RxNDWAiRI1Lat@z5q??zjQ`Z7Q8)V5ODV zvcHlGJ9JWdLlW25q`?+W8MENCK7$x&zJxo-hhb0hfylHUMjC>f$zuwBRv6zDWc?&7 zbFo+YQ05D@%3}`$>O*G7I;bng3LoU-3%{$xx1$WK4Ls)S5;Dd(o!l5@g4kD4i&M)7 zM?y`D=#1qb51RSB@v(7F3dbyu>i=^*=bQVRk6`^C@&zZ$1>llYqDNw~@P)QDoo{;| zC_4{YJN{b-wf3-{#J1qVeq1|sxT|0F%c5c2&oUlho#un%oDNC^dEm*cx!~-}A&a~% zoGH0D11rnOLx^an;uW>7Mdx~ytjQK{^y#iaXl5@Avs&>v0JHas3_*I_UPBp-UNRY1 zVs{!Go}9+e{XxFx@foo5h*6@2E>2(4N2sp;BvS*pwjObi$ac`a`F}lcNL9a%4-tT^ z!W%I2i3~w|nnU&mi{Ko*l(vu?e;eUUeJv%m>~l_jab~O~^FO z)6efi4MR?Mpug+wh8lx~5r^R9=G`CJ3L3O)4ZV$3eqiRwcolto!FW5-Z9P|?GOMqd zGg)3Fz@y&e9)%72YH5z5+vHJZe{ZB8gce4x5A3ci1+VfsDd+tBS4v&(ui7%O% zD)v=ME)e#Os)b$-M~w<7LCK<_3yr>9XMR|D7h@tpe@U2TCcVJ9zfQ|D&` z^b@ymZV<4~vG*D)@vR_33c@Bn!MUu=%AG$GL%szf2Zaz2UV1@UrTQ&B^K$&xwsm&R z2V$%W%}Zk_R%}}yl9`ehhH0k9BTUUcb4_+JK4x{4#zh(&8MG03EiEWKZ5I*2aT0g( zK=&9(yaV&W^t?-DBmpxBFFX_88Jqme+Y?!?;_Jysf7Q`GbyRvobaTX8`)n;3TF8Wa z-zascEI(S9pfk)5Ih-7xA*o+Wj|Kcd8swR_tUe zUR)OUC|S zpi+uNgh~X;2mK|#=ssAiIo0><0&W4yf{F;036&4}GXJpsnn2@{a27->I}m>>i7CJZ zETmXLd8dpBnn8u3``VXZ*F*@gJw562SmM9eV3U^WVdO0Vs6;dOgb+iy5^qU=EIcD< zF(J#|;DJl7hx=MUI*pm~QQW-@!c`Fp4wiK5w2;QHB@37HKQqW?|Ev@KfIPJmoRKh6 zG@^7)CwW5Q9Pwc?U2w3*uQ{uE-wyj3>a_k6TJE8ft=9o+iQbH(JW|Z=QLwcn>V4*tUrVK{0K6? z%Z9Bu6F_>OvKW^IQ4;!Nc2jKA_r`s&#Mo)a+Xei$p^30oGGcEZkI#O2$=c(j<;(tBzr$1krXpHF5?ApN^xIA=<)xk{SX?hn_K&(G80y{XfP&8G+L;|I~1 zt8-=dw>DOrT~l6I-^|bmk6-_DpVpC)|Hm`|e1zl{>RX`}qM^$D(8C`!Ycqg<=k!zD zn^9FCK?SP2J!K}L8#R}*6vV%E!9Pe54%d1wLhS>#FVSDc;42PKGop(=giQ4ji2eDI zp~q2<2=IXx&3E2;=t%F*SI`RTfbuySfnwUh|9DDhl%Z3&Q^-^DDQ2Zwk5u}qf4ZCH zKI(-=CLPZISevAGM2CJO@jI3YuHA4&;d~S~KI?;tZvP*gelgIGdYbvDByx?vP)nq5&?r zoDoc)IVBi%_w7`4nSEb{UFmTP?I5I$Z0w=XEwi1HC=Ps0 zgPtf=W&7{JG!^`ACLegbk*CauNM+15{^j~Op;%GPo0wGE8b)uHMQWv&q)`~KN zz=$kaCy)#dY2%Fjw;|~w7`(tCxDWodoTQQ^WiJkQ_$HT7;JjPJ|8ObG8!-@QE3i25 zK^H()6Qs)~TAjuMp~KyaZLQ|ZmQ5BWCc@GCA`N=S`=#{wH$(%P3-&Qess&_y>~ zMGlG+z!a6L3dGnVMP=guBbW4{%;4Hr{uUU>%P+7A4J^xJ@qA#jv^y;tiP%vaYb%=Q6&(2Jt9HjO^(WW=VB~s z{~>0%5}THB3eu-%7Eg=iyiL!Jm)#A_B(?{DcZ7&v57+!p-EbV-2A5;|ZyX!kn;~cG zkPBEa6V>j3|LY0$ScnVIu-^bXKo-w^Me}gKx5Ho$+PKS)G0cdDpx8<$p$O`kmj=?& z|4d0BIgtV$sX{t~0vZ!0USik{YaU!@h6S9ht>Et~*_KA*&6VPcd^I*1oOTYdzU7i$ zGkMV^H=($OP9*zGAaZQs;4^NNav^Q8hg#$ybMoOc7I7mgHjDj84ZiqjOnOgk;?;FX$ z-rz_UdUuW?xk8$T*x76OLW1iADm|6uI?$PSnQ*vZldRz_lL4vUtim(3%6OX%*I$BJ zum11iTpPc10~|6_t(}BU$Q#2RNbxN(SWQ3gkn##yq_zY7MYgj85Nw%me-t7G@JO@{ZTwKT_hj?zuFbrE#0vyjJ~!Kifla_n-;4=q4{}zzq*eVc#RPoA*M35!7wp6#AcWul0&?%IE(vB@AgmAyy zJ_ANY#QAPM__BXX6Ld%U3MKPFOVPUfN{cA;tqFjz%h=_UHp}Yv!B_zLPV> zhs^G{zfSFbSB{QFk;R2=cK?$9@C46_lYiH-Ap+6%jiINc6bR_7Mcjz;D##1li`8D(67!3OJ0>oS ziy) zv@x#0*xmKZ{D9>Az$<6{^2dnJk^97GIXYZ{^t>#6FU22#V8j_-dv~M7idsLV`Bs0% z-go2Gt#Qth^gNqLVd=w(fpH@T2uVD*+O3D)#Mt0|=Oh$0WC$ zunNq%l6NjH_t3zi?|XL8F66bagoa8a}*U?$`_c_axKw4M_f^okac995_;j*riJ4? zA;fakxPI-Xx=(V*nz7qjuFIr| zzigR=vjbET)qPx8K*2oNK~uRd!!s=j{os6hv`Gt91veTvhfoQ79>Q_ZD@JH`U}yBm&yLX8*(o+ zcL4=F=IQqr@DNK+DFouK!Mf6)R(BUK+Rb*4KQP&XUOd?p?*lGFcO`_7B)sbgt-P>0 zQA%9a?MbCCuNazFdf(bv|9evR93nT2O@C#znIG&>sMr2%9PldBJUga|6D5BblEGDb zWN)5D$kv;Ur#2qOEtt=J;?L9zcJN0m(|M~C!tFd$l>Qp#6mW&g#Tk9)OQwt?uLMcE zI{?izMw3Ylj)306NZgwf8o7TZ2~!%9F{AwDXDD79lH6b>%~->K(D7i?dsvYXmQ7KR zIkPi-P%`5T;^=CdRuD@#ea%V3lyEy0-qe^ImR@EtJl*ejv2f8yVE$4+^33(jCQ5o7 zW;8%$yj!*f96g39&olX$KSeOv_@zA2NM90^wUqsG>b7(92EP{7Y*geJo6F{=je9hi zUJaYV9kvfRM95wiU|Y-lV5A_)$6&uWd+iULK1#3rvtm3Ah)k3D!&NDrFWSmC6`jEa zAb--%XeA>KJIr_E8@gqb=dRWKXXA)Rl6nbyYzLM=p9udY=dVO9p88x~tRa;LnDv@7 znXe%HcP)T7BVxLavPfZ<>vt;H)G|Wqy19c%?aHeNx7x}-a3KGQ+O38YPd<3>ul{RD zQeVQtx^oT>O*5|#Db7q9>fj6OZ-f(^UqKFJ1z!l~@0?3d=?HPoxO0e0M%`A1(S$vx zEgs~nC`XlvgAU7!^Lp?_V8R@9Je8Glt4Uy@pH;tJZbfBCc5(Yzh8nSdYArxO`4oe8 zyZW{nb(8*^nZc?s5=6>rcOWfT#~hMidxg_ZP#9iUVC4xme!e8-8MU7)-v%j(bTP*H zwg<}uhpql^JSl942IYrgiieBlRLs_Np1Arw)pg;!mQRkk=2o=Q{p-7h<3lfWOj$5= zbP-o9l|86h%1MULUpZi=jz=@#Mx&MacJJmL2%iI6wR|blmt2uZU0Rp&*bD1tiyb4O zILL96-kNcT(&g0Ti6j@%2v!dz&?c8#p*P0Vv}x$LN6&(aA*E$uw(T=7(uQ8|5d zG5YVTuT^r3RC)RViU2PoO!^kLpKa(JNBvM@fj5(Q6IC5ej!`!@g{&Q~GIdb+Dn#MJ z`u(B&amYjM1E_=T-B5BSm*rKYe$aS@(&~^*(aNiW`Q22(_uB&81~uTf;fkPKP`9@g zpEit@u5KQ6_VtrEAfpAz4e3I)|4a#by0=$)V6CIjDyL0&Bc%~98`CxZDs?)ol&XJu63_+?td#v`M z+31{iH^n(3(r-Q{xrP1!So(lt9N`754am5YJ?}Lgg{bfSw-#s&i`{&`* z^uUkoet^YG8o_<%=mkZv3{;}&pKs;@W$5$z!S=#`@y*2RsuW((f6>$k=~98>ORK3q zAw$&xl2eEJIrbwDjwpMgS^uW=&`oP~C8%KM*4&0Q^OL-9X42aHKnPKYhIVNC2Ymjx zta%IixCmXSSb;l}*nl>$Yn10dN}Gl*SE2nNzUH_wxLPbd?H*8dQ8kHxCZqpQRbO8~ zCk(bRSD5nfzs^BN?FUk2r0zdzJb26Ak-_rHIBTv8(0?nsAbXIF(wnt6if`25DZx{O zrwvN=II37F##4@`AxlL$Dq5+^QrS*gkCeAk;Y*b+l)F)q7*kbYvW?Vmq=J$vNhv0z zqLQjhDK4bKnT0cIOsO`c@HDyqKrSqYD3AkV%(n1_(tV^7-hakT=L+cGpOXdQ2Isk< za?bE&ign5pljT<+md)7z7qcTrz(#YTBq^>1bi~JU3Ag?RcR-|rTd-2Wt>Agzg3yMz z0JOob2q$5#5G}B4h6{cguLZ>oaY1qeRsgv{t}rWr*Blg&>Q1Q^BiH zRAH`ADnQk+Dv;MK7T`4a7VI@{3xXQBHg>MARch+!7c4b)3gk3T?sVJJS1mzF2Acwy z4L1cg8gL4LH6RL*H6jY6H6#mc8j}UO4N3yvhNVGp!&1Pl15)6v!&3m7+JH&xWKD#gM zh=k!OHG6iTnrlJ|mOofY6FP-dkD>=@=O|x7>VMDm0~%H{4CZ}8OFW+b4Bs+7R5=rN znCb$AY3X(awQ**IPGYqk*pQt_o9csEPZxZi@IK#oDt7N#-$mdiuy60%l0>&)k<>FU zvb%yw+-NoRXVF#L@C`bs9WE09%8eeMQaxHUzZxB9f*?s1lWOUY+Y3KFTh(FiK6yn* z@w*yl=}$xMHvcX=J{QIQxE|ZF=MD^3eU<8#eyG}cpAV+?)Z?B*9pf8tJc4_WB${6;5FcJ)Cp^`gTvbbYWTJ$MA{cScpPJyEZk>oH@o#= zTc3~03|9}Ilgd%;uFwYe8vOuysuZ6?u)PYJQ5dtPw8T(ME?JZ^B; z?s>zVS6^E|7jyp_1vEZQ`;w%+9Ew#RZ-?)8sM`US^1w}tJGcBI!}mhX#SgE&F-*TT z=FbckTh>u5vMlPqbP8oZf5XoKoBjYQK=9PZn}iHde?&#?!frUYQzCF_p3(u)%p7*R z7^KI!<+f$K&5OeJ-Ya2%4VQ};Kh}5DXc&xclbSO8G9P}ecI{;|HD&g@a6VgLZ){&S z{}387;m?__B-P$KY=5S4V}Nm?H>p@(gx>YK`9}l7Lfd|-Fb!761Ug0iUkEhHA%Afj zAq0sx=bDZf$}E3{oAF+=4UTiTqJ5a~p%L0cMP=+Z=Dsrimfz}+9GdaXd~OKU+GE5c zz~qk!eLZWn+=-ze$$F}HiVstJw?Y)N&kBW}Y>>RR0$2E8YU#x-JnYO+&VBRrtX&cFtz}#)Q58{L@{`-NZABN0dXhjOSXT z&8QEPI@lqwCgpca;r!UfOg8|H1nt=^v1kPW6wM#5z-fpp@gMr}*m4C2wiE&@s#g0@ zI{*CXF#9(=IMWwuN6o*< zjOW-FbKE37FN=dMpJZCtJ%M^tSU{W+WS;J-ym-+-G_<>9bdegpvHPQ$5EyiAvN4Bg zck}to^&Ng|J3R1+vHCqUDCR^4!vlK}FV|gg{QG*MN#&Wx_=jy+I$L;o97}->I7KM~ z{E2y2wNfuH>Yoe|io>FKQyR|_={$e}(4V#1#EK_&D>ST*5{iA6&d(i;3a~!f6j%FM zRTCCwPOaAd;HdG&UTU7zRv;7Lfu*Z(G@^13I&sk9X| z#~%^((15p6lPUWx_9o=hAyUdk6dpZu?xs$Un8aNSPiFj zRsSU4`QD@3n^h`r|D#y<<=(vgG3TnwK3jNN^=|N8NaQmLM5+b1} zZjFj5a1%T4ky~8djD1&^gz=b_r95Yb(^#IoWBalbpWZ+3fk?6U>D4j+mS}_h zy9moT1`XaJ{UG>8g8CSfx!^e9U5ch47hIGheTXRaI(3o^r#qxtvW+7DWN+LY%eJr0 z=8qB@BOSOL(GMK`!Va0>#U2q4sKusW!|rFezq@*}IYycD$v=~OHKEH@llYm{lRyq@ zpV^idt-j%cUq~9H2lWFae9dbi{~3qQ=ry|s+lFsaxB3G*pw}cHOc_-x zaX-W{P8x6gL3%s7Ulq~T1Kjs*>6Sm{; zM~m*7y??)Y6|E@w|B|-Hj80{o5!Z8u*c-VBw#L%lck>SCe9Ar62RM{r>zR5j-Z1=Kw2!v8SV-HS~AB$-sCK6bfx0^O01?W?|3L# zVxg9@3(gN+WbaH27FyTX)MskU$g0E%BuCMZ=Pu6!d>v-D=;vMyH2qny5#h2SR9e(H z7GbKSI%f!TX#zf*6}oGLcbpGb^lCCT4d*IW*_-N-I~JqB z93TsP*s2E7{bb9ANqlfTKT`~Zi^2sx zRn1ERywgJ|xm*Ui83`WBI07YrL{a33+X34LE*WG1A}B#x&{2D!JD}$wh5Dd(&UpxHfn=No zI12NTWsd;D1vNg*ESY?y`|(rz$OB%a$FcwYzutf+3b^C*i=3&$)#el!>IwZnfS9-m zZN;%LCHW}*i|o!I_P)>tnG+y|Xg6UY(_7W;DtpRF(&c~NqgRl>PIbD1h{RF$Eie8|!u?RA z)zi4naBjtO3i~CO7YJxew4w-%3q5|dMyaC?24R#<>-d?4&Z6_D5CpVrEG}a3k1#Ol zq_q_O)+QHa{A{h)TMF-KkRk%lh;^c&kIMdvno)9EjY&$o9e#wO@RSA1+Asv*%YoiI zsBwNsf}oKA`Xiz+DLhFzIdE~@;o0j4SGbHI8<(GHIie%Vi1PHG)c4O1s%n)O zS;Jn~a_$A~`5Z$*)HEh|Pyha~%|>`zmFw4;3HxGFhgg0J$wm+&DNr@`?x3jp5<}zF z6K1hfDx5yPvT3Bh#n&VP*UggKFNfrRSXb}Le`r4K$Id}g@8b{e~WsuX)%blSIf z&NzB|H<^L`$1rH(S@CR433wCyn}x*;H5HBqJ{9&#hNbiqVdAfbDZ=Xz z{JeIHQ>!G1oy3r(CYGsQV*u&uLal||JB3ei2_~ANHCvt)or=oBQhMsm&x&oow+iC? zSZ{s!8a00p|F(s_Q;D`&B;loo&Y|T$ItgdR;->_@3CH50W9PT_z~hjQE3`WA;e01C zwEEGXlIKr=)fnsayr{RNjQcm8^+L&H#mUHCX*#}2Y!tYlG4%StbQ;2$s{mbKR0lPI zahLB&r`CxA0gAsR4tWdd9d!v|_AIOLZcamWeAF`~LG6Tx_r2lNH@yHFfBplP%;Yaq z1mZ@N9OSbh#g~lB9oKf=ErY%8?{dfRNWFa8TP)ETHINI6XtX4;+%$pEJpj;G? zML6b@5d=uFgHp&GRuPe^ojph{0Jn~vQ>PAK&Ne0&-GT1a^NwKaWcQx%P(9=_7asz+ zFQ+A)io|&w0)XDG_QQ|OH|>t}U$A^*a6Dl-ilx@g>pUG?ZS+VE%xSep-=d}2hG@y1 zHK(Z5C*MfuXmbw{9NXT-4LN-H;0vNMB9$TZEPk|^Asqz-x?LCpN2sSNIStqG7&eM< zx(HU{(sr<#SG@NCw_wHU8WRw%WpxVuy)zGak@M`;JQ$CQe_f|R{#=G~odPD2+{n#? zspvpNDsAs3#Kza6ISxg3D-Uc5YsIlLCGiV1xuMZFqaV86MR;sqMF6>e@7$WiKUlwF z*L!(S=*4J34HHYyNi}rGy9(BOXm595cuJlhxF6i(Wdo#j0$vJ+gsvr*7Yt}ize+7# zj$Nvv0oVbl$_E1|0)Dy#)g%=q_7%shS^NC+@y<7hj2l? z|FQ0StuBhv_MK!G6f^p+ye5@)jD-ULY$s>DMoHrw>EqJOlU!x*Hh%!{vjO1h{Y#%_ z0=wQg+Cx@R=Fj&FnU%=1j!e#TvkAZ@QBSUeeZnC(1AKn=X(UZ}*&O_`otI}s>fl}= zL|a<2c4y;*+Puke3YUD}v>TT9MORap9fmo{n|NeMjB>U1 zBUyeHZ+z8;?EQ9ZM^n+vjM1s4@EU4i3|#qPNLu0e$AD-;IIdN>*-NmfaoE$M=5)Fn zyTzU_Lw5U<%Z-H|m&@R{u`*Xqc2$G;u^iVx@ArTGpn}D+Az{HsiKOmrapisTb@;v0 z>FtUI-uKnhus0h#SKIl>)Zq+!FYw1q;ESbU9M*)&tD|;0E6>&R(|XVWN@~54L{!zj|d4*QX6p2O2_trVrKb|D&t-`!}5i&t%*F z|Hb9w%zZV{k(Q%@k~Sxcp1;k<^l1nRtevCY>;4I${nGC$l-qc`C}3|y?!L};kfM09 z@lINdZUhZczh{t;C)c0=Pe#NG-9{@P70w{UbG(`NK-tpyp324Yr#-Jm(n~NJ5AKcd zPg-^6+Y!9n_j1lZY3Y*By6ofjrNRD+f!KyPoisri#mD_G!USz1@$P0Qcw32~+Yulr*3w+YaKeiPV^q9d7+ z&1aoEn5@1C>(~jDAwCnNE#dOy7X+)w_n5R8Huw%>@n#Vji-ZY61+dKQ>1yl#$;r!+ zADo`^Ry-r;y!xUhvm;@f#Razp;Rp@DJ+j>N>l6Q|8r*}f4S%wmuzR4TwD;Z#Ce^9S zzo+IdhJsunJTWoj6>=KZGF(P=ofLH zxuhu3ehg?os!>y+Nw)`st7q|hJx3z)^V}X6+P$B4 zg7Z~y1E=QBdM%z8C>MpG4?vFG2PB9QY`)UtE3@Z?IHsu44_8EK)+C_TRoyh$WlNRltZuFkUhDVUgCN^paNh zWb*R=F2DGesHd3z?H1}B5l!2#`-dlda2mb|$=kqCKwo}chAZ*>c55D+<9UXDo8sn? zu;_I8K4W0mD7Ga=wvUQMv#Fwb1n@nOyRY1e5WpO#tTi6~%C9>(WtT5RJxKrZ_vC;$ zEF`8h{5G4meQBYHWjZ~hC-@vZ;4b(LqhMC-b`OOwjn?Nt{{{u!?Wix6*Ho|}9_hfy zF2c~lv=M>Q<%;SYg-6TNMk{wnDc1(OUvZ}pD}PB8f7lb{)2@k}xGocK)--<=W;>bp zc(WA$kiOP3ZW~B2eXQl$#kyAzzSwn}?K2L>e`mnAq@vmp^_3i+u1f zMZw4%sJ>jV$+9cBdG-euGNJzkJ77_hu|!AowxAXC(2>2`Yu5e;4l z@jsCPklyYG0}Y|PfC1$D5%^ljcE1kewR5Ax+uBp(6dl&r7Al%u?V#9M(%+uro?m3z z!_ZIo#RPqxWY_;sg};Xt81hP$?t!iuUhPI1F;-JO`#1RE^mYNNl%v4$~s;k&-=CrR`?P`Vi zHGFyE6{S4Ml+CD*T5x}G5ois=&){XkvM*<%v?~hb=Azm-0zmFL6bgVAqcx*8FCtVr z8{j0?sAAL2UyXpx<+Qx@?=Kj?^1<)TC(hPoOZ#Ot-;esA3jG%s%eFY}$S;JfZKp3Q z4Hj9rRNZL}T+obJ>9xU3k4Hx68j4uY1XWLLP1*=w(#HrG!f9tdP2;dzjR^otK(xPv zDM||M`tgY?_^+kZaWZ$TRkP8!88k7>D63ZKB$zGg8?t~d&_V*;33$zcs@T(t)7$9` z!*O^6ZyAAB7pKeF!h*4n&>OI%?FKb5d&R&1{hicTOOjx@Qw> zi&%>`GV91jCvgVp7U#Gg-(fDadX^4V?XqfCQ36eCrJ zb$LW@=TahOAkHA9h-z9?+m_L(8#fd@jLey%`q*hV@CC4ip**+9hJw;?SPP>Rhp$O6 z6ovDlN}rb|mrNt3O?p1A12#BO&lo{Z_SRAAjl+j`8Y|Wl{_D@44$o|%7#vg<13S}J z(Km-*^P^YMx6gNj7>40Yc-)0B4nnJCrWxH8cj3o3J*Q^!FK2#4o7az|L&7#}1+O`^ z119YV2F$Q;-GoVjan6COUcD`iBq~R*bHy3tZqKv8sghGV+FSvn5$-5|bgE?(q*6&o zN_3WUy;(N3_41*cbYDH_p|-5yW*yWOSVkKr+T77#f-hNTw8P^j54(B;fHbZwu=i&E zJAn~;#D)alBK|BQD=?2A%%BV-uu~>OlZH(aHoC89VH7!7k#i2G1grU#ck2f&oo@{1 zM_30jlADCF?~;&%?{+6`RW3jN{73%k;&?x%=vMl_X|X}8`kAuncw6!K@&jb`NvYPA z&G9&n@@e?INx?QUF&?X27g%S&_dngRytJmmS3Rp73fR3e4@sKNjE23OVe$_;Q)imO z0BE4eRr!sJ1*|*6Kv;M(4-Hk@Y>{AOo_EEkVx;5`QoguH<8>Q3kMg2<1BQxEv*$-i zaI3=-Uqa^_h|67&>k0vG>Iaccy-63ng{%E3E~7|*q&rD~*=g;B$^9V;MqMiuFxCn7 zYt372dmVf_Pb?hC4F2}bKs~i!y2W%3cHX_hZMGRGAx;ovoKNsa)2u+_vO#@7KxX7>%RMXg`y9Fh7& za-4}7odUv$i1rxTvR^NG2WkPxKvSzq;KvP;NWPf2_IA#$xdGLi^S=U2_<|MhvLi}+ z_}aAraamC6v;Iwf_@xFnF0*57szox+0TLo6EloNsFV$sU*yr4No2Ys0lw)Dj&_*47 z@y}<+ytb>?Kn>nYW_`<_ME0B?@Br3jO35V-n&$F;kX8R6*T*#YeCl>w`qn{Cz*DYL z+|cYR>tv%xqrRPGzauSEvH-~Cr9bU@=eMlMUmeKyYVl_H$xvv{sw`1Q|A5YBnx|xG z*HPJr*tOttHnAMkli|un;GN3CKWbguLCI#adtsm0jwCcswypm{X4$XRfFJM%mwUxIz?VUVxK4M0 zGVidU!C^AzE3%yTZfvVOBBf!S9U~%)$Yq{JA8elzC)fRM`z9hyGI2i)FJE~-Qw!E2 zJO-_+HyROJ^y~H3(7ks_-GJh2OdgLU&+`$8A^(|(=B$?M7})J>M{Y0v9?l?lF8aIu zSfLF*eaqdkxzC>OCYYkTcDOCb=B8sfrV9~pu>cmT0`;d7VI3p(X#kmn zUwi(J7Gr+~N*CXB2JKTLGyYHj9rLjIRckZ~_gDN{Z>gXU^S7YUYAPx;{po5-A#yTn z__#wtZXGsr1wG3Nkw^-2@O}VL?-WMao=oZ^Sy`7xHs}aiO+Ji%h*Njur#67e4-)6h ziL=@ah3}+(3~y}P(MN50I4Xy*@27F7VYsvZ)FQtswH{699DK7QFq7m`)%FulIw#vp zwDUu?u1Tmn^T)_2y%m4Um19kd=XHq;K9;|KFY_J!mxGf{d)*?+rV&q@7=%Dt1vrl^ zg4gXUtEhpZrnMm=LVvhs5|yUk6#G}}nbG&AIrXl=1N);l)%!LSia*z+n`20SQ7piD zkAEY~-h7f21JOS#5;5)a$M1aGU|(O!Q`>uwqqoHL0Rex3pU7g^Ki@108(AfljxBe? zZWQIGo9H(Qwc=XWe~BigZUvV^H27U(>unGk5!|WHC8V0w$p%kd3^|oUo-Ir&f_mGN zu;XW!m_OHEJh@!zwuasHujFhcnmPl|yMBeJ88CPP`EDph@UKkoX!GyyIU=SIWvFRA z+Ygy^Cw?#u4=hoM-3mt}D3$JPr#D#R!7yqA#IHQ&AlIMF;193VS~ zrHpt=H*f=nrFd5q1%N^7J1NVMl%I}TRIC=GfPik~gcb_>c{JEAuHyC*V7Clx2w3dk zf^_YiC8mE})q(TVQn<%+!r8E|Z|YO$AX<&T6aUN#iyv*Ms9h)Q^^56Z{?oEwQQ^&L z^?l}}RR+RryA=Y$!mmfDcdhW5K}YBN-ChVa5L7(ot5mTUXH-yY7WZt0eFh2p${J&O z5?bKjT#U26xCZ4-*TZh8O)lfL9Q8ixtXl+cgcxtK=B z?Nj*e3v;S<(Wdi;+ZfO|6Qgwb(2y{JvJ|T81)!OdI|1t}xkWl&s?>kFY^>V<5kAS3 zc-Lt)d)!;kpjMY0>*2H4mlR9;^6)>}2Ib(g`7A%(rpR3*$Pw5jGdow(iX_hoxpW3EU zwN?<;@!O)GldU2JM<*m4&N?c)1q)^9m2V;lj|v!V*5O@2=6u zCN(El03ozwC^n6u-Fz16uLe>$#U;{fgwa=h@QS4BzO%#-3YKTMv3VLTU?-D#U>Ez& zP<vu;C7K7JdNT2^+wcNoCtla`F|x~li%M{^e|&MK)zB*4!oFwWru zC~BNEy0!uNe~>PIJe`RaRX;8T1^zbo@%H~F)j9(I<;t%gRS9j9 z%!(eV6Pqe`NZVGeudA;dz40)N+Ve-(_ALhGM#4J-_7T22P+TpU$N)K?fQ@XdG6n9s zR&EZm2(ampElR=ajNMPZ-!!*0Nx;soU>o(pPRIhRTkwrdqEsbLacw9G5 zc-PLH?Xt_<=l%9fB`rFeZGU+hvvc`5V7yvU_(?z5N}2lBid7O5IvjX~5x+B^VmbfI36{D5`sFO+ z(2y@LbLeSSIdIV|F=)}_5Eh5s3N64KB?iyMD3HmIn;IyPOmQRSxk{PTth&ER5dVLy zap&{ZACXX*Je%wY}l{zcmjYajf?^0so-ZZO?M1|!K6{03DRaf^+9n!Ar5rx2+i zRh#6DAs5|%y1q4|t+cSgdU$Bw?}q_4>vX@i*bOr^tm-8!z8+N-kwfb&q_~oenNKf* zKLHRZT?oUS%k03lJudjGpCCCdjDXL+q}6x5)1=PtTikGWh{0Mi(qE@K-Dh~^-nXdv zS&B0M9y1 zEl|}MfA>V%Bgx^})S1E=fWt5-MZy9Jp(KW421qk_2w=?3OlBK4jch24B-HAa#@~fD zWq7R1FaIlgH&cdzi*x1Y5{b=~g35LX+Z5PB1#M40mY6pCz1I zyywq*qt$6h&_cX~bAq;oUO)u(B_^JiR!GU+KC8PP)_YlQUTUc|b=^B!u{~$ZM_z$H zz3>qjaZ<1EJ~=&q?VxNN^0Z>ugX4$L{^|&Kvizao;8FH}tWU>^-)4ceveIwW72D+- zew7v7WyPRu3b)f#QhI`C`G8Q5>;X^tn_;e}?$mN#^Z|gG^pVJIGGy`T=O%-a+1$?_ z*>;x1wwk554&6}-xL6}gO9W{VxO>l`aN}uwa4S=CJVP&vlH;4DyAJ=mqtxoPVlRU! zE_Dh^yJ==B!9$5rP=1P^MY6QBEESc2b*j<#ldo=qx)!s*xhL2I_8Qt=qde z6{%0_fp_UJg)iJQY#D|c%ntry`j}_u!j*_;a&Xw6he{{20fyLi(Wc@Aqks4e%9ehO z0{!kH?G=;-R(w!aqVT&Ib;N+rY4v(>Vpjeb$cl(uL$siQGf)Zecd4a&OTYRe^5|v* zV8=WlQL=0vS8{Bqp)8b!m9{82Ae_oi2~glv>tznuv9tS6cltpJjFJve44`III4NCt zxMvMc9736lZGiw=ps^cQGrtDpwcu;RIMAM1%utfM05%rc#}b~aXK7}2s)2BUCovdz zmIOlpw3p1d86_lxJo^YyUt<;Au1Ty)d)SV@C=DvQcC-0_`rUV7`cWvn*0x|?b!5|5je8T4j7rtU_kquHoqX?!H zBtTVkV0dEPmJFf4hKB->cFLW^L`<@GXsYW0aQjd$A`rNHV5_W^Ua?qW1E&{#m~1zr z2G`JP*tnL`2N59)Gh5;*X+Y7>1dXt2SyEg%g2G9PFmoQCyYFw9t}$WIlBs|*7l@Lf ztE$Z{zGB_R2CQnB;L|LpJ{s}rbOBOoVv;V6T+5SqoG&k!zxoi@(Fa_ZV!4-Jlsx;z zOXzxP^q(V|rzxZd*Xi8{>C9<>MYi@KaA8;qlKZ^nanwl|5oE~Y)6`7-qX_9jnBe>t z%YdO;MD>CIAwJ;)JQ54R7apbxL%w4ykqvS|s|Xq}s$qgj1N23SmkQcW z=xoP--RiWZaRAaI2@T&dcj3dM&*+J?4d}xdi>=TxMDOfkI?+j81{+E?ayJxyqz0c; zb}c3I8OJ;r)(TT585qTci(LewN<{G3x#-D`BxM}mF~Q6RzK}X-I_E?*DfGO^sWXbne<+0JL%L1J zIODoS$6mZuPwRH9`?8@Pt49HHGaFk~bTX7`iY5plNi^ zEtUjS5xE(QoK(^mr~0L4gRg5LUm7E>ybUM)gz~!`IDX}CdQuLXVO0|ok554|@{n%~ z6mTDde8;bXzf`ZVVbGnQPN{jQ3$~Hx6sRPEg!W>MgFz6HVGuK}@0hAEp*31b#;*(A zGV9upKHXC5osnpM+rRk`9KL{2{KCEXPAN&y=(PRzmsM0s+NAmkYnc`gTS<{%{NNrQ zrPD^+i(X8P$^tHy43H(ZYpbD%k4n4^9VX!cnrkLVC4(>qt?N4mttYR`1sxAPDDWaz zV=J@f-truuX>1kxrA4CERK5eR`x~7Pit*4*g(|+9L0@mY7fQ``s9bHd-Ch>1O0TJ_ z%iU*J=)#)$_Xj{cJ5rfSr6!($;tG!C1aHRgN8jmbHj{?faqSHWxo#wV<|W;R*i~8O znz!Eyb+27$8HG&9_p1Mu9Yk$uR81cqo`Pz(!^T;L!RtBHT;fT0^3iICPZ)pnTCE_l zCLCWeh2Xi=@_ZOk#>VFZ;XH)xUs9=MytiQjCe6ZKh!)I-9<5V&kN)T# ze^;1j(|q%69(1O$_kHRx$_XMjKzLZ-q9=YhBq)-JUGqXq78<2PMlnoiUl=Y7Tr*=B z=GYMoNRNoDntu7I<(3L#MIgq-wOyS1Xye#gQbIA5jF(Y<)*;y?WI^bU~}54buUqqzYJzuk6KpIb`=S z^hm~>T^5hJEM`VYF63D3zgE@lxdzeVg3dg;w)vSiG7{fhGOr2*xMsV0VxJE?qwn*2 zTa$eo>Wf!S67W)bjcZL?!pl8H|W@t{Mc@YE_1Mg;-v?R9x~jz$*m- zSrCNkLy*<;M~fsHrj+WG>cdZ16(#Lj2DTvwlP398JVO|+iiTCsS|J+g?Pi_kuxQ9| z)ZvD5f*p~|=}47uM*U^JX(r8vysDjaMP7BFpV~wq`tc)W^gN#Vq?hwUT;N``UQ1-9 zltLGakZO+beP zqR;`Q47WhtIkn8hQ?tzlD~F%g9wsltx9@x>LElA89vh#cAKCDo2D;H*YN;&TF?W@$ zFOC$Dn90L30!pSDUh7k-?@6cQ*y<*}Cws_+Iupc8I_rpUu3fV2qX2ijc|6wno_^E>G+!?-H8O#v!zUH<4VK18|2F z{zn?tt~rTq8c01|^W(6Tzf)Ctqwx=hVlB?tnE*snDs> z2A+=mOt+X1evmnQ%#Z0qUO`Ea$y2m0A={=Yq~!tRdXE>($xfU#{J^{V*VIj9gV|?7 zj>n#qc$bE1-{r&SW#R@Xb?$+*TJZ4Ec!B$r9~N9Ea}4~3W1j3$_1h7c-*ei$9bYZ@ z;eV_x5cTc{joO?gGQUU$5j9;|y&jWKsYxHB=STwA5^zn;XS2(-s|dBuwQs&Id9Pmx z2}}PqMCu>;_!=e}@S0vdnSnLNzS#W68#Z6%3jfRIse1$zzGp39!f%;_GAs^^;;MSz z>)O?HNfpF2_rCA%s-WyAIGA^Z4On2&C(i0{u>9xKg2V%@Fjm!*EitaOAU9kswe_0@ z5NWFZRbO5iK6pCbwLG|>`8Ai#U1;+HE2|h9@u9068>NF!J{mFVbOG-#&ZbB7Ds)%# z*<|R$RKlGgY3Xmo#;kyQ%!eI)5Q6#+~`0>V6$2`k8S-XY43gAa{`S;tsldf z6SopHOVzC%)w>uSBBS$KU!Ya|DETkyDmZt3r%Lf_$pCJzN+b@I(Ny0l80Luyqe0@k zOeay=qQF|C_V6)>VUNw z=ssZE6)HQC8RTPP32HOXyvjz0x5z7HAv8A)L0e>=7+Y&&NWU@xSd~J&6~cZ6Q?GyK z5ka>2#ovkkux%LLH6l7S;HTuS*cHT^V1nZ8y(bU+Dh!3DU4EYSham!ZIk2sJ7un`! z{rz>zcraq$`Sm_9`|WSN$e|#hsI?;A<1Tyt(1knp8%1Sh?sxv*81wqTDFs31JppdU zFI42eocfNS_R*Ir&&FJdz>sD$lx~MyMnWVR#twLE?i<@Tn-n~q$i)-PVfC_IxoDbyOovfLThS3~{e_&mXMG-816 zW$tID-f&VVCuNY%(E}y9$)x$z0J)?9@2C6<@Yx%p<{a!j2a*S`ah${lKzft%Wti)^ zg*l~rS+Za$=<1h0K;%;18jD&$tOvY6lbos~$9>1dak&tn*sv%Z z?!tkR_MhwxAfu9}CS(?RGxj>DJC|Lz$2+0uF$7u`$@-4_5g5 zC*PZ=AeBB@{{{t@N-t`ydDcGsq^Ayf^c$KwMl#skWVa2)&hZ2du1SjE+TSuLlayzA z#kHXCGYIW*a$5hiI|8qH&x`Q5-LrEPV}!LnsM?L-pn+HnvthjLQL8xGndvuq#NpBk zkxG4s`w_I8!Z@lEbn!o}%2jwMiva&$@Ze}PH&7rnx3OL>uIGJnePBkgFL3@4M}!&H zglj_QfrRVGIA=b}3_A+lcUZ~{W7ROo_1hz>ciB3BoSc8YTH9w%mp%~`ueSo!PJBJa zk%JkEHSP+h#x>ej-HfRNj%_pz(;f7{pe9E$+L>LBa_n%x4aD5-1vVgg9Dt#w!FeyV z<5aae>|*GGj*p9n&>v8xNpdWE?==qv=Y@4FPOp#R);&U?@tHH8Ij6M?fu6HFp7N8q|ed}&r zrv<#~SxIZuhQW@U>t!w3bA zb4h?i0NG+ChuxfRxy5)3BOn3=M+_9}gq-lmH3!60T8v8D-5YXPOisMBXrwajq7;`b z9Kc*{2Fpqk!?+}|JOEObR6my5;R_DhJUVQ!I5O0bC|}=_3!_TnB~zK zqGOY_^ zm#=1Pz=Ge+dyy7$UBcasJP5X3oj)Ef^iqF;TltYFIz%7kqzZ4GCu^G?p&1^N;hD(| zjtuDyZ)yzN3S0W-o$E8|1fC@zgQ?Ey8#9&Je%DbHxv{b~J1nYJd8s6w(10As`4GFU zi!;RcsD3{+yv*k!xHI_?_gk~nd@*vE6~%d-O<%k}o;~?M(sR2Q?QUsxrGGTM(32{8 z<{dnjiOC%$OndW7I)G|fOkP^@rdS}|lH>IsuaSD(Wzb~{*j+{z?;Fl5Y&bKESCJWvbC0|$qn>3CU1>5`GS4Lgksy<+-hXLzuahMoQO?G2 zXQC=1w3+s~3kf8=qq)b9He9gUxQNfMBX8<0g1j=M+Z{)`9VIu)nXyEXdT7br@alWF zQVqPGB`L^PZ#8k_Bje6kGDzYML|XAVe~03a_u~Cs2M(h=?|JzdNQ2S^I2#f2TQ-aG z;>WIzjk?%FKVCfd7b*m^Dk%{XALb->Fbq)vcwcn9(+GJ%E6G{9Wm{$(n;a#JDi5s6 z?3+kWw_56?mVM^^vzHGOZV3ex_Xpx>n~i7mFB3I$fiS1jOWLd;SI-FJrd+Yi?dha` zg*|lANo1})mJ$LSBjl-lS&b%1aeN%HV-L%~ud_%Zx%R0`qw$B?$sUx52pGh*h4IQ( zQS5)K%#@2N5BNy6BcnXYGwQ;HhJ>b&X$qZCT?j0=hg7ER^Ui$&*%s3wz!U2&L?Ov@ z>tRQ%i9a}za$qe%#|XG8)?wT@P0`bt1|NCi>Va5w~g!dPE8{0 zkhz;%c;E~T%@D-hJ4GCtO5MxYJMG*q;Q*>H*>$z9+&2@!tZ zw54^l*1$5R>9whx?fEs&G(*GHBoxP|RfVa>yUs^oTFXzJvdAKsC+O^(wu9j$@$RT= zP4WO2mPCI$7e~=Jd9?)?Qx*0thWre^ zXpz=^2EHCTG3%5o_^;$d;5TADy&h#z#vj?8W2W1OYKJP7Z8$w@^mHbA!Qvlx2u;lM6rg z4j^@@58kKZ4ESZ14%%rlnL-V&NO!~pveCVQ(s>l*imS?2Xk>K`Kqy56`9Gdf!O5Ld zb};H;#~VY_);l;)U|+s=n4Q=pmop%u{>XAwJ#S<#Ct2SLM`R=h{D69gto$5`wy0F^ zDA_W{dCBXBpqI5(_rQa|B6ugK?3NUKJ-4@gx-hb-;YLKaohc5A+96Ea|2s7 z`-6(`WR z{sYO@la>!5KNz)6ke_rb?S~j-OUCGWq3JHSK|Tcr3u!LS1g<`^a;P{d+|%0!{;>5^ zOQR14RcDrLG}eKnlW)cV5l=8R2EEH>#4~5jBd@JHlm})wKf!hnBeee{J*9f%JX8N7 zSraZ@e;@={i^Q?^@5KG1GJrMBKYKLYRp*C1^g_4q5~Hy9X|c&s=-g{$#eXs03)Ty< zLgf`wMsNGU9S2Gtnn1igSopA+c(6o(?jj?LUHbGy6Vz2Pqi_D2CYz-TDGNAJy6pAM zZK8e{Q$jrSqrpv?;&C~*v==h@*T`*h^m$*DuC;m2s(?N89eo2}Rb%?Ds^MFFF1wY+ zHo|^g>@DOiAhEfx5m9D8u4s$cjXWJpHqZYI8IhqjjHj=cZPi1)?JyvTC98u2Ns$+l zdkKfWy%L`AP2wo6SavsQxjMFx&L~EjWk=&6$oGm0zMax^t<$ulzq#m*y72;*nAfHz zn$P%gc)eHJRLPZK2|XFL-RC&OxzEG>=spf*;A=>$d!7rLHz{G zWHXiS&2Y-}?bUE^dYk3cRCq#DGo3d-=MNJg*m*Mf9XFl4MNo_Bw*%&=o0fZp6IK;h zv789S=7W}(aGVU!TKQ!$0+OFR=%pLba=E7YuazDLxgOievGEQ<_Hs*995z{BLPaG( zLDYPyd>Q#^EqkU?PTQGO1;07Zl>>0rLo=4e_OZKUMestjkCjW``4JijJ3915AYzJ$ zbrMbYno%*0405gTTRVCU)izhL7I`CM(tC97+4JZ!TRVBvrad8kEAnJmN56^HBsQ6yzTWWO|=gOL6-GpcRRA+33Kc-t9J9-rBJ-sSI2q8;u z4`7WcUP`P-|l;{Wwql@w?pfiMuLj z$M#vPt|b9{Lo)UiHW-N|-4eeG!~UT}O#hQmXdyntsKm4)={C@rT;gUot#jS6x8B~< zV#DZHZ)28Z;cChDwAmqjji`}ejiU17B#LJmOlIwlht&Km&8y#5oYzxoZj*se&zq1Y zUF*?$Ap;QDYrZ2vv1dC2?Qi)F2*O<6D_<)hl<6~Q@!$|NP@TJI)m^d4QJQr<0$6Ua4ePml&EMJIKZ>ru5s-JOB+4uB0Xdx zHWJvO89}bOr;IT01iN^~c%{YprHB#bRQr^CGd^ChWlcEk8mek5WPh*tPxFqsgw7w5 z>ZW(MKQjRN3TGn4vWFNjn; z%izb`+8C&3mtA4Dvv7Az%#O~SQJH*~y8qTAeF~NDye#`?nuNZ9W6t@=EeY|&+62im z9IeCLIIA-;MXq*H!k@T;-VmK1&FHRTPn?5EkH*`>!D;bK36Bu`KXKFDo7csvxXAR| z(EdH|;TOw4oz`io?LGn$LSM=3u(-tmdHyup&w>$LCgWF^fj8ZwpvP!kg5)~(>L=DM zE9Er@XUu2t2Nz4e^LyjXr#3>h2q9VDJM~&f$%WX#|l(O$6gX=np+7x>lGxAQp=HEx1CVg*G zZ4%78N2{RM*A)E$P53ov5#G{sQFmrhjnyJ_h9&+YZ^kH$d^{8HHjw-A%gh*tSS|m{ zGi)^yHNUc-c4^&M6Txr{gc+X8Gs!u`tNMC;nvv@o(oQ3T8ppc=^Nfjx>X@o4o<$&z zD#TT0qtJM>xML~ITT5|FOb5+)O9aaxy=PhZ#Rrp_OHNDrcFdGkpyu1k`2lZtrx9;c%#LbZUgt22C&K<{C zCzV8C)ka=gtzXl0vU1=K`;TS4s2WUn zF68YoXmW)I_%&>(sE?aDg*w~=|E6EH5-?=0 z1fNN+aHxir6LIf3<-O0w`3U$i&+#LrjYA69sK1@urzY?1HpI#Y^U4JRujwLsn(+y& zM76Fh*QSVrY<+Ma4D=@tJQTxmS&;;swM`sSF)REm)QVo=V7BvF|l`04%k6oRFSp6Z_R zp8A|MKiN;zr>dtBPgzf0Phm>+KU$v3p3M2&I;Zw^~%u{x!;#2)V{KBsl>-Jp6{;2r!`s-o617@b}OBFn& zILdBR;;FY&h^Ey}5}P$Q>TA^AsZ6HrM~Zn$QYpDpNT%IQ3Y%3Zl-a35roBf>Qz?~E z;*&~JDKe&!Np&6ePbp3^o0T}KZPel^wNr$q%}x56^*5?hDZ5ePo>G*GZdB4Kw^Kr< z)k-B1b7$-Jp-t#4J!Md!e<#en#3HltNAI}(@A~o=$8!7JP$_!O5VR}{3D(S9*2uZ5 zB_|yydR?dZ((pRO{{BTbig~JURQ#%W%6?@x3VAAjf}i51Nj=|201H zo>HHEeJk7hKUs#at!0bT_abq=y!h23Ov2v*||Q0>$)tm z*Io8Gen-gVbOYV)l{`f-3yp*NqEO@67!t!+qpw8H;7y12iJB}qlrWgv?;JQ+zzXbZ z#qrTFScxP@kEz}A6Rclo%1UoAkGw1pjKJd`1pEoy6jyJ)Snr=mxgnG*-{tZM{IS7% z0>~012}Ql^n8204k@w1^d(Tpqm=51vt0HWtwf_YGjoQ_UC^etXes2 zmpL|$yZ^z#u4$4X8algWS?r5y~9<@e z(&kf5H;mtu#jFl@nMGGK&eeZd)jhpGUBVOd%2aiKS<*F37>xXq{xPpOWW;g5Ws{PY zXy9HloQEG7_kejjTTPJ9?$$+)9NWehL1q;8@UYNgboS+)a2(%MN^8-~j)lq1MWvZ6 zkHixSHn_W-0j}nm6C-*kP4^!u_t=;(Tnksx(bKDO_T^4Skui1ZaWU70xJ@5%d2GkzMj-F>2Ed9Nrb!&R#U-ZKS6k2!S? zkHOU2g@8vJu{*%`RGE5D2JIoZL0qStt`KYjdMLFtxFquiK>n;6Yp!Jr;y=V?4R$}Gw&y{RszNNdD z9yrRH6(Hiqv129wl5)_$n(kmHAW(fIZLI|=@874Ib5X38KGjkHB8S01i1CNX4Ds%;KmWNaR;Ga0JS_QP5Qbw1j-c@ zLdTQ3h;psX@Cv2FgW8PCngLssO;-c#Luk{7sYMa16!%^k#I}w^Rz%R$z;^*s@-RwV zfbwSr5X4nTDeke7f?+E;1>#!yXeDEO0>kA)rSJ+$#s-{dP?`zg8qlkA30sZLRSb8D zx@Ne(gI0rPKy~uBH zb#6{TSjfM83>Z|tpvU$+Zv9tQ!BcDO0Lj;>#U6bUmvE{ZiTrw9LH%hqyn5Y4-jciw zz08-7dQdccq7b7fAdSZ;Tx9r;ncdfh^(K+Hdd{KMUSBc(NkoI(q=iJF7V~DLVJ?S8 zJtpTt1M-dPTzj_T!z7LOQEdeQm;$);Tu6B8ZembDDCTkEu&BLtagqy63Ilc(RZRyQ zQk}^0ClJ-Ro4SRwG<2E0F05EZ5XXN;DHFlrWG%AlgEy>mSfJe~9WR*Or9y=}AVS78 zF%3V}v8Ok(;(xgH+Q%){1m6JwJYaelLhWB{a9;EUZghO)9!)SD%VmcI-tvxLJJ@EY zXQ)xnL2ezxU99$S`tx0yP;@<>a(PqOT-P^5sm;$(X8Tn$8GDf1v>^Kd5K>5|=e=Y{ zVKRh0f^g+&`N}qW<0`hoiZjU2`5xxvCM)dD)vY>qe4llJr9vp7w9LWpcalt*PSZ2Ox*F2!o1P=lMd4Hq zk_&M8ZFr9eeC?A5JMbJ;E0nNPdJSd~y&z_&h+m7V79cEA0WMFuD|-ofEb~q&`0;P^ z&GOIVrw9OUZs&qAX~d6AH9l3&Wz1m&bJvlN^j{AZQ~w_hpDXyQ&ZEL@n4lAGW}}>e zWd9R^@rxcQ&CJ@PSt6Q7Ar5b*;v0|7*FrV&d2qtj5JsM% z-|r;ev@aaqf#WUXsGSoj1tBWI(|qtLXW+g%3;u)}Hz3TZX{ z>m-t*t&L*#9ux9GJz{G;WTcsEx(|ou*`bEQ)8GZ4=VY-_Gn2_Zz3fvoh~QC zo=rr$hW|*dS)qMA4bS+CL*3DrZkssf`F&ucJ?Pt0`J~LpHoJPGoQ?{@^sv+;6B75| zcD20P!0t@(oJAvslpB~f!OxfjgF7ntTR(w2Eftcj9fx`FU3kT3j-1N3d+*cr+djQH zpaRU7rwm;4{7BE6SRb!(=l{Tgzx$UzN@(*PQyyqfE%NPN|x2_;=1#n%3=L1f@&&4>??KIlnWy98=U58GVLdw zx7B~>p5veTOWfw{Hu~t%^pw%I9G|+M7P?7A&ROK9zuNF5(y%sG{A5oahYKOjWgT!6 z!bC5%yoj>h>T~U6v}N4f3GPBLg22~i=zf!t){4D{j~b5~szf8jlN}P+8z~)sfe?Rl zsUP*YlU<_!b`fXX6XPEA{L$tfoBv@B4(JK#8k0B6qXoe~{DD5gFqO36!_6GCS>Y21 z5B)}XNF>HR)S1k;IhKqqnR6BQ+%)&uI-cM`(784nEdo;-2&+&p>uehXt>G zqR>MHobA_no4p-iwGSGS#iDTJ;;E7t!@Z`Ts5{ zJhX^-TvU$4y-q~10-0`XZpjUgTzd`bfzfD)1t>E>9BP#!;Z`9wAj|eb-$U<8s?5@{ zNsrtR&k*Ps&JfQ#X0V?= zd>>4ZTRb1eE{!UF<|8GY+h6sSA{O+t!TcP4%-vlM`C=1d5n{627xEgM!>Nhd20^UT z2zMxTQpH$bsdt1fe97GzJe@C9Ef^|cjGhedA9=)$mv`+#)Ii;^%U3bx?9iv2EQvP; zon-2N^b>M3R?E*I&kP?I*NFQV0Q--r$OFzHl)6XtL6d`ZG=<&SGmcF$FmA+JdasrY z?;0yl+&QQ4#BCD}z2}s};~o~a|D_5`0>vmkh6Q-YM*hi=8buqchY?rhbe|NquL)qX zR4ea3i1{M~9mmF5GK?U2k0;W27M1;?2i20P4eZv4ozPRmHW;97VC z$|GO@F5(4u)sSpJv~;$TP`$JcGuv?oS|v6h_BHn+G4ENZiYF$=AMp+|X>3SVN*Fp> z4nn$V16i}T@MiT5kFl(gTELTkyT)1DeSs;*CA8L%lxizmpE33+J`E|DsU3&XY>NmK z^^z#t8}o-b4HOC=@M-I#U6I}6;Y4-7?ntF%vOy#jr}ZOq{Oi7h(BGso!^BmVFsDF? zOCc%lAVlhW2)cVnx44V9Wm`QTJ{+u6902ph4mPT|7x~9I0tks@BQ}|s5I?SfhqA#F z>VHnkU-x&!!b_RhcE?Pb3z6nIZ4pe;StH4>xg0WITXX)(>KqF4>T@RAJ*_d|3M+>M zUR1|<^}9!B$=NAr$(EjzCy>v#x~{zntiluAm!W#6LWNyu)ZN!J7pv$BF%BL>JI2c- z63w1(ke=esErrW$$86)U2?byih`9}TQpqC@cEJNDmQLMDLP2K%>tx|Q>_|k=@rw+! zSVm7*vRAOeo!uG3PD3+PN0!UWSFJ!*F;EJ_TsS(4Q4wg&aqXv!fa@MDy95qGC6q2xTxV2 z^CQcaZxue>m@TgkCozRoQ5nl@k(fH*<4|ah#Ro={r2Q}|mTbz$F1D0t%Z`kWXYSZ1 z^U9ABhwr*4Mp%=tlple(wJe*yS0u49kyZWn?THRX=8HuyIWa{gQkP~9v;Q);;$hwH z9T>`xsGXKz9S617$Rb)hg{Lr@yUBs)eOamol>sGlx(bZIJxu1E{&HI>^oTi(w!*X# ziX!!5I|w=Ey@UD6NwNzDGAd){D0`gr^p!3Yvj&^7oQf ziV-FvH6(C2gFrf%Q?Zv*`N($(1R|p# z$J;+J9Q7YCMT5mnW#cW9H6ZY#C^|~*|G3`9m1JY__@iL-H71p}*u|7q@tGW*xm z=YAy29`@bp8LgLVAbV&Vhp0a}=WzSmfzNFo*KIYv+1Ind?iM>4kF|ae%c=A2Z^dv^ z15|T{LOiF8;L2lis^&JCFVuAH7n7dRLb1;l&hd;M`@eTnu_wU_u}qK0fRNvconRxX zybyi?t}COxxBfY*sCz`WnBB4Mb)tTS*)Vtcss-fSOOHL8^GA5c%-v7K^oP{b&J};h zw$+<%i@*o=8#700r51O|1)mQbL8^?lO0^4+Ym@fl0E&9)7i@OYKU8)w2q#-r9o`g; zuoyEJNEm%99J6J~zt2*pfgiSmGoVh1q(0g!^%*do0v3#8-BHrnI)UPnXsE~}fek=pN{e>km|+9rV)(3pBwPOJ|A9!Sh^!9-%THUKwk zC#exZoHR!YbPX7e{A|6R%S$hD4JQsDfq-80j4n)SVzPUKL{t%II;KQhaZNY%M}1kk zUwOYg+4hdyAubrAIW2*5V+5aek!#hPvex7F5UH`KweC&Ycz9&?4*?ukJeazkSCpqE znDZVy+aP2!ifA%dFYyu`s)4xti{Y@9gY|rsmjm~%ZTi-^-LJ5^<&oF^Q;}f$1#aSk zk|1y)DbcMhl=sI^=9p|}q~IFP9`x2R5<%B(Q%<}iGfOUs<2vY3a+wy!k;+&#nQ`f7 z(OJOY;+8azLU|a$*`$~j0D#RIsM+D*ZoOVyyvH{}p&Y*_T`%O)kC`!hl-_Z=KwD+i z11I-et{vQ}LJp>KSxtZH)wlBEpvS)c&HM>q^UnQ-HHz3N%oVH%OWMc{6`0BLG&=wW`6Mdx`X{!7fb5_WB@}$HOfcHlk{1H8H=e`U%3#1 z-cqYnYoBC)s>rf^2dppUOI%<^(=Epbxw^v^{n*FtQ&qVsqbx*nm#Z-Mg!oO%GiFVd zrA_a0|5V~{_Po!mpXHW)w_CucK19H23N}?Us*&$!;L>U}S+gE0!I`?9i7*Y7Ie$_? z3+v<4ZwJzJt*;bbcOqlwed#musdye3A+`V~J~z`KT7}asK1{BnG}rG`_}@t#73#Vg?3_bw z?I?)``URx>#W1~OKz9*OBp_%t#cJ6`YJ(W)@NFoPvV8vt`V1)Qm(Ng!m zi5J-hYJIP4iHq%qu?=LLL)-UqPJNjMSp=;GMwV42W>KQIApM6t<)h(y@nuCG8!hv7!@qm5jo&J*Nk`Lt&sBOvIq65{<76ZN%XYp;MNO%@ z{QVkwO6)A3lHEl}{cZN@NOXAIdj=@<@?xOi#mUQ-Ear?vQZDU*FW5I4Iz14hxqEmx z)ZHO=@MROJ@kz6A7fz2oKWlj3G=3XIRgKP259 z3YHstL(LU7SBO$fm%8I%7m2j-VZDM6SoKP*0mWX?u$D<*l>LTHe$*iqPIiO6St4mk z`9xA}eff!xHhGC*q#AaOUz{tK1d8_i1vZ(Q#!lf_2X+&?55;+#WVY>jO0@r;@G)1I zg_8ELVTV}lEx_?URcdAyW;Z zGb#1_3UkIjDyRlG+ig-dJW8$wAE~-RI+1RUf>U3Llx2`Y4kp_(Pm{n(MITE zw6|aF7%9v~sEfw~96=PGdibY0;iAG3M7Xg__{_1nWRnwaOnKRntKNXUZd|UyXlFuf zAv}{k45LVA0KoT15D=M7RcILcNBqNcOD9Mejyo-|?Qw$Za&Frm811?1T zZ>tVmN17U%qfz}A+;N;I%L%l72r++#E2-H@0ejUE%vfg#3l@U)6cxQUR83m;rG3&e?4?{&Cv1kQ)8{d_x@58#PT++IO{Z;M`U=)#25EF@jm8C<7 zoNjOJSO4d-lC5rmznCZHwVY?1BZFM4&KU54r$e4_5hLmOi(OcWhHtsT3ul_aMhvArz7-|A8I|q z-|i^$%KI#J`@mw<;rzdw2Ic=_pu6wj54#`Mf_{&L1~Iq43dR?`3uXTI8@RCLdwXMr zEZwk+U}D*l%$NLq=yXh-8L=9BSn<^-cr_L5vvrp5__}NzMK9g^Ej_WhKWVRBs#<=4 zQ}uspm-vM+rJF~ZG3ugP@%N#@FZn^?hHf$iL@+m;Ryyd1pF*i9r#D$|{#F>1iftm> zZY=K!MVt`|!tk%iV#5q)5N?0}V3FO3xyJJ3?W-S$B0F(fb85|*r@pOr8|gl!E(;-QKZTL{sxy=eyNhP@;cHlS^|3s=< zmwqjW?h9f&-bXYcex$#7I<+2{yABbJn>L2bjp%fJ&{G5o;QS3fm*^dWk(xg@J)X=@ zXY%wttGWhSydK0lm3Ipn<+UZ1`tKhVZI+HWuZ{8lQEwdciUQ2G*aWme`p@@K8chR3 z{fud24FOUQ-4LYMk=LVfLy@FpzLSYsAH)wtI{@Ho_>IIr(!FJ!&3yD^GF~t53cq|# zmW%2rQmX!_g_3z`M9xRt4iw^ssI$H43t%;EqE5V^Xc^pJz*Pdr0{sF6(?yx0$`@w( z!|APCR5|pA)=x0Wex%UVOkfUp|2s{{gpI>u(Vs8(C&pK+M!5$2=uwO3ziO~PCOrqiaf!#f8()I}u+^jC7OfNT zkwnes@Chc~9JquzaxAIMrhd@frFIz(9A^w(Nl!gy++0og{cLJj_0&m2rkvNA264rL zQtpN4VwiX#vuCj{?MqJVjZb#h`c=Bm1A!>W^7@$;=ZT)J{Jmeb(Z~%7yw4 zy%{x4Yu=-Wn9Qp;LaNkGll*H(^7PB+SBL+vQi}`tg;~vSyXJR9i2k;j z#|vfM@)-&vvP`;3RRZySdBKmozMASTA zt`d;A;JTipt8yDlN=v=&~kb`ac4OQc-5SuXb`Pak;ApZARV1Dbc<(JG^w)5bqi2ZEvMZb6(bD3XTyuv zb>Omj7rj{i)aW9gax@Pkd1kTiL{rvJV`VXiVxTgaS3JkM=iLb$7#|V6&M$~nwxuA$ z3%C{S1^)SshzhmLb8Sk6k3;UV^oXaCwriotmkSjoa^rc6yZ2ehx#M>WN`S_czpm3& zC>FdaNgN|$c&uqBy@*3CE4%Bx=53u~7-UfX)-9f93$Tj`8zn5n2F0};1?Up=Jbf>2 z0GfbG!XqE=A_G{#{eyZF5yP)}mG^n&=s|wQG$LC1UjNWO?ciR}J3jwx6!tT2`sHib*#q4S zuZ<;;TBo)S*oZUmS6A2F|K)$~zTnmA*#)KzL0{Ojyr=yiz@v)*_;mjOTD!FmXW=(< zueQ32SOC|;hxJ1GK=*@sFgq@2)PKoaw+zH@bZw3NY3DLt)lYEY{IA*F4}}jnX`@Yr zrfZTThGO!XFg|MX4EP5@V+c8%rq@u!VXE%E|qbN?DaT z;H-2X<#K0dW_0at_crX1GmY2!BvIOPhu>}5z;Reb8FXk=Xc8lV+WS5-Aul8eX0JmZ zeF$0^4f8CPV)yyFTfK0bQ4af$vCo&5MIQ31&j0+`X4$0yA)~f(}QKbCET3w9S3YbMFt+uPY*cu*&@!(FUH1ZbFZ^Y zbJ(s<5gYD4H$193x8o`sdd4^OJNsdcCsN#x2LB?Vqjkw$ojnhWin-gDiXQDo=#{w3f_D<9ne`@+Vy z9GApN28-*UUB_KNTuX|+2v#->7a_mSr_5$0RISrNDo_Om~vm)hNj7Zrv}J} zS^H2~5bI6a9p|oWyP`#@4JBc4HMU80;VMuudJ!;4Jn)h5(&$|6lLtk4`u-t*a|~w_ z{i1WRH|}=Dk>>fr278a(RjB?$gRT;xq*xY zu4qS0uo@VTTXVlr#r3qqp!O*1lw7H2Gy?0g2`j4l51hBTuRfmOMmr}wxp0^ooWD_x z_pyscrgIu^cfQK3kBw@^UAtJQaQ{OiQ2|x436C5e#RD7ij?_^*OwSo$HQ_cu&U@og zxcJTj*1yaZS<{1nf!xcJVH!*Ekh#`isIP1RSp--u-72zQscw=P6jm}j2duA;pF-3X zq6&sDrp+|2!-HxGnKl?;b4;J7eQZ|j-o}fWpSLM4Q{)@$?;|rKzWCQ`{NhQbGK}KE zfnWUC^%OiWjh%aU(#)bYbAPh>5wB-?o}bt9SvdOcYtOSaH@cJ7J$4?|Hosh<=GJT2 zsSK?QsA`eqT3x*sUUM9fbT;>=LKmLovz=x5Oz|;)nHJaQoFe$rYf;|KgMM)KlL|jb z_77iMTWgvv{+%lcdZ;#qUCxRLaDrLEf3XS*`dd-{jPIvCP?#N`ysTCZSJ76FU`ygx zcAI?wrG(GIo3ZSYxz3B}&Sx!PH5G$W?;Di2Pcs!fu@PCMxlPM39CT>CrjoiV#R~s? zggVw#x$e#H6p$(ESh(le6Ok8awhFN(lJ6p?m~brs9*0wI zhv5sfQQEUSB$)drHeYcrA3tvQI<*s#dpqiAxLw29(RssM`i!~{huEh-NFbQl|BmRT z!7LT^3;K|^$|7*MGDs2e3}wq!J{Af;2gVker}tzAW%U}BYzgnT43~5#wiIR9kh$>B zpUBcnp^JUDs=a#KcUMGO{AAKx$&0isPP!ulNgap#vGA~meuV9o-@I0VM$0kCXR;Ng zqIc_p1_yVfOunlQNON;*N=>Zt(KozZSoT1%6D+P^7jt?QWbIhP5Caf1t z1o%yq7bsSDKJXhX{T|$VW2ks!RUtmZI2>I0h#E^lz!$pQ(>_S-g(G4D{rv+wsd^!% z;!9lKi<*&FpNYS1XurVf>kFA$GOy6uYzXmUleJ%2n$hxOZw=}ES2AA<_cQphF_UG) zCxnW<(+9>!(%l>~w(!)9r_`()R04JFx@YqHlRK@9^uvvD1hL~cSS3v%Y0RqxAz34V)Z$HiOh+^^VDMt*m(~S#JwLJU4Ri|XDG#{&W4EBa6#sOf`sC)RwEX$h2tZ@6^#{}kVn5iP1 zCK$6<{n+58m^#yNiut(DfcBBHpa^dX>fe@M?3t6In_k8}##gi%D`83#dDu`jQ!0qA#zj|5CG zIuK3RBVY^K7tDO1XZ>OmJK7fUO+8Rchg$v@lPieLIFWpBr!SAd>t=qZim zt06?PqTWG-?Vmc|>_C~zDC|`Kk*MUia4MwvU?0}rN=46KXR-xkEzGV;P&bkfrt~ZA zP{{>zQBDDfu-P`mit721-Muhpxlr!0ypZcQP@z6Ob&WPdxaBt ziP^>A`bO?7iN6sH)cgjrdw`Y|!**6h;rz%jNl6pPdKmN>dW~rn2Qo<++eKq~J*9Ya z`nVQzQo0YD$YW({8|I!Gv;k|CU%krAbp(;LY+}qW6F!{$7UlIK(NFYy(w$m-`Doq% z_faf+KoLF3gVc|+RGFT}k3&gWhn>vsr{t-T9c?iZlJ%g^uF5 zhN|9X5Rq?hv++xPXT8+O<%YFGMHm!gV)rntcQ5_hq1kr5% zBUu({IX*jm$MrIz*W6{iFpla(qTwx4<~cPNCI;G3Ny$w{sG>6TUN$6@e*_3bs-)gk z`7c9xDz<|}&dH0%h8IrxTaYdfrM=q8d63D!`s@k^d2B!B0NS~v-wZV0~LK3-!f zHB~4@&s)pfsNZO?c}A)uT+8<{hRsXrAyV*@cD=Ikt(S|vd)>QH6u;F|s+ow`(~XgG zvq$$3UNzQYnUta0?#yqCbhbut@GgXU$q^zdl_E$smtPO|E$$^Jsnjjr3;WqPy-rDIBjl}rX5np?Y`z8fLXAyz>|tO3q?Il5Rvka@@ZeUr zxc0h(FT@ihdUE%IK@X`KKKdd_PzwaL5tYo(T`)C<;7^p}i<^p&+_s+*B*rTFN_WZwfDoOLxpFWYydwcqx6sw$Ps|(;>&&!i6mY zdAy=2U$(2rS!f;Wz&GvTS;?c?WWka5H=@`KJvu}YD1h-BoHHn9aBdnwv|DAPeL1o* z*~5!GYP9~e_aSvN3_Y^N0l9T=@aq8k>ux$8^EG_s)ISIX6nt+u+FX6@HE7E&4}${K zTFYsdl}E3HR~Z$;SHf=Fn_;}A-Zyk=*W%)2Vn4fg_NvEqCds5uNduIrGBuI~&`^Nc zt>ca$EE+)Dv;zOJslVS|D>eHe?hdRO310h;_qwrbe|8+|$o_iKX%KdVd+)H5-XG4L z2ZA|E?M`wuLl$}A67ZG7^Ohya3K3RKiPWgDRo2XI9wB`E9Z+AO!>Q`^K$&UXdCn_3 zZp%0UD$8I=ei3CRts5{_|sY zK}#55*fIqZzm|H`}Hi};F^cM1fWsK zJy?9cbf7OIsS3FUO`tC`*gMQM9s7QJB@RdyHlMEEmCPl9@=Nr_NG)Yx^EAK)ydzUO zP=Tvxe2R-?tFaJ3_Tvx!p_2oXG~Sp_7XNOCpN7k> z8r~{pK{vnK6)$zsT+UOYo>u%(Gjyhic%)MEQWqp!8PG<6?u~^$sFqxP;MkXr%vNk$ zX#zRyJGY(wt}SGi6thf&kUTAWpnZJ75l|GvBnlt1fGZy1Ui8&Yu~$yUVNFvdGgq9{ z>Ygo|49bl>;GiR+g2%Z$xJD~tq(ucfr!A>@M#9vpsuWXH?GlR=9s9*4am<4 z62^6I3n2D&7lvemexy35A50cLgWBTmt>JUX;r(qEEvuvLqB`FJm{VsP^0viZ_`>S< zmMP3EmAL!K!7eFS>zhV0bc4%Za-d6ybszQ#QLEDD1X;z7Ov5J!#tIH!q@HJZ`dhaP zIiAc=Q3O;%seCUv?ECb%jMS*P9u|u)r8jOLo?9Ai z;7^d1l2DJQMWOq+k4s57qE8{E(zNsqs-+by|J6|)dcZs-1Pb-dF6n+B)VTR?s;Ev} zv!TdO7Q%4qpWGdfkC<1jP_~l1pcGoF1+n97;fX)3%KWXWlbdBEgzqY;py{WZURcZe z(p~ZQlY(N?6*-2E?pN|%ZLx7CP8Xij>YhE(o5_&aF`@8_jW}Ga;jvMqG31a%V3ACr zwz>tmLe@No%`+!GmQF#;ANMo8t~IN5xyLo@vlIIDI704!`mOi3>4EUHNow{QQmB`F zedusZT$zp$lYU^%4x4~4vJ=ejO~}K&S(=g`(RypIp>t74eP$ zO`86;Yo8c7;FgR1u0;vwP;8KHU9I9tb>OCnBJ4Tv#J)X8BiAycj9l`+`O|dsz|vV6 z;J-0(*+(v)yIx$)q~WV^_k)65B`Nz@q_)uuo=>1_*J>yB7vdm2pHVy?T+dJ&H=>7{ z>QxkD#LAdPOj&5)$$7`#P6>?@l3`gh2_OD!K+@RsLQ_H1wMj4t$!?d-MA#6}IrM8nyXeAGg50qQVwgjx3QmRk!GQzm8M2fn}!X={g6+-q# zTxij8)nPA|^p{VUX)Aqumvl2xZI9qbi|(%lZzKGYY!DbCANE~lQ{Q-4!PiUk zFVxBnbe?%U&+Ck_MfH-gsIX6?SgRy^M2X77ET@7jP%In%!bpi(NJ2|cT&>a~YbA~B z9hNW^VQ;`)dL!oq0_P&;J}+~DpIz17d6cV%uARBwEn=(rc(Jk;vuN72 zo%b^`64SI5Ae;5`Hp`-!2&)JG3}_=Q&bP19N!M!vl2d%j3?ASMKQ9X+K61m@d#^BM zi`v{&ed20}Ihnt_IDGZw^+EoLD-Y`kxvZv)Mx)NVy%LpC}>^Um1>V{gmPhunVz88*e z%CPmx&b1#Lc5B-LJKmjlB;Oi|H)XBPCzw?F03K*F%wByPoLf98bxvwOj0z8EI_lez zgcME`v|NJtI&%212^whbJM0SDwx|mlKJZt^`k`COh!8(O%R0xKOJ6D#W=pu@T-rD; zPoX2P5JguXR9B^}z`q+_JCLeVt~`K&+zWQgE*Vl zF*t_b4(~ZGGq(_kkx3-&7?dhl`XvG80i?m@;Pyt5%6--oUbGYGlS;naa8?7o!1XF< z3>Djx{|IhLWCq?%yq?WSknA=udo?VWps1`o`V2;sNq!jiC{x9yX(gqVMk-UFgVNp? zq@+SD*YmHyOHJ>P#>EBJ#pAk3xV4uT!UtjP7tnj_xR38XinRyqd175fu}%pcn1jxz zk-asfut_;}wb%+Fg3qvGZb&vVG_H+_xp_=b6H(Kav^i#SQ5>@iV|}7>Y4Ga0Pd>9S zr2CP}B}j74$egEu4oP9TG%ja3o3!Us_Vx!i$)bBQTjvM;5%2v&YBVOGIyLK2<`f&m zca?Kn!EKeCe`&EU$(Wj%;cOx>41L+=geks+=IGkKrJ%gxMgNMq)ZLXb!3_bGtJjAK zoY0A~ZZy>Yo7p$M;V6q7i}<2S@$kHg^NKwr51-_e{g$}so}GlSU;DvZ*K#YU435!c z48A)*VBIm7whweBAB8HHKwAHkCv{-hrB|o(ia}P-T5Mxn!`q&LY1dmxmoFvnM3PDO zoNvc3NIILNIpxX6G4FZz{mDkQ(IlWd8-;n?)I!mRrHVgiN?xBn4wRG{3~LIN5v>DI>8KK)lMFN(7AkQiT1o=GgP%1l z@rg0p1BgVQZB|jd<>X)VW`Qk{Kk*D?35FY7n=9f8U%TXixt*pQ4WicnGt)c4yxqYQ++r8S zU`q+m8W&2>ETWZ2)m3Pu@s2?xZ=$c`b>4~8Ysy+JO)HLCcw3G-+!oJ0`F3qq9}a>u z!<&w*Qh5MPFt>woH@U8@Q>&2W$iU~=D{?qYbv-Mjv^`nYi;&&^xqLTnzlO1D(Sl}3 zF)SER(zI_1-#2Vbkmc5^KV6yaa&yc08x5WBdbOJjs(Fg53ir!Wx0NFG@Nun{ri+ai zSrOz5$%Qgw&-9_1K6WVz=RN7*ytlz`-NP{apL?_4_c?`+Z~do&Yz1wqxZeEqJ$und z(phr8C><4;2Q9F5a`kf+d9CbqUPF5^hKp^T8p}U27ncfC`rK^fGe)DuD-?I}0O1O{ z>d{fe18AnyQySGx<>O@C@%NKrabpyZYrWPObJoOonc_P5z)8yF`pMw`UjszLViQlt zvoI#WC@%cg8&+%o3o(n|p$vI^XG!@G(f^_#Os|YEZ6>~JI&&9s*T9%$zN~PP%jT#j*ob^2j!+Kc`35m9qzGxn4qq-LA3O%MGbq~vz|*cIE+`KWGtV}V zPuGDzAjqXW?q-8!II(_e4(uvucw| zj564lv~n?!;YxW==+)&N3ufYlKMs>|dLI$5r-9KiD3$Sq={hiyViO={8mMii4J0hR zm3(15evmIg43`k?(!(8^28~m}W-ios5Q4}K8Gc%6HSw7IW^d+ogXx1;P8Pm1A>Ygm zSrD}Vyz4-wf+3Lg5YlFw-x-mAsSPB*F@7g4)^aDWTbR#2=3t%(G+@KtL?4{zWs*=wKZeXgYaAq%*^3eh zP1K|8*fY;w0hbKi-MLa7zd}wZl1D<~S|5&iTj7|_cK6J{*)Y|I4cLx% zh#WC2OMIL-`!&gF=-5hg6c?tknQol{ponTH#?h2bFx9JOc!pN~XM8K>Ok7p`%~trk z^CR4g&`1g_cyECLUI%LAe^oj`NbE&3+Qvf_ zU|Y8VS_a6I@$KA}QBqAUeWc;I9D74Ta#E$)*M%}yRSb#Lg*~!9d@b_kdH(rV6QAES z#AJg;5H(>#Mj1&k_rr&#AT(k_+E6q9-lf(b-e*b;vt@cJ*Ud2LaM93(@0wYi5PS4t zqF_DxK+)2MtblHr4P7#wJ^7fS^A**R4Lw4gP57BHk`H;MeY&9E)rQ`%HRROmLrzdM zO@_Rxop4e8Y~!)<8=tyY%#5y}27*hsDkt&Oy0NnMV0m)!vM(#s>&Jds$jw$Pl`^Y$ zLuNXV<;fCemgQJkCaRL{7@F6S9(pESW&X=5eo1GOfHNBF@N??lZYFIk@Zt$6a?OBM z61N`E$d>5Y-{aVr=Wc{Xw#k%C*gI>F`r3rguN{P8T^%RlX6KJ9jqn0Kf{oZY> ziP|#j;*UQYmHeZ$&A0-vRks*=@J!q|e4XU2$F(#iyn9U4W#U_w&H!;Ka(uClrb9%L zYE;B|YowFnszPCw(T|aZgj+}NnT^u<)HAy5;|&M6q5&_RW3S5tgHtDdDuVcOU;jWv z*Tup7To{$z)B=Ejn8l%Wp^Id}uXY$j0^VE*logVy_Wa*lQnhwS7R=J;w@8?BQ8+ zE0?BgT(SsK@TvD#27*iadqMFqYvmU{;<`?a9XjU>_!^ zo=zVCj8Aibtct3h6x(RCSAm)PRIZVTSC@&OS822NAAo1`j55``&3uRsgCVfxFyLIrr39sdn3(oiBGOK7`84|BYn}*r9M05j1;5H zV-O3+zyE|L8O@%+!$0xFw&WP3x+YkSKGR%muY^&-U^G%Pm{09wznb7~POOxDn0^ z^9$oYZ`T2a4aEMxr#l?u6;xh_6 zuB0VyEH?jv`axBtR9eM3`MMp0pOi7EfO6#^Ok%1tSSr3GG@};6)ntf8F)G`UnZ2?~o|96A*B5EWd@;w^aszw&_@$kmj^JH?_@ z#UcM23!YkxD>$S}MqI+KO-J1#F9%rXdyp}qRd6B3uvMP`=CG!hD*-Ot9f1>StL={U zyi#C!05jA*`2Oy~h5fg+3}-hLObqB4GlP`ssBpRZ5IPtW2U*17gZDw%F{jEsP^0bP zZh)gdLqm_(0gg!F9FquuiS~bIjN%nc;#FuS-c`yS*H-J6md>|dblmq#Z~kyKX=foY zu|9r8z*~Dbn@DzU6Z7QfL(|FAI1aRvZZH+Z^`e);N|ZlYa}-@@TX{0zJM>fl)Z_Dw z+XG4V>2h@GTY)e;`^{)IX1yt1=_=YJsP)3BicXVYya_o#D8!|vvcy%!RpM&;YP}_E zHkw9W4fOS6WK;7lD(*kt*AAaNSTz}2SrE%!oQB7WtyC0kMt!Kfu zy?R{E(02P#T*vQ?G?}RekklohOtwmO@g$XETg15o%jk#ak|=gba&>^(uHo?be}N%C zd^`FfKvMuIIo)%{zFaE#^X;gZ&))EN<%R`xdg-wK_y;f=NR=kxDfQGHC!L zrZg$dPmim>16=r|&oLB_ie(U+ke$&as-xKR+r`N@$}}+uqFnlV5=vhX1q|B}1qs>; zD`yxLDf2ipqZ(P(E|-mE6mXFA7t8BB2q6q=$6(}bf<2IH43Q&9D6$NIOAL}z2q?5v z^qt~ec_vtavd1W0;>j?Tt?Pyi<{;dHbz2>5=%e3er~NED@Am~6HPZ#VFe_h_iCfzfLt~aQjoMt6L4KV$zEi$(ROUNZ#GCVg=9R>*$`jhK zE5hO^bio*&6mUxuUULfUOMaj$L@QHg=3&%|h#@Xd>?rn-QJr_{FLh1M*@Ehf_OuF-jmxuC$p@h!?=Twax~Ja-xY7%l)APo z$ni;5C0G}jPLNT#ePD2#g>V(m$~Rg<@06txLs~SnxPp=5KP7tM$U7COb85v*<0Zy^ zOH8ebRKZ6cXM?10f_*0ln-|3CpB#iyexLJx+x1 zFj3L7VM24qjS~~Qgxq6hP%VOvvYZT4p+@5HqAL>NlkDFWEoY z63H_n1c+Zs$}}B8#>P%?NPN36ADR}JoFlN;cmzJ}kiF%b;><5TniQChzuIjHNO%Ls z z$X|I@7-yV~P=>Tbxa|p7hkryR^8r~f?z+kOf!jZC@_=pfvyNkwq$VaY$JQq+V1_7` zN%%=^OCDp=>^qtw2UPX;5K5qU#nx-;wY6XVN***gGZl|+o}Pm1Cb$e1z|TrD7QWjk zVTGdY_&sA9l|Kinzq4YykLYyN?rb;Ru{uXx;r5nZTM8K*bDFE(A%cwtUw7MV9=30Q zJbXEo^n5{lK1lqEpEju&%CJhbdHhZ(asiD0mH+apa+`K69+Sdben@upse`1|>hJWx zcD_8!ROoYY;xQbDMT<|;gLCq*F!T_C`YnZx+hT=>_^++Nrw}@iNYp9(;T9tnA}?WDdAA%vOxX`I@Ko9wq2x#J zk^W+&kIGTos!W;s3seB92w|@O@QoMtD8%&=Uv_bmch=^3OkV!hm5%=?1l69}Y(Ksp zQ4{Ms**W|=$OP-oN9SO(y3De|F8yO~yc??}E-jBA5rvb|tVnVSKk6(oMkR_$G%(`B z6mVI%6cCTs-DL4&SO=s1@cl?70UUT@$OaC9DGVrmc0?sW26J{6=tH(t2^ZwJgzlT8 zExk6HA$BdoMe#kt0V8~mU*2npnes&<{7FsjR!#GcOh`d!Q*=R5!J@|QBG#q#L?<{? z4dtIjSZ?|ej7;R2L=6g!7Q4OfoY8;$0r}*Zt{0W!?%2@VxmzJ}f(RZ9MH?{uKhF{b zbSoCaD4eLqdmO4}`T9s)&G!pH0t-a1r3@W57CcTVKY37)q;NK?;vdba9aj0?j%HcX zT%98lf3=zhB$2Xr^vPa~3d~ywXEIBJnDcqZ4v29^R?FP~)H2|Y~~yIr!~idtnU zki632%>*T1@Y2%1Cyf=T4`N)W6*_N*G}$)Yn~>5PoOX#r>q@jpw_Jb@gbd1 zmMHblld#eo+$qh#M$=O6fK8K~)K9JN{6JA43B=nj)QhEgFM8J_l73_KFtG2{?s7fuLAuX*gE6>)3>ld8N8{Y0FutH|B4 zp)cgrt-q=rx^&5(?FW_Ww~%WkT`$m2{TeSABG1OdS84cmU1-uXj{K0Uv7eA^(6k>$ z^6p3E&yWom1!s55R0iE|V_{sGKL3DjpX9MTlRwEfJpDZ9DGgVXQU= z;z5AwpO(Bxr1pC|=tgqgq!xkNTM-0<0L$_~az3*bpfrkzE-F`WE4PnAy2C5P6r{3J z!F-b@;VHUEC}DCT(qY`(2Ma4ypb^1Bo9KhzC>#II?$$Z)9gL=V&mnF2@!OG1kN>c( z=Zx}0@@PK0fd9Vx$q40nIBrxnY_VUHedR4QyzhKEn!9&gPB#08L?=Fd*HkHXaMR|* zS$;En2P!z1`sZ8Zmfz80?|$GCxLyZWOZFTx1!g~W|7kXs-vnBDX|ig|%5j0~W^q&D z0#8iu%O&m|dJ!?f!0MX>n*)vo^(Xd|_!Mg~37WU$nrxv^_Co@=-u;#dDprg7+ko|) zUm0Elzox~Z=|_H33{|b!edhtrSNp%gjz|cFI_P06aO-aq0>D+U@n4ub$v@J*-{)jJ zd@w+B>pa7;eCOfk`VYXHM5?=ODxMPuT!F>U2L))S1UH{Ztk_WUtk||7H%MtSy6x}PH9c{-(Xc1OzE9PBcl$zS5nTAxtP5;V ziX3f|Z7#S<|N8e!<{e8Yf0eL3LfNMB`1D^`1EZdss-hXFOOd@Kn{+=uG`yqsZgFsi zefe|o0PYdqz$D*m+#HNqN}(Pt93B~CEj zgBh_A{?(8Kt!)k_*JzOa=e42=nr44oA`l@*e`T^>>~r2qpMncTz}1IFP|*rPD)f=f z`hx4pv3E^Fu`d~KXmKmI#X(-J@BoIzhi1{4DuN^b$x1Ho^#yAUgWjr%(N>mCljW)z zL)-mybNEH^O*<##N|J9w_0rJ?v+}H+iA_&j6%_NqB|NO5j-Fo#MOBp5Q-3JJq0pXw;WZSDK2=ljXll^Ef(vYCcGNcDmLT=St#+r%_`+05HUtVnh~(m=K57u zFZ!xW>>>jAMe_YM)2!m>K+OcMaTAXh$J5_^gg<%m)?4L})~e+fKNx^L zOCu!ZALY%0Ua|jR*I#}`8#;UPNrB_Sx@TJ458(JPrVS2`U05{#WW~x6$}zcbvIapc zJAP{>7@zGX5S{D3$UFsu|6=72zdjQ9>N2V?v@D+{9qb=Y7(V~@Z0$$uQJ=~0fW;(u z&5W4eEs`1CcF2@GU{HX{I*$+?88t2B5`=uVPfv|OwjFZPQwV$0HDQx}DdYN5;uD)uF!7XdGoQ~z-j#iA4@3r`M!mj4ZC zFHfmoIUv>l{lrg3M@Z$cqr;%GL!mzb1*(Vr7~2E>>f7~O`=^~uq!8gZ-$w@+Cr{{L zF&6qN_&rL#_Ov}He|vz)DRlj*|0qQlq86Uvz^v~2uZS9}jFn&JN{{xBC-GdI=gl%d zI4N>>0;P%^|EvvcDLQ}B4PSCr`@qrGscrz;+XGvV-C(HpZ;4BieJ&5WDSyx{?64dj zny(TXjA<6j7|wB)VzySV!DamJ4S?qJ4}j;61DF1{9<|5nxZqrGxVJ6DAB?|%G?=M2 zLcwRfz;0ln%!<<^@B>j>r91r}1M+-#_kReq5ks;Tn^pUTC;OikVxf-wi{gPUM=3CV zR*u_oPuq)Oo=kt1kVhl^)vY?}BNP%FeK-6EZolr_*_Yo+)9)S&LOmI=m|sBEl_2ljpt`x#F=B9{Hit*>~N}f589$wxXge_@0gAis2l6Fe)b#_=Rb4>&mNMTv9$u^D@W-E~SwLttsd* z$!Erp!R=SM5XI1j43bhI?~@4*19PkV%w7AUWr-fJV#3iW-;_k3lNm?M;nm=Yh$g;Z z6|c{gB+4RlXRx7D05~emnlI3uvbY;rZ6F+HCzEFS=qWw4<9` zGBJ5J%xY-l@0Ywsf3DeyZYOFY{WF&(P)zqqb;DS>MNr^PgkaCews0KFp7oG827uZx z>c5h9%mZk(n?C3?i%PAl^Xtk#^*&+1hMT`ThGmoO2uMk(u}RAX`c^#@dm5Rw{Q+*7 zh6NMzK+!)a(yVYL=moEzrwrMwGG5~|VT(8!x`4i5oj;2GfdJy4BghLnTB2Dq(D?vP z{0v+}s%3~I+O-G}O9bq&NT4Mk11FaMZWt%kvWhtHG~949%&-l=kXt&DSK-n;oBNB@ ziFerM0|!{hHbd%%7*UgE#uOcED1}Gs!7L%2aC0~``giGt@r9^*1A&BA{g@U7tDaBc zL-wFp7cPC5K>_5ELZYwhz_2YzrEQH3yr>ohqoBhW8T8vA-q*^3U|u6%L)gAbOzcWb z0|KBcQF+quf$0VH{!|MBqrLVuM9R1^+>h9SU{D=?7lF8FL#1B!1%iF{3@|iE?=A&_ zF=&(Q-g$5=3d2T4uPOcQWVg^P2bi!T(v&WXe4ms_(gl~3KW+tq1J5XwDA{mRAQ%uA zWHz}+>US_q5GP6$;(0JE60=O5CI#3fMIkEul%HjD26H`M*DN^p;#oWC)xh~13QA=u zkiMZjI+Umq?8D!*4ev%2lc|%Te%1d2nVt~_Gs%O=v*fr%%W3eer5>GjgiKH_~R$A+CTi=3HfL3dri;W2Cb`qj7e zL$~ykDe&2SV~&ZO3c2{)2cH(*$I3|9dv>#djkUvodsbJE-nRKY_#BjmjJSyMZ&wpn z8&?!WY*fT-Pv5w)xO;I!3wOK0`B*H+iYrZ7Cq<^ue_OA;AB}|`f$=1nvK_dk&YJGH zoX#D35jv!1?S2f!(P6HOnSsbywghY(lA8b^`3KR37F_aCHXv4ua-$Zc`*CI?SD*O* zg0CtWqDD{TA((U;JYDyt8afaZp`n9yJVHqKVx&t2hoa~a8?;TZuCK~eD~ z!ZGj$wk@KEtYMSRdzvkA^G4}u+4+K|!$!}~=hmVcBIP@+qcT~9vj6%;VOL+rPVJ8@ z1?<>eg+gY;C4SuzD|o=Jeb0LRSSYH!b_bV{e7+D`?f5$TzO7cmmhhMSfEZ1Jz6RL- zS6+&vds4jgTmKC#j0t~L!Qq4T!I=yxpOOOp_*0ydKY3^UVNTHHE6TI;aNAin5s%r+TtJyc43hv~eHr7IMKRygh;6E!hIsMJukCoQW2b_GI z;5?2ZaV{|Z;mqqhr_bIl%zj4*XKyEmpU*yK1{Oyk(EoN}u23Nu9~{fYWr!r(JvmjB zGKOawHN0XgF0ZMphN}|dgArEK@-_UOMP2KfO5Zx;m}=i&>IdN(-+1h$;^+mN(T~l- zRcTC$A2BW>QJG+E0%Z1x8)RR3aBFskYeq*EEtoT$lyN> z)Skz%X`fVw3)OZ^RqUH6*Uds$2W=V&NNK9b=0JG-`dtxK#++Yql5(JLazSjO?0VdA zYnhCj6~;;R3ayR1^Kr_95R*Gf;gv*q)69AC3Eirc1>gm-+oZ!)Sbz6e@~=n*Z$QPW z<{3BBK3c=pQ$c83%3)WtOv+s-RIAl9g6x@vvK1eu!z7=fh78PAs?-afv77A;7-EJO zE7E~rblIpKQe_Vg1%bfk*<=&$JSL#DT62N!|ARm_7F|e{AYZ9tQd>ePYE-F0{ZXoO zpP2QXd=9LFS!$J`nNI!65vGnQs-&u*81x!^n${q6;U}rUrwivpp{_LKg$*}kdC9i3JX(_ zG8KXT2Uk28v*}GGpu;rcro#)2F;kZ~9`m?HLjd*RmqHl(1hheiMi?}KkFiR4B<{L1 zkAsgxEJ6MEiK6WBR`MSpY8VI=h(w6oW33X5S>#4(_ZL* z=Ld?Jann`*rffa&GiUb+SkXS1P#X{06;l zrT(tkAz8&BqE91&vBK@U(NTEM%1$t^QTpURMd+IM@gk7Nkb*>c{n)^Nfv!&2;9`Dr zR+m0EjCjnW(Mc5c*JRd|QqLDRWBydo{d8q`qNNfktbk~wpVJD1Ec~<&Pf}J)(v%8( zQko#W%0#8#`ip9W6BoVcgWo6|DUB<%^_c612XMOJAIrX3GXVxMIu(X-qHhaT%N}NJmSBTFg3Z zKZ~TnL@o5|@VHnAgChKTsS|*6(8z#@FU{dtxgK%>k$w;wew{<;HIOa~OjoJHAA@%4 zu+1#FWV*1!ol0Ci<}i$1x2z03XkzP`2H>=w=0hHME35V3V!kuvl^|-(9f1l?s?CUH zc2C>&;7O!Eu0F$^+|T<@-|_FLryxCy-yN`g*oE#i_$BTgiXk!Me*b}W5n4y) zM<4sx@3H{D2Z!fQ2hWw?&M)tfy_F;8svn+8TlAkP-vRS#p9n2+^ly$YYoC11hORv_ z;kc#WDB=4~l4HJ|D$^?m`}s0SwyPeMIQ+C7x=~HXkKB{utuSvnd|^YD$^&1BJNq%MpCvCK`MATk zR+Xsm)}be&{u4#|yqI=h&f^d@!}?0!)o{(H;JDEWXMQaPl)eik5Gy4UWH-{r@6DYpCOrHow;W!9^7W+i^j%BNZO z=8?&1cwWV+X{aE(!g9UmG2A00W}ow@SDS&}6U!e^iAld) z##7*W(ktN9F5=64DfX8&q^#lg*P#$ zL1N5a^$zJqG{-|38gDY*oF#vBDU#1QYj%X6it%^s?>p^pIfjg-&#JkFw5ClT%UOHW zQ8s|DS(Eu}V?pr;$_m7?T(C>?kGt5`bC~HljUJAb@(yI^_J7P5B!AU^cQG05O@_r} z+Sj&ZVoC+c0-K1;OpSkY$}U{ry_$?K8m6z+g%0ff;>lybW9X8}D*+&JJ>F9S&t3rg8(8VI8u%cC_`0pD@eryrDC+ zckbFCpT%2HAZtB0`#ld1P)Er$BF~`k=Rvkb#|Y&a{d;)If3PJSFJd!%XBmq~p4i0;J6Vel zt>CU>4rNgLQTsB`Q$Apyyi*epnDg>%)h<}xh){MUa`&+La~|Z`%VGmx zfxHyA7pPdw^sN{690dD7MODMPP0O&{#Vw%+K6g9ljFg>dvFh3LkL%l60Tf;XEBp6f z@$x^M+4p2X5>5ZaxCa-&gs!P;>Dr7U^L%~RkI|EvHL7>1YvKB$qO>1Z-8_7$j6?D} zt~yhoKJ zLAwD2i&24zs77zp^WiaOgD8>11z1S$$@@a*o^*-%=~0Z0G@1)l^Rt$=5#0I(*Z`zj z_|z=-wj^i5Xs0pjEBlfR2DoK|)OI zopf2aMD;_YHs=jm7lFg^(n7dvLGg3yEtDYowutOpg(l;Qe^eKev3hP4a;_IV0ForO z?E)L9UmoAIHit{*wg<&a{v#2yGVR~pukeLnUR2ERC7dcAIig3s`y-GX6$&GD0j^Ll zSn1Nx(^MVqg;au%{vHJVQd^Sy=p!b$4&~YiK#lNHUt)yl&t4!lU=-WbH}DcB>wT zgU5$1&mbDe1o{9`pvCs@)$_){4)U;M5WmjuPGu1dQCAn>d&|Ql(CR@g z-kfOB#owt=Z5%rqbxkd(Z(lFti5q=$+H3bbeYE2ZSDL|fuL$4Xrwf^z%m(%K22~Lt zQmm)5wVPqBc`vW17Fq465&DLxF5Uhsric3a3~^rgZ#rpR9FK6H<>`1?Rh?qZ=zM9- z%A!`cSh`+wK{KVOLu#vx&^|sv!Ya<=ef93k%G0SrDCDyaO?hvhfjga_z7v!L zY>k4z_}YV6&uNYo{euv%v_RaHv}4#+=Ti;d)OWf~oF6XPE2<>T<#3&*CoBjKPs;WlFD~+{BfQNR*hFokFr!a{^1PqNzTF zi}`yuQFbuc!+M|MO^VaE6uB4ecvD8vS1%lgMQxd~{>~_GadCI{b#bXtkP>W=0!~pzbYNxQFA+L8bp)T_5hp}VOV_oCF zo)Yb~SRBn4bFrO|*o896a{PpFlxfj}6?jzS@H|NQ0M+gGig=PTH`Bi<8h zkEtVl%7ta9ck$G@KZt;+$X$cy2gCNE8_C1u{vhIpllVtqZ&-QjdK2jTvDPsM3UyxIGbw*$p`{Et=)JcpqRX!tV?K6JeFQJMw&k&k7xuITWZ3T!Ie@e+s zX6_Kl=}VkGmQHDF44-n&Zga48|3>r6l|vlMwfD|R9qDNyNIvsq1=+|D`ndqwY=V59 zoLjPu%^{SR^o2)x3(J;s0=bYja|Woo;svtOm_14Bb^X{TS<$94N#xI>UgJ8#BhN&p ziUTD@6$bxrXtyprogy10BW}iD5?xig@-8;F_T|9Srb0zsu)ybY$>rv$VH>3r@(uW zLWF)HDJpTLz5~$rj15Kt(0iifRMm&2M-fX|7(yZ;b-!Ml}v-pvGh1DQOG)T1%O82APiOrm^pEHGs8 z@sMOKW#z}S za8k7|DgS;UqH710mbn#6>CD`Twaa@T3&dR|aZ2J(_c^0={Ext1L9}K+bSP7{TSjo= zg=g@>pE!v6Im3nU^N9G}Qj`xTmEY|iNqfQ-4`S=~E!pM#HM+Sf|mz%l)MV?E3d`>lr4`|$XCNAj%a#>r&N9OAYQ4_2Jzuoqw*z?sq6Je?`bde zjNsly*!v4oGMyMK<(E+1m$usCS8ogV6fczouE9r(C1lYOtD`t+ifF;^i@5FJK3emy zGGSY|soUrdYolUO%OfYZOZD87uk<))afOONS&NwYo1Bqo*88D8jh&@_A$YoHE5+rO z;>0FA#m~gh@FTUU*P4H;_i3&!9Y+{Z6LaxOZxYvEXZ;x#GHB@1^cS|q=KYtrozJrB zAqktZ>YP)pdFVP$)*MKF{9cU+}D8#YUrD z8gpb$Q0Js}ah&n>f0LZHCvKPc9SkMSF=+u-FBWO>RcpjmSjqafzY)SUG}dFJ;6~@yQ4~8HRJC!BJrsbK?xUwA+iKK^$Z^PK$~p1% z1nJEeruJP%4xzfH?bMMO?n>mB-Wp2y&RB_AUcT( zmW@KzGyoyc1Ts95hebUxm4omo{_e5H5uZH%BKtM3rtq4?I?QZwPabW|FIR1n*v2Wh z7xn!wF-cz+f!B64QVGKve`xV4GS($WXEDpd7-_dck zS(3xrxv|}5ggG2-C(9Y`M`p!RP+&@V24YlHhnuOLER=*71>(O3$C2g!p0k~BuO`HY zyY8m7Cdxqb@poE(ivRJEB)fb^6meZm0nGVIl4I2%TmQ(DLp*_oB*zbzA2ZHf-dz6> z@zxN{@pZv9h(5agI?iz-m2o{oR7x^nH=SS3+1n~-joid$Za>{NbE$i+9{CT{U9Ob= ziGkZAxedBwlw|X1(xY`h6L6-i#PK5KIuYg#-&>K<}mZ&3bY`5*!isrHRqfUn1k+3ysx%m_xFC!c5JEp zFC9vZaWJi*Q63n?b=kgYIQG{UIk9HGRtrwW*SH{KiCIz-|LiU&j5Mu|ZopP6~G{LA^Zd5u%SgeMA+%PwqW0qKu0pyY*-yOZH`|L$W|K~_ig)qHSFnf@{P z3s%J%Q={uF4hU)U_k9_f0>Q>HpULBysodGa^|EOVgAq5qN|NMP&jh-ce;Dg@$Vc%) z4?IV1lRP^+qSiV6vqaV~2F62=0zEPK@O<;L*w;9ketBUtj%1ByDekVGahZ21-Z*l4 zKOAO0cMGzm@NW+1FvD3kG669h-@2ae1!0*UPQq&ba&%Mo|8^i68kUn9j}Z> zRc5!-8@`~)$?G~EPZ+ZJtG&XT{IX(c!GK*P%vT(2v8?ex(CW9cn;>j z7f(}G4DNBIJPAO^NyS{$d&x+cVoHvDF&6g*C?2Z_u}k@USjPimc3e}~y!=|$DfWn# zi1eAbpi~x4h(B1Q8-*+>v4#W3j&h%Yb@9N5cHSZz39(3eui5kd-BN^>*KZnI~b%`#+-Qp55h$+w!rXEjEGt&v2|Mfz8RJ--akZB4>Fkl91z zT49K0*x;!oV9*R~B}TAjV?;|MIw*(!F~?7r|Kx6Q#u{g&>z|{6rk$7CeG@h=xb8ovCCSo~bJgK^#k$1{xW2 zG3pn)sG}=p)0G$q;tAoWurCh2#0FgYk}XG6sl0ydQILm*MD=EmZ5Keks%N!B=eq0< zln$fZKL@0fD3Q^)qb=<%COGp|EQD!i29j5?<}+3auVK)-EJ_jW78_D^;Jll9HA;Dx z_`S~Ug=C2^VI&Pb`O!$1m9MP-&GF2?nA0>E^26(47}LkdhT8-oKbE}|d{;IwT$EZ+ zHDkaz4&V9M#{soDm;E^n44QBwsV&vjtz5%}4UUqVWWbMw#YhiIak z>Z%RRK(X~mb?U=nR?(N=n#|HLK0{y=$0X+_eDSS0K1&s>LWT3=N?rM?A}U*JjM&_WqI$$BQmY)R zx!5ZK*ziX%9W$~kB9{r)cEW2O%!uvn?7ED-y~OntOIPasosGe`_hq5T!XGIThs7WY zUk4sy&nf_V^k_~6sn)lm2$wMZu+yP5VX z+fsP_FKi0HH|gV-hmYK5*HD|mWS0|-3$+^Kv*{JFbGq``D>sQi;Jpa7F+*nX_P0!* zcWzn+Of8cfsHDK}5oI7BNiqguCa>(ei;Ew9HpP|&qrKJ`So>#tE7B>wwt_r%O(FOB z*VtbFGckxcVLFIO%5EE77}e_w1HI#L*f?BS>l}&#HZvK1XbPO_o%|`H0{Ek<~_i6HxAa}LvF7q!VA$*ad3)Q zYAIH8PBJVwm>R2EFMl54WgT^f{kVJ?^xsMnKg>8W#Uf#W0=8`s zsZM{gD+hrUBj3;)Sf=8YU%8}Qbl#Sevk{~`_fWCcKa~IYJ|EcBOfYA40r5QcItRf9%KSeW-64h5ITWTF;pB8U2rk`QswqP9WCcf|oGaU>@^OfALb9AVj^z# zhpC(!8pmV0@iNJhjU2U7zO%CKL3TwW1>=0m%adhVUEhO;?3!f(3sIk7to1&CDi%<{zEYa)<{85cnHgPu_ zG|RVVphhAc?kA)K!3B7W=ij|A%PJ#AYxl15uoTs^rro_zX5XDE%c2*|Yhi)p*Fj8V zY9ug3ieoA%xIKtgoGt3|3R~sOVDAL%5um~sZyX;ns4q2Xt>=-!cW9=^8QU*D2AwmZjWAP>wAf{_gDNFljYdXNED|0`a~8Ft4*5a^_g!k zdTR67kQvZsM%&X@AWwZYt5QkN&hO@!%;#NpOA?Y{n8$n!&dzAdeG)gN?E$L9 z-NKWB2G5czI^w<7I#d@a54;g=rRI`Z!=a;BNwkObsn%%2kVbTAB z9n~*t(B*39roBrmdNx^BE-?*0(94%U(F}~(lyYOgYt;iAN`S|d9LzVlm(w?M+thQ$ z3fb~KdBglIdV_L*EnO6FK0!#8X`A*;{*;2)nUTpVI40sYO>%7`7Upjy1+|K;rz0Sa zrnYPII}3>|&c;QrUbXq0MFDK@ooMVEm%=V+i$F+pPq?nmNy0@6xE6jut~23rt_ZZ-cG%=DPZC zKOk4Nn2}jazNB7|)_C{=s88;}SC0sf0#rMCAmoBl0pqAySk8k;4J^NQqiGPS@vR`Q;=2=3le? zt8&t>W#!!CfalUu2bIj{&su7LVUD7%e^1r=e~-6mZ3i8-<-i+EUgU z!Y`Lb`R601q-@V`jzSje5kZwO!PxtcACz#tkA626=Y3BE5^O5N7SBVE2Z}8uHCP!e zJk3zKD-^mKj&L8PerVCavEXjc2s}!1E)ptI?3IV~n8o^KS#8>=r1BJ&)v(eHkz`ui zw>(}dm0@3>3x=a-$`7qSc^7*^W09R08f*Et zelg1>R|hU&TP!<#Kh3!h(@GgSP;om>O3ay_8Tm%vhi}VNJ_vU1L?Oq1mE;BHOI&ey zX{pf%iRD%s1|(a)8G%r&I3>RD_~Bl9wDt=3%?EOX1r@YvG6pqrJCKAxLGMVX2xhM{ z?UE|=H!GBQbBLhgmb*5Zs?Aqb)sg0QWDw6WNi~oN5cVt#2Klv7jAwTh9$taFs8@7x zk4DDrM0as(e&gI_H|G-(!Nia!wXz3P-Fv2TMjjx`p8%k?1?T0J5G!JbM|xu^hpaZ{ zkX0tTo^OTB6){W#rC$31q{H!3;Q9DKMBqOW3P9J^!n6QH}`dTUAdU1k0xPjYNk-6k@{JO+?;CjjnbDk(bI96X|ayFSpKhDSekVKum;$gS<%+$wTgjO^yu0#7+*yO z83ZC`_~xL@w&_r7v76(NJh!?=9QGx-qsK5+x_&vsnE8!rbbIqqv5d7cA3VG6DzJJTP@m5;&B?RH zpRe484DV8U9U`2lzKsW3D%gAdw#3Z>=#zh}k6i%IQ!opBfrdGpkV#TePi6%^j`U7) z@EA{YFFe^*Re)4!-dzgNeq!7juzN6W2tOz`RDsRPo049ORt`zy0Qs2>?rsOu0wR4= z0bzU}+8-p+MIJkKH}Mf<(27IYiN#er_z1awkawL(A8Jq=@ej@t@4w0g=nrwiA^#RU z$)ofqr*?4?4Hbfos70*4+T4sCC|_9KgSQjH7uvM4<4jf>2YA~Xh3?s{%(z+1^zRPf z7cIhh?`bbn`Sr(>|i3Jf4@!04_WMLXsEri zO&k=Wu@J}>!NI&X|B(3{A*au>2;_#!6bcMuK1tRn%*W1B^J|h~>Nl5g-EnWSf7c%w ziEufroYJAhH-$AEh;yf5ckCSN>kD$EM@Q;o&V5q0ia0JgM)j#`mZh>M&;1Ro zNNJ;LF88c2azm>DLX}kJWVTOA20h-Hc9)eVqlBH^iE@A=f&ae_YDE5W{gXvBy!O=_ zc;PzS1G#fqBOPeJu38h1M(I|;WDHDjIA)j>VpDvJ&P0{bo9tb3(dd1D_ZrBzU`gTR zx;ShTUF2!HmB!>Ju!0zQY%#ex}IPRkia7~^!5t0b%)|?B%cHzTJmUDn(DX80S zx02m;Ig0b1w0DMVg87hhlzXODWx=!;&6o$fSG{Aq#UpDp!66I~NM$fu433D}pimwS zp=uIWP9)L<@jcUt(?6OoBYgMM+bRXu5D^jOg!V*w88u!MuMWW~W;V4G#Bf`#vP7?- zF>F~LY@AXkAtJ6ofi1L?2Bq7_6-h|B-k#Z5(=1L|e`YV8fjV6!U(3c9T|p);;qvHl zyye>AzBR&a2BfYmU7p*m5c9ZUqPCZ-M7iMaNREL%OHA6gWLZ^U)JZ5p*@YISh|A7( z*F`_ETw0#XDq*BQJ9UwImQ#{*`%T(8G{P5u!K)C-Bhu_Fa34 z3hinXwFfVH1jbcGU@5@rTt5_>O$>7i9ZHQ0A)X>3wEA>VClOdiSdwh1BJv2LPqpE% z*JpdnadOn)@C#pr+^>g1a3LqPBG6QM($?2w`IMDNFxuz^5C)W8xJy`0CMv!J>%!~$ zr5t2xrN*IzbLC8nv`}%*v2J zf+wNwtZ=HFsXbcm6upr6^Z}sF`zw(OdmPXf=RfV~8w7Z9Vw;h+;nys?#GUR#+VY+xT_%Um47) zZvizSw0O{;2kydVII|9WY%5ZGw=>SGtO0W!`0=zBy|vBGAoK3{#RfYnnxAC7R{JX6 z%%YQVJN1>63$biI)ZoW~B%<|aRK|2&hRH@0_4*KA- zZ4^8}qX5voHIOv`LcfnmF$??n-oYTdOyXtfT{V%lo2EW4&laXehAPgY3qXe(PQ~k9 zd$#Mo7QLakPQ%WQ>Kj{h`=BJ@pxiP)PA(jWPTT@lh5 zS1{@A?NGDYdS^tyhPfcwPC=m7wKEtgmJ?+rTBbzI{E#%%QPZvvg!7mv7pGMnh|vPO z>MZ(K`t|W5wvDIZ`wlLZ4p&e(z;S3oxJ9n)nlSVN2lFMv*)4c|Hs#rELw8D$BxZ`7 zPb`ZdoTd_!1u!jOd25+arzY#yR^Xtv!(>>O>l$D!hV&h1O?{|RkOz8!)5-I)fGkvX zOz5DN^gu+&YqSWS4NwG72Al+H!%~41Np>Bu?a`!cI>w2hJt%3gMLX?gLMnq(fg8XE zh!Qh2YbK#ryT=&UlnAD*C(~5dr(M#N2oFLiW!`Tx6L(cG(Rxs)PJkm@WQ;(is(UPIT%o^s@lZ za%N;xq2fs-^qN*_TwKeA$@9$}`{F?MjEkaZyouLK9ke^%4UVY-TGYf3i9Sf>hbf@$ z4SbCfIUQI;m`frLa+A>#grzw{))(MlUd;^_WbLAsvZ(L(^Ma@YW9NHbSPCRO z@&T$X-AR9%RJ3nWQlxL3b4YPXR~0ruwXmr9 zrP7G-*GeF26L&d|Hhq+|GVMQusB!2X%GSi%W1ki>qiC%MO-FX+jbL*K34;^z1KR8= zbo|A`YJHib4W^bv_|u}Mtg%Q^&c9MQb5T!I#zJiAuzNV# zaB;+P+Jy5c;pS3k6PyiBB^VQ;J|qW3o6`SAetjz?IM15z`%qmtF@5fh{+PF-LW4AQ z5{oM{qV`xhrqUnHW>!=Kb9e)1`$kCN_ReuY(SApwVe7;K`2c=uy00+Qo3A%OhG#$! z&5%#CM-Q_IXcX-OU7$lyql7lM0mi{Hwadx^=xNRNWRt!bw08(eMT?WUsvyK`AnPd= z5RMvfbm17G_xFUsffz*z>BmMYWw3t@=JoFSiAlkNxTsrD=p z1GMJw&Vnh*Yc~|u&K*Mz>u0%9TuC1CTr;L*L7KUR*Z6;)m6g$%2V^|#U_4;xop81$ zL8MQ^6^XI-T7xwR9SdVDWvd61053q$zv$V>Capg5lj2^{&Lu{9>%5Qgp%p%rv!c9h z<0%?5sEbhF#+ril40{?ie$x!YQ!Eygq!6Q*Uu_RS)qa6Rn|N_TOFN>Yb=76)FAG3vvawX$DU)nAz6~_@ zBBL3u4+5(1-0{R-XQVMQD$a3k=j2agjWz{_Obpa5xM$mUGb;P0RYj+a9R{mjChJQy zWUA);;du}ujaT?pFpqI7Fc{@)w)FxA%~>i!o5yo=?S=#{^fE(V)1_*Q3V#vbqucP; zKbw+=Y^(=+k}@MvHlk%+;&6tO!K6=6e5@9{P=<6_dxaL;4}vMP^L_Nm&?5a ztnZ0Tk_N`ZfwBkwff9|4^(s5Oxu}BY?Oft{6R?BvY8 zU$9lmbkUe<<07sma@;m7EWuojmmF>Zbn|MHLVW*WfVj1A`FtCXhT-eaO1Iw}4YaN* zO<5rNFmdgVd7C<*c4X@p<}`jn80g++nsvO7n9d2ojPoG^_x$imALioB^7rGmR~j}c zFQEu$Uh^5QYFxdkCfWyGaA}}YcoZOY>cdchNg_m>^H-j)4AhlG-{HJZnqXY|#80CV zcOCeK4&we9mSPWqpVL^;FA)DzsCO?LdIsL>9xwBGi+{!A3zaoOy-2U+a*fOZ-?dmiw>~rn2 zowI^UkZ0FxV={g9GhIYU^DntQuXor+fPC?;COSbm}8IgcrhdSJZo{z7pjn4tI zd9)l<8BC(Z?jJg;sVOyPVGbLVW(!WMW zL?=D=#hVvc6=gK{P^4-WP0egt2Zmip&?hW*#t=KzWX`m~GoO%_yW;pyMIiZ}D0zLV zbkfSj1e`iV4qpiI|1Jk7(;PKb)<*E{!<=Q;V)65zbxW^-Iej3WLIoj|D|Pcz8kr1} zMNH^`%Y<^2gQUQoyQQdy7fC|p^v7XmU+;DM;REYJsi5^XmgTaEWtw&IJ`MlQvSxA> zEw85441$cim-?3Y(z26oZ`^aV;(JeN@ zw07Yy_D2t}z^L41*py)~o{%jbedm7hoV+`a}+YAXVyh3aQ4>hw;(5f3T++ z)IY6X?uHlnS)~}hRhYfU`WrAOCnFVH6dUGFAF4hXv0`fc?qAJbB+~xJk^@hdm#${H z@>eT5Fgdr-GrBWG#&;wIJH0f4&Lni(wkEEP<>erX3{Yv#G;o(wnu3pEBiFl{kRvzl z9vep|c>%(ztbn{kbwt#V@FY#4(xrHuka+NEGCvj-!i7f<3^qoGlW{mvy6T#e1%&#V zQ;_^^j(zhF9t|yeiN9(u^62@WC#Nur`Hbjk3Sp9JjCC5Q&jmr2ykK<~cez{wa(auw ztvYR7>-bs&ipUN0Ks%?RybD?Id@7nDilzQtuhSEAb=$T+@xsDihHJXgyX$;AfiL|I zTXXn89ZcMakaMV|@Ox%%x@uk*)*?b@(U?H<#zliaXZ8ME?EUb%_^GM=eMiZtAd{H) zE#dW~(A`IotS)I9oxYnI_*B*wgwOL3d9G*9zVSt#uxx&aRycv2vOdkx4&6x`Bdrna zk~uu0nd2$LJHm~gQ#87S*7Wp~@=pG-I037?cVaN>V$dAXQQT+Z5nsT&*GoDvVM;Jg z)pxHOY6&Ob0Pk+wbm6Gi*=C32GFn%(4*0J9g&6SI63V=QvDJM@{~6bh3X`uI1yZLg zKm%p;tr2PmT8zZ4M|m7s7p;_Ft9!z>xaAM@WK`OhI0kVFjJ>0#(*ALCPO@q!j{oTN z;N#VyW_|e;eTnldXI>B#YA`wJ2tY+F+AurzJb55_5Yjq4Kc2^;pjNa6SkY|CyFC>9 z3T?@*PwzK_Qn?cg@&$7OU%Nt2SuY6f}K%AkMnK(q& z$TstNioM|Ntk=GAu$S&Ku*;6${cL^tNdx~u4(suaYHB3A1gz7)jopfs4KV|>RSZNa z-e1ltiZ@t{->7R#SkyH=#@(i@79`RmDvpTH!8$%)MKAcXfhr9c#)t80)u#%qAL`Xv=t77_&Lp1GN$UYq6sowitH?k# z(LG6>PmCg0mnPw}%J_oHnVGal#8*t}HillolBBG&H98BH8}kk0c4ogdRGw7JO2P0v z1+nLuy)@9>=1UlM8)s7Fm5cnkh@X=cp!e!q!SPgpb)T9r!C?G^z5^Hyo-o_4G;Hj=}ihTebMGcln7mgQlmNH2Kf4qaI*)ZrOabR{t8 z;6@gzS8Y`R_HO<6InHqPAN_m1KfCf`0n2bhOzopZfL?plU(whLY|}PW36d0zk}yQF z2Demj%q+C9@3Kk`9sI0nKc8yhds*S~;s2k)r$z@hze&vlM-99>M&9T3xVSc_^}XDuHnE8hv_3~L_qWi^ zx2cUsOo~3oXymL%bojyI>e68*;5P?@2c6o?)MybQlg9c!TKl1)d!D)a&q8xT>pkj zz9CKsfa>&5awb7ud5DNI@goZ*vu3BQDL!m`1UEb>5p;Cz6?Q=L6icZV&2o+l{E zg_+k6vJa9nOiu!3dSiSKy(Q-D7;ELctU+{##*!(n8SP8V3*82y7;UUhz0qJMy%Cjn zdhZ`R`K4nQX6LU&ky7@C9q|lTOmn{Ja$~SoH6=CGEfi^kiC}wJGtTNFch`I7fP0uMaDQzqfl-gFM?w=1FZnD#Wfa5I{k|(!~9gnYUm>u z<$^>u`5$bFT(HHRwHlT_A@v~sAtXK9Y+0$kPU`o(GEKSAY_yFQK_Jx5QX@ zhS+;3Zv%iYTp4rs?VRHWXyMnJG;l~e64g^_HmytcP4#ySGndcTLnIbOL62P(PBuwK zzFA?9(3Q{rJaGa8HgC*X(+X*{iHUev2GY!!Hc=5Y~r-iyM2nT{2D3k;*_JLdb*Tj;R%|ki0ZturvY}=S`k> z$|$e7$&0E+D&|A5P#LE;4Gv~@?sJAGG?9a=gO||gHQFc`I+r?g`1(X+{QL6~HQy9^ zqS@rt8l0b||E}!2Ry)QuVeN9DYWc+#sdrZHb;Bqwu*P^GHX=guAt>s*QS&BE$wr>g zeA?%&kT%vue;QOGAxr{*RYy(MR35b&eV<^g02*?_qI`07PcU-29DFfmAG1i`EVMf5 zzBXH2vNx5om0BaiA)j3m$d%;>*x0gJQnd|QoSW!KPG-R$Q{?Cj{GScSV(a-KVbj~A z!(x5DNmbOLRE@#(&@iDg_ASNxCE=v`)Kz2Uuh%%h>XKLL{{kG|boF82aH&v3Vc{$t z!ml+;`Asc}v)CflkX42dHZOD28f*Np9xAh2OpOeNV2XulGGfWes}?d+Lu=R3!nEZE z&JeniJd@1D{QsVyf2NV);}@uMtb1?BG)=nEV$l?*=t(^~&?>P~{ibv_&T>b*_|G2* zQ0*o7$I!Czr*Dou@93sdEaL;9$D#c9eX|iKX1bH$b>o-OcS=r5GN0qzJA^C0LG0P3 z3DW)yh$|Dh3{_u{BzbP>b-j1~KYGqYuT6I}^(AvGQ0L`3VYtwS9U=8Jw~!_2}<1>kzfkA=mE`tS?-r zh~DIW6bRxQnJL+MI;*hk#`L(l!$>^Kth($10s@`24l(e2J>8T1F2)0X?!k4)KJ(Y) zrm8z@XT1)bcboRYte@XY&Vg2pJagSdkrSnL-v{vQ7sEgL*@8cYMyDrm<(C%znU3jB z#pMx4QprQQL@5)GYIO9`Xi&U;iJ<&@#rVx=R|^v9nZ^911AAJ%GfKDLS2RTE!(s(Q z3k>6|kwvvCpT#RL5wdcWy6At>HNl}Zv5q5%PZld;eB5}b@k*^e#Iv{Rg^_HPIM|fS z0?BLymt^V$FY0_Kdb zx#*3ExKA6Q`Oi^9KVt)LWcB9jKHBr7jv$|7fyQ%2DkYrpXT;8z@SUli>YCVPs6Wzb z;g6miqqsJjTm_LoCZi{hENF@xI}XKFRNy?jAn=S1-mEOxIz8x2j|l-&H8-MVfUVTUwWJYFK;`Jj-!frBvjZ7hJ?crW%1~-!BavgNqT(PxLa*def4+slcdF)5a#a zg8~j1j+m-$w(Imq@kj9cX;#d$R*!)(5s1;Vvl!RNd2;GZE@c$YowReE1_=!4E`0gj zo8A_K4FAklbr-S zMh+UU;3vs6>L1WPB7eGN(NivA$M7XL4@CP^+Pp?5~m$64a z5dzRExhGay1&f`F9csI=HC1&@iilE+WqA3hdoDFA|K~=pNI&cD`&cyjvY|?K2Od%UciTF8QJ^HOwtA)^jr*rhyFrY7o>0!3~km9nYq3U0LYJ zY#`<(^C8RO)z9AmdHPp&9*vtymb9bMZQq_bgZqpQ@$yiGe6teKOAPh6iEfDo5sIw= zL13@({%0`5@*(adXXeM=D0JP8kG!bqhl3u;`V9+u<>riV!|CkmauxqoY08lp<2JruDi`<)jKsP(C2R@q4Q)HMx0`T_z$$;ijd$t0Eml4^0%Ec0C>e_}FD{HQXS!+z*slH4tY}ad66kb-*{|Vfn z_C637}pZcyt$V>pa4IG-0WrV4m?Cm6-KX8?Td$A*C0v-3-O{BsQ&P;a3uZvLL zsCe&oZ|;Ra#duF??42?5zM5{F({;;2X>8f@Rm{Ijkn5H8!hhW0Y3P@~$q9KO+ZnJ5 z<45q4ePjk+WJ|_K{6H6SVq75CXOX8vuXi~fM#bveUt@Gd*vCS5O&voP>o!`ESZ5$} z1^9L2?WKPq3tVV;H6F&;C>}DNeb$CzUF7_`V zac>r}iab2HHbZX;PaTj8snn~?HNwT-Gk4&vA8nY}qaIi65hpF4!8G%Eu}1x7#2(Z( zXalCx-Pmf3B0)|*aCS3(+rQXYdItcwhR`NgAa$eoTbhr7hnKiy2v-srSJ>a-xm6qP=$`8lX zloZ^6q0#NGTIaixJo;)Y+2A`AWuEGO%(+lSG9ukL+ zPf=7{xf-3hb3-@(87nklIcNM$2cF6M@xBJ|I%dLldW(gC;$5Gj9d|X(ndub%LjynL zbkAaHuh-b#2Kegv?L`%S1DU1TwfON4qDSiDCDbJ|#)A?s(2rqJV;4k>z0Vgmn>O5) z5S$AdcWqHIB{=6%u{D`$0Lmd6$t%>Ox~8xEWBT4$JWopj&7TTYVWTs${CpDZj3Mkc z$~@TC4(|E{pv((qM_3(?2^PL_g95@I~gY3p>87p*o^t4~-iM zlnJ&UTMY=&{sA7QRhm7#-nv=8Q6GiH=3tI0JE-V9=E#S_*1mo2!ZiR#xbl3u6?BNH z$%7bc)|6R_|Huj|ShFMHQhzVlZ;DBKy$?7;2T{D*xn+FYw!pFSd zM7l{Vpz%D`YA3jSzgzQsC+gz0L+!d3uTkk+@Ecb-keG>c7x$(y4!zpApS{2x&uQ;2 zu%EAA_ul{4-l?27yD{oiQM!&S9UTLAe)_Bg+W&pG6U8FOk3vyKW7PB4&7*EwusT!4 zgQu~4x~?Vh+#^BVO;Z}IeSqlIINV{eRAO802OU?l^VBb6JL**zuha4P5R~4z4Kaig zuH9gYiCwiQaKDx3F`9$w|A>FmE^V^67}Ch6{l8W@g70f!AX%GWOaB1MI&@71(?+}z zl>0*AP+U!h}uiTbGn3@~HwiwGqA#|iT6Jzs@>sY#c4M!r9md{e7| z#eCr1L!)M7e0h6+H)!`7iJJ=mO!HZ(S~_i9r7FQuf8A5;!VO=KyaK%|n>QFZNEB5f7Wj;8pUI@lJ49y^l$7&Nd(0G5RrphGbA zB?NrA0^t8ptP)CZf5SBErJ^KdvN{o;sqn7Rx~yoqa;KWZ%Hn)0%4#~^elz###A*GY#Scs!|IWlKB}^3K*!(yQ=jTU<3}(}RrB2w* zZeMU5A15A^(St3pJ^;9kd3IfC|AY_v2XN-3JU5eLWN3Jq83}Nme**s@tYP?~oKc?Q zg*>CN7H68rlK^WvtR=_icOn1lZOB`Jp$g{sVd|@fb~}*n|4&ROgJDm6VW#j#6jw{)I0SDFe2gU~ z$ZBbgY#P|Je?^u?6TWIMoQfhtm^KqHX-MIaa&#UsOe)OAD*?kxvsVh#Qz`UKlqw95 zg-;uokfnxH!0h%tp|mDddv<^iE`x10J6fcWV0Bxf>VEX)eeX2=yJ#qun@bX-ge~snhe6!UIhi<6*o8MR~-fI4WOCoqWPIS|nZz=TCr? zY?V-#MP$ikVx{%&LB~8$s_^-JpQKe%*JNi0C$u4Ycn2pK?o<5k&7&M2rFIPhhK_?B z68bgQQ=GY6hvteOgTv zDUU$^IR2C`=M~3r#l-4Epu^Z)df@ae*YGmX%VZfE76TW(j0$btv?p6pG5_R5mOP={ z0o2*z016FICNv<80s`Zo%9}!x60IG?ddg+L|I6k+GS+ zb~9sQvknEQ1rG!gHA$T?x!<_H$uYbqa>DYpd#KWq( zB2$P-C&`gSx#!O}Co7<)sx1G;kr{h`37`dhpdww5Z@Lr1HD9TWh3@1_Pi!SG>#}Ih z4)zmSs809O`PdyhCM+nmX9~4vQwpuFkDrAYbivN^#4?(dJ*1+YQYD%9iM|QN>T~ktJf2t7y!c$$PBt`!4Bw3D@+C%we~2E5v4@m(&)}r zv}rNf-`Q*Zw%cAWrT?eR#JB80y!?AYD@b~KtX#H4qj0Cg9CCX@bpE}YkT%CPdSrTBRnvn@{AtJ z-73I6mt#-ZSC6TC?rx6W6>QfNP(E6!FmN0Ft}`BZ)u3$>IuHtLmEcY5u>BiZorFnM zUBcQ6W4CcovFj5vYTQROw%U@argc?0io{+^CA~3S_(TC%XfWd;dhoLwvD?nT>@v)U z8UjrVb<3ZRH5$`wX!>76r!5nVr^x!a+PKmoE3Xo*g(8LRBK3M@Z+Jm(6UgZ@nB>5=J-aILnraiF%O;Re6my##n;UMj}gDKynm__tKvmAGy z4{!Ug1fk%c_l#h_!MIe{aGzN9KP*EWIBE{TAt(#f8Q0c~yVC@Aohyf&K4evA~JRBdsk zU)8VO0ns9*)WLng4FGn~f}#v4BBp&55mG9&ciDuXL4H^WACrG$-PW}iAXL$~s+-Zg zkq-z&JNB_Y9|Tb)S&f*t9_C2+&zOi19|Pd4;0*JQK9OfPwq6+>mK`6MFgpqV5_LjR zf60aI=t3?;Q^n6fpqP}|nBzw~gOPUXk7{QO2;t;+5!nB)ElUn{OfE2+2s$W2=2Rg9 zLNnhl1Z>)VWsakt*;pu8&9jFGIFO6-&@o4QfLK##f-kf`>7<`U9r-}4Rvgt4--1y& z&`5^L(RSB2+ETBqQRDA{j?_5C`vOvw41J*Bo>p^3p}7+p$f{P}*dK1~d)-sYe$p)c zJp3I?w_~GAY3SiZvVdm2O+<+?A(pIPEl#shdi_p9=hz*v(20xkg#3_fX+ji(bX1y^ zX5;_*NE~02wB9_Kcl7=i0IDg9u{2CfT=J(@;>GW6wW>0_(E}(td&eLxsdf%D*amte zwfc+N^{5-5s{TD(02*Dko!_47BzW*@9eLv6Ue$}@b9ji-7G6BT)vs}&uqieuGUx3S zcB>p^NtC!SLPxfScL);ADdCJjPt@ffsin7#&aI?*-)bIn!ZPz1D|B-&ey{F6&&Gc^ zU+y%nx@%>a?POEVC+DYi0B!fnpaX6|565CxO6CAis&+FoB0O8QiphfbQM%KXZ~VVm zk4BDvr{8HbEIxwcBtmRj1Bm=qf)i~D`#<2bJRR4w&>5Ain@&=)8z2v0af2c-18S?UzI#br4);#Qw#Z%>}aCY?JgnPIWEAbx6jQRw=eOwzI+Ur_;0Sesn^vm z?}1mq{_2V!G*qzH^M^|nWXtGo$A@X(@~4I3wZ+e_{0eSwA&sIPj`@#7=|x|_zC!i$ z^5=Dwla3;Nzqn`5BDr;+{e?BAVinrSJ}7O)N0C<9Nu1x-9}QucKa=n^j!&1^u~T_P z=I@R1N&%bv5|N4%BhFIcYAtrrRF@q>r)$Xa z!!6GQVV!+^#7H{U@jctX{x~q47=IpQCz%iW-N6O<+#_{x!E+1=UOM8eDy$V=sNq0s z_1fvz6vQ{^`u%zFNC4073g1v4Mb>=Zy~zOUNW@^1v|H=*Vbgc6oeL)3dT^LPbX~*$ zx7z*CDyY4rZ?O^%-j_Kc>I;=YUqIrc#Uj;0Aq`mf{AiK%cGoZ`2yJ>diIF3C2TCbX zL1LU;JP_eJ(D;$aaXmEu=`Dwwwv#eOk2UC_eneh>e}X zoj{GNGp9tkngn#yr$hA1)+*n_=BW0kZ|g_$1w`AFa18`;#A5lP4ac_%P;4KGnX27G zp-Kqo{_Xp!UFgJds*L^IM^S@%w@}*#GucZ6c@F5BY`y+aRi2pD($XHbj}ZKi49LdU z$c=F-jz>VI!Mg=U&5Dn_R30>y{dzKf*-oK@4>-eo-I z86I9vEcg+emLNrHaqYlcn=4zC++;oCWB`R2e*7%Fut)c&$b7|PE^f89|EktEKo7-0 zqHqog*v_s97ms$j_hc%Va-?un@a_ zEPQgK-tLE;i>+)(3tz7pnPh9z`pinK(!xtf%fz87o_hMFI!MyhouO2FcV42{3%f9{ zx)S`FtUW$G4_1$5PId_i*b{<%%zXiOw*=O3>&i!)DbM2o)tVL&>uD$tZ5HM^uK5?^4 zp7>z{AVM+)w#}%Uy$~rkH9;)=bIzV?`Dxx#`xuBMK~ zR9R=QvToKDbnD?@vR)rV$WG$-yNL7p7g&7f>|JefF%oWC)4XnDe-Sbb*~pvOr1uUh%y;6O>fx<{IucgBkVFD4*qiF}F*I_7ng_AxWGqizSbqFRfb>sPUoY@{hN)hQ z^MzKSKPy`i^LCF+GMX1#k@WdTW#qM82(a4N+TnAyb>`x9z|T3*UtJT!{58N6qy}ef zbV02U8nae)R@#T12~1;h2|dC(x{w^BZ4T-K8pgMehCBCsjd`taf|1M6KRnQ|IR5{M zpcz((3vox`U#tGNAS`!<7_Tq8ibTyjMaIq{k$W*A72VY)2XvsUQhYUUQ9FofqFXX_ z+sYGz8(RMvP1#}#&sCP{Z9(%&x&9yD#IB?v#xTEtpusho$;GJjLYDeo9Ak#?2IZ0D zx54vwV2`MR9uqt7T^7v>FYBhJPA}F=64Ip!XctDFbX{^L2+QgvQcH{W7-)8->PXG; z1o6~S;nD`YG1lGxNaWX|^6y{E7#fnvad~WBWj&D+tsjWB3fFi|w9;o^2k3X*^wv_^ z$N&2o5OMzaYk2E<3wcXz2n>qBqC7?X>0nQRM3CA_op@V&6v84|7oaI?P`w1Z^{P5O zz#kgcD_Jca{-GD4{_R(LRko{bR@#K{={;+XVSOXRWtoagP`{17d+!ZatJvCspE%t{ z5O^+hcenZ8tjE0AeF9XP)IPMk;2wLLdqhmUVSNu?K6{5`9tETfqDoybAk3$w)S0(% z^P<>#@4RN5q4*LJb0`^r{)m9eY1u;qC@3P^o7WmRiIW`|pwE|oDin4_jCh4sf}E6R z%LG@gQ#@c~)!1hXkT|C38wSv@ui3PA4}B=)`_GulKj>^~f05C4xF=dxM*1P(QU5UbH1u(SL?;v5ctfpQi z%5*bM?vM5wn2Re0AD4*_h53#tdmGRSFD>wFhNaTcV^qv~`jBO)EN>-=xwJD)FIJIpQ=iL_`2t~_1eWm~^vpB=c3rfkSy|6~>My^>on#;ZR=M?t>=1dKP;P(81V;zcrteWs_*?BF$8Xuo`vJ zdj<|+B1dAQR!=t570pH~Q15!H=|PveQ4<@a2(oL^h3y<*b7~;ZV@Xra6XC@k&7EhRBx`HyzrsZNrs9bjUHe3q zNf(l&K7c$=hZ^K(f#&hV0uVfgf?a*FI5dvtxn}acY;NsByc4? z|K(&LCHN2-QYyK*3vGAbxa4ZDWE^ceR(z2n{2>D`S`;^v%3u3RdW3L4 zAvhHSYxjdWAA(spRpq}?*gm9`Jr9%f*%zi2=J^e`Ar{-x=6@PFXWk+4CWJ2bZi8wE z$nY}Q@(!Wri2UG4{=0nKo`ec3$f=roh7pgx{JaDJ?Hjbc_cD&c;I}Sw75`Ph$d0}w zVcLw`mAUuW%Wxd6Ws~1X(&I_!Q8%k4^BgIx#fG1*Er@I|zuiy`@^lX5dl4rl9k=o4 ziY27C@;;lxVMEbTI5wHr7?y$E_sng6yE-c5Rev;(hS!hceBpX7{Ce%Z%`ARJ73f-z z76Z{V5KJ;)nQQGOS9u3Xvg^XTI(RtRlTEj4dpy-*%Ist^oX)9;8uc90JnB zZvfdJzXQH#ktBQ?^fE^1Nd-&H--{7PK)N|;WcaXeeu&E+cLK3P$m15Dck@S)#vHmLAN7~CbK@GH4dkcv2CU#nL%0> zx`#9Vo*QOe^xHr?kjBfy4Vp-qk{gFUh+XHiyFI}R?g;3&tZvo4#M#0or=OKo%^%4j z1D4O6v)}V`5+y-|L}hCa(;SI)7n>5e1}y}j4oxnvjpPh7)*Nu2`6>US3q#}xjzBiN z0lWqqgX3ip!B;G8o=c+%a(oM}6QD4{WrCNL`f`v54v%UYq}qe}F2O*$*X() z>@$}Q037sH%TI$nRU8fG*e6@*fouTzz6@>-m^wegtI^{MD$Z+Ky&Xq)iUQN(LslTX z6xH?h-{=C5^ro-_uzRhugYaT*$aqV_h_-hfrDC}%eOHYssI|Fk7 zl4OJQKGVI9HE3!9C88K)9hCc}3fuAslM%nh=@_5oGF4CXF|s|S);sqFi)1Nj>=FP7 zj?7e;xb)koe^BN<8pZ}%-zhxO5 z?(*YXCv|{Na$&~j(Fv3f8Am~9AuM*1q2ntRbds-Vdmnx|!Z#guch|Kp+60qOFRaN~ zp+TvoJh6r=X9Kkkm|&A^ zPI-8g0{IGZ!9DmQRlU}hxnI{8HR#E@4R|}yGJ$R>kV=K0?~rMFTXUXE=z307LhB}l zJ*#g+&qEfXr;oN9!_U+RHwf~Al_S4XTvRimjuFeNX%y;^6mO*$_9 z`cIq(V#lpfY)66k*;EW%D!f;INMEK94k}X>_k~X&cV^%&v2VAShg-51{>1FkECqdb z;&JOca_uY!sMJ-}Q6kWMIo5z10$hsEF?`==S|^K;2Tyhw%ipW-zHt1rxI!~d`+(GU z{U8#bcpr`6c<&b82UZ6!<#n13P=%*M9bF$KPwiYoVZ(|q3Nfp3*>L7YllmTlSq}5t z8=t1c;i!{owyvGHVaoE`MD3;S!A3##+@L#FE;oT4;8dtY08zpK$QNbZ1wIJznCT2I zo*W;#xEozt*PDrf*UNg-t~sM3sJ`Kcj~iG;iZ=mH&$oCK==q;2mpmz-fKzFfNWp}P zail}SgnthK*VeRlyy)QhppF^gr-4u&Z5syp!&znqX$B(rj9yhQ_I z4B3@uddMI8L8z!mC&Dl|LibH?iX zv{POCuq1p59+W3a8fZPVe{?PPSw;D_w?4i+44Psn6r*J^kvGE*`2d`QptpDv-ZVk* z0$?;F?t*)uypT+jLq8A`h+j#gYw7TUjy7k@J7A=dVlHtd>wIUQ6`U09O zH~PlYaGIWXrj4iLkt9n^`Z|Y#L8**bLDW;GtPiF`$dAh8v^uymXB}%p5h_z^MM~dQ zHa&q27AdY`NZb_&8K#(hDo=+$sUPxA3Dh+Ylz1v~b~&@W*7AGdwr&pc0J4F<`mOS+ z7?t{G2nwS$j97M4Rp;Y<`kaM(|I*mQO&$c~| zP#=I|#^_oIk8?#Gd`^ro#!y!PQg$g&n{+aE$*NWQM#K(Jlh&Yp-kjADvE|-X7MhxlBkeIqbsx+c1ts^9rDSU+8FTvK!6B|QPVw%uG}tRI6oX`Pd$4kT-?2co5Re773#is@4?X_ z^$Mjb&)ky5Up=zg ztLe_m3IohqXjAKPPqTz zxH9b%;FrqZzY|@cfAL3E^`6Q>%TlNy^&ZG;u=Yd?Zh6Q4QS?Mj6lEgV|5P16wBt@A zHF0hKM+IVA$%73f+VUkcKLYVs>B1Fk|$RDlIMvgpV65^_LBe% zpFn5JWpn<^O2sGo_kTN2Bf1>_`dY6KcdJX@ep%p2pDp9@4I8hXUm^kWPR--Xn;+Q4 zc_%!U-*@b-DibQo)-D&N!;rI}@b9+yrU0e9=oWne3DfV`TZk4gyP=`3!Lj@Lp4LW^ z{wu#|s&zQEz2O3mw_i%bN5aJy`Noatx@iU+ZJ_#IAPP?Q#0ng}JzK-HyQ3y{5kdlg zk3hU6t<&BBd?nu4>$Nz0Pvsv&S`nE+Vr3th`@k)^7j{N<*ccPoyho1#kj4af3ySS% z|AS4P_hD%yxN*)%))?p&2if5kEi;N=*6loW=Dn zU|3^*jM$uRgChp;P%1jIwcnN7P%N26FA3V`avCJxUH4tDl@|LjmqCn}73{rqVJp(> z2mn{j&_=T%@6qY~@_O*Tu`$xjxJVW@P2{P_YvRDPzbUX58Le~{*E(BV9W|lGwa{pb z#K@N`Qg>(q#-aOR$Nd%~vC7a2=<|L+*!kBr3mS?Jm_cyG;->w1%Y)T`tU{DRpP5TO zo*|PFFp))a0$k8icCmRbqWp#fyJt?!h3~0A$y(Gm0>>%?PlNbA4*B4_;QTadqI)|$ zYeS~EEW>ENFKjzU_aJ+Wj|IdIw&c>QpbmxQEqIZn%Q;@tu0Y*}v3HSeo4&7k03Knp zZ!*<@4ny!JLgaP`>7BKisyZ;?Zl&+DYte=5q6Y08ess7YXI)9$*{q07? zy3xIV&cx(#J0>NemA=$T7MN;>&>I7Vt;~DspE@Lt?vmI`pHn(%zMgKT`DleSs(^ zg0IxVR~L>X)4)1i8&YnS1J63T7!~a{13_+(Ij8;{xC?q75Nk9XP`U}A3+95}Ym}^6 z>HMe29&1AQVNLj}ij!HzUILqKtUvQT^3N029YbCPbK;P~v5s1jwXK|>42 z;OI^;l@JJ=(G=iHEdKqVavhOc2FDA`|7|1tdQ&rHrt_1Xq?^#A%fM1`I;0?M*erEU zu%aStCgV(Q{Pa=|5<;Io)mUB}6}$IWMmAX!n3sd&=p8f=35r2;CZ?Agy{4F z=6Arw@1Dn+-uQ4vzo_m1R?S=862}uDUCU5rA#W4Y8e#EMJr7Y9lnuHFheR^QU%+(M zST;oX;8iv})?Scq;fpO#cIXXYXoCb|!lOw5?AZcsxB!F#+dq#0_`|bo1v}?~XF;QH zDDiiPC$0TLp+RZmC1JIk&Xni8MMhDDR;>Q5V?*zjWL2@Cq^eV; zNoY9ZHA&t|UK{(t*%!pEj4K{9-wb-6Xfn)xe?!8%!Jcy~jT0bgIn(eS9h+>4BG!O@ zA5-}+x(7rRMm)?5;Sx&nqq63uA(T*s50KwWS9qLtYG#YI-=bD$X({!`c^=+nwj^S?3><(Jr0^6j4cqKWb z62uJ^Y~r?jszU|g-7fA;>KA010okqzI$Ps4#DMZ^$t0x%CMk1OqIAR2GHeU>kih=E zr0RvZGq7b!(^g(CW=l!$6bNx4^wkU;`O*c^RwBAV@x7ii(w!8q4`r)hKo+rfZyHrN zH~jrE{+&)mxI@3e491mcIWuwW%~^R~9Agsmc)l8z`$sCL3Or%!lTBnpb|tmYXO;2) zHD3R)FgHI;7?X4gVI<4a<#}yI5Je7r^uq9tM9l>%knVPD_?`WrIxxhbJX%SYrONXc zMNUcNU=(f8dawss%9-wBdMtzPkSOti07pQ$zhqq#!88V`#FmtUT=DmC2kj(8ym*AcTQPEqDY(QOO55=*n=qh}LfeGcDWsu95K;q8A@EXN`m-lqs z+~Nq4Q*A63_dxb*F=9G*&9I3#JCT9zkP21| z&UPV{ShiTDho2n-EVqTy{qkpqlGf;)hc^c@;DEqX-n2RarXF-l*i2un7}w`GGo%3n z4N}aG3u|Q{578_MIqg2ajRhlBRmi?M9SIJ?)iGx8vfA!`mxgFn6*UFc1umtVoGdtC zj-fTa;(hl7I7ldu)whEmk_A2*8m3xC4hFQxYI%wl`MWd2A4va1K9l$N~SRJI?MOXXg5b?oipZxwCFhu@cwtV3cPQqNw5cp^JIc#(OVvv z8Ni~!LzQZNDdMXkX>zAj8awDlRhz@FfB@?`%q|B^CLEDsmr{DLZ&lPlIgRRub(r2e!?hX$NmC z#wgQAuKSf~ut$hU)3M`EGp(y2#lgnoRH#G-9VG~{Yw89T{#fn8XAk{VSgW0aQ4mZt@WFyR=l#jdz zN@$=q5irjnd~DdC^On_~%=s$!eIp<9i^`Rj$>v-?%9V>BwIa zS;G>U_*tjdMi`rX7}k7&*Z!Q%y|=Va1Pg8%9g6yz2}Xxo(1?=Ra$xLSnVK-gIZ7A4 zYb}kg`7U!2%yZp%Vw*Rb`NLyYR7}i>D(@pp`9zkF=yX7;i342lIb?&C0xGT}>2dbO z&3E%Mu(in`+l&k?nEgPoH)nOQ2lxOa9E3jq^eu^C$>x@mTK2GlR++GhqC}Ua5{N62 zkVq_L`kh?+95UirgRV~OD!SOYyFp&RkTYQD4SS~xeuqKNnhVPhcYsg|^8F5jzZ4LI zm+{J%}E#wMO1xe=njU(kDDjVX%KI%(e*OigQ13BXa@g(d5Iy2I$Tb6u=0a z;Rurp4IC{R_KwpvhV?B$Jj{$^T{r`?=~5V+SzuUJlNEfxz^=aLQH*T_?x6)h0iDX7 zwfIOq5@2#aFjOL}PO>j`Fm-Bo^s9?sFgpW+D2|y~<8%_K7_Z;d=_2>vaS+k}vBhBN z@4jL9N$H^u{0)m^6zuh_KLhgqP&GLY0fszC#?t853SLebdf=oYNJ!hgA2Y*@d{?9= zCo}lJVMrS0iVRN3qPxx5BOL-Qd7@gc(TQa zDwXH*Nt-Xe^~z?Lh(49_qmJlph9)Kp{oJ=0%CYEIrtULb*MhJkR>|# zBoKDfDG_ol1?;V#IKhSMJoiC*Pb8Q_#0ZzvEX&G%q;H2c1cF;H>djZF_@`DcGEV<2 z(epwGX!CK6<&iUn&aBj9BfLj$kEOzj3|Htr@N~}o;Lwq(W5WiXCf-GeCsAI6TRNbx zEi7RP$UV{~JLc&+7Gz^v$R{AsBwLA(x}>Do7s&QtwlD{z86czLg3~och8^0b@Nr2xJ0@Y~4c|4e_l<=A{FXcpi1T5RM-I;Z&B3vL3vLKaBumO}8m&Jj(st=&z&;^X z-ueNzDm|%o&Y*K45HKtWb&KkcA3%XMvA3gT^T#;41l6okS?Ka}68K z^Q3;2O{Z^uk8#+ugecPr5l;T(II~leWkx;Y`1lvOtt9^-xvuvmBT4v(T-4~?fu->P z3$~6++iF`@qy5FjP=}?!TlF<+@;by|YAH&*hsdJ+nA74} z?&3<+K_yrraOI683ZXbR`6@oBa5o}V;}F0`-KUX3(2Wloz)v(`QMIM*!(`IY-qF&U z1j)DYq?oZ@=%RY?kC9<}?OKjo(D~>NCV9(R_{-LXWF^l^I3m=m!23Zy2rrbVytd1M zKwW4ZS(;deiFxxXLiOlGOWQp1SD=LPa3sq4(nlsbG)nx)S>v(ii$u&ziJYka0u^fu zPxhTSQ&Oa9ebFLprt8P>3;SU9N(nY79C5^45=1W17UUCmE*Q#<%?yaGUF`fV#29x2 z{}YzAE68s_dqBIIC}UoAx^N{bLu)z+>z_^}{m9Upw?w4vQfJ-+rPgGjH9LU;2*J6m zi@`F`{~TYiX3J-6u_wxK9B>3D>ohtC3>#_bN*JH1#J^o<=`gg!2+gATpzVwjQKf4Tt6#+VpJ=DH>klt?9A zD#9lc&>oPL)`<^z1p;z_JlbGdV68wddz(wt-MX zXd&jzz8?;%FmJd0Q6~YF02_-K-N4TpH@#Yu!pRY0$QZ<^v`n4A=+!bUykr5fM5k$-j!VVU)U@wVQ9E~~=a?C);`zvO41 zbeE$FoE)+1Bh5cj^&mWcH_0U|f03p?))-AR-yx}xbft{u3rj+hrPY%E?hN=tTpHn^`o6&P@Zx9v+GkI>o3DG@9KQf3DyhzwLcjtW2X?Ny3iSxR0>=Q z6ztGySjC6~0zoave;&;2POXIh+=0XdcOi@b7E{K~IogJPX|}Fv&?mvYAwuCd5XuFq ziSR|-W=4j}-Agl#;O|WYC0hFw;?j-e~Nbi2sWlWFQTCyu1Mm5QX^%QD(K1akwRXvuw-x+NMS-@AM+gzJA`Ke5x zHL}8VN0aFxZ8WH0gmoUL?29FmFADfIGj94)b>+m;mMX}}Y8l_8(3#kwNkC@U?zwgG z!NYj9cR-#&bPJk4O%9=6DlmC1~Vi-d7B*EC?si-=|(!jEReVD!;MGrslA-;}8F zNZTtI(1iV@#-RSvZfWEiwQTok6%Sjtba3Y1&6k(@Jyv5X^Yt30VQRvipNSk}8*M?y zq=98IBeg~Lh)W~Mj{a8FJLG($ z1|9M-esBj0>dkYA{K+$e?3-Zt`8%FE+?C{+I@^qN6+z6;T)Md6)qr)!hPASwnhMTm zpFp@p1c3DX0M8yV8i{jjjH66g3QOb|oYrduLu(XgQ2&I)GPIBNugn5@7aPBIn0 z`f+Z{rui114izgHK9-jr&lWjsV$x^}ep5^TK>`ATEADq_%M`Dzx@6|THZ-Y!=g>)^ zD%b`(^;olHnY&L7nC-FPoiVTli#B&{dY)O87d#)y<;{YF`|^WkuwlXL=Gxh>+SK!6 z0qjC>p!Ps7KA~Xv9(9W~9*v7MbaNTwv->C?ncFaNHuoyLJQ)mL`ho%GGY;H13J^Vg z1q`Uf!_#us@z;WlwRh1YApAcTWP1t_u*97!^LZM5y(%16Qk%jca89>HZ{ju8?L*e5 zP*~TnWR>dZ)C~UY;`wGMzf6qtN$vpvx~<6| zTmNT+I+nSj(Ys_3X8Y{<_Jrh0RO+&$H)(N#F9WFd+*Xcefr`oFNxuTar zKHHd&OrkCJaMx=5(9g)gEJvF9_a0#hW573Q|PD)-Yaj|6b{|